OV-GSO-DC / dustem-wrapper_idl

Commit 0939ca0c6dd4002135395ea8ae3cde3470b9e46c

Authored by Jean-Philippe Bernard
1 parent 49b174cd
Exists in master

fixed png issue with some windows ... not a real fix

Showing 1 changed file with 23 additions and 8 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_run_readme.pro
  Diff comments   View file @0939ca0
@@ -113,7 +113,8 @@ st=dustem_run() @@ -113,7 +113,8 @@ st=dustem_run()
113 ;stt=dustem_set_data(sed=sed) 113 ;stt=dustem_set_data(sed=sed)
114 114
115 ;== The following plots the resulting emission SED 115 ;== The following plots the resulting emission SED
116 -window,0 116 +win=0L
  117 +window,win & win=win+2
117 xtit=textoidl('\lambda (\mum)') 118 xtit=textoidl('\lambda (\mum)')
118 ;=== same plot as in Compiegne et al. 2010 119 ;=== same plot as in Compiegne et al. 2010
119 ytit=textoidl('\nuI_\nu^{em} (W/m^2/sr for N_H=1.e20 H/cm^2)') 120 ytit=textoidl('\nuI_\nu^{em} (W/m^2/sr for N_H=1.e20 H/cm^2)')
@@ -121,24 +122,38 @@ tit='Dustem Emitted Intensity '+use_model @@ -121,24 +122,38 @@ tit='Dustem Emitted Intensity '+use_model
121 yr=[1e-11,6.e-7] 122 yr=[1e-11,6.e-7]
122 xr=[1,5e3] 123 xr=[1,5e3]
123 dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit 124 dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit
124 -IF keyword_set(png) THEN BEGIN  
125 - file_png=dir_png+'Last_dustem_run_readme_nuinuem.png'  
126 - write_png,file_png,tvrd(/true)  
127 - message,'Wrote '+file_png,/info  
128 -ENDIF  
129 125
130 ;== The following plots the resulting extinction 126 ;== The following plots the resulting extinction
131 -window,1 127 +window,win & win=win+1
132 yr=[0,2.5] ;range of 1/lambda 128 yr=[0,2.5] ;range of 1/lambda
133 xr=[1,10] ;range of sigma 129 xr=[1,10] ;range of sigma
134 xtit=textoidl('1/\lambda (\mum^{-1})') 130 xtit=textoidl('1/\lambda (\mum^{-1})')
135 ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)') 131 ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)')
136 tit='Dustem extinction '+use_model 132 tit='Dustem extinction '+use_model
137 dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit 133 dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit
  134 +
138 IF keyword_set(png) THEN BEGIN 135 IF keyword_set(png) THEN BEGIN
139 - file_png=dir_png+'Last_dustem_run_readme_extinction.png' 136 + win=10L
  137 + window,win ;& win=win+2
  138 + file_png=dir_png+'Last_dustem_run_readme_nuinuem.png'
  139 + xtit=textoidl('\lambda (\mum)')
  140 + ytit=textoidl('\nuI_\nu^{em} (W/m^2/sr for N_H=1.e20 H/cm^2)')
  141 + tit='Dustem Emitted Intensity '+use_model
  142 + yr=[1e-11,6.e-7]
  143 + xr=[1,5e3]
  144 + dustem_plot_nuinu_em,st,yr=yr,/ysty,xr=xr,/xsty,/xlog,/ylog,title=tit,xtit=xtit,ytit=ytit
140 write_png,file_png,tvrd(/true) 145 write_png,file_png,tvrd(/true)
141 message,'Wrote '+file_png,/info 146 message,'Wrote '+file_png,/info
  147 + ;=====
  148 + file_png=dir_png+'Last_dustem_run_readme_extinction.png'
  149 + yr=[0,2.5] ;range of 1/lambda
  150 + xr=[1,10] ;range of sigma
  151 + xtit=textoidl('1/\lambda (\mum^{-1})')
  152 + ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)')
  153 + tit='Dustem extinction '+use_model
  154 + dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit
  155 + write_png,file_png ,tvrd(/true),/verbose
  156 + message,'Wrote '+file_png,/info
142 ENDIF 157 ENDIF
143 158
144 the_end: 159 the_end: