Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1194 1793 (N50W18 L=304)   340     72        0 (1162/1780-1235/1809)   8.1 W14-W21 N48-N51
      2 1302  584 (S31W19 L=305)   426    131        0 (1259/ 536-1335/ 644)  60.3 W16-W20 S33-S26
      3  240  603 (S26E67 L=219)   534     87        0 ( 200/ 577- 270/ 636)   7.6 E75-E60 S27-S24
      4  444  573 (S29E45 L=242)   338     84        0 ( 434/ 529- 456/ 617)  71.6 E46-E43 S32-S26
      5  787  567 (S31E17 L=269)   516    124        3 ( 738/ 529- 842/ 615)   7.1 E21-E13 S33-S27
      6  802  304 (S51E23 L=263)   440     76        2 ( 775/ 277- 840/ 331) -45.0 E25-E20 S53-S48
      7  507  294 (S50E60 L=226)   773     84        0 ( 473/ 267- 539/ 319)   8.1 E72-E51 S51-S48
  

    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