Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  229 1286 (S03E63 L=101)   815    220        0 ( 203/1220- 260/1350) -22.6 E70-E57 S06-N00
      2  784 1124 (S01E16 L=148)   290     99        0 ( 764/1074- 804/1175) -63.4 E17-E13 S03-N01
      3  199 1006 (S20E59 L=105)   892    236        2 ( 155/ 922- 239/1090)  61.4 E62-E55 S25-S14
      4  401 1047 (S14E40 L=124)   254     69        0 ( 376/1015- 428/1071)  53.1 E41-E38 S15-S11
      5 1906 1002 (N17W66 L=230)   598    112        0 (1879/ 979-1928/1037)  63.4 W62-W69 N14-N18
      6  301  944 (S22E47 L=117)   641    178        0 ( 243/ 926- 352/ 969)   5.2 E53-E42 S23-S19
      7  210  886 (S27E56 L=108)   784    177        0 ( 184/ 820- 237/ 942)  58.0 E58-E53 S31-S23
      8  930  906 (S11E03 L=161)   305     89        0 ( 882/ 891- 982/ 921)  31.0 E05-W00 S12-S09
      9 1891  836 (N07W70 L=234)  2091    128        0 (1864/ 771-1912/ 903) -76.0 W65-W76 N02-N10
     10  733  803 (S21E13 L=151)   468    203        1 ( 650/ 760- 795/ 866)  52.1 E17-E10 S25-S16
     11  798  808 (S20E09 L=155)   241     48        2 ( 772/ 786- 823/ 834)  63.4 E10-E07 S21-S17
     12 1496  687 (S11W37 L=201)  1152    224        0 (1444/ 598-1530/ 780) -80.5 W32-W39 S17-S05
     13 1729  548 (S14W64 L=228)   997    166        4 (1692/ 518-1770/ 570)  35.5 W60-W69 S16-S11
     14 1299  505 (S27W31 L=195)   682    165        1 (1212/ 470-1362/ 564)  56.3 W26-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