Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  477 1559 (N53E38 L= 73)   559     67        2 ( 454/1521- 503/1591) -63.4 E41-E34 N49-N55
      2  704 1558 (N47E12 L= 99)   776    116        2 ( 653/1524- 760/1581) -29.1 E16-E07 N44-N50
      3 1781 1448 (N12W69 L=180)   785     89        1 (1761/1404-1801/1486)  21.8 W65-W76 N09-N13
      4  660 1272 (N29E19 L= 92)   218     84        0 ( 640/1239- 692/1299)  26.6 E20-E16 N26-N30
      5  304 1128 (N25E50 L= 61)   890    208        1 ( 236/1052- 355/1200) -37.6 E58-E45 N20-N30
      6  196 1136 (N27E64 L= 47)  1066    174        2 ( 167/1059- 232/1198)  53.1 E67-E59 N22-N30
      7  130 1054 (N22E75 L= 36)   705    117        0 ( 113/1000- 150/1114)  49.4 E78-E71 N18-N25
      8  774  814 (S01E19 L= 92)   597    198        0 ( 727/ 730- 825/ 885) -71.6 E20-E17 S06-N03
      9 1040  729 (S11E05 L=106)   274     96        0 (1003/ 688-1075/ 759)  31.0 E08-E02 S12-S08
     10 1698  704 (S28W41 L=151)   484     58        0 (1676/ 670-1719/ 738)  63.4 W38-W42 S30-S26
     11  397  418 (S21E64 L= 47)   925     81        2 ( 353/ 386- 433/ 441) -12.5 E69-E60 S23-S18
     12  485  360 (S26E59 L= 51)  1122    147        0 ( 452/ 299- 539/ 414)  63.4 E62-E55 S31-S21
     13 1127  372 (S37E09 L=102)   273     67        1 (1100/ 351-1158/ 399) -45.0 E10-E06 S39-S34
  

    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