source:
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/OBSTOOLS/dataplot/pr2.pro
@
8184
Last change on this file since 8184 was 3002, checked in by djlea, 13 years ago | |
---|---|
File size: 1.3 KB |
Line | |
---|---|
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 |
26 | ;+---------------------------------------------------------- |
27 | ; NAME:pr2 |
28 | ; like pr, but uses nice fonts |
29 | ; |
30 | ; Author: D. J. Lea Feb 2008 |
31 | ;+---------------------------------------------------------- |
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.