From 9707968f37d8333e8b530587e7190a2c5ae8a09a Mon Sep 17 00:00:00 2001 From: Jean-Philippe Bernard Date: Thu, 15 Jul 2021 10:23:03 +0200 Subject: [PATCH] added postscript capability --- src/idl/dustem_run_readme.pro | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/src/idl/dustem_run_readme.pro b/src/idl/dustem_run_readme.pro index 1ed075a..77c2ae2 100644 --- a/src/idl/dustem_run_readme.pro +++ b/src/idl/dustem_run_readme.pro @@ -1,4 +1,4 @@ -PRO dustem_run_readme,postcript=postcript,model=model,help=help,plot_it=plot_it,png=png +PRO dustem_run_readme,model=model,help=help,plot_it=plot_it,png=png,postcript=postcript ;+ ; NAME: @@ -68,6 +68,10 @@ IF keyword_set(png) THEN BEGIN dir_png=!dustem_dat+'/Figures/' force_mkdir,dir_png ENDIF +IF keyword_set(postcript) THEN BEGIN + dir_ps=!dustem_dat+'/Figures/' + force_mkdir,dir_ps +ENDIF IF not keyword_set(dir) THEN BEGIN ; CASE getenv('DUSTEM_WHICH') OF @@ -122,6 +126,16 @@ tit='Dustem Emitted Intensity '+use_model yr=[1e-11,6.e-7] xr=[1,5e3] dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit +IF keyword_set(postcript) THEN BEGIN + file_ps=dir_ps+'Last_dustem_run_readme_nuinuem.ps' + previous_device=!d.name + set_plot,'PS' + device,filename=file_ps + dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit + device,/close + set_plot,previous_device + message,'Wrote '+file_ps,/continue +ENDIF ;== The following plots the resulting extinction window,win & win=win+1 @@ -131,6 +145,16 @@ xtit=textoidl('1/\lambda (\mum^{-1})') ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)') tit='Dustem extinction '+use_model dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit +IF keyword_set(postcript) THEN BEGIN + file_ps=dir_ps+'Last_dustem_run_readme_extinction.ps' + previous_device=!d.name + set_plot,'PS' + device,filename=file_ps + dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit + device,/close + set_plot,previous_device + message,'Wrote '+file_ps,/continue +ENDIF IF keyword_set(png) THEN BEGIN win=10L -- libgit2 0.21.2