Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1755 (N56W21 L= 85)   790    119        2 (1280/1736-1406/1777)   3.8 W13-W29 N54-N58
      2  745 1532 (N29E26 L= 38)   980    184        1 ( 710/1443- 807/1592)  90.0 E28-E22 N23-N34
      3  420 1515 (N24E52 L= 12)   914    205        0 ( 388/1425- 476/1573) -84.3 E54-E48 N18-N28
      4  306 1478 (N20E63 L=  1)   428     56        2 ( 275/1462- 338/1498)  -5.7 E68-E58 N19-N21
      5  544 1439 (N21E38 L= 26)   325     70        1 ( 518/1410- 576/1471)  53.1 E39-E36 N18-N23
      6  276 1300 (N09E58 L=  7)   355    119        1 ( 252/1269- 303/1331) -26.6 E61-E54 N07-N10
      7  490 1153 (N03E36 L= 29)   762    196        2 ( 411/1083- 540/1201)  -5.7 E41-E31 N00-N05
      8 1748 1139 (N15W50 L=114)   348     70        0 (1732/1103-1762/1172) -76.0 W48-W51 N13-N17
      9 1566  955 (N02W35 L=100)   537     70        1 (1530/ 914-1591/ 993)  90.0 W32-W37 N00-N04
     10  938  902 (S07E04 L= 61)   442    179        0 ( 884/ 834- 991/ 965)  60.9 E06-E01 S11-S02
     11 1795  656 (S14W64 L=128)  2012    191        5 (1761/ 572-1839/ 742) -65.6 W59-W72 S19-S08
     12 1672  582 (S19W54 L=118)   679    113        2 (1621/ 547-1722/ 622)  40.6 W49-W57 S22-S16
     13 1411  304 (S42W47 L=111)   892    103        1 (1361/ 273-1443/ 345)  51.3 W41-W51 S44-S38
  

    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