Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  660 1709 (N58E26 L= 75)   816     95        3 ( 607/1685- 714/1733)   0.0 E33-E18 N55-N60
      2  443 1698 (N59E63 L= 38)   573     70        0 ( 408/1680- 480/1712)   8.1 E70-E55 N57-N60
      3  429 1433 (N38E43 L= 58)   409     71        0 ( 397/1405- 459/1461) -26.6 E46-E38 N35-N40
      4 1775 1362 (N14W61 L=162)   493     80        0 (1748/1335-1808/1393) -63.4 W58-W65 N12-N16
      5  520 1306 (N29E32 L= 69)   570    194        0 ( 471/1238- 550/1357) -63.4 E36-E29 N24-N32
      6  365 1271 (N28E46 L= 55)   340    107        0 ( 344/1231- 398/1325) -49.4 E48-E41 N24-N31
      7 1719 1216 (N07W50 L=151)   388    100        0 (1693/1171-1740/1262) -80.5 W48-W51 N04-N10
      8  965 1113 (N12E03 L= 98)   296    105        1 ( 915/1080-1013/1136)  21.8 E05-W00 N10-N13
      9 1887  792 (S23W67 L=168)  1819    174        3 (1839/ 741-1917/ 885)  48.8 W59-W74 S26-S17
     10 1536  823 (S13W30 L=131)   490    101        2 (1505/ 781-1574/ 864)  33.7 W27-W33 S15-S11
     11  532  604 (S15E38 L= 62)   708    159        1 ( 460/ 569- 607/ 642)   8.7 E44-E31 S16-S12
     12 1372  516 (S31W17 L=118)  2754    655        5 (1085/ 352-1610/ 639)  15.0 E05-W36 S39-S25
     13  913  300 (S41E21 L= 80)   323     53        1 ( 883/ 284- 940/ 320) -26.6 E23-E18 S42-S39
     14  683  204 (S48E52 L= 49)   956     78        1 ( 651/ 185- 726/ 222)  10.6 E61-E45 S50-S45
  

    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