Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  431 1587 (N18E53 L=145)  1807    281        6 ( 359/1480- 487/1701) -80.0 E58-E48 N09-N26
      2 1128 1569 (N28E05 L=194)   923    243        1 (1041/1484-1189/1650) -33.7 E12-W00 N23-N32
      3  580 1265 (S00E31 L=168)  1609    697        3 ( 530/ 965- 663/1553) -60.6 E41-E20 S16-N17
      4  868 1477 (N17E18 L=180)   604    273        0 ( 768/1395- 910/1519)  35.5 E23-E14 N11-N20
      5  323 1192 (S08E49 L=150)  1751    528        6 ( 207/1037- 461/1373)  52.7 E58-E40 S17-N04
      6 1745 1169 (N17W44 L=242)   413     88        0 (1703/1142-1790/1184)   7.1 W40-W48 N14-N18
      7  153 1090 (S15E66 L=133)  2453    237        9 (  89/1004- 200/1179)  33.7 E77-E59 S20-S09
      8 1611 1153 (N12W33 L=232)   233     42        1 (1584/1131-1634/1172)  45.0 W31-W34 N11-N14
      9  885 1085 (S06E09 L=189)   415    120        4 ( 831/1047- 938/1107)  -8.1 E12-E05 S07-S04
     10  694  918 (S19E18 L=181)   542    247        2 ( 597/ 869- 796/1007)  45.0 E23-E12 S22-S11
     11 1371  836 (S11W24 L=222)   193     78        0 (1340/ 821-1417/ 858)   0.0 W21-W27 S11-S09
     12 1574  722 (S12W41 L=239)   523    219        1 (1510/ 698-1646/ 776)   5.2 W35-W46 S14-S09
     13  598  653 (S36E22 L=176)   768    175        2 ( 549/ 585- 663/ 708)  41.6 E26-E17 S41-S32
     14 1394  204 (S47W66 L=264)   544     82        1 (1354/ 180-1423/ 229)   0.0 W57-W75 S47-S45
  

    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