Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1644 1508 (N18W52 L=185)  1599    238        1 (1539/1455-1755/1570) -31.0 W45-W61 N13-N23
      2  367 1346 (N31E41 L= 92)  1153    218        2 ( 314/1265- 441/1438)  36.0 E45-E34 N26-N36
      3 1158 1385 (N20W14 L=147)   478     91        1 (1104/1357-1205/1409) -18.4 W11-W17 N17-N20
      4  694 1336 (N25E15 L=117)   478    152        1 ( 640/1278- 747/1400) -60.9 E18-E12 N20-N29
      5  957 1366 (N22W02 L=135)   545    165        0 ( 878/1330-1037/1399) -36.9 E02-W06 N18-N25
      6  191 1262 (N29E60 L= 73)  1686    190        2 ( 107/1218- 282/1304) -14.0 E80-E48 N24-N32
      7 1346 1204 (N06W22 L=155)   259     63        1 (1317/1169-1379/1235) -63.4 W20-W23 N03-N07
      8  642 1133 (N13E21 L=112)   921    274        0 ( 557/1035- 697/1232)  42.0 E27-E16 N08-N18
      9 1369 1065 (S02W21 L=153)   228     65        1 (1355/1030-1390/1101) -90.0 W19-W21 S04-N00
     10 1803  988 (S14W52 L=185)   309     34        0 (1778/ 972-1822/1009)  14.0 W49-W53 S15-S13
     11 1874  930 (S19W60 L=193)   786     83        2 (1847/ 893-1899/ 977)  38.7 W56-W63 S21-S16
     12  391  940 (N06E41 L= 92)   282     48        1 ( 374/ 908- 404/ 968)  56.3 E42-E39 N04-N07
     13 1805  925 (S18W52 L=184)   496     62        2 (1783/ 891-1827/ 958)  90.0 W49-W54 S20-S16
     14 1724  871 (S20W44 L=177)   289    102        0 (1700/ 835-1741/ 923)  51.3 W41-W45 S21-S16
     15  840  847 (S06E14 L=119)   301    128        0 ( 818/ 776- 867/ 905)  56.3 E16-E11 S10-S03
     16  314  858 (N03E49 L= 84)   306     55        1 ( 292/ 835- 342/ 880)   0.0 E50-E46 N01-N04
     17 1396  814 (S17W19 L=152)   412    134        0 (1359/ 751-1431/ 865)  50.2 W15-W21 S20-S14
     18  253  773 (S01E57 L= 76)   570    142        2 ( 208/ 747- 295/ 812) -33.7 E60-E52 S03-N01
     19  236  687 (S06E62 L= 71)  3959    454       11 (  99/ 583- 411/ 784) -17.0 E83-E46 S11-N01
     20 1227  742 (S19W07 L=140)   190     94        0 (1182/ 730-1277/ 762)   0.0 W04-W10 S19-S17
     21  623  687 (S12E30 L=102)   422    198        0 ( 593/ 616- 659/ 742)  49.4 E33-E26 S15-S08
     22 1316  632 (S27W12 L=144)   371    138        0 (1254/ 615-1388/ 652) -12.5 W07-W16 S28-S25
     23 1398  310 (S54W16 L=149)   335     29        0 (1372/ 295-1420/ 325) -11.3 W13-W18 S55-S52
     24 1208  254 (S54E03 L=129)   920    173        0 (1137/ 209-1293/ 304)  17.4 E11-W05 S56-S50
  

    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