;$Id: pspec_comp_ko.pro,v 1.3 2022/10/07 01:27:31 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=13,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
  col0=255
endif else begin
  col0=0
endelse
;
!p.charsize=1.7
!x.margin=[7.8,.5]
!y.margin=[3.2,.5]
;
;  mv idl.ps ~/tex/roper/GW/fig/pspec_last_AT1152d.ps
;  mv idl.ps ~/tex/roper/GW/fig/pspec_last_RT1152d.ps
;
dir1='K512irrok6c_rep1_cont'
dir2='K512sig0_k6_ramp1a_cont'
dir3='K512irro_k6_ramp1c_rep'
;
yr=[5e-9,2e-3]
;
restore,'../'+dir1+'/specm.sav'
!x.title='!8k!6'
!y.title='!8E!6!dK!n(!8k!6)'
plot_oo,k[1:*],spec1m[1:*],/nodata,yr=yr
oplot,k[1:*],spec1m[1:*],col=55
;
restore,'../'+dir2+'/specm.sav'
oplot,k[1:*],spec1m[1:*],col=122
;
restore,'../'+dir3+'/specm.sav'
loadct,6
oplot,k[1:*],spec1m[1:*],col=122
loadct,5
;
xx=230. & dx=xx & siz=1.5
legend,xx,dx,5e-7,0,col=122,dir2,siz=siz
loadct,6
legend,xx,dx,1e-7,0,col=122,dir3,siz=siz
loadct,5
legend,xx,dx,2e-8,0,col=55,dir1,siz=siz
print,'$mv idl.ps ~/GitHub/Axel/VortexGen/fig/pspec_comp_ko.eps'
END