Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1434 1807 (N36W67 L=149)  1437    149        0 (1379/1773-1489/1829)  -6.0 W57-W77 N33-N38
      2  323 1150 (N30E45 L= 36)  2021    261        5 ( 202/1095- 454/1191) -15.1 E59-E33 N24-N33
      3  837 1146 (N17E07 L= 74)   224     56        1 ( 800/1126- 874/1163) -21.8 E09-E04 N15-N18
      4 1839 1105 (S14W57 L=138)   530    100        0 (1829/1057-1851/1157)  59.0 W54-W58 S16-S10
      5  294  921 (N17E51 L= 30)   792    259        3 ( 221/ 862- 389/1010) -45.0 E57-E43 N11-N23
      6  468  901 (N12E37 L= 44)   359    141        0 ( 445/ 847- 504/ 945)  45.0 E38-E33 N09-N14
      7 1832  785 (S33W52 L=133)  2714    275        5 (1774/ 675-1880/ 915)  75.1 W44-W61 S39-S24
      8  757  880 (N04E19 L= 62)   219     75        0 ( 720/ 867- 799/ 896) -26.6 E20-E16 N03-N06
      9  502  820 (N07E36 L= 45)   234     51        0 ( 470/ 804- 529/ 838)   0.0 E38-E34 N06-N07
     10 1664  802 (S26W34 L=115)   287     39        0 (1636/ 782-1689/ 824)   0.0 W31-W36 S26-S24
     11 1592  517 (S43W25 L=106)   821    128        1 (1532/ 485-1655/ 553)   0.0 W19-W31 S44-S40
     12  399  493 (S10E58 L= 23)   539     71        1 ( 361/ 474- 439/ 521)   5.7 E63-E53 S10-S08
     13  330  439 (S12E71 L= 10)  1952    147        3 ( 271/ 403- 389/ 476) -19.7 E80-E64 S14-S09
     14  779  226 (S37E48 L= 33)  1399    161        3 ( 729/ 155- 828/ 282)  19.2 E62-E39 S42-S33
  

    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