Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  897 1755 (N45E28 L=210)   693    108        1 ( 864/1724- 963/1786)  -5.7 E32-E21 N42-N47
      2  286 1522 (N17E70 L=168)  1370     99        1 ( 251/1481- 335/1561)  -6.8 E85-E60 N15-N19
      3 1762 1485 (N42W58 L=296)   653     89        1 (1724/1446-1804/1510) -12.5 W52-W65 N40-N44
      4 1104 1203 (N11W02 L=240)  1429    414        3 (1022/1111-1206/1270)  41.6 E03-W07 N05-N16
      5  855 1168 (N05E12 L=226)   402    169        0 ( 843/1086- 870/1244) -66.0 E14-E10 N00-N09
      6  223  942 (S18E57 L=181)  2236    389        1 ( 131/ 836- 271/1121)  45.0 E74-E51 S26-S06
      7 1364 1066 (N07W20 L=258)   244     94        0 (1319/1048-1412/1081)   9.5 W17-W23 N05-N08
      8  747  984 (S07E16 L=222)   198     75        0 ( 724/ 947- 766/1016) -53.1 E17-E14 S09-S05
      9 1098  790 (S13W08 L=246)  1195    439        4 (1035/ 605-1183/ 965)  87.6 W05-W10 S25-S01
     10 1528  647 (S15W40 L=278)   359     91        0 (1482/ 617-1562/ 672) -14.0 W35-W43 S15-S13
     11 1280  588 (S23W24 L=263)   218     63        0 (1247/ 570-1313/ 603)  26.6 W22-W26 S24-S21
     12  503  391 (S53E36 L=202)  1291    123        2 ( 458/ 337- 545/ 449) -66.0 E40-E31 S58-S48
     13  587  339 (S56E27 L=211)   952    115        2 ( 550/ 305- 629/ 391) -66.8 E32-E21 S58-S51
  

    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