| !Run file for PGPlot 
|   for Fortran77 Release 3       last update 4 Oct 1994
|
|  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
|
SetMacro PGPLOT_FONT <PGPLOT_DIR>.GRFont
SetMacro PGPLOT_RGB <PGPLOT_DIR>.RGBTxt
|
| change (or add to) the following to suit your taste
|
|     default graphics driver (the screen)
Set PGPLOT_DEV /ARCV
|     default background colour (see file rgbtxt)
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
|
filer_opendir <Obey$Dir>
Dir <Obey$Dir>
echo Global variables now set up for PGPlot
