Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  746 1680 (N29E38 L=135)  1732    348        3 ( 594/1625- 871/1718)   7.8 E49-E27 N25-N31
      2  500 1613 (N19E52 L=121)  1555    239        3 ( 404/1539- 576/1689)  63.4 E58-E48 N13-N25
      3  621 1458 (N12E36 L=137)   281     14        0 ( 604/1435- 644/1477)  56.3 E37-E34 N10-N13
      4  235 1299 (S05E63 L=110)   589     91        1 ( 209/1256- 254/1338)  78.7 E65-E60 S07-S02
      5  696 1237 (N01E24 L=149)   416    111        0 ( 653/1206- 742/1269)  53.1 E26-E22 S01-N03
      6 1220 1093 (N05W09 L=182)   347     91        1 (1199/1045-1244/1140) -68.2 W07-W10 N02-N07
      7 1748  714 (S02W57 L=230)  1220    223        1 (1690/ 643-1777/ 787) -22.6 W49-W62 S05-N01
      8 1224  742 (S14W19 L=192)   325     96        2 (1193/ 709-1268/ 766)  45.0 W17-W20 S16-S12
      9 1467  651 (S13W37 L=210)   666    145        1 (1416/ 602-1530/ 717)  63.4 W35-W39 S17-S08
     10 1199  669 (S19W20 L=193)   235     89        0 (1157/ 656-1247/ 681)  31.0 W17-W22 S20-S17
     11  881  494 (S39W06 L=179)  1080    357        1 ( 723/ 469-1077/ 522)  19.8 E06-W19 S42-S32
     12 1579  458 (S21W55 L=228)   611    118        0 (1514/ 419-1633/ 499)  49.4 W51-W57 S24-S17
     13 1331  360 (S34W43 L=216)   388    114        0 (1298/ 341-1373/ 398)   0.0 W38-W46 S35-S32
  

    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