Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  233 1285 (S03E63 L=101)   792    211        0 ( 206/1218- 264/1347) -21.0 E69-E56 S06-N00
      2  792 1122 (S01E16 L=148)   248     93        0 ( 773/1070- 811/1163) -63.4 E16-E13 S04-N01
      3  205 1011 (S19E58 L=106)   887    221        1 ( 162/ 927- 244/1089)  61.4 E61-E55 S25-S14
      4  357  985 (S18E43 L=121)   754    234        1 ( 289/ 924- 428/1070)  50.7 E48-E38 S22-S11
      5 1908  999 (N17W66 L=230)   569    103        0 (1883/ 978-1929/1037)  63.4 W63-W69 N14-N18
      6  448  961 (S18E35 L=128)   254     90        1 ( 425/ 920- 484/ 984)  59.0 E36-E32 S20-S15
      7  960  912 (S10E01 L=162)   358    141        2 ( 889/ 889-1027/ 950)  45.0 E05-W01 S12-S06
      8  213  885 (S27E56 L=108)   755    184        0 ( 188/ 816- 242/ 947)  66.0 E58-E53 S31-S22
      9 1893  833 (N07W71 L=234)  2109    169        1 (1866/ 770-1913/ 900) -76.0 W66-W77 N02-N10
     10  745  802 (S21E12 L=151)   402    174        1 ( 680/ 760- 807/ 864)  53.1 E16-E09 S24-S16
     11  799  802 (S20E09 L=155)   241     70        1 ( 769/ 772- 823/ 830)  68.2 E10-E07 S22-S17
     12 1501  683 (S11W38 L=201)  1109    217        1 (1451/ 590-1535/ 780) -80.5 W33-W39 S17-S05
     13 1731  537 (S14W64 L=228)   885    142        2 (1699/ 500-1767/ 566)  68.2 W61-W67 S16-S11
     14 1304  502 (S27W31 L=195)   653    150        0 (1223/ 469-1361/ 562)  60.9 W27-W33 S30-S21
  

    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