Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  811 1586 (N25E24 L= 83)   810    213        2 ( 735/1511- 883/1652) -28.1 E31-E16 N20-N28
      2  255 1524 (N15E71 L= 35)   833     63        1 ( 220/1509- 291/1538)  -6.0 E83-E64 N14-N16
      3 1819 1367 (N31W56 L=162)   577    110        0 (1781/1328-1862/1399) -11.3 W50-W61 N28-N32
      4  235 1121 (S10E57 L= 50)  4294    571       11 ( 142/ 953- 335/1312)  67.8 E68-E50 S20-N02
      5 1384 1225 (N11W18 L=125)   227     64        0 (1351/1205-1409/1249)  53.1 W16-W19 N09-N13
      6 1690 1089 (N09W42 L=148)   395    140        0 (1667/1038-1713/1159) -45.0 W38-W44 N06-N13
      7  638 1059 (S10E24 L= 83)   283    132        1 ( 616/1010- 674/1123) -50.2 E25-E20 S12-S06
      8  271  916 (S22E52 L= 54)  1318    251        4 ( 225/ 794- 320/1014)  72.9 E57-E47 S29-S16
      9 1042  964 (S10W02 L=109)   181     80        0 (1002/ 942-1082/ 983)  45.0 W00-W04 S11-S07
     10 1782  882 (S00W53 L=160)   751    233        3 (1692/ 854-1882/ 915)   5.7 W45-W65 S02-N02
     11  398  763 (S30E41 L= 66)  1090    267        0 ( 377/ 623- 419/ 883)  73.6 E44-E38 S39-S22
     12 1749  640 (S14W60 L=166)   374     53        1 (1731/ 613-1765/ 669) -76.0 W57-W62 S16-S12
     13 1765  570 (S18W66 L=172)  1038    127        1 (1717/ 533-1812/ 621)  49.4 W62-W69 S20-S13
     14 1215  464 (S37W25 L=132)   322     80        1 (1194/ 420-1229/ 511) -63.4 W23-W27 S39-S33
     15 1575  368 (S34W62 L=169)  1488    209        2 (1509/ 306-1659/ 411)  45.0 W57-W69 S38-S29
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y