Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1505 1744 (N31W59 L=200)  2086    422        5 (1427/1700-1601/1780) -12.5 W50-W69 N28-N33
      2 1318 1608 (N29W37 L=178)   368     81        1 (1287/1580-1347/1630)   9.5 W33-W39 N27-N30
      3 1076 1071 (N06W04 L=145)   276    109        0 (1043/1017-1130/1117)  20.6 W00-W08 N03-N07
      4 1250 1029 (S01W13 L=154)   464    174        0 (1185/ 939-1302/1080) -73.3 W10-W13 S07-N03
      5 1867  922 (S25W55 L=196)   570     98        1 (1838/ 876-1887/ 967)  26.6 W51-W57 S27-S22
      6 1367  929 (S10W17 L=158)   201     79        0 (1327/ 916-1411/ 940) -21.8 W14-W19 S10-S08
      7 1631  758 (S27W31 L=172)   876    259        2 (1563/ 641-1693/ 903)  45.0 W24-W38 S32-S19
      8 1016  821 (S07E06 L=136)   333    118        1 ( 987/ 752-1034/ 878)  76.0 E07-E04 S10-S02
      9 1318  716 (S20W09 L=150)   215     87        0 (1285/ 691-1370/ 733)   0.0 W06-W12 S21-S19
     10 1206  529 (S29E03 L=139)   418    111        1 (1164/ 491-1251/ 587)  33.7 E05-W01 S30-S26
     11  509  352 (S23E56 L= 85)  2542    520        7 ( 468/ 224- 540/ 494)  46.5 E66-E48 S32-S13
     12  673  366 (S25E42 L= 99)   780    233        0 ( 654/ 292- 690/ 448)  45.0 E47-E37 S30-S20
     13  897  379 (S30E27 L=114)   486    127        0 ( 881/ 337- 927/ 431)  74.1 E29-E25 S33-S26
  

    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