1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
| !Run file for PGPlot last update 13 Feb 1996
|
| ensure the Floating point emulator and colourtrans are loaded
|
RMEnsure FPEmulator 0.00 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 0.00 Error You need the Floating-point Emulator
RMEnsure ColourTrans 0.00 RMLoad System:Modules.Colours
RMEnsure ColourTrans 0.00 Error You need the ColourTrans module
|
| now set up the global variables for PGPlot
Set PGPLOT_DIR <Obey$Dir>
Iconsprites <PGPLOT_DIR>.!Sprites
|
| use SetMacro to avoid the 30 character maximum file name length bug.
|
SetMacro PGPLOT_FONT <PGPLOT_DIR>.GRFont
SetMacro PGPLOT_RGB <PGPLOT_DIR>.RGBTxt
|
| change (or add to) the following to suit your taste
|
| default driver (Archi screen)
Set PGPLOT_DEV /ARCV
| default background colour
Set PGPLOT_BACKGROUND black
Set PGPLOT_IDENT "Fortran Friends"
| PSDriver needs this
Set PGPLOT_USER "Fortran Friends"
| the following define the Postscript dimensions
| they are inverted if you use /VPS or /VPCS
Set PGPLOT_PS_WIDTH "7560" | PostScript width (Portrait)
Set PGPLOT_PS_HEIGHT "11190" | Postscript height (Portrait)
Set PGPLOT_ARC_WIDTH "800" | Sprite width (pixels for /ARCF driver)
Set PGPLOT_ARC_HEIGHT "600" | Sprite height
echo Global variables now set up for PGPlot
|
