Commit 0939ca0c6dd4002135395ea8ae3cde3470b9e46c
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
src/idl/dustem_run_readme.pro
| ... | ... | @@ -113,7 +113,8 @@ st=dustem_run() |
| 113 | 113 | ;stt=dustem_set_data(sed=sed) |
| 114 | 114 | |
| 115 | 115 | ;== The following plots the resulting emission SED |
| 116 | -window,0 | |
| 116 | +win=0L | |
| 117 | +window,win & win=win+2 | |
| 117 | 118 | xtit=textoidl('\lambda (\mum)') |
| 118 | 119 | ;=== same plot as in Compiegne et al. 2010 |
| 119 | 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 | 122 | yr=[1e-11,6.e-7] |
| 122 | 123 | xr=[1,5e3] |
| 123 | 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 | 126 | ;== The following plots the resulting extinction |
| 131 | -window,1 | |
| 127 | +window,win & win=win+1 | |
| 132 | 128 | yr=[0,2.5] ;range of 1/lambda |
| 133 | 129 | xr=[1,10] ;range of sigma |
| 134 | 130 | xtit=textoidl('1/\lambda (\mum^{-1})') |
| 135 | 131 | ytit=textoidl('\sigma_{ext} (1e-21 cm^2/H)') |
| 136 | 132 | tit='Dustem extinction '+use_model |
| 137 | 133 | dustem_plot_extinction,st,st_model,xr=xr,yr=yr,/xsty,/ysty,xtit=xtit,ytit=ytit,title=tit |
| 134 | + | |
| 138 | 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 | 145 | write_png,file_png,tvrd(/true) |
| 141 | 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 | 157 | ENDIF |
| 143 | 158 | |
| 144 | 159 | the_end: | ... | ... |