source:
branches/dev_2802_OBStools/NEMOGCM/TOOLS/OBSTOOLS/dataplot/pr2.pro
@
2945
Last change on this file since 2945 was 2945, checked in by djlea, 13 years ago | |
---|---|
File size: 1.2 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 | COMMON pr2, view_landscape |
31 | |
32 | set_plot,'ps' |
33 | |
34 | if (n_elements(color) eq 0) then color=1 |
35 | if (n_elements(landscape) eq 0) then landscape=1 |
36 | if (keyword_set(portrait)) then landscape=0 |
37 | encapsulated=1 |
38 | if (keyword_set(eps)) then encapsulated=1 |
39 | if (keyword_set(ps)) then encapsulated=0 |
40 | |
41 | view_landscape=landscape |
42 | |
43 | DEVICE, filename=file, COLOR=color, landscape=landscape, $ |
44 | encapsulated=encapsulated, xsize=xsize, ysize=ysize |
45 | |
46 | |
47 | !p.font=0 |
48 | device,/helv |
49 | |
50 | ;return |
51 | |
52 | end |
Note: See TracBrowser
for help on using the repository browser.