Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1149 1853 (N59W48 L=213)   409     50        0 (1133/1826-1172/1872)  15.3 W42-W53 N56-N60
      2 1391 1391 (N21W32 L=196)   576    141        0 (1324/1371-1460/1413) -29.1 W27-W36 N18-N23
      3 1618 1002 (S07W37 L=201)   635    178        0 (1581/ 930-1661/1085) -79.7 W35-W39 S11-N00
      4 1721 1034 (S07W46 L=210)   296     56        0 (1708/1003-1733/1069) -90.0 W44-W47 S09-S05
      5 1830  938 (S16W56 L=220)   931    129        1 (1786/ 884-1855/1003)  66.8 W50-W59 S19-S12
      6 1492  777 (S17W25 L=189)   556    189        1 (1449/ 706-1512/ 868)  60.9 W21-W27 S21-S11
      7 1266  698 (S17W09 L=173)   405    184        0 (1197/ 666-1323/ 760)  20.6 W04-W13 S18-S14
      8 1706  687 (S29W42 L=207)   422     71        0 (1680/ 653-1734/ 717)  31.0 W39-W45 S30-S27
      9  368  559 (S12E57 L=108)   967    211        2 ( 340/ 463- 405/ 634)  67.4 E61-E51 S18-S06
     10 1684  533 (S40W43 L=207)  1141    130        1 (1647/ 492-1724/ 582)  45.0 W38-W50 S44-S36
     11 1204  427 (S35E00 L=164)  2796    554        7 (1048/ 269-1333/ 575)  32.2 E16-W11 S45-S25
     12  607  553 (S15E36 L=128)   425    136        0 ( 542/ 540- 676/ 564)  -5.7 E41-E31 S15-S13
     13 1003  261 (S44E21 L=143)   507     66        0 ( 971/ 237-1033/ 291) -68.2 E23-E19 S46-S40
  

    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