Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1520 1655 (N25W53 L=210)  4391    728        7 (1283/1592-1730/1699) -20.2 W35-W73 N16-N33
      2 1551 1529 (N18W48 L=205)   361    115        1 (1517/1496-1593/1553)   0.0 W44-W52 N16-N18
      3 1628 1484 (N13W52 L=209)   346    120       -1 (1594/1434-1675/1531) -74.1 W51-W53 N09-N16
      4  286 1381 (N44E47 L=110)   343     71        0 ( 272/1355- 309/1411) -63.4 E48-E43 N42-N46
      5  215  977 (N20E56 L=101)   911    157        2 ( 191/ 898- 249/1055)  52.1 E59-E51 N15-N24
      6 1852  835 (S30W52 L=209)  3303    383        3 (1742/ 682-1914/1010)  41.6 W40-W60 S36-S20
      7  891  985 (N06E08 L=149)   450    144        0 ( 821/ 956- 967/1005) -14.0 E12-E04 N03-N07
      8 1726  842 (S25W40 L=197)   747    173        0 (1674/ 758-1780/ 922)  28.6 W34-W45 S28-S21
      9 1104  813 (S09E01 L=156)   206     90        0 (1062/ 796-1159/ 824) -11.3 E03-W02 S10-S08
     10  780  692 (S08E22 L=135)   564    174        2 ( 744/ 600- 802/ 766)  78.7 E24-E19 S13-S03
     11 1205  685 (S19W02 L=158)   412    156        0 (1151/ 617-1230/ 760)  40.6 E03-W04 S21-S14
     12 1008  470 (S27E17 L=140)   828    291        0 ( 940/ 371-1068/ 595)  34.5 E24-E08 S32-S20
     13  491  491 (S13E49 L=108)   524    138        1 ( 454/ 458- 529/ 528)  12.5 E53-E44 S15-S11
     14  517  360 (S22E54 L=102)  1215    257        2 ( 459/ 280- 554/ 445)  71.6 E59-E50 S27-S15
  

    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