;$Id: pspec2tb.pro,v 1.5 2012/10/21 19:34:36 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=16,ysize=18,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/tina/Inflation/fig/pspec2tb.eps
;
!x.title='!6'
!y.title='!8E!6!dM!n!6(!8k,t!6) and !8E!6!dK!n!6(!8k,t!6)'
!y.margin=[3.3,.3]
!p.charsize=2.6
col=155
;
dir1='u512_km1_b'
dir2='u512_km1_d'
dirh='u512_km1_e'
;
s=1.
siz=1.6
!p.multi=[0,1,3]
yr=[1e-7,5e-3]
xx=3.25
yy=7e-4
yy2=2e-5
;
;-----------------------------------------------------------------------------
sav='/spec2t.sav'
restore,'../'+dir1+sav
;
!y.title='!6'
plot_oo,k/kf,s*spec2A,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*spec1A,li=2
xyouts,xx,yy,siz=siz,'!8t!6=0.5'
;
!y.title='!8E!6!dM!n!6(!8k,t!6) and !8E!6!dK!n!6(!8k,t!6)'
plot_oo,k/kf,s*spec2B,xr=[1,256]/kf,yr=yr
;oplot,k/kf,s*spec1B,li=2
xyouts,xx,yy,siz=siz,'!8t!6=10!cvort.'
xyouts,xx,yy2,siz=siz,'!6helic.',col=col
;
restore,'../'+dirh+sav
oplot,k/kf,s*spec1B,col=col
;
restore,'../'+dir1+sav
oplot,k/kf,s*spec1B,li=2
;
;-----------------------------------------------------------------------------
sav='/spec2t.sav'
restore,'../'+dir2+sav
;
!x.title='!8k!6/!8k!6!d0!n'
!y.title='!6'
plot_oo,k/kf,s*spec2B,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*spec1B,li=2
xyouts,xx,yy,siz=siz,'!8t!6=10!cirro.'
;
END