added png plot options

Jean-Philippe Bernard
1 parent 2e1f81db
Showing 2 changed files with 20 additions and 4 deletions Show diff stats
src/idl/dustem_fit_sed_readme.pro
src/idl/dustem_run_readme.pro
@@ -71,7 +71,7 @@ ENDIF ELSE BEGIN
 ENDELSE
  
 IF keyword_set(png) THEN BEGIN
-  dir_png='/tmp/Dustem/Figures/'
+  dir_png=!dustem_data+'/Figures/'
   force_mkdir,dir_png
 ENDIF
  
-PRO dustem_run_readme,postcript=postcript,model=model,help=help,plot_it=plot_it
+PRO dustem_run_readme,postcript=postcript,model=model,help=help,plot_it=plot_it,png=png
  
 ;+
 ; NAME:
@@ -51,6 +51,11 @@ IF keyword_set(help) THEN BEGIN
   goto,the_end
 ENDIF
  
+IF keyword_set(png) THEN BEGIN
+  dir_png=!dustem_data+'/Figures/'
+  force_mkdir,dir_png
+ENDIF
+
 loadct,13
  
 IF keyword_set(model) THEN BEGIN
@@ -107,7 +112,7 @@ st=dustem_run()
 ;stop
 ;stt=dustem_set_data(sed=sed)
  
-;== The following just plots the resulting emission SED
+;== The following plots the resulting emission SED
 window,0
 xtit=textoidl('\lambda (\mum)')
 ;=== same plot as in Compiegne et al. 2010
@@ -116,7 +121,13 @@ 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
-;== The following just plots the resulting extinction
+IF keyword_set(png) THEN BEGIN
+  file_png=dir_png+'Last_dustem_run_readme_nuinuem.png'
+  write_png,file_png,tvrd(/true)
+  message,'Wrote '+file_png,/info
+ENDIF
+
+;== The following plots the resulting extinction
 window,1
 yr=[0,2.5]  ;range of 1/lambda
 xr=[1,10]   ;range of sigma
@@ -124,6 +135,11 @@ 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(png) THEN BEGIN
+  file_png=dir_png+'Last_dustem_run_readme_extinction.png'
+  write_png,file_png,tvrd(/true)
+  message,'Wrote '+file_png,/info
+ENDIF
  
 the_end: