source:
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/pr2.pro
@
3753
Last change on this file since 3753 was 3002, checked in by djlea, 13 years ago | |
---|---|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[2945] | 1 | PRO Pr2,device,$ |
2 | bw=bw,$ | |
3 | color=o_color,$ | |
4 | pcl=pcl,$ | |
5 | ps=ps,$ | |
6 | cps=cps,$ | |
7 | eps=eps,$ | |
8 | cgm=cgm,$ | |
9 | screen=screen,$ | |
10 | transparency=o_transparency,$ | |
11 | encapsulated=encapsulated,$ | |
12 | bpp=bpp,$ | |
13 | portrait=portrait,$ | |
14 | landscape=landscape,$ | |
15 | table=table,$ | |
16 | reread=reread,$ | |
17 | noflip=noflip,$ | |
18 | verbose=verbose,$ | |
19 | xsize=xsize,$ | |
20 | ysize=ysize,$ | |
21 | xoffset=xoff,$ | |
22 | yoffset=yoff,$ | |
23 | scale=scale,$ | |
24 | file=file,$ | |
25 | destination=destination | |
[3002] | 26 | ;+---------------------------------------------------------- |
[2945] | 27 | ; NAME:pr2 |
28 | ; like pr, but uses nice fonts | |
[3002] | 29 | ; |
30 | ; Author: D. J. Lea Feb 2008 | |
31 | ;+---------------------------------------------------------- | |
[2945] | 32 | |
33 | COMMON pr2, view_landscape | |
34 | ||
35 | set_plot,'ps' | |
36 | ||
37 | if (n_elements(color) eq 0) then color=1 | |
38 | if (n_elements(landscape) eq 0) then landscape=1 | |
39 | if (keyword_set(portrait)) then landscape=0 | |
40 | encapsulated=1 | |
41 | if (keyword_set(eps)) then encapsulated=1 | |
42 | if (keyword_set(ps)) then encapsulated=0 | |
43 | ||
44 | view_landscape=landscape | |
45 | ||
46 | DEVICE, filename=file, COLOR=color, landscape=landscape, $ | |
47 | encapsulated=encapsulated, xsize=xsize, ysize=ysize | |
48 | ||
49 | ||
50 | !p.font=0 | |
51 | device,/helv | |
52 | ||
53 | ;return | |
54 | ||
55 | end |
Note: See TracBrowser
for help on using the repository browser.