Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  796 1864 (N44E55 L=321)   956     95        2 ( 755/1835- 830/1893)   0.0 E64-E48 N41-N46
      2  524 1759 (N29E67 L=308)  1443    139        4 ( 474/1711- 581/1803)  82.9 E73-E63 N24-N33
      3  400 1614 (N16E64 L=311)  1249    155        2 ( 342/1556- 442/1649)  -9.9 E80-E56 N12-N17
      4  901 1584 (N26E24 L=352)   637    142        1 ( 876/1525- 944/1647) -77.5 E25-E21 N22-N31
      5  654  934 (S18E20 L=356)   313     85        1 ( 620/ 916- 690/ 959)   0.0 E22-E17 S19-S16
      6  782  715 (S28E07 L=  9)   779    294        0 ( 640/ 681- 905/ 749)  33.7 E16-W00 S33-S22
      7 1307  349 (S35W44 L= 60)  3624    463       11 (1114/ 275-1469/ 463)  60.3 W34-W51 S45-S23
  

    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