Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1853 (N59W48 L=212)   458     43        0 (1133/1825-1174/1873)  14.0 W41-W53 N56-N60
      2 1401 1394 (N21W32 L=196)   604    150        0 (1335/1374-1479/1415) -21.8 W28-W38 N18-N23
      3 1617 1227 (N06W42 L=206)   256     30        1 (1595/1208-1638/1244)   0.0 W40-W44 N05-N07
      4 1606 1067 (S03W37 L=201)  1063    316        0 (1570/ 933-1665/1198) -90.0 W35-W40 S11-N05
      5 1727 1036 (S07W47 L=210)   302     55        0 (1715/1006-1741/1070)  76.0 W45-W47 S09-S05
      6 1833  939 (S16W56 L=220)   732    101        1 (1795/ 895-1859/ 986) -80.5 W51-W59 S19-S13
      7 1500  779 (S17W25 L=189)   561    185        0 (1462/ 710-1521/ 868)  60.9 W21-W27 S21-S12
      8 1263  691 (S18W08 L=172)   344    134        0 (1204/ 668-1323/ 726)   0.0 W04-W12 S18-S16
      9 1712  691 (S29W43 L=207)   435     79        0 (1686/ 653-1741/ 726)  31.0 W40-W46 S30-S27
     10  373  563 (S12E56 L=108)  1040    211        0 ( 344/ 464- 411/ 636)  67.4 E61-E51 S18-S06
     11 1181  403 (S36E03 L=161)  3068    623        8 ( 981/ 235-1343/ 577)  27.2 E24-W11 S46-S25
     12 1686  532 (S41W43 L=207)   987    131        2 (1653/ 493-1730/ 575)  71.6 W39-W50 S43-S37
     13  613  555 (S15E36 L=128)   438    137        0 ( 547/ 542- 683/ 566)  -5.7 E40-E30 S15-S13
  

    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