;$Id: ppxyaver.pro,v 1.5 2008/06/25 12:49:54 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=4 & !p.thick=4 & !x.thick=4 & !y.thick=4
end
;
;  reads the down-samples xyaver.dat file
;
;  mv idl.ps ~/tex/notes/MRIdynamo/fig/64x512a.ps
;  mv idl.ps ~/tex/notes/MRIdynamo/fig/64x256c7.ps
;  mv idl.ps ~/tex/notes/MRIdynamo/fig/64x256c8.ps
;  mv idl.ps ~/tex/notes/MRIdynamo/fig/64x256c8_test.ps
;  mv idl.ps ~/tex/procs/catania07/fig/64x256c8_test.ps
;
restore,'xyaver.sav'
;
Trot=2.*!pi/Omega
Hdisc=cs0/Omega*sqrt(2.)
Hdisc=cs0/Omega
!p.charsize=1.8
!x.title='!8t!6/!8T!6!drot!n'
!y.title='!8z!6/!8H!6'
;contour,transpose(bxmz),tt/Trot,zzz/Hdisc,nlev=30,/fil
contour,transpose(bymz),tt/Trot,zzz/Hdisc,nlev=16,/fil
;
END