.require 'sys$sysprg:lno3' .ps 59,89,9 .fg1 .b2 .half spacing 3 .c;^4INSTALLING PLTPRG^3 .ap To install PLTPRG on your system, you will need to modify the following files: PLTPRG.COM, PLTPRG.DVI, PLTPRG.DVC, PLTPRG.PTR, and PLTBATCH.COM. The items to be modified in these files are described below. Also, you must have a software license for the Multiware MGSP routines that PLTPRG calls. The file PLTPRG.COM has device assignments that have to be tailored to your system. The device assignments include: the location of the PLTPRG files, the location of the files SCSFIL.DAT and LAMETA.EXE (the Multiware character font file and the Multiware LA50 raster conversion program), and assigning the system printers to logical names (printers used in printing out the PLTPRG generated tables). The file PLTPRG.DVI contains a list of the devices to plot to, and flags indicating whether these devices are to be plotted to the terminal, or as batch jobs. PLTPRG.DVC contains the information on the plot devices given in the file PLTPRG.DVI. This includes the plotting area, device emulation, necessary escape sequences, and where to send the plot to. It should be noted that for most non-terminal devices, the device or queue (terminal line name for non-queued devices, and queue name for queued devices) to send it to must be given. In both PLTPRG.DVI and PLTPRG.DVC, devices that will not be used can be "commented out" by placing exclamation marks "!" in column 1 of the lines. In most cases, you will have to just comment out, or uncomment out, the various plot devices, and give the correct terminal line or queue name for that device on your system. The data in both files are described at length in each file. The file PLTPRG.PTR contains information describing the system printers to be used in printing out the tables created using PLTPRG. This data includes a prompt describing each printer, the number of characters per line, and the superscript/subscript escape sequences. The file PLTBATCH.COM is used to submit a batch job to compute a plot. If a batch queue other than the default batch queue is to be used, the submit command must be modified accordingly. It is a good idea to have a second batch queue if your system has a large number of batch jobs that take large amounts of time to execute. Below are listings of the files described above. .half spacing 2 .b4 .lm+3 .nf .c;^4^~FILE PLTPRG.COM^1 .b2 _$!************************************************************** _$!* Main command file to run PLTPRG. This file * _$!* is used to make various device assignments, etc * _$!************************************************************** _$! _$! Assign the directory containing PLTPRG to DP: _$! _$ Assign/Nolog _$Disk1:[Prog.Pltprg] Dp: _$! _$! Assign the directory containing SCSFIL.DAF to GL: _$! _$ Assign/Nolog _$Disk1:[Graphics] GL: _$! _$! Print device assignments: _$! For print devices, assign them to Prtdev1 - Prtdev9 _$! Assign queued devices using their queue, and not the device name _$! _$ Assign/Nolog Sys_$Laser Prtdev1 _$! Assign/Nolog Txa?: Prtdev2 _$! _$ Assign/Nolog Dp:PLTPRG.VT2 CRV: _$ If P1 .NES. "NON" .AND. P1 .NES. "411" .AND. P1 .NES. "HDS" Then Goto Next _$ Assign/Nolog Dp:PLTPRG.'P1' CRV: _$ Next: _$! _$ Top: _$ Weare=="PLTPRG" _$ Define/User_Mode/Nolog Sys_$Input Sys_$Command _$ Run Dp:Pltprg _$! Reset Ctrl-C,Ctrl-Y; they were turned off in program _$ Set control=y _$ If Weare .NES. "PLTPRG" Then Goto Top _$! _$! Area for deassignment of assignments made above _$! _$ Deassign GL: _$ Deassign Dp: _$ Deassign Crv: _$ Deassign Prtdev1 _$! Deassign Prtdev2 _$ Delete/Symbol/Global Weare _$! _$! Purge old version numbers, and rename the files _$! to the lowest version number _$! _$ Flag = F_$Search("Pltprg.*") _$ If Flag .EQS. "" Then Exit _$ Purge Pltprg.* _$ Rename Pltprg.* Pltprg.* _$ Exit^3 .b4 .c;^4FILE PLTPRG.DVI^1 .b2 ! ! File containing a list of devices to plot on. These must match in order ! with PLTPRG.DVC. Devices prior to the "_$" in column 1 are for plots ! on normal paper; devices after the "_$" are for plots on graph paper. ! The first line is the device prompt for the user; the second line ! describes how to make the plot (0 to terminal; 1 to terminal but not to ! the screen; 2 to compute it as a batch process). ! VT 240 Terminal 0 Not batch !HP Plotter ! 2 Batch Terminal w/ Tektronix 4010/4014 emulation 0 Not batch Tektronix 4105/7/9 0 Not batch LA 50 Printer (connected to the terminal) 1 Not batch, not on screen LN03 Laser Printer 2 Batch !HP Plotter (Connected to the terminal printer port) ! 1 Not Batch, Not on screen _$ !HP Plotter w/ graph paper ! 2 Batch .b4 .c;^4FILE PLTPRG.DVC^1 .b2 ! ! File containing the plotting device information for ! Pltprg/Plotfl. Definitions of the data are in the bottom of the file ! ! _#1 VT 240 terminal ! VT12 TT: 11.0 8.5 1 0 0 0 0 0 0 0 ! ! _#2 HP Plotter ! !7550 !Filename !9.97 7.68 0 1 0 !0 1 1 0 1 ! PG;RO 0;IP;SC 0,9886 250,6891; ! PG;RO 90;IP;SC 685,9916 0,7113 !@DP:PLOTQ.COM TXA?: ! ! _#3 Tektronix 4010/4014 emulator ! 4014 TT: 10.23 7.75 1 0 0 1 0 0 1 0 [H[J[?38h _^Y[3/v[?38l ! ! _#4 Tektronix 4105/7/9 ! 4105 TT: 9.2 8.6 1 0 0 1 0 0 1 0 [H[J_^P%!0 %!0_^P%!2 !¢ ! _#5 LA 50 printer ! META Meta50.dat 11.0 8.5 0 0 0 0 0 0 0 1 @DP:PLTMET.COM ! ! _#6 Dec LN03 laser printer using tektronix 4014 emulation ! 4014 Filename 10.23 7.75 0 2 0 1 0 0 1 1 [?38h [?38l @DP:PLOTQS.COM Sys$Laser ! Use above ([?38l) if on a print queue; otherwise use [!p ! (It will eject the paper then) ! ! _#7 HP Plotter attached to the printer port. ! !7550 !FILENAME !9.97 7.68 2 1 0 !1 1 1 1 0 ! [5i ! PG;RO 0;IP;SC 0,9886 250,6891; ! PG;RO 90;IP;SC 685,9916 0,7113 ! [4i ! ! _#8 HP Plotter with gridded paper ! !7475 !Filename !9.97 7.68 0 1 1 5.56 4.000 4.20 5.56 !0 1 1 0 1 ! PG;RO 0;IP;SC 0,9886 250,6891; ! PG;RO 90;IP;SC 685,9916 0,7113; !@DP:PLOTQ.COM TXA?: ! ! ************ DEFINITIONS ************************** ! ! First line: ! ! The name of the device emulation that will be used (Multiware definition) ! ! Second Line: ! ! The name of where to send the output. If it doesn't go to ! the terminal screen, it will have to go to a temporary file. ! ! Use TT: for the terminal. ! Use Meta50.dat for metafile types. ! Otherwise, use the word "FILENAME" ! ! Third Line: ! ! 1 X axis length (inches) ! 2 Y axis length (inches) ! 3 Terminal flag (1 if a terminal, 0 if not) ! 4 Rotate flag (0 if no rotation; 1 if rotation done by the ! output device, and is done on a "best fit" basis; 2 if ! rotation to be done by the program, and is done on a ! "best fit" basis;3 if rotation manditory, and done by the ! output device; and 4 if rotation is necessary, and done ! by the program ! 5 Gridded paper flag (1 if paper has a grid on it, 0 if not) ! ! And, if gridded paper, the following: ! ! 6 The distance from the left edge of the paper to the center ! of the plotting region, in inches ! 7 The distance from the bottom edge of the paper to the center ! of the plotting region, in inches ! 8 The distance from the right edge of the paper (when the paper ! is rotated 90 degrees) to the center of the plotting region, ! in inches ! 9 The distance from the bottom edge of the paper (when the paper ! is rotated 90 degrees) to the center of the plotting region, ! in inches ! ! Forth line: ! ! 1 Number of lines to read to set up device ! 2 Number of lines to read to set the scaling, etc, if not rotated ! 3 Number of lines to read to set up the scaling if it is rotated ! 4 Number of lines to read to return the device to its initial state ! 5 Flag to indicate the command file to run when finished making the ! plot. (1 indicates a command file; 0 indicates none) ! ! The additional lines depend on the number of lines, etc indicated in ! the forth line. The first group of lines correspond to line 4 item _#1; ! the second group, line 4 item _#2, etc. The last line is the name of the ! command file to run (if Line 4 item _#5 is not 0). A command file is ! necessary if the plots are not done directly to the terminal, or if the ! output has to be converted into raster format for a printer attached to ! the terminal. ! There are three command files. The first is DP:PLOTQ.COM. This is the ! command file to send a plot to a device that is not on a queue. You ! must provide the name of the terminal line that the device is connected ! to as an arguement to this command file. The second command file is ! DP:PLOTQS.COM. This is the command file to send a plot to a queued ! device. You must provide the name of the queue that the device is ! connected to as an arguement to this command file. The third command ! file is DP:PLTMET.COM. This command file is used to turn the metafile ! output into rasterized data, and sends the data to a printer attached ! to the terminal. ! ! Note: You can put comments in by having a ! in column 1. Also, these ! devices must be in the same order as the devices listed in the file ! PLTPRG.DVI. ! .b4 .c;^4FILE PLTPRG.PTR^1 .b2 1 LN03 Laser Printer 3 1 80 96 132 [1w [2w [4w [1w L K ! ! Setup for PLTPRG system printers ! ! ! Definitions for the above lines ! ! Line 1 is the number of print devices ! ! Lines 2 - M+1 are the names of the M print devices (40 characters max) ! ! Line K is the number of different horizontal spaces (N), Spool flag (0 for ! nonspooled, and 1 for spooled device), the number of ! horizontal spaces, and the (N) horizontal spaces available. ! ! Lines K+1 to K+N+1 are the escape sequences to get the non-default spaces, ! and line N is the sequence to return the printer to the default spaces. ! ! Line K+N+2 is the escape sequence for superscripts; K+N+3 to return from ! the superscripts. !^3 .b4 .c;^4FILE PLTBATCH.COM^1 .b2 _$! _$! Command file to start a batch job _$! _$ Define/User_Mode/Nolog Sys_$Input Sys_$Command _$! _$! Send the locations of the data file, and the _$! PLTPRG command/execution files to the batch job _$! _$ Defdir = F_$Parse("A.A",,,"DEVICE") + F_$Parse("A.A",,,"DIRECTORY") _$ Devprg = F_$Parse("DP:",,,"DEVICE") + F_$Parse("DP:",,,"DIRECTORY") _$ Devgl = F_$Parse("GL:",,,"DEVICE") + F_$Parse("GL:",,,"DIRECTORY") _$! _$ Submit Dp:Plotflbatch/Nolog/Parameters=('Defdir','Devprg','P1','Devgl') _$! Submit Dp:Plotflbatch/Keep/Parameters=('Defdir','Devprg','P1','Devgl') _$ Exit^3