Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  887 1716 (N31E32 L= 30)   459     62        1 ( 851/1683- 916/1744) -80.5 E34-E29 N27-N33
      2  548 1590 (N14E48 L= 15)   595    134        1 ( 499/1535- 591/1638) -17.1 E55-E42 N11-N15
      3  374 1465 (N02E56 L=  7)   538     94        2 ( 333/1433- 415/1496)  33.7 E59-E52 N00-N04
      4  751 1332 (N03E24 L= 39)   437    140        0 ( 722/1279- 797/1400) -32.0 E27-E19 N01-N06
      5 1009 1082 (S04E02 L= 60)   593    185        0 ( 950/1009-1057/1156)  84.3 E03-W00 S09-N01
      6  271  956 (S29E51 L= 12)   778     94        1 ( 231/ 922- 311/ 987)  24.0 E55-E46 S31-S26
      7  744  835 (S25E11 L= 52)   522    245        0 ( 644/ 791- 851/ 857)  15.9 E17-E03 S27-S22
      8  994  806 (S19W05 L= 67)   590    150        1 ( 927/ 767-1067/ 837)  49.4 W01-W08 S22-S15
      9  503  771 (S35E27 L= 36)   299     82        0 ( 460/ 754- 543/ 786)  23.2 E30-E23 S37-S33
     10  605  640 (S41E16 L= 47)  1278    312        1 ( 478/ 571- 725/ 721)  41.6 E27-E08 S47-S31
     11 1575  371 (S23W65 L=128)  1663    155        1 (1516/ 343-1642/ 418)   9.5 W56-W75 S25-S20
     12 1386  298 (S34W57 L=120)   493     56        2 (1360/ 262-1406/ 327) -18.4 W53-W62 S35-S32
     13 1232  209 (S46W57 L=120)  2000    157        2 (1187/ 156-1295/ 279)  -6.6 W47-W73 S48-S41
  

    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