Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1382 1852 (N50W73 L=166)   876     60        1 (1355/1827-1411/1871)   0.0 W63-W85 N47-N51
      2 1737 1479 (N17W65 L=158)   976    128        2 (1690/1445-1796/1513) -31.0 W60-W72 N14-N20
      3 1514 1426 (N20W41 L=135)   464     85        1 (1493/1388-1540/1457)  31.0 W39-W44 N18-N22
      4 1720 1384 (N13W57 L=150)   752    138        2 (1692/1320-1743/1446)  63.4 W54-W60 N08-N16
      5  588 1388 (N36E25 L= 68)   253    122        0 ( 562/1334- 614/1438)  56.3 E26-E22 N33-N39
      6 1853 1238 (N01W66 L=159)   860    122        2 (1817/1195-1907/1268)   0.0 W59-W76 N00-N02
      7 1922 1056 (S12W71 L=165)  3414    240        5 (1885/ 956-1949/1183) -86.2 W64-W80 S18-S03
      8 1675 1107 (S02W44 L=137)   414    117        1 (1642/1060-1714/1153) -71.6 W41-W46 S05-N01
      9  161 1079 (N21E68 L= 25)   807    127        0 ( 151/1016- 173/1145)  90.0 E70-E66 N17-N25
     10 1212  809 (S09W07 L=101)   874    403        4 (1115/ 705-1295/ 959) -71.6 W03-W11 S17-N01
     11 1560  910 (S10W31 L=125)   237     88        0 (1548/ 865-1569/ 957)  78.7 W30-W32 S12-S07
     12 1828  889 (S19W56 L=149)   980     93        5 (1792/ 855-1876/ 923)   0.0 W51-W62 S20-S16
     13 1595  850 (S15W33 L=127)   544    153        2 (1548/ 783-1650/ 900)  50.2 W29-W37 S18-S11
     14 1477  871 (S11W25 L=118)   230     56        0 (1456/ 850-1504/ 896) -45.0 W23-W26 S12-S09
     15  313  837 (N05E52 L= 41)   383     70        1 ( 283/ 811- 347/ 857)  18.4 E55-E48 N04-N06
     16  287  587 (S10E64 L= 29)  4055    245       11 ( 224/ 506- 356/ 675) -78.7 E77-E57 S15-S04
     17  673  543 (S17E32 L= 61)   322     81        0 ( 659/ 496- 687/ 586)  71.6 E33-E30 S20-S14
     18  428  530 (S15E52 L= 42)   487     77        3 ( 394/ 508- 459/ 564) -26.6 E54-E49 S16-S12
     19 1418  519 (S33W17 L=111)   799    132        3 (1347/ 489-1472/ 557) -24.0 W12-W21 S35-S30
     20  454  454 (S20E54 L= 40)   679    125        3 ( 429/ 390- 483/ 508)  36.9 E60-E48 S25-S16
     21  970  450 (S28E15 L= 78)   536     95        2 ( 948/ 399- 998/ 494)  50.2 E18-E12 S31-S25
     22 1536  351 (S52W31 L=124)   638     74        2 (1500/ 329-1569/ 378)   7.1 W26-W35 S53-S49
     23  593  328 (S31E50 L= 43)  1217    187        2 ( 504/ 304- 691/ 347)  -6.0 E60-E40 S33-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