Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1320 1659 (N36W32 L=133)  1311    340        2 (1158/1610-1456/1725)   7.9 W18-W47 N33-N38
      2 1561 1681 (N34W55 L=156)   710    101        1 (1514/1663-1613/1699) -18.4 W49-W60 N31-N35
      3  411 1439 (N33E40 L= 61)   288     36        0 ( 386/1418- 432/1460) -26.6 E43-E37 N31-N34
      4  278 1295 (N25E51 L= 50)   637    131        5 ( 233/1265- 335/1320) -14.0 E57-E45 N23-N27
      5  226 1088 (N13E55 L= 45)  1825    200        6 ( 166/ 995- 266/1167) -84.3 E62-E51 N07-N17
      6 1647  844 (S18W39 L=140)  2461    681        2 (1516/ 578-1789/1142)  54.3 W29-W53 S34-S02
      7  161 1011 (N09E64 L= 37)  1607    169        7 ( 121/ 929- 212/1067)  45.0 E70-E56 N04-N12
      8 1847  809 (S23W60 L=161)   754    122        0 (1800/ 760-1892/ 854) -25.0 W53-W68 S26-S19
      9 1110  753 (S18W02 L=103)   319    120        0 (1074/ 707-1160/ 788)  31.0 W00-W05 S19-S15
     10  410  735 (S10E44 L= 57)   432     78        4 ( 371/ 707- 446/ 760) -38.7 E47-E40 S12-S08
     11 1134  613 (S27W02 L=103)   530    159        3 (1099/ 539-1163/ 697) -90.0 W00-W03 S31-S20
     12  605  616 (S20E33 L= 68)   706    281        1 ( 527/ 565- 712/ 657)   7.6 E39-E24 S22-S16
     13 1286  580 (S31W12 L=113)   667    160        1 (1206/ 533-1336/ 624)  21.8 W05-W15 S33-S28
  

    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