Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1804 (N43E30 L= 92)  1431    164        5 ( 802/1732- 913/1855) -27.9 E39-E22 N37-N47
      2  611 1632 (N26E40 L= 82)   652    137        0 ( 552/1580- 665/1671) -21.0 E46-E33 N22-N28
      3 1646 1587 (N42W41 L=163)   689     68        2 (1617/1559-1680/1613)  28.6 W36-W47 N39-N45
      4 1752 1321 (N25W47 L=169)  1653    399        3 (1630/1176-1840/1450) -32.3 W35-W55 N17-N31
      5  151 1019 (S16E67 L= 55)  7846    501        9 ( 101/ 820- 210/1206) -90.0 E78-E58 S27-S04
      6  253  870 (S25E55 L= 67)  2080    461        7 ( 227/ 659- 275/1053)  74.4 E60-E51 S38-S13
      7 1649  982 (N02W40 L=162)   273     64        1 (1624/ 951-1666/1019) -63.4 W38-W41 N00-N04
      8 1718  943 (N01W46 L=168)   393    117        0 (1669/ 920-1770/ 978)  26.6 W42-W50 N00-N04
      9 1669  678 (S15W50 L=172)   769    211        1 (1608/ 602-1735/ 775)  76.0 W47-W52 S19-S07
     10 1649  540 (S23W55 L=177)   650     83        3 (1607/ 518-1692/ 572)   0.0 W50-W60 S24-S21
     11 1042  477 (S39W12 L=134)   303     66        0 (1027/ 441-1059/ 516) -51.3 W09-W14 S41-S36
     12  717  426 (S49E14 L=108)   535     80        0 ( 694/ 380- 736/ 470)  82.9 E16-E12 S53-S45
     13 1620  407 (S31W63 L=185)   550     54        1 (1595/ 382-1645/ 432) -63.4 W60-W66 S33-S29
  

    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