Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  652 1786 (N35E52 L= 95)  1042    225        1 ( 610/1720- 694/1846) -68.2 E56-E49 N29-N40
      2 1042 1734 (N42E21 L=125)   748    135        1 (1012/1686-1068/1777) -40.6 E25-E18 N38-N45
      3  640 1547 (N18E38 L=108)   790    207        3 ( 582/1452- 710/1637) -81.9 E40-E36 N11-N25
      4  429 1546 (N14E55 L= 92)  2596    536        7 ( 337/1436- 516/1618)  61.7 E64-E45 N05-N18
      5  876 1394 (N14E18 L=129)   371    150        1 ( 830/1369- 916/1425)  21.8 E20-E15 N12-N16
      6  728 1318 (N07E24 L=122)   286     82        0 ( 714/1272- 742/1357) -71.6 E25-E23 N03-N09
      7  997 1288 (N11E08 L=139)   301    124        2 ( 968/1228-1035/1321) -45.0 E10-E05 N07-N12
      8 1126 1080 (N02W04 L=151)   460    103        1 (1083/1031-1169/1140)  81.9 W02-W06 S01-N06
      9 1562  877 (N02W36 L=183)   228     71        0 (1540/ 842-1592/ 906)  63.4 W35-W37 N00-N04
     10  913  836 (S17E02 L=145)   292     68        1 ( 884/ 799- 941/ 865) -36.9 E04-W00 S18-S15
     11 1725  526 (S13W65 L=212)  1600    206        4 (1657/ 466-1798/ 595)  48.0 W61-W70 S17-S07
     12  667  400 (S53E09 L=138)   375     94        0 ( 620/ 385- 714/ 419)   5.7 E14-E04 S53-S51
     13 1117  373 (S40W27 L=174)  1075    249        0 (1008/ 345-1244/ 400)  11.9 W18-W37 S42-S37
  

    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