Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  676 1528 (N43E19 L=156)   374     92        0 ( 646/1496- 706/1565) -45.0 E22-E16 N40-N46
      2 1613 1413 (N19W48 L=223)  3216    451        5 (1447/1343-1762/1480) -29.5 W36-W59 N12-N26
      3 1138 1265 (N19W11 L=186)   485    164        2 (1066/1219-1209/1287)   0.0 W05-W14 N16-N20
      4 1521 1218 (N10W35 L=210)   408    120        0 (1467/1180-1567/1250) -39.8 W31-W37 N06-N12
      5 1819 1083 (S04W58 L=233)  1062    273        4 (1791/1027-1843/1158)  36.9 W53-W61 S07-N00
      6 1903 1100 (S06W70 L=244)   888    132        1 (1877/1063-1923/1133)  76.0 W66-W73 S07-S03
      7  532 1086 (N16E31 L=144)   305     50        0 ( 509/1066- 554/1115) -56.3 E32-E29 N14-N17
      8 1882  959 (S13W63 L=238)  3655    502       10 (1831/ 861-1940/1098)  71.6 W56-W72 S19-S04
      9 1755  978 (S09W49 L=224)   505    126        4 (1727/ 942-1789/1003)   9.5 W46-W52 S11-S07
     10 1686  866 (S14W42 L=217)   400    112        0 (1675/ 807-1700/ 914) -90.0 W40-W43 S18-S11
     11 1026  847 (S04E02 L=172)   590    141        3 ( 969/ 815-1105/ 875)   0.0 E05-W02 S05-S02
     12 1088  661 (S17E01 L=174)  1563    428        7 ( 985/ 463-1154/ 829)  57.5 E11-W04 S29-S07
     13  348  460 (S23E62 L=113)  1023    264        1 ( 320/ 426- 372/ 516)  32.5 E68-E57 S25-S18
  

    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