Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  950 1795 (N52E24 L=223)   455     78        0 ( 905/1782- 992/1810)   6.3 E29-E20 N50-N53
      2  307 1506 (N20E63 L=184)  1757    257        4 ( 276/1427- 347/1581) -55.0 E67-E57 N14-N24
      3  755 1466 (N24E25 L=223)   324    151        0 ( 733/1416- 782/1548) -83.7 E25-E23 N20-N29
      4  399 1385 (N13E49 L=199)   315    133        0 ( 361/1345- 429/1408) -23.2 E52-E45 N11-N14
      5 1579 1250 (N22W34 L=282)   248     91        0 (1568/1200-1596/1287)  71.6 W33-W35 N18-N24
      6  186 1223 (N01E67 L=180)   584     66        1 ( 169/1195- 203/1251)  56.3 E69-E64 S01-N02
      7 1257 1179 (N13W12 L=260)   382    164        1 (1162/1167-1322/1193)   5.7 W06-W16 N11-N14
      8 1333  949 (S00W20 L=268)  1258    277        1 (1283/ 860-1416/1069) -61.4 W17-W26 S04-N07
      9  303  863 (S20E48 L=199)   574    152        1 ( 263/ 823- 359/ 912) -26.6 E52-E43 S21-S16
     10  394  872 (S18E40 L=207)   317     77        1 ( 374/ 836- 419/ 903)  78.7 E42-E38 S20-S15
     11  810  881 (S11E11 L=237)   453    165        0 ( 733/ 866- 896/ 893)  11.3 E15-E05 S13-S09
     12 1068  773 (S14W06 L=254)  1044    269        6 ( 920/ 719-1198/ 880)  17.4 E02-W14 S19-S07
     13 1445  744 (S11W31 L=279)   528     88        3 (1402/ 707-1479/ 787)  59.0 W28-W32 S13-S08
     14 1391  638 (S18W30 L=278)   594    158        1 (1341/ 567-1452/ 701)  68.2 W27-W32 S23-S13
     15 1214  500 (S30W22 L=269)   697    149        2 (1157/ 463-1299/ 536)  41.2 W17-W26 S33-S26
  

    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