Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1289 1776 (N49E01 L=172)   523     76        0 (1269/1738-1324/1804)  76.0 E02-W01 N45-N53
      2 1505 1750 (N56W22 L=195)   487     39        1 (1484/1723-1525/1769)  54.5 W19-W25 N52-N59
      3  539 1640 (N21E49 L=124)   331    109        0 ( 499/1617- 584/1669)  38.7 E51-E46 N18-N23
      4  341 1588 (N15E65 L=108)  1672    118        2 ( 306/1533- 384/1641) -53.1 E72-E59 N10-N18
      5  982  765 (S23W03 L=176)   487    119        1 ( 949/ 713-1015/ 833) -81.9 W01-W04 S25-S18
      6 1242  681 (S22W21 L=194)   208     71        0 (1205/ 667-1285/ 698)  36.9 W19-W23 S22-S19
      7 1027  670 (S27W09 L=182)   200     35        0 (1012/ 647-1046/ 691)  71.6 W07-W09 S28-S25
  

    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