;$Id: pslices.pro,v 1.2 2019/07/03 19:30:32 roper Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=8.2,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/roper/PencilGW/fig/pslices.ps
;
siz=1.3
siz2=1.9
!p.charsize=1.0
!x.margin=[7.8,.5]
!y.margin=[3.2,.5]
!p.multi=[0,4,2]
;
levh=grange(-1,1,20)*.1
levg=grange(-1,1,20)
;
restore,'../M144_k10d_expN_rep/data/slices.sav'
contour,hhT,x,y,/fil,lev=levh
xyouts,-2.8,2.1,'!8t!6=2',siz=siz,col=255,charthick=6
;xyouts,-2.8,2.1,'!8t!6/!8t!6!d*!n=2',siz=siz,col=255,charthick=6
contour,hhX,x,y,/fil,lev=levh
contour,ggT,x,y,/fil,lev=levg
contour,ggX,x,y,/fil,lev=levg
;
restore,'../M144_k10d_expN/data/slices.sav'
contour,hhT,x,y,/fil,lev=levh
;xyouts,-2.8,2.1,'!8t!6/!8t!6!d*!n=40',siz=siz,col=255,charthick=6
xyouts,-2.8,2.1,'!8t!6=40',siz=siz,col=255,charthick=6
xyouts,+1.2,-2.2,'!8h!6!b+!n',siz=siz2,col=255,charthick=6
contour,hhX,x,y,/fil,lev=levh
xyouts,+1.2,-2.2,'!8h!9!bX!n!6',siz=siz2,col=255,charthick=6
contour,ggT,x,y,/fil,lev=levg
xyouts,+0.2,-2.2,'!9d!8!dt!nh!6!b+!n',siz=siz2,col=255,charthick=6
contour,ggX,x,y,/fil,lev=levg
xyouts,+0.2,-2.2,'!9d!8!dt!nh!9!bX!n!6',siz=siz2,col=255,charthick=6
;
END