Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  223 1135 (S17E57 L=335)  1240    222        1 ( 186/1025- 248/1245) -85.9 E59-E55 S24-S10
      2  472 1148 (S12E36 L=355)   788    188        2 ( 430/1069- 509/1219) -63.4 E39-E32 S16-S08
      3 1893  981 (N16W61 L= 93)  4206    665        3 (1829/ 895-1944/1079) -38.7 W51-W70 N09-N20
      4  918  918 (S16E03 L= 28)   372    146        0 ( 877/ 847- 942/ 979) -40.6 E07-W00 S19-S12
      5 1554  857 (S02W35 L= 67)  1131    241        2 (1466/ 810-1647/ 934)  -3.8 W27-W42 S04-N00
      6 1078  800 (S18W09 L= 41)   208     48        1 (1059/ 772-1097/ 825) -33.7 W07-W10 S19-S16
      7  642  769 (S31E18 L= 14)   976    325        1 ( 502/ 733- 795/ 801)  15.3 E28-E06 S34-S28
      8 1726  691 (S06W55 L= 87)   494     92        0 (1694/ 660-1750/ 727) -14.0 W50-W58 S07-S04
      9 1618  581 (S15W51 L= 83)  1021    238        0 (1522/ 551-1709/ 638)  31.6 W43-W56 S17-S08
     10 1118  590 (S29W18 L= 50)   252     55        0 (1085/ 576-1156/ 604)  26.6 W16-W20 S30-S27
     11 1756  513 (S13W69 L=100)  2798    345        4 (1681/ 443-1808/ 577)  90.0 W60-W77 S17-S08
     12 1556  437 (S24W54 L= 86)   798    145        2 (1532/ 381-1583/ 493) -60.3 W50-W57 S27-S20
     13 1299  458 (S31W35 L= 67)   849    151        2 (1227/ 428-1378/ 492)  53.1 W31-W39 S35-S27
     14 1123  402 (S40W27 L= 59)   548    116        0 (1065/ 379-1185/ 430)  12.5 W22-W31 S41-S38
  

    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