Last change
on this file since 5501 was
5501,
checked in by aclsce, 4 years ago
|
First import of IPSLCM6.5_work_ENSEMBLES working configuration
|
File size:
707 bytes
|
Line | |
---|
1 | PRO PREND2,in_printer,keep=keep,noprint=noprint,double=double,$ |
---|
2 | view=view,spin_landscape_ps=spin_landscape_ps,$ |
---|
3 | eps_preview=eps_preview,colour_preview=colour_preview,$ |
---|
4 | dpi_preview=dpi_preview, suppress_stderr=suppress_stderr |
---|
5 | ;+ |
---|
6 | ; NAME:prend |
---|
7 | ; |
---|
8 | ; Author: D. J. Lea Feb 2008 |
---|
9 | |
---|
10 | COMMON pr2, view_landscape |
---|
11 | |
---|
12 | ; get filename of postscript device |
---|
13 | |
---|
14 | r = fstat(!D.UNIT) |
---|
15 | filename = r.name |
---|
16 | |
---|
17 | device,/close |
---|
18 | set_plot,'x' |
---|
19 | |
---|
20 | if keyword_set(view) then begin |
---|
21 | |
---|
22 | if (view_landscape) then begin |
---|
23 | spawn,'gv -orientation=landscape -swap '+filename |
---|
24 | endif else begin |
---|
25 | spawn,'gv '+filename |
---|
26 | endelse |
---|
27 | |
---|
28 | endif |
---|
29 | |
---|
30 | !p.font=-1 |
---|
31 | !p.charsize=0 |
---|
32 | !p.charthick=0 |
---|
33 | !p.thick=0 |
---|
34 | !p.background=0 |
---|
35 | |
---|
36 | ;return |
---|
37 | |
---|
38 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.