Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  315 1128 (S12E48 L=261)   665    191        1 ( 247/1080- 380/1174)  35.0 E54-E43 S15-S08
      2  789 1042 (S10E14 L=296)   188     39        0 ( 759/1022- 811/1063) -18.4 E15-E12 S11-S08
      3  706 1022 (S12E19 L=291)   258     74        0 ( 675/1002- 743/1050) -11.3 E21-E16 S13-S11
      4  600  985 (S16E25 L=285)   479    170        0 ( 524/ 945- 687/1040) -10.3 E30-E19 S17-S13
      5  149  961 (S23E63 L=247)  1891    253        0 ( 122/ 872- 189/1033)  68.2 E66-E59 S28-S18
      6  368  914 (S24E42 L=268)  1068    379        1 ( 249/ 832- 492/1033)  38.3 E52-E33 S30-S15
      7 1861  918 (N06W60 L= 10)  1571    348        8 (1820/ 833-1896/ 984) -77.5 W55-W66 N01-N10
      8 1025  663 (S28W08 L=317)   275     71        0 ( 987/ 633-1060/ 697)  59.0 W05-W09 S30-S25
      9 1588  656 (S16W44 L=354)   286     56        0 (1563/ 635-1615/ 675)  56.3 W42-W45 S17-S14
     10  515  630 (S40E29 L=281)   339     77        0 ( 483/ 610- 556/ 650)  33.7 E31-E25 S41-S37
     11  317  581 (S46E49 L=261)   465     54        0 ( 302/ 550- 332/ 613)  78.7 E50-E47 S48-S43
     12 1631  504 (S23W54 L=  4)   684    185        0 (1558/ 459-1699/ 571)  55.0 W50-W58 S27-S17
     13 1588  331 (S33W62 L= 11)  1849    264        3 (1528/ 297-1640/ 368)  15.3 W55-W67 S35-S30
  

    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