3 PS PRIMARY PLOT SYMBOL PS PSYMBL(10) PRIMARY PLOT SYMBOL STRING PSYMBL L*1 10A1 '.' Primary plot symbol string 3 SS SECONDARY PLOT SYMBOL SS SSYMBL(20) SECONDARY PLOT SYMBOL STRING SSYMBL L*1 10A1 '.' Secondary plot symbol string 3 SF SCALE FACTOR SF SFXA,SFXB,SFYA,SFYB SCALE FACTORS SFXA R*4 E14.0 1.0 X-scale factor A SFXB R*4 E14.0 1.0 X-scale factor B SFYA R*4 E14.0 1.0 Y-scale factor A SFYB R*4 E14.0 1.0 Y-scale factor B 3 OF OFFSETS OF XOFFA,XOFFB,YOFFA,YOFFB OFFSETS XOFFA R*4 E14.0 0.0 X-offset A XOFFB R*4 E14.0 0.0 X-offset B YOFFA R*4 E14.0 0.0 Y-offset A YOFFB R*4 E14.0 0.0 Y-offset B 3 FM ASCII FM RDFORM(15) DATA LINE FORMATS (ASCII FILE) RDFORM L*1 15A1 (2E15.0) Data input FORMAT 3 FM BINARY FM '#',INDEXX,INDEXY INDICES OF X AND Y POINT (BINARY FILE) INDEXX I*2 I7 --- X=YY(INDEXX) where YY is the binary record INDEXY I*2 I7 --- Y=YY(INDEXY) where YY is the binary record 3 TG DATA TAG TG ITAG DATA LINE TAG ITAG I*2 A2 'RD' Input line tag that identifies data line 3 IM INCREMENTAL MODE PARAMETERS IM XINIT,XDELTA INCREMENTAL MODE PARAMETERS XINIT R*4 E14.0 --- Initial value for x (incremental mode) XDELTA R*4 E14.0 0.0 X-increment and incremental mode indicator .EQ. 0.0 (X,Y mode) .NE. 0.0 (incremental mode) 3 XE X-EXTREMA XE XFMIN,XFMAX FILE EXTREMA XFMAX R*4 E14.0 RMAX Maximum X (raw data space) allowed XFMIN R*4 E14.0 -RMAX Minimum X (raw data space) allowed 3 YE Y-EXTREMA YE YFMIN,YFMAX FILE EXTREMA YFMAX R*4 E14.0 RMAX Maximum Y (raw data space) allowed YFMIN R*4 E14.0 -RMAX Minimum Y (raw data space) allowed 3 ND DATA ND NUMPPL,IDEL # POINTS PER DATA LINE NUMPPL I*2 I7 1 Number of data points in each record IDEL I*2 I7 1 Every "IDEL'th" plottable point is plotted 3 FT TYPE FT KPLTYP,ISDELT,ISINIT PLOT TYPE KPLTYP I*2 I7 1 Plot type 1: Point plot with Secondary Symbols 2: Line plot with Secondary Symbols 3: Symbol plot with Secondary Symbols 4: Bar graphs 5: Annotated points (running index) ISDELT I*2 I7 32000 Plot secondary symbol every ISDELT points ISINIT I*2 I7 0 Initial value of ISDELT counter 3 FF PLOT FUNCTION FF KFUNCX,KFUNCY PLOT FUNCTION KFUNCX I*2 I7 1 Selects transformation function for X 1: X = X (no transformation) 2: X = 1.0/X (reciprocal) 3: X = ALOG(X)/ALOG(BASLOG) (logarithmic) KFUNCY I*2 I7 1 Selects transformation function for Y 1: Y = Y (no transformation) 2: Y = 1.0/Y (reciprocal) 3: Y = ALOG(Y)/ALOG(BASLOG) (logarithmic) 3 FS SPACE FS KSPACX,KSPACY PLOT SPACES KSPACX I*2 I7 1 Data space (1 or 2) for the X-coordinate KSPACY I*2 I7 1 Data space (1 or 2) for the Y-coordinate 3 BG BAR GRAPH PARAMETERS BG DXBAR,BGBASE,KBGOPN BAR GRAPH PARAMETERS DXBAR R*4 E14.0 0.1 Width (inches) of the bar graph bars BGBASE R*4 E14.0 DSMIN Bar Graph base value KBGOPN I*2 I7 0 Bar Graph base flag 0: base of bars are open (gap in baseline) 1: base of bars is closed (solid baseline) 3 BL BAR GRAPH LINE PARAMETERS BL NIBBG,LPATBG,LCBG BAR GRAPH LINE PARAMETERS NIBBG I*2 I7 1 nib size for points, lines, bar graphs LPATBG I*2 O7 177777 line pattern for points, lines, or graphs LCBG I*2 I7 0 Color for points, lines and bar graphs 3 BS BAR GRAPH SHADING BS KBGSHD,BSDIST BAR GRAPH SHADING PARAMETERS KBGSHD I*2 O7 1 direction(s) of shading lines 1: //// 2: llll 4: \\\\ 10: ==== BSDIST R*4 E14.0 0.1 distance between shading lines 3 SL BAR GRAPH SHADING LINE SL NIBBS,LPATBS,LCBS BAR GRAPH SHADING LINE PARAMETER NIBBS I*2 I7 1 nib size for shading lines LPATBS I*2 O7 177777 line pattern for shading lines LCBS I*2 O7 0 color for shading lines 3 CF CHANGE FILE CF DATFNA(70) CHANGE DATA FILE SPECIFICATION DATFNA L*1 70A1 --- Data file specification string 3 GP GP GO TO P-PHASE 3 DF DEFAULT DF SET FILE PARAMETERS TO DEFAULT VALUES ! BOTH P AND F PHASE 3 HA HA HALT 3 EX EX HALT 3 NP NEW PDL FILE NP PDLFNA START NEW PDL 3 AP APPEND AP PDLFNA APPEND PDL PDLFNA L*1 70A1 --- PDL file specification 3 VE MULPLT VERSION VE PRINT MULPLT VERSION IDENTIFICATION 3 G? G? LIST THE KNOWN GRAPHICS DEVICES 3 ZF ZF REMOVE ALL DATA SETS 3 AP APPEND PDL AP PDLFNA APPEND PDL PDLFNA L*1 70A1 --- PDL file specification 3 GO # GE 3 GE GO PLOT GO IDEV,JFILE,JFILE1 GO PLOT GE IDEV,JFILE,JFILE1 GO PLOT, ERASING SCREEN FIRST IDEV I*2 I7 --- Graphics device number JFILE I*2 I7 --- Index of first data set to be processed JFILE1 I*2 I7 JFILE Index of last data set to be processed 3 ER ERASE SCREEN ER IDEV ERASE THE SCREEN IDEV I*2 I7 --- Graphics device number 3 SC SCAN SC JFILE,JFILE1 SCAN FOR EXTREMA JFILE I*2 I7 --- Index of first data set to process JFILE1 I*2 I7 JFILE Index of last data set to process 3 LI LIST LI JFILE,JFILE1 LIST CURRENT PDL PARAMATERS JFILE I*2 I7 --- Index of first data set to process JFILE1 I*2 I7 JFILE Index of last data set to process 3 DP DUMP PDL DP PDLFNA(70) DUMP PDL TO FILE PDLFNA L*1 70A1 --- PDL file specification string 3 LT DEBUG LT LISTXY DEBUGGING CONTROL FLAG LISTXY I*2 I7 0 Debug list flag 0: no list 1: list data during scans or plots 2: dump windowed points to FOR001.DAT 3 AG ASSIGN GRAPHICS DEVICE AG IDEV = QDEV ASSIGN THE GRAPHICS DEVICE IDEV I*2 I7 --- the device number to be assigned QDEV L*1 32A1 GDn: physical device specification 3 FN FILE NAME FN DATFNA(70) DATA SET FILE NAME DATFNA L*1 70A1 --- Data file specification string 3 GF GO TO FILE GF KFILE RE-OPEN DATA SET KFILE I*2 I7 --- index of data set to be processed 3 RF REMOVE FILE RF KFILE REMOVE DATA SET JFILE I*2 I7 --- Index of data set to be processed 3 W> WAIT W> MCRBUF WAIT FOR RSX COMMAND TO FINISH MCRBUF L*1 80A1 --- buffer for MCR command line 3 N> DONOT WAIT N> MCRBUF DO NOT WAIT FOR RSX COMMAND TO FINISH MCRBUF L*1 80A1 --- buffer for MCR command line 3 ?? GET HELP ?? HLPSTR OBTAIN HELP FOR A TOPIC HLPSTR L*1 80A1 --- buffer for help topic