;$Id: pspec2te.pro,v 1.3 2012/09/30 05:24:21 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=16,ysize=16,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/tina/Inflation/fig/pspec2te.eps
;
!x.title='!6'
!y.margin=[3.1,.2]
!p.charsize=1.7
;
dir1='u512_km1_b'
dirh='u512_km1_e'
;
s=1.
siz=1.6
siz2=1.3
!p.multi=[0,1,2]
yr=[2e-9,7e-4]
xx=3.25
yy=7e-4
yy2=2e-5
sav='/spec2t.sav'
half='!s!u 1!n!r!s-!r!d 2!n'
;
;-----------------------------------------------------------------------------
restore,'../'+dir1+sav
!y.title='!8E!6!dM!n!6 and !9!!!6'+half+'!8kH!6!dM!n!9!!!6'
plot_oo,k/kf,s*spec2B,li=0,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*abs(.5*k*spec2hB),li=1
;oplot,k/kf,s*(.5*k*spec2hB),li=1,col=122
;oplot,k/kf,s*(-.5*k*spec2hB),li=1,col=55
;
restore,'../'+dirh+sav
oplot,k/kf,s*(.5*k*spec2hB),li=2,col=122
oplot,k/kf,s*(-.5*k*spec2hB),li=2,col=55
xyouts,.3,4e-5,siz=siz,'!8E!6!dM!n!6'
xyouts,.07,5e-7,siz=siz,'!9!!!6'+half+'!8kH!6!dM!n!9!!!6'
xyouts,.9,3e-6,siz=siz2,'!6hel'
xyouts,2.,2e-7,siz=siz2,'!6non-!c   hel'
;
;-----------------------------------------------------------------------------
restore,'../'+dir1+sav
!x.title='!8k!6/!8k!6!d0!n'
!y.title='!8E!6!dK!n!6 and !9!!!6'+half+'!8H!6!dK!n/!8k!9!!!6'
plot_oo,k/kf,s*spec1B,li=0,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*abs(.5/k*spec1hB),li=1
;oplot,k/kf,s*(.5/k*spec1hB),li=1,col=122
;oplot,k/kf,s*(-.5/k*spec1hB),li=1,col=55
;
restore,'../'+dirh+sav
;oplot,k/kf,s*abs(.5/k*spec1hB),li=2
oplot,k/kf,s*(.5/k*spec1hB),li=2,col=122
oplot,k/kf,s*(-.5/k*spec1hB),li=2,col=55
xyouts,.3,1e-5,siz=siz,'!8E!6!dK!n!6'
xyouts,.06,8e-8,siz=siz,'!9!!!6'+half+'!8H!6!dK!n/!8k!9!!!6'
xyouts,1.4,1e-6,siz=siz2,'!6hel'
xyouts,2.3,1e-7,siz=siz2,'!6non-!c   hel'
;
END