Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  758 1514 (N15E28 L= 19)   279    119        0 ( 740/1461- 782/1554) -56.3 E30-E25 N11-N17
      2  293 1174 (S14E51 L=356)   961    157        1 ( 261/1085- 321/1241) -73.3 E55-E48 S19-S09
      3  364 1204 (S11E46 L=  1)   563    156        0 ( 328/1169- 410/1234)  39.8 E48-E42 S13-S08
      4  669 1029 (S15E21 L= 26)   546    201        0 ( 616/ 941- 717/1118) -41.6 E25-E16 S19-S10
      5 1740 1063 (N14W44 L= 91)   360     51        0 (1720/1035-1761/1092) -71.6 W42-W45 N12-N16
      6 1355  965 (S02W20 L= 67)   975    234        0 (1253/ 928-1463/1041)  -4.1 W12-W26 S04-N00
      7 1901  935 (N13W63 L=111)   489     74        2 (1883/ 906-1920/ 959) -26.6 W61-W65 N11-N14
      8 1776  828 (N03W54 L=101)   914    151        1 (1748/ 753-1804/ 898) -66.8 W50-W57 N00-N07
      9  409  834 (S32E36 L= 11)  1031    318        1 ( 284/ 807- 522/ 861)  11.3 E47-E27 S35-S29
     10 1208  708 (S20W19 L= 66)   375    144        1 (1134/ 683-1279/ 726)  11.3 W14-W24 S21-S18
     11 1476  673 (S14W37 L= 84)   456    134        0 (1405/ 643-1540/ 717)  45.0 W32-W39 S17-S10
     12 1715  586 (S11W59 L=106)   462     56        0 (1691/ 556-1743/ 615)  63.4 W57-W60 S13-S09
     13 1142  552 (S31W21 L= 68)   522    129        0 (1069/ 532-1209/ 581)  36.9 W16-W24 S33-S27
     14 1691  510 (S16W61 L=108)  2350    390        4 (1597/ 461-1777/ 563)  12.8 W52-W74 S19-S10
  

    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