source:
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/prend2.pro
@
4330
Last change on this file since 4330 was 3069, checked in by djlea, 13 years ago | |
---|---|
File size: 707 bytes |
Rev | Line | |
---|---|---|
[3002] | 1 | PRO PREND2,in_printer,keep=keep,noprint=noprint,double=double,$ |
[2945] | 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 | |
[3002] | 7 | ; |
8 | ; Author: D. J. Lea Feb 2008 | |
[2945] | 9 | |
10 | COMMON pr2, view_landscape | |
11 | ||
[3069] | 12 | ; get filename of postscript device |
13 | ||
14 | r = fstat(!D.UNIT) | |
15 | filename = r.name | |
16 | ||
[3002] | 17 | device,/close |
18 | set_plot,'x' | |
19 | ||
20 | if keyword_set(view) then begin | |
21 | ||
22 | if (view_landscape) then begin | |
[3069] | 23 | spawn,'gv -orientation=landscape -swap '+filename |
[3002] | 24 | endif else begin |
25 | spawn,'gv '+filename | |
26 | endelse | |
[2945] | 27 | |
[3002] | 28 | endif |
[2945] | 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.