added postscript capability

Jean-Philippe Bernard
1 parent 0939ca0c
Showing 1 changed file with 25 additions and 1 deletions Show diff stats
src/idl/dustem_run_readme.pro
-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=&#39;Dustem Emitted Intensity &#39;+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(&#39;1/\lambda (\mum^{-1})&#39;)
 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