Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1196 (N12W15 L= 46)   618    217        0 (1113/1146-1281/1225) -37.9 W09-W18 N07-N15
      2 1869 1083 (S14W60 L= 91)  1483    266        3 (1831/ 986-1899/1204)  32.0 W52-W68 S18-S08
      3 1810 1090 (S12W53 L= 85)   518     77        1 (1792/1044-1825/1128)  53.1 W51-W55 S13-S09
      4 1228 1044 (N03W12 L= 43)   332    103        1 (1191/ 998-1263/1099)  33.7 W08-W14 N01-N05
      5  386  955 (N17E42 L=349)   467    133        3 ( 365/ 905- 411/1024)  66.8 E44-E40 N14-N21
      6  182  874 (N15E64 L=327)   570    104        2 ( 155/ 835- 205/ 908) -59.0 E66-E62 N12-N17
      7 1704  868 (S21W39 L= 70)   573    176        0 (1654/ 816-1745/ 907)  23.2 W34-W42 S23-S18
      8  409  837 (N10E43 L=348)   921    192        5 ( 356/ 785- 460/ 898)  20.0 E48-E37 N06-N12
      9 1818  804 (S29W49 L= 80)  1405    301        2 (1722/ 733-1867/ 884)  14.9 W39-W54 S31-S25
     10  957  664 (S12E13 L= 18)   473    128        0 ( 924/ 613- 981/ 733)  50.2 E15-E10 S14-S08
     11 1551  544 (S37W22 L= 54)   414     65        0 (1522/ 516-1582/ 568)  18.4 W19-W25 S38-S35
     12 1427  488 (S37W12 L= 43)   275     58        0 (1406/ 470-1455/ 511) -45.0 W10-W13 S38-S34
     13  385  465 (S12E61 L=330)   845     86        2 ( 352/ 442- 426/ 497) -38.7 E63-E57 S14-S10
     14  469  342 (S22E61 L=331)   546    133        0 ( 438/ 326- 505/ 361)   0.0 E64-E56 S23-S20
  

    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