Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/pltlib/v12a/plot.rnm
There is 1 other file named plot.rnm in the archive. Click here to see a list.
.;Start of PREFAC.RNO
.;NOTE: This document is designed to be processed by DSR,
.;      DEC Standard RUNOFF.  It is documented in DOC:NRUNOF
.;      and is invoked via ".R DSR".
.left margin 5.right margin 64.spacing 1.autoparagraph
.layout 2,2.display number rl.number.;"rl" = Use roman numerals, lowercase
.flag capital <
.literal
               PPPP    L        OOO    TTTTT
               P   P   L       O   O     T
               PPPP    L       O   O     T
               P       L       O   O     T
               P       LLLLL    OOO      T

       M   M    AAA    N   N   U   U    AAA    L
       MM MM   A   A   NN  N   U   U   A   A   L
       M M M   AAAAA   N N N   U   U   AAAAA   L
       M   M   A   A   N   N   U   U   A   A   L
       M   M   A   A   N   N    UUU    A   A   LLLLL


.end literal
.skip 4.center;CSM Plotting Manual
.skip
.center;******** 1st draft for version 12A ********
.center;As of: March 10, 1983 *** NOT FINISHED YET ***
.center;**  This document has NOT been approved for printing **
.skip 3
.center;Colorado School of Mines - Computing Center
.center;1600 Illinois Street
.center;Golden, CO 80401
.center;(303)273-3430
.skip 2

  This manual describes the hardware and software available for
plotting at the Colorado School of Mines.

  The plotting package is a set of FORTRAN-callable routines written in
MACRO-10 assembly language.  In general, the plotting package is compatible
with routines supplied by DEC (Digital Equipment Corporation) for use
with the XY-10 CALCOMP plotter, but with additional features.
.;End of PREFAC.RNO
.;Start of PLTMAN.RNC
.;NOTE: This table of contents has to be generated manually because
.;      DEC did not distrubute all 3 EXE files for DSR(NRUNOF).
.;      Missing are TOC.EXE (Table of Contents) and TCI.EXE (Two Column Index).
.left margin 0.right margin 64.spacing 1.autoparagraph
.page
.center;Table of contents for Plotting Manual
.skip 3
.literal
Chapter 1	Policies
  1.1	Distribution
  1.2	Copies
  1.3	Graphic Terminals
  1.4	Window Size
  1.5	Standard Plotter Defaults

Chapter 2	Hardware
  2.1	General
  2.2	Houston Instruments DP-8 Plotter
  2.3	ARDS Graphics Terminal
  2.4	Tektronix Graphics Terminal
  2.5	GIGI Graphics Terminal
  2.6	ReGIS Plotter

Chapter 3	Software
  3.1	General
  3.2	Monitor PLOT Command
  3.3	Plot Window
  3.4	Coordinate System
  3.5	Symbol sets
  3.6	TEK Program

Chapter 4	Plotting Routines
  4.1	Core Plotting Routines
  4.1.1     Subroutine ERASE
  4.1.2     Subroutine FACTOR
  4.1.3     Subroutine NEWPEN
  4.1.4     Subroutine OPRTXT
  4.1.4     Subroutine ORIGIN
  4.1.6     Subroutine PAUSEP
  4.1.7     Subroutine PLOT
  4.1.8     Subroutine PLOTS
  4.1.9     Subroutine ROTATE
  4.1.10    Subroutine SETWIN
  4.1.11    Subroutine SUBWIN
  4.1.12    Subroutine TITLE
  4.1.13    Subroutine WHERE
  4.1.14    Subroutine XHAIRS
  4.2	Graphing Routines
  4.2.1     Subroutine AXES
  4.2.2     Subroutine AXIS
  4.2.3     Subroutine DASHLN
  4.2.4     Subroutine GRID
  4.2.5     Subroutine LINE
  4.2.6     Subroutine LOGAX
  4.2.7     Subroutine LOGAXS
  4.2.8     Subroutine SCALE



  4.3	Labeling Routines
  4.3.1     Subroutine NUMBER
  4.3.2     Subroutine SETSYM
  4.3.3     Subroutine SYMBOL
  4.4	Obsolete Routines
  4.4.1     Function IPLOT
  4.4.2     Function ISETAB
  4.4.3     Function MSETAB

Chapter 5	3-D and Contouring Routines
  5.1	Contouring Routines
  5.1.1     Subroutine CALCNT
  5.1.2     Subroutine CALSIZ
  5.1.3     Subroutine GRIDER
  5.2	3-D Routines

Chapter 6	Programming Techniques
  6.1	Starting and Stopping Plotting
  6.2	Debugging Techniques
  6.3	Warning and Error Messages

Appendix A	Sample Programs
  A.1	LINPLT
  A.2	SYMBOL Tables

Appendix B	Library Programs
  B.1	LBY:EZPLOT
  B.2	LBY:GRAPH
  B.3	LBY:SIMPLT
  B.4	SYS:DRAW

Appendix C	Further Documentation
  C.1	HELP files
  C.2	DOC:PLOT.DOC

Appendix D	SYMBOL Tables
  D.1	CSM Standard
  D.2	CSM Secondary
  D.3	Olde English
  D.4	Old German
  D.5	Old Italian
  D.6	Script
  D.7	Simplex Roman
  D.8	Simplex Italics
  D.9	Triplex Roman
  D.10	Triplex Italics
  D.11	Hershey's letters
  D.12	Simplex Greek
  D.13	Duplex Greek

Index
.end literal
.page
.display number d.;Use decimal notation
.;End of PLTMAN.RNC
.;Start of POLICY.RNO
.chapter POLICIES
.left margin 5.right margin 64.spacing 1.autoparagraph
.display number d
.title Policies
.indent -5.hl 1 DISTRIBUTION.
.index Policies
.index Policies >Distribution

    Plots sent to the Houston Instruments DP-8 plotter will be
.index ^Houston ^Instruments <DP-8
removed from the plotter three times each day.  The plots will then
be available for pick-up at the Dispatch counter in room 287 of the
Green Center.  The same plot removal schedule will be observed
for  hours that the Computing Center is open on weekends.

.skip.center;Plots will be removed from the plotter at:
.blank.center;11:30 AM
.blank.center;#4:30 PM
.blank.center;11:30 PM

.indent -5.hl 1 COPIES.
.index Policies >Copies

     The preferred method of making multiple copies
is to duplicate a single copy of a plot on a
copying machine.  This method is much less expensive than plotting each copy
that is needed.  If multiple copies are needed, and duplicating is not
possible (eg. a 36 by 36 inch plot with multiple colors), the use of the
/COPIES:n switch with the plot command will cause multiple copies
of the plot without the expense of running the plotting program repeatedly.
Misuse of the copies specification may result in loss of plotting privileges.


.indent -5.hl 1 GRAPHIC TERMINALS.
.index Policies >Graphics terminal
.index Graphics terminal >Policies
.index <TEKTRONIX

    There are five TEKTRONIX 4000-series graphics terminals located in the
graphics room off of the Student Workroom (Room 285, Green Center).
The 4025 Raster terminal and the 4012 Interactive terminal may be used
for creating plots.  The three 4006 terminals are restricted to viewing
plots only.  There is 30 minute limit on the terminals when others are waiting.

  Use of the graphics terminal for non-graphics work is prohibited; such use
may result in loss of all computer use privileges.  This restriction is made
to help extend the limited lifetime of the storage tube in the terminals.


.indent -5.hl 1 WINDOW SIZE.
.index Window size
.index Policies >Window size

     The plotting software by default limits a plot
to a size of 11 by 11 inches.  Attempts to exceed this window are considered
to be errors unless the window size has been increased.  With evidence of
plotting ability, the user can have his allowed maximum window size expanded
beyond the standard 11 by 11 inches.  Permission to expand the window can be
requested by submitting the Request for Plotting Window Increase form which is
available at the Dispatch counter.  The overall maximum window size possible
on the DP-8 plotter is 35  by 240 inches.
.index ^Houston ^Instruments <DP-8 >Window size


.indent -5.hl 1 STANDARD PLOTTER DEFAULTS.
.index Policies >Standard plotter defaults
.index Plotter >Defaults
.blank
PAPER#-#Standard#=#12#inches#wide,#/FORMS:NORMAL
.break
######Extra#Wide#=#36#inches#wide,#/FORMS:P311
.index Paper ><NORMAL
.index Paper ><P311

   The plotter uses a standard form of 12
inch white tractor driven plotter paper (11 inches of useable plot area).
The default window size allows up to 11 inches of this continuous form to
be used in a plot.  Window expansion (if expansion privileges have been granted)
will allow up to 240 inches of horizontal length (X-axis) for a single plot.
Vertical expansion (Y-axis) up to 35 inches is possible with window privileges
and the use of Special Forms.  36 inch paper has a forms name of "P311".
.blank 2
PENS#-#Standard#=#Blue,##NEWPEN(1) (default)
.break
################=#Black,#NEWPEN(2) (better for photocopies)
.break
################=#Red,###NEWPEN(3)

  The standard (default) pen set up has three ball-point pens; pen 1
has blue ink, pen 2 has black ink, and pen 3 has red ink.  Other pen sets
can be requested by prior arrangement and use of the OPRTXT subroutine
to communicate the desired change to the operator at plot time.
.index Pen colors
.index Ink colors
.index <OPRTXT
.;End of POLICY.RNO
.;BLANK.RNO - This page was deliberately left blank
.page
.center;*
.skip 30
.center;*
.;BLANK.RNO is used at the end of chapters that have an odd number of pages
.;Start of HARDW.RNO
.chapter HARDWARE
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 5.indent -5.hl 1 GENERAL.
.title Hardware
.index Hardware

  The hardware that the CSM Computing Center has
available for use as graphics devices include:
.list
.le;The Houston Instruments DP-8 digital incremental plotter.
.index ^Houston ^Instruments <DP-8
.index <DP-8
.le;TEKTRONIX 4012 Storage Tube type graphics terminal.
(The TEK software will also drive Models 4006, 4014, 4016, 4019, and 4025.)
.index <TEKTRONIX
.index 4012
.le;Digital Equipment Corporation GIGI graphics terminal.
(The GIGI software also works on VT125 terminal.)
.index <GIGI
.index <VT125
.le;Houston Instruments DMP-4R table-top ReGIS plotter.
.index <DMP-4^R
.index ^Re<GIS
.index ^Table-top plotter
.end list
.;End of HARDW.RNO
.;Start of HDWDP8.RNO
.test page 5.indent -5.hl 1 HOUSTON INSTRUMENTS DP-8 PLOTTER.
.index Plotter >Hardware
.index Hardware >^Houston ^Instruments <DP-8

      The   Houston Instruments    DP-8    Digital    Plotter
is a three pen
electromechanical   drum   plotter   operating  on  the
digital incremental  principle.   The  plotter  has  an
incremental  step size of 0.0025 inches (400 steps per inch).
.index Resolution >^Houston ^Instruments <DP-8
It produces a
plot by movement of the pen relative to the surface  of
the    recording   paper.  The plotter accepts up to
36 inch wide continuous roll paper (including tractor drive
holes).  For plotting the paper is pulled around a drum for X-axis
(horizontal) motion, and the three pens move along a rail parallel to
the drum axis to give Y-axis (vertical) motion.
Subroutine PLOT generates
information to produce  incremental  steps  of  plotter
movement with pen up or down, in either the plus (+) or
minus (-) direction, along either axis.
At full plotting speed, the plotter makes
1800 incremental steps per second (4.5 inches of line per second).

  Plots do not go directly to the Houston Instruments DP-8 plotter,
but are spooled.
.index spooling
This means that the plots are accumulated on disk, and sent to the
plot queue when the PLOT monitor command is given.
.index <PLOT >monitor command
A special system program called SPROUT
.index <SPROUT
is run by the Operator
.index Operator
to actually send the plots to the plotter.

.skip 5.test page 21.skip.literal
T   --------------------------------------------------
A  (                                                  )  S
K  (  +Y   11 or 35 inches max                        )  U
E  (  ^                                               )  P
   (  !                                               )  P
U  (  !                                               )  L
P  (  !                                               )  Y
   (  !                                               )
S  (  !                                               )  S
P  ( -+--------------------->  +X   240 inches max    )  P
O  ( 0!                                               )  O
O  (                                                  )  O
L   --------------------------------------------------   L
.end literal.skip 5
.center;Drum plotter operation

  There are two ways to use the SPOOLER package:
.list
.list element;Use 'SPOOL' for IPLT in CALL#PLOTS(IERR,'SPOOL').
.index <PLOTS >'<SPOOL'

.list element;Use zero for IPLT in CALL#PLOTS(IERR,0).  This second method
makes it easy to change to the TEK or GIGI package by including SYS:TEKPLT.REL
or SYS:RGSPLT.REL in the LOAD/EXECUTE command.
.index <TEKPLT
.index <RGSPLT
.end list
.index <PLOTS ><IPLT=0
.test page 5.indent -5.hl 1 ARDS GRAPHICS TERMINAL.
.index <ARDS
.index Hardware ><ARDS

  The ARDS (Advanced Remote Display Station) is a storage tube
terminal similar to the TEKTRONIX terminals.  CSM no longer
has an ARDS terminal, but software is available for it.
.;End of HDWDP8.RNO
.;Start of HDWTEK.RNO
.test page 30.indent -5.hl 1 TEKTRONIX GRAPHICS TERMINAL.
.index Graphics terminal >Hardware
.index Hardware >Graphics terminal
.index Hardware ><TEKTRONIX

  The TEKTRONIX 4012 Graphic terminal
is a TTY device which contains a storage mode cathode ray tube for
displaying graphics.  Any material that has been written on the
screen of the storage tube will be displayed until the entire
screen is erased.  The screen can be manually erased by pressing the
'RESET PAGE' key on the terminal.  A program may erase the screen
by calling the subroutine ERASE.

  The TEKTRONIX terminal has a screen resolution of 100 points per inch,
.index Resolution ><TEKTRONIX
and a screen size of 7.8 by 10.24 inches.  The software for the TEKTRONIX
plotting package ignores references to points that are within the universal
window, but are off-screen.
To place the full 11 by 11 inch image on the screen,
software such as the TEK program use a scaling factor of 0.7 to reduce
the entire plot.  The 4006 and 4025 terminals have similar characteristics.
.index 4006
.index 4025

  Previewing plots with the TEKTRONIX graphics terminal before sending
them to the plotter is encouraged, since this helps reduce the production
of unwanted plots.

  There are two ways to use the TEKTRONIX package:
.list
.list element;Use 'TEK' for IPLT in CALL#PLOTS(IERR,'TEK').
.index <PLOTS >'<TEK'

.list element;Include SYS:TEKPLT.REL in the LOAD/EXECUTE command
if you are using CALL#PLOTS(IERR,0).
.index <TEKPLT
.index <PLOTS ><IPLT=0
.break
Example: .EXECUTE MYPROG.FOR,SYS:TEKPLT.REL
.end list

  The TEK program can be used to preview plots destined for the DP-8 plotter.
.index <TEK program
(The TEK program understands how to talk to both TEKTRONIX and GIGI terminals.)
.;End of HDWTEK.RNO
.;Start of HDWGIG.RNO
.test page 30.indent -5.hl 1 GIGI GRAPHICS TERMINAL.
.index Graphics terminal >Hardware
.index Hardware >Graphics terminal
.index Hardware ><GIGI

  The GIGI Graphic terminal from Digital Equipment Corporation
is a TTY device which drives a TV monitor for displaying graphics.
Although the GIGI has the capability of shading and selectively
erasing portions of the screen, the PLOT package treats the GIGI
like a TEKTRONIX storage tube.  Subroutine ERASE may be used to
.index <ERASE
clear the entire screen.

  The GIGI terminal has a screen resolution of 768 horizontal by 480 vertical
.index Resolution ><GIGI
points (pixels).
.index Pixel
With a 12 inch monitor, this is approximately 75 dots per inch, measured on
the TV screen.  The data sent to the GIGI is scaled such that a plot
requiring 11 by 11 inches on the DP-8 plotter will fit on the GIGI screen.

  To be compatible with the DP-8 pen plotter, function NEWPEN will change
the color of the lines drawn on the screen.  (For black and white monitors,
colors show up as different shades of gray.)
.skip
NEWPEN(1) = Cyan (light blue) = light gray
.break
NEWPEN(2) = White (not black) = white
.break
NEWPEN(3) = Magenta (reddish) = dim gray


  There are two ways to use the GIGI package:
.list
.list element;Use 'GIGI' for IPLT in CALL#PLOTS(IERR,'GIGI').
.index <PLOTS >'<GIGI'

.list element;Include SYS:RGSPLT.REL in the LOAD/EXECUTE command
if you are using CALL#PLOTS(IERR,0).
.index <RGSPLT
.index <PLOTS ><IPLT=0
.break
Example: .EXECUTE MYPROG.FOR,SYS:RGSPLT.REL
.end list

  The TEK program can be used to preview plots destined for the DP-8 plotter.
.index <TEK program
(The TEK program understands how to talk to both TEKTRONIX and GIGI terminals.)
.;End of HDWGIG.RNO
.;Start of HDWRGS.RNO
.test page 30.indent -5.hl 1 REGIS PLOTTER.
.index Hardware >^Re<GIS plotter

  The Houston Instruments DMP-4R is table top plotter that speaks
ReGIS just like the GIGI terminal.  It produces plots of up to 6 colors
on an 8.5 by 11 inch paper.

  The ReGIS plotter uses the same resolution as the GIGI;
768 horizontal by 480 vertical points.
.index Resolution ><DMP-4^R
The data sent to the DMP-4R is scaled such that a plot
requiring 11 by 11 inches on the DP-8 plotter will fit on the paper.

  Subroutine NEWPEN can be used to change the pen color.
.skip
.literal
NEWPEN(1) = Blue 	NEWPEN(4) = Purple (set up by user)
NEWPEN(2) = Black	NEWPEN(5) = Green (set up by user)
NEWPEN(3) = Red  	NEWPEN(6) = Orange (set up by user)
.end literal

  There are two ways to use the ReGIS package:
.list
.list element;Use 'DMP4R' for IPLT in CALL#PLOTS(IERR,'DMP4R').
.index <PLOTS >'<DMP4R'

.list element;Include SYS:RGSPLT.REL in the LOAD/EXECUTE command
if you are using CALL#PLOTS(IERR,0).
.index <RGSPLT
.index <PLOTS ><IPLT=0
.break
Example: .EXECUTE MYPROG.FOR,SYS:RGSPLT.REL
.end list
.;End of HDWRGS.RNO
.;BLANK.RNO - This page was deliberately left blank
.page
.center;*
.skip 30
.center;*
.;BLANK.RNO is used at the end of chapters that have an odd number of pages
.;Start of SOFTW.RNO
.chapter GRAPHICS SOFTWARE
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 5.indent -5.hl 1 GENERAL.
.index Software
.title Graphics Software

   The Colorado School of Mines Computing Center has several types
of graphics software available. The major package is a set of FORTRAN callable
subprograms that are generally consistent with CALCOMP software.
.index <CALCOMP
These subprograms have been written in FORTRAN-10 and MACRO-10,
and are generally called from FORTRAN programs.

.note
** Plotting ^&cannot\& be done from SITGO-FORTRAN. **
.index <SITGO
.end note

  There are several stand-alone programs available for convenient generation
of graphs.  These include EZPLOT, GRAPH, SIMPLT, and DRAW.

  The TEK program
.index <TEK program
allows a user to preview any plot that has
been prepared for the Houston Instruments DP-8 plotter on the TEKTRONIX
or GIGI graphics terminals.
.index <TEKTRONIX
.index ^Houston ^Instruments <DP-8
.index <GIGI
.test page 5.indent -5.hl 1 MONITOR 'PLOT' COMMAND.
.index <PLOT >Monitor command
.index Monitor <PLOT command

  Plots do not go directly to the DP-8 plotter
when they are generated, but are spooled on the disk.  Spooling allows many
users to generate plots simultaneously, even while the plotter is actively
working on another user's plot.  The monitor command 'PLOT' will transfer the
spooled plot file to the list of plots to be processed by the plotter.
.test page 10
  The form of the 'PLOT' command is:
.blank 1.center; &.PLOT *.PLT
.blank 1.center; or
.blank 1.center; &.PLOT JOBNAM=FILESPEC(s) /SWITCH(es)
.autotable.left margin 10.paragraph -5,1,5

JOBNAM##is the optional name given to the plot.  If the parameter is missing,
  then  the first file name given is used as the default.

FILESPEC(s) is a series of file specifications separated by commas which
  identify the file names, and optionally the device the file resides on,
  the project-programmer number of the directory, and sub-file directory(ies)
  which specify which files are being sent to the plotter.  The default
  is files with ".PLT" extension in your directory area.

/SWITCH(es)  are optional switch parameters which define how the files are
  to be processed.
.blank 3
.index Monitor <PLOT command >switches
.index <PLOT >Monitor command >switches
^&Switch############Description\&
.left margin 15.paragraph -10

/COPIES:n#######Output the specified file(s) repeatedly n times.  The use
  of a photocopier is strongly suggested instead of this switch, since the
  duplication costs are less, and this also frees the plotter for use by other
  users.

/DISPOSE:DELETE##Delete the named file(s) after output.

/DISPOSE:PRESERVE##Save the file after output.

/DISPOSE:RENAME##Remove the file from your directory immediately, and plot it
  from the QUE: area.  This is the default action for ".PLT" files.

/FORMS:name#####Place the output on a non-standard form.  Standard forms are
  12 inch (11 useable plotting inches) white plotter paper.  36 inch paper
  (35 useable plotting inches) has a form name of P311.

/KILL###########Remove the specified job from the plotter output queue.

/MODIFY#########Modify the specified plot queue entry.  Must be used to alter
  the switches used in previously requested jobs.

.left margin 5.autoparagraph.paragraph 5,1,5
All other switches available are documented in the CSM Users Handbook
and in the DECsystem-10 Operating System Commands Manual
(under the QUEUE command).
.index Monitor <PLOT command >examples
.index <PLOT >Monitor command >examples
.blank 3
.center;^&EXAMPLES\&
.blank
.no fill
Example:  To plot the spooled plotter files you have generated;
.blank 1.center; &.PLOT *.PLT
.blank 1
Example:  To remove the request for EZPLOT from the
queue (the equals sign is required);
.blank 1.center; &.PLOT EZPLOT=/KILL
.blank 1.center; or
.blank 1.center; &.CANCEL PLOT EZPLOT
.blank 1
Example:  To check the status of the PLOT queue;
.blank 1.center;&.PLOT
.fill.justify
.;End of SOFTW.RNO
.;Start of WINDOW.RNO
.test page 30
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 5.indent -5.hl 1 PLOT WINDOW.
.index Window

  The CSM graphics software observes a limitation on the
useable plotting area, which is called the plotting window.
The main reason for the plot window is to prevent undebugged programs
from going wild and wasting plotter paper.
The window starts as being 11 inches wide by 11 inches
high.  The user can move the pen anywhere inside the
window, but any line that attempts to go outside the window
will be truncated at the border.  The pen is not allowed
to move outside the window, but its theoretic position is
still calculated.  When the pen movement returns to inside
the window, plotting resumes at the correct position.
A message can be sent to the user each time the pen movement
exceeds the plot window.  The number of messages actually sent
depends on what is specified to subroutine PLOTS.

  The plot window starts out as being 11 by 11 inches, with the origin
of X = 0, Y = 0 being the lower left corner.  The window can be made
smaller by calling SETWIN, such as to limit the plot to an 8.5 by 11
inch area.  Special privileges are required to extend the window past
the 11 by 11 inch limit.

.index <SETWIN
.index Window >Universal
.index Window >Subwindow
  The window as set by SETWIN is known as the universal window.
It is an absolute limit of pen travel.  There is also a second
type of window, known as the subwindow.  The subwindow can be
turned on and off at will, and can be anywhere inside of the
universal window.  The subwindow is useful for limiting a section
of the plot to a smaller area.  For instance:  the user can
call SETWIN to limit the entire plot to an 8.5 by 11 inch area.
Then call SUBWIN to limit a graph to a 5 by 4 inch window.
The user calls SUBWIN again to turn off the subwindow checking,
to plot a title outside of the area, such as "Figure#1".  SUBWIN
may be called again to define a limit for figure 2, and turned
off again to plot the caption "Figure#2".
.index <SUBWIN
.test page 30.indent -5.hl 1 COORDINATE SYSTEM.
.index Coordinate System
.index Software >Coordinate System

  The plotter software is based on a standard Cartesian
coordinate system that uses the inch as a basic unit of measure.
Angles used in the plotting package are assumed to be in degrees,
and are measured relative to the positive X axis, in a counter-clockwise
direction as in the standard trigonometric convention.
.test page 20.literal


                          90

                          Y
                          ^
                          !
                          !
                          !     +angle
                          !
             180  --------+--------> X  0
                          !
                          !     -angle
                          !
                          !

                         270

.end literal
.center; Coordinate system conventions.
.blank

  When the plot is first started, the origin is set to the lower
.index origin
left corner of the window.  This default allows only positive X and Y
coordinates until the origin is shifted by CALL#PLOT(XORG,YORG,-3).
Whenever PLOT is called with the function code of -3, the pen moves to
.index <PLOT
the specified coordinate and the origin is set to that point.
Note that multiple origin changes are cumulative.

  Subroutine ROTATE
.index <ROTATE
will rotate the coordinate system and subroutine FACTOR
.index <FACTOR
will change the scaling.
The coordinate system will remain a Cartesian coordinate system
measured in inches that will
be suitably shifted, turned, and zoomed within the universal window
by changing the coordinate system.  The coordinate changes are not
retroactive; the change is effective for only the plotting done after
the call to the routine to make the change.
.;End of WINDOW.RNO
.;Start of SYM.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.indent -5.hl 1 SYMBOL SETS
.index Symbol sets
.index Software >Symbol sets
.index Symbol sets >standard symbol library
.index Standard Symbol library

  There are two routines available for drawing text on the plot;
TITLE and SYMBOL.

  Subroutine TITLE is limited to a single character set and
angles that are multiples of 45 degrees.  It uses the hardware character
generator if possible, otherwise TITLE calls subroutine SYMBOL.
(Currently, only the GIGI and ReGIS plotter have this feature.)

  The SYMBOL routine allow complete freedom in the choice of
position and angle of characters generated by labeling routines.
There are currently thirteen different types of character sets
and one set of centered symbols.

  The different character sets are described in the "LABELING ROUTINES"
section, and examples are in the appendix.
.;End of SYM.RNO
.;Start of TEK.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 5.indent -5.hl 1 TEK PROGRAM
.index <TEK program

  The TEK program will display a spooled plot file on a TEK or GIGI
graphics terminal.  It is strongly suggested that all plots be viewed
before they are sent to the Houston Instruments DP-8 plotter.
.index ^Houston ^Instruments <DP-8

  To view the spooled plot stored in GRAPH.PLT, use the command:
.skip
#	.TEK GRAPH
.skip
The TEK program will assume the extension of ".PLT", and
knows how to talk to both Tektronix and GIGI terminals.

.test page 5.indent -5.hl 1 TEKVUE PROGRAM.
.index <TEKVUE program

  Some of the 4006 terminals are limited to running the TEKVUE program.
TEKVUE allows the user to preview and dispose of plot files, but the
plots must be created elsewhere.  This limitation is imposed so that
graphics terminals will be available for previewing plots.
.;End of TEK.RNO
.;Start of CORE.RNO
.chapter PLOTTING SUBROUTINES
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Plotting Subroutines
.test page 5.indent -5.hl 1 Core plotting routines
.index Software >Plotting subroutines

  The routines that follow are the core routines of the plotting package.
They are written in MACRO-10 assembly language and
handle the actual movement of the pen, in a manner suitable for the
hardware selected.   The standard default plotting package outputs
to the Houston Instruments DP-8 plotter,
.index ^Houston ^Instruments <DP-8
but this can be changed by appropriate arguments to subroutine PLOTS.

  The core routines are in FORLIB, the FORTRAN library, and are loaded
automatically whenever any plotting routine is needed.
.skip 3

  The core routines are:

.list
.le;ERASE##- Clear the screen.
.le;FACTOR#- Change size of plotter movements.
.le;NEWPEN#- Change the pen color.
.le;OPRTXT#- Send a message to the OPR.
.le;PAUSEP#- Pause the plot for a few seconds.
.le;PLOT###- Move the pen, (X,Y,999) to end plot.
.le;PLOTS##- Starts plotting.
.le;ROTATE#- Performs translation and rotation.
.le;SETWIN#- Sets window size.
.le;SUBWIN#- Activates sub-windows.
.le;TITLE##- Plots text.
.le;WHERE##- Returns current coordinates.
.le;XHAIRS#- Triggers crosshairs on TEK 4012 or GIGI.
.end list
.;End of CORE.RNO
.;Start of ERASE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'ERASE'\&
.index <ERASE
.index Subroutine ><ERASE

  ERASE allows the user to erase the screen on the TEKTRONIX or
GIGI terminals.
.blank.center;********** calling sequence **********
.blank.center;CALL ERASE
.blank.center;**************************************

  ERASE does not have an  argument.   Upon  return  from  this
routine  the cursor will be at the lower left hand corner of
the screen and this point will be the origin.
.note
This routine does nothing if subroutine PLOTS has selected the
Houston Instruments plotter.
.end note
.;End of ERASE.RNO
.;Start of FACTOR.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'FACTOR'\&
.index <FACTOR
.index Subroutine ><FACTOR

  FACTOR enables the user to change the  size  of  the  entire
plot by magnifying the plot by a given factor relative to
the normal plot size.  The factor in the Y direction may
be changed indepenently of the factor in the X direction - this
allows mirror-images to be plotted.
.blank.center;********** calling sequence **********
.blank.center;CALL FACTOR (FACTR)
.blank.center;or
.blank.center;CALL FACTOR (FACTX,FACTY)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
FACTR###(input parameter) is the ratio of the  desired  plot
  size to the normal plot size.
FACTX###(input parameter) is the scaling factor in the X direction.
FACTY###(optional input parameter) is the scaling factor in the Y direction.
.left margin 5.blank.center;^&Example\&
.blank.center;CALL FACTOR (0.5)
.autoparagraph
.paragraph 5,1

  This call will cause the entire plot which follows to be reduced to
half size.  The window size is unaffected, so a window of 11 by 11
inches can be used for a plot that would normally be 22 by 22 inches.

.note
Subroutine FACTOR affects the relative origin as set by CALL#PLOT(X,Y,-3).
A program that calls FACTOR first then calls PLOT(X,Y,-3) will produce
the same effect as a program that calls PLOT(X,Y,-3) before FACTOR.
See subroutine ORIGIN
.index ^^ORIGIN
for a description of these interactions.
.end note
.;End of FACTOR.RNO
.;Start of NEWPEN.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'NEWPEN'\&
.index <NEWPEN
.index Subroutine ><NEWPEN

  Subroutine NEWPEN allows the user to select which pen will
be  used  for the following references to subroutine PLOT or
to obtain the value of the current pen in use.
.blank.center;********** calling sequence **********
.blank.center;CALL NEWPEN(IPEN,IERR)
.blank.center;**************************************
.left margin 14
.blank.indent -9
IPEN####(input parameter) allows for a mode of operation.
.left margin 22
.indent -9
(IPEN = 0) return the value of the current pen  in
use.   IERR gets set to the number of the pen currently in use.
.indent -9
(IPEN > 0) select a pen to use.  IERR is returned as zero if
the pen number is legal, otherwise as -1.
.left margin 5
IERR####(output parameter) The error flag or number of pen.
.skip 2
.literal
         DP-8     DMP4R     GIGI and VT125
         ----     -----    -----------------
IPEN=1   Blue     Blue     Light blue (cyan)
IPEN=2   Black    Black    White (not black)
IPEN=3   Red      Red      Red-purple
.end literal

  Values of IPEN greater than 3 work only for the Houston Instruments
DMP4-R table-top plotter.  The pens on this plotter can be re-arranged
.index ^^DMP-4R
by the user.

  Calling NEWPEN has no affect on the Tektronix 4000-series terminals.
.index <TEKTRONIX
.note
NEWPEN can be called as an integer function, as in
IERR=NEWPEN(IPEN), but such use of the subroutine
is discouraged.
.end note
.;End of NEWPEN.RNO
.;Start of ORIGIN.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'ORIGIN'\&
.index <ORIGIN
.index Subroutine ><ORIGIN

.blank.center;********** calling sequence **********
.blank.center;CALL ORIGIN (ARG,X,Y)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
CALL#ORIGIN('ABS',XORIG,YORIG)
.break
  Set absolute origin (in inches) to (XORIG,YORIG).  This is the same as
.center;CALL#ROTATE(0,XTEMP,YTEMP,ANGLE)#!Get current angle
.center;CALL#ROTATE(1,XORIG,YORIG,ANGLE)#!Re-set angle#####
CALL#ORIGIN('REL',XORIG,YORIG)
.break
  Set relative origin, just like CALL#PLOT(XORIG,YORIG,-3).
CALL#ORIGIN('WHERE',XINCH,YINCH)
.break
  Return current position on the paper.  This returns the absolute position,
  in spite of any calls to FACTOR, ROTATE, or PLOT(X,Y,-3).
.left margin 5.autoparagraph.paragraph 5,1,5
.note
Subroutine FACTOR
.index ^^FACTOR
affects the relative origin as set by CALL#PLOT(X,Y,-3).
A program that calls FACTOR first then calls PLOT(X,Y,-3) will produce
the same effect as a program that calls PLOT(X,Y,-3) before FACTOR.
.end note
.;End of ORIGIN.RNO
.;Start of OPRTXT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'OPRTXT'\&
.index <OPRTXT
.index Subroutine ><OPRTXT

  This routine allows the  user  to  send  a  message  to  the
operator  via his output plot file.  This subroutine is used
to send messages at plot time to the operator to request special pens,
special forms, etc.
.blank.center;********** calling sequence **********
.blank
.center;CALL OPRTXT (MESSAG,NCHR)
.blank
.center;**************************************
.autotable
.left margin 20.paragraph -15,1
MESSAG##(input#parameter) is the message to be sent to the operator.
  This text must be either a literal or an array that has
  five characters per element.
.blank.indent -9
NCHR####(input#parameter) is the number of characters to  be
  sent to the operator.
.autoparagraph
.left margin 5.paragraph 5,1
.note
This routine will only send a message to the operator; it
will NOT pause the output to the plotter.  If
operator intervention is required, the output must be paused by
a call to PLOT(X,Y,0), which must be the next call to PLOT.
.blank
This routine does nothing when running on the graphic terminals.
.index Graphics terminal
.end note
.center;^&Example\&
.blank
.left margin 11
CALL OPRTXT ('Please put blue felt-tip in pen _#1',34)
.break
CALL PLOT (X,Y,0)	!Pause the plotter
.left margin 5
.;End of OPRTXT.RNO
.;Start of PAUSEP.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'PAUSEP'\&
.index <PAUSEP
.index Subroutine ><PAUSEP

  PAUSEP allows the user to pause the plot going to a graphics
terminal.  Its main use is to allow the user to view a
plot before erasing the screen
.blank.center;********** calling sequence **********
.blank.center;CALL PAUSEP (ISEC)
.blank.center;or
.blank.center;CALL PAUSEP (0,IANS)
.blank.center;**************************************
.left margin 14
.blank.indent -9
ISEC####(input parameter) is the time in seconds that
the plot should be paused.  Zero means to wait for the user
to hit the RETURN key.
.blank.indent -9
IANS####(optional output parameter) is the user's response, such
as 'OK' or 'STOP'.  IANS is returned as all blanks if the user
simply hit the RETURN key, otherwise up to 5 characters of the response
are returned, converted to upper case.
.blank.center;^&Example\&
.blank
.left margin 12.no fill
CALL PAUSEP (5)	!Pause for 5 seconds
CALL ERASE	! Clear the screen
   ....
CALL PAUSEP (0,IANS)
IF(IANS.NE.'OK') CALL ERASE
.fill
.;End of PAUSEP.RNO
.;Start of PLOT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.indent -5.hl 2 ^&Subroutine 'PLOT'\&
.index <PLOT >subroutine
.index Subroutine ><PLOT

  PLOT is the basic routine for  the  plotter.   This  routine
moves  the  pen in a straight line to the position specified
by (X,Y) with the pen up or down.   Also,  special  services
such  as plot termination and change of origin are performed
by this routine.  There are six modes of operation  for
this routine plus the pause command.
.autotable
.left margin 19.blank 2.paragraph -9,1
^&MODE#####MEANING OF X AND Y PARAMETERS\&
##0######Cause the spooler to pause.  (#IC#=#0#).
##1######Coordinate of point in inches to move pen to.
  (#0#_<=#IC#_<=#5#).
##2######Delta values in inches to move the pen from this
  coordinate.  (#5#_<=#IC#_<=#7#).
##3######Polar coordinate values in inches to move the pen
  to.  X is the radius in inches, and Y is the angle
  in degrees. (#8#_<=#IC#_<=#10#).
##4######Polar coordinate values to move the pen to with X
  the radius value in inches  and  Y the  angle  in
  radians.  (#11#_<=#IC#_<=#13#).
##5######Terminate the plot. (#IC#=#999#).
.page.left margin 5.right margin 64.spacing 1
.blank 2.center;********** calling sequence **********
.blank
.center;CALL PLOT (X,Y,IC)
.blank.center;**************************************

.blank 2.test page 23
.left margin 20.paragraph -15
^&Mode 0\&	Pause Spooler
(X,Y)##(input#parameter) are ignored for the pause function.
IC#=#0#(input#parameter) is the pause command for the spooler,
  X and Y are ignored.  For the Houston Instruments DP-8 plotter,
.index ^Houston ^Instruments <DP-8
  this call is illegal unless you call OPRTXT immediately
  before calling PLOT(X,Y,0).  It causes the SPROUT spooling
.index <SPROUT
  program to stop and request Operator intervention.
.index Operator
  See the OPRTXT description  for more information.
.index <OPRTXT
.paragraph -15,1
  Use subroutine PAUSEP to pause output to graphics terminals.
.index <PAUSEP
.index Graphics Terminal
.paragraph -15,1
.test page 20
^&Mode 1\&	Absolute Coordinates
(X,Y)##(input#parameter) is the coordinate to move  to,  in
  inches.
IC#####(input#parameter) is the function code:
.paragraph -9,0
(IC#=##1) move to X,Y without modifying pen up or  down.
(IC#=#-1) move to X,Y without modifying pen up or
  down, and make this the new origin.
(IC#=##2) drop the pen and move to X,Y.
(IC#=#-2) drop the pen, move to X,Y and make this
  the origin.
(IC#=##3) raise the pen and move to X,Y.
(IC#=#-3) raise the pen and move to X,Y and  make
  this the origin.
.index ^^PLOT(X,Y,-3)
(IC#=##4) make the current pen position X,Y.
(IC#=#-4) make  the  current  pen  position   the
  origin (X,Y are ignored).

.page.paragraph -15,1
^&Mode 2\&	Relative Coordinates
(X,Y)##(input#parameter) is the delta distance to move,  in
  inches.
IC#####(input#parameter) is the function code:
.left margin 20.paragraph -9,0
(IC#=##5) move   the   delta   distance   without
  modifying pen up or down.
(IC#=#-5) move   the   delta   distance   without
  modifying  pen  up  or  down and make this the
  origin.
(IC#=##6) drop  the  pen  and  move   the   delta
  distance.
(IC#=#-6) drop the pen, move the  delta  distance
  and make this the origin.
(IC#=##7) raise  the  pen  and  move  the   delta
  distance.
(IC#=#-7) raise the pen, move the delta  distance
  and make this the origin.
.test page 20.paragraph -15,1
^&Mode 3\&	Polar Degrees
(X,Y)##(input#parameter) is the polar  coordinates  of  the
  point  to move to (X is the radius, in inches, and Y
  is the angle, in degrees).
IC#####(input#parameter) is the function code:
.paragraph -9,0
(IC#=##8) move to X,Y without changing pen up or
  down.
(IC#=#-8) move to X,Y without modifying pen up or
  down and make this the origin.
(IC#=##9) drop the pen and move to X,Y.
(IC#=#-9) drop the pen, move  to  X,Y,  and  make
  this the origin.
(IC#=#10) raise the pen and move to X,Y.
(IC#=-10) raise the pen, move to  X,Y,  and  make
  this the origin.
.test page 20.paragraph -15,1
^&Mode 4\&	Polar Radians
(X,Y)##(input#parameter) is the polar  coordinates  of  the
  point  to move to (X is the radius, in inches, and Y
  is the angle, in radians).
IC#####(input#parameter) is the function code:
.paragraph -9,0
(IC#=#11) move to X,Y without changing pen up or
  down.
(IC#=-11) move to X,Y without modifying pen up or
  down and make this the origin.
(IC#=#12) drop the pen and move to X,Y.
(IC#=-12) drop the pen, move to X,Y and make this
  the origin.
(IC#=#13) raise the pen and move to X,Y.
(IC#=-13) raise the pen, move  to  X,Y  and  make
  this the origin.
.test page 15.paragraph -15,1
^&Mode 5\&	Finish Plot
(X,Y)##(input#parameter) X,Y are ignored.
IC#####(input#parameter) is the function code:
.paragraph -9,0
(IC#=#999) terminate the plot.
.index ^^PLOT(X,Y,999)
.index <PLOT >close
.index <PLOT >terminate
(IC >#13 or IC <-13) Unimplemented operation.
  Currently, if the absolute value of IC is greater than 13,
  it is the same as if IC was 999, and terminates the plot.
  The value of 999 should be used to terminate the plot, as more modes may
  be implemented in the future.
.skip
CALL#PLOT(X,Y,-999) will abort the plot, and avoid creating a plot file.
.index 999 ><PLOT
.autoparagraph
.left margin 5.paragraph 5,1
.;End of PLOT.RNO
.;Start of PLOTS.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 23.indent -5.hl 2 ^&Subroutine 'PLOTS'\&
.index <PLOTS
.index Subroutine ><PLOTS

  The PLOTS routine activates the plotter.
.index <PLOT >open
.index <PLOT >initiate
It also sets a counter for listing "Plot Window Exceeded"
messages.

.note
PLOTS must be called before ^&ANY\& call to a plot routine
to initialize the output plot file.
.end note

.blank.center;********** calling sequence **********
.blank
.center;IERR = some number################
.center;CALL PLOTS (IERR,IPLT)############
.center;IF(IERR.NE.0) STOP 'PLOTS failure'
.blank
.center;or
.blank
.center;CALL PLOTS (IERR,IPLT,DFILE)
.blank
.center;**************************************

.test page 14.autotable
.left margin 20.paragraph -15,1
IERR##(input#parameter) is a flag to set error message type-out:
.paragraph -9,0
(IERR#=#0) don't type warnings.
(IERR#_>#0) type only the warning message.
(IERR#_<#0) type the warning message and trace the
  call to  subroutine PLOT.  The absolute
  value of IWARN will be the maximum  number  of
  warnings to be typed.
(IERR#=#999) do not erase the screen if running on a graphics terminal.
.index 999 ><PLOTS
.index Graphics terminal
  Usually the screen is erased when PLOTS is called.
.paragraph -15,1
IERR##(output#parameter) is a flag signifying the success or
  failure of PLOTS.
.paragraph -9,0
(IERR#=##0) means no errors.
(IERR#=#-1) means no such plotter.
(IERR#_>#0) means plot file creation error.
.test page 15
.paragraph -15,1
IPLT##(input#parameter) specifies the type of plotter.
.paragraph -9,0
###0####Use the default plotter ('SPOOL')
'PLOT'##Same as 0
'SPOOL'#Spooled output to the Houston Instruments
########DP-8 plotter
'DP-8'##Same as 'SPOOL'
#'TEK'##Output to TEKTRONIX 4000-series terminal
#4006###Same as 'TEK'
#4012###Same as 'TEK'
#4025###Same as 'TEK'
'REGIS'#Output to ReGIS type terminal
'GIGI'##Same as 'REGIS'
'DMP4R'#Houston Instruments DMP-4R ReGIS plotter
#'TTY'##Same as 'TEK' or 'GIGI' depending on terminal
.paragraph -15,1
DFILE#(optional#input#parameter) specifies the device and/or file
         name for the plot file.  This must be less than 10 characters
         enclosed by single quotes, or a double-precision variable.
.autoparagraph
.left margin 5.paragraph 5,1

.blank.center;^&EXAMPLE\&
.literal
	IERR = -2
	CALL PLOTS(IERR,0)
	IF (IERR.NE.0) STOP '?PLOTS failure'
.end literal

   Specifying IPLT as the integer zero means to use the default
plotter (normally 'SPOOL', but 'TEK' if SYS:TEKPLT.REL is loaded).
The value of IERR = -2 on input will cause a maximum of two error
messages and a trace of the erroneous calls to be typed.  If IERR is not
returned as zero, the program will stop and type "?PLOTS failure".
.;End of PLOTS.RNO
.;Start of ROTATE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.indent -5.hl 2 ^&Subroutine 'ROTATE'\&
.index <ROTATE
.index Subroutine ><ROTATE

  ROTATE allows the coordinate system to be rotated.
All plotting references after this call will be offset from the axis
of rotation (which is now the origin) and rotated.
.note
  Window clipping is done AFTER rotation.  That is, the limits imposed
by subroutine SETWIN
.index <SETWIN
always form a box whose sides are horizontal and vertical.
.end note
.blank.center;********** calling sequence **********
.blank.center;CALL ROTATE (IFUNC,XPOS,YPOS,ANGLE)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
IFUNC###(input parameter) determines the mode of rotation:
.paragraph -9,0
(IFUNC = 0) clear all rotation, setting the origin to the lower left corner
  of the universal window. XPOS, YPOS and ANGLE are set to the former
  absolute origin and the former angle of rotation.
(IFUNC > 0) add ANGLE to the current rotation angle.
(IFUNC _< 0) set the angle of rotation to ANGLE.
.paragraph -15,1
(XPOS,YPOS)##is the position in inches for the center of rotation.
  NOTE: This is an absolute position on the paper, and is not affected
  by CALL FACTOR.
.index ^^FACTOR
  This absolute origin cancels any previous relative
  origin that may have been set by CALL PLOT(X,Y,-3).
.index ^^PLOT(X,Y,-3)
ANGLE###(input parameter) is the angle of rotation.  It is specified
  in degrees, not in radians.
.left margin 5.paragraph 5,1
.autoparagraph
.blank.center;^&Example\&
  The user is charged by the width of the plot.
If a plotting program is set up to use an area 8.5 inches high
by 11.0 inches wide, plot paper will be conserved if the plot is
rotated so that it is 8.5 inches wide by 11.0 inches high.  This
can be accomplished by adding two statements after the call to
PLOTS.
.blank.test page 10
.literal
	CALL SETWIN (8.5, 11.0)
	CALL ROTATE (1, 8.5, 0.0, 90.0)
.end literal
.left margin 5.paragraph 5,1
  The first statement makes sure that the plot is limited to 8.5 inches wide
by 11.0 inches high.  The second one moves 8.5 inches to the right along
the X axis, rotates the plot 90 degrees counterclockwise, and makes
this point the new origin.  The positive X axis now points up, and
the positive Y axis points to the left.

.blank.center;^&Example\&
.literal
	CALL FACTOR(0.5)		!Reduce size of plot
	CALL PLOT(1.0,2.0,-3)		!Origin is (0.5,1.0)
	CALL ROTATE(-1,4.0,5.0,90.0)	!Origin is (3.0,5.0)
.end literal
  Before the call to ROTATE, the origin was at (0.5*1.0,0.5*2.0) or
(0.5,1.0) because FACTOR affects the origin set by PLOT(X,Y,-3).
Then ROTATE used (4.0,5.0) as the center of rotation because it uses
absolute coordinates in inches along the paper, and is unaffected by
FACTOR or PLOT(X,Y,-3).  After this rotation, the 0.5 inch X-origin offset
and the 1.0 inch Y-origin offset have been canceled.

  If your program uses subroutine ROTATE, then better results will be
obtained by using
.center;CALL ORIGIN('ABS',XORIG,YORIG)
.index ^^ORIGIN
.center;or
.center;CALL ROTATE(-1,XORIG,YORIG,0.0)
instead of
.center;CALL ORIGIN('REL',XORIG,YORIG)
.center;or
.center;CALL PLOT(XORIG,YORIG,-3)
to change the origin.
.;End of ROTATE.RNO
.;Start of SETWIN.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'SETWIN'\&
.index <SETWIN
.index Subroutine ><SETWIN

  Subroutine SETWIN allows the user to set up  a  window  size
other  than  using  the default window size (11 inches by 11
inches).
.blank.center;********** calling sequence **********
.blank.center;CALL SETWIN (WX,WY)
.blank.center;or
.blank.center;CALL SETWIN (WX,WY,WXMAX,WYMAX)
.blank.center;**************************************
.left margin 14
.blank.indent -9
WX######(input parameter) is the  width  of  the  window  in
inches.  The maximum value of WX is 240 inches.
.blank.indent -9
WY######(input parameter) is the height  of  the  window  in
inches.  The maximum value of WY is 35 inches.
.blank.indent -9
WXMAX###(optional output parameter) is the maximum X value
that PRIV.SYS allows.
.blank.indent -9
WYMAX###(optional output parameter) is the maximum Y allowed.
.left margin 5.note
Privileges for window sizes larger than 11 by 11 inches are
granted by the Chief Consultant.
If the user wants to set up a window size,  he or she must  do  so
after  a  reference  to  PLOTS  but  before  a  reference to
subroutine PLOT or any other plotting routine.   The  values
of  WX  or  WY cannot be less than or equal to zero.
See the page on "Warning and Error Messages".
.end note
.;End of SETWIN.RNO
.;Start of SUBWIN.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'SUBWIN'\&
.index <SUBWIN
.index Subroutine ><SUBWIN

  SUBWIN allows the user to have a sub-window in the  plotting
program.   A  sub-window is a smaller window within the main
or  universal  window  and  is  treated  exactly  like   the
universal window.  For example if the sub-window is setup no
plotting will be  done  outside  of  that  sub-window.   The
sub-window  can  be turned on and off at will and no special
privileges are needed.
.blank.center;********** calling sequence **********
.blank.center;CALL SUBWIN (IFUNC,IVALUE,X0,Y0,WIDTH,HEIGHT)
.blank.center;**************************************
.left margin 14
.blank.indent -9
IFUNC###(input parameter) selects mode of operation.
.left margin 22
.indent -9
(IFUNC = 0) sets up the sub-window
.indent -9
(IFUNC = 1) reads the sub-window size  to  see  if
the  sub-window  feature  is  currently  being
used.
.indent -9
(IFUNC = 2) disables the sub-window for now.
.indent -9
(IFUNC = 3) reenables  the   sub-window   feature,
i.e. uses  the  last  values of a reference to
subroutine SUBWIN with IFUNC equal to zero.
.left margin 14
.blank.indent -9
IVALUE##(output parameter) a mode (IFUNC)  dependent  value.
If  IFUNC  is  less  than  0 or greater than 3, then
IVALUE will be set equal to -1.
.left margin 22
.indent -9;(IFUNC = 0)
.indent -4;(IVALUE = -1) the width or height was less than
or equal to zero.
.indent -4;(IVALUE =  0) the sub-window was set up.
.indent -9;(IFUNC = 1)
.indent -4;(IVALUE = -1) a sub-window was not set up.
.indent -4;(IVALUE =  0) the sub-window was set up and  no
checking is being done.
.indent -4;(IVALUE =  1) the sub-window  was  set  up  and
checking is being done.
.indent -9;(IFUNC = 2 or 3)
.indent -4;(IVALUE = -1) a sub-window was not set up.
.indent -4;(IVALUE =  0) a sub-window was set up.
.left margin 14
.blank.indent -9
(X0,Y0)#(input or output parameter) a mode (IFUNC) dependent
value.
.left margin 22
.indent -9
(IFUNC = 0) (input) the coordinate  of  the  lower
left hand corner of the sub-window, in inches.
.indent -9
(IFUNC = 1) (output) the coordinates of the  lower
left hand corner of the sub-window, in inches.
.indent -9
(IFUNC = 2) is unused.
(IFUNC = 3) is unused.
.left margin 14
.blank.indent -9
WIDTH###(input or output parameter) a mode (IFUNC) dependent
value.
.left margin 22
.indent -9
(IFUNC = 0) (input) the width of  the  sub-window,
in inches.
.indent -9
(IFUNC = 1) (output) the width of the  sub-window,
in inches.
.indent -9
(IFUNC = 2) is unused.
.indent -9
(IFUNC = 3) is unused.
.blank.left margin 14
.blank.indent -9
HEIGHT##(input or output parameter) a mode (IFUNC) dependent
value.
.left margin 22
.indent -9
(IFUNC = 0) (input) the height of the  sub-window,
in inches.
.indent -9
(IFUNC = 1) (output) the height of the sub-window,
in inches.
.indent -9
(IFUNC = 2) is unused.
.indent -9
(IFUNC = 3) is unused.
.left margin 5.note
X0, X0, WIDTH and  HEIGHT  are  relative  to the current origin and factor
values.  This  subroutine  is  not  effected  by  subroutine  ROTATE.
.end note
.;End of SUBWIN.RNO
.;Start of TITLE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 20
.indent -5.hl 2 ^&Subroutine 'TITLE'\&
.index <TITLE
.index Subroutine ><TITLE

  The  TITLE  subroutine  draws text on the plotter, using the
hardware character generator if possible.  If the plotter does not
have a character generator, TITLE will then call
subroutine SYMBOL using SETSYM table 1.
.index <SYMBOL
.index <SETSYM
.test page 5
.blank.center;********** calling sequence **********
.blank.center;CALL TITLE (X0,Y0,HEIGHT,ICHARS,ANGLE,NCHR)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is the coordinate, in  inches,  of
  the lower left hand corner of the first character to
  be drawn, before rotation by ANGLE.  The pen  is  up
  while moving to this point.
HEIGHT##(input parameter) is the height, in inches,  of  the
  character(s)   to  be  drawn.
ICHARS##(input parameter) is the  text  to  be  drawn.
  ICHARS is either a literal enclosed by apostrophes, or an array
  containing five left-justified characters per element.
ANGLE###(input parameter) is the angle in degrees  at  which
  the text is to be plotted.  The angle will be rounded to
  be a multiple of 45 degrees.
NCHR####(input parameter) number of characters to plot.
.paragraph -9,0
(NCHR = 0) plot a single character whose ASCII code is in ICHARS.
.autoparagraph
.left margin 5.paragraph 5,0
.note
Currently, the only plotters with hardware character generators are
the ReGIS terminals; VT125, GIGI, and DMP4R.
.index <GIGI
.index <VT125
.index ^^ReGIS
.index ^^DMP-4R
.end note
.paragraph 5,1
  See also the description of subroutine SYMBOL.
.;End of TITLE.RNO
.;Start of WHERE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'WHERE'\&
.index <WHERE
.index Subroutine ><WHERE

  This routine allows the  user  to  check on the
status of the plotter,  the  current  pen
position,  current  FACTOR  value and the type of plotting
package that was selected by subroutine PLOTS.
.index <PLOTS
This routine will normally be used to optimize
plotter movement.
.blank.center;********** calling sequence **********
.blank.center;CALL WHERE (X,Y)
.blank.center;or
.blank.center;CALL WHERE (X,Y,FACTX,IPLT,FACTY)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
X######(output#parameter) is the X coordinate of the current pen
  position,  in  inches.
Y######(output#parameter) is the Y coordinate of the current pen
  position,  in  inches.
IPLT####(optional output parameter) is the type of plotter in use.
.paragraph -9,0
(IPLT = 1) using the DP-8 spooler.
.index ^Houston ^Instruments <DP-8
(IPLT = 2) using the ARDS package.
.index <ARDS
(IPLT = 3) using the TEKTRONIX package.
.index <TEKTRONIX
(IPLT = 4) using the ReGIS package.  (GIGI, DMP4R, VT125)
.index <GIGI
.index ^^ReGIS
.index ^^DMP-4R
.index <VT125
.paragraph -15,1
FACTX###(optional output parameter) is the factor value for the X direction.
.index <FACTOR
FACTY###(optional output parameter) is the factor value for the Y direction.
.autoparagraph
.left margin 5.paragraph 5,1

  The values returned for X and Y take into account
any rotation, scaling factors, and the current origin.
If these values were to be used in the next call to PLOT,
the pen will not move.
.test page 10
.blank.center;^&Example\&
.blank
.center;CALL WHERE(X,Y,FACTR,IPLT)######################
.center;IF (IPLT .EQ. 3) CALL FACTOR (0.7*FACTR)###!TEK#
.center;IF (IPLT .EQ. 4) CALL FACTOR (FACTR*2./3.)#!GIGI
.autoparagraph
.paragraph 5,1

  This determines which type of plotter is in use.
Since the TEKTRONIX screen is only 7.8 inches tall, the scale factor of
0.7 ensures that all 11 inches of the plot will be visible.  For a GIGI
or VT125 terminal, a scaling factor of 0.666667 is needed.

  Since moving long distances with the pen up wastes plotter time,
subroutine WHERE can be used to improve efficiency.  If possible, draw
long lines by moving to the endpoint closest to the current position first
and then plot the line.
.;End of WHERE.RNO
.;Start of XHAIRS.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 50
.indent -5.hl 2 ^&Subroutine 'XHAIRS'\&
.index <XHAIRS
.index Subroutine ><XHAIRS

  XHAIRS allows the user to turn on the crosshairs on a TEKTRONIX
or GIGI terminal.  The user positions the crosshairs and types
a single character.  The position and the character are
transmitted  to  the program.  If the character is a Control-Z,
the screen will be cleared, zeros will be returned
for  all  parameters, and the origin will be set to the lower
left hand corner of the screen.

.blank.center;********** calling sequence **********
.blank.center;CALL XHAIRS (XPOX,YPOS,LETTER)
.blank.center;**************************************

.left margin 14
.blank.indent -9
XPOS####(output parameter) is the X coordinate,  in  inches,
of the crosshair.
.blank.indent -9
YPOS####(output parameter) is the Y coordinate,  in  inches,
of the crosshair.
.blank.indent -9
LETTER##(output parameter) is the character typed.
Normal characters are returned in an 'A1' format,
control characters are returned as a number between
1 and 31, in an 'R1' format.
.left margin 5
.note
XPOS and YPOS are relative to the current origin and  factor
value.   This  routine  is  only  available in the TEKTRONIX and GIGI
plotting package.
.end note
.blank.center;^&Example\&
.blank
.left margin 12.no fill
CALL XHAIRS (XPOS, YPOS, LETTER)
IF (LETTER .EQ. 'U') CALL PLOT (XPOS, YPOS, 3) !Up
IF (LETTER .EQ. 'D') CALL PLOT (XPOS, YPOS, 2) !Down
.left margin 5.fill
.;End of XHAIRS.RNO
.;Start of GRAPHI.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Graphing Routines
.test page 50.indent -5.hl 1 GRAPHING ROUTINES
.index Graphing routines

  The routines that follow in this section are designed to aid in
the generation of graphs by drawing the axes, scaling the data,
and drawing the data points on the graph.  Care
should be taken in choosing the best axis drawing routine to fit
the data involved.

  These routines are the included in FORLIB, the FORTRAN
library.  Unlike the CALCNT and PLOT3D routines, FORLIB routines
get loaded automatically whenever they are needed.
.skip 3

  The Graphing Routines are:
.list
.le;AXES###- Draw a fancy X or Y axis.
.le;AXIS###- Draw a simple X or Y axis.
.le;DASHLN#- Draw a dashed line between 2 points.
.le;GRID###- Draw a rectilinear grid.
.le;LINE###- Draw a line from an array of X and Y.
.le;LOGAX##- Draw a simple logarithmic axis.
.le;LOGAXS#- Draw a fancy logarithmic axis.
.le;SCALE##- Do scaling for subroutine LINE.
.end list
.;End of GRAPHI.RNO
.;Start of AXES.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'AXES'\&
.index <AXES
.index Subroutine ><AXES

  AXES provides the user with the capability of generating and
labeling  an  axis  by  drawing  a  line of arbitrary length
divided into variable length segments by 'tick' marks.   The
variable  value  can be written as an annotation beside each
mark.  The axis can also be labeled if the user desires with
special parameters for labeling and segment lengths.
.blank.center;********** calling sequence **********
.blank.center;CALL AXES (X0,Y0,ITITLE,NCHR,AXSLEN,ANGLE,FIRSTV,
.center;DELTAV,TICSPC,IPOWER,NUMDIG,LABTIC)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is  the  coordinate  position,  in
  inches,  of  the  starting  point for the axis.  The
  axes ends should be at least  0.5  inches  from  the
  current  window  limits to allow space for the scale
  annotation  and  the  title.   When  the  coordinate
  system  is  being  generated to coincide with a plot
  produced by subroutine LINE the X0 value for  the  X
  axis  must  be  0.0  and the Y0 value for the Y axis
  must be 0.0.
ITITLE##(input parameter) is the title
  for  the  axis.   This  title is centered and placed
  parallel to the axis line.  ITITLE may be
  either a Hollerith literal, or an array with five left-justified
  characters per word.  The output title
  has a fixed height of 0.15 inch.
NCHR####(input parameter) specifies the number of characters
  in  the  title  and  on  which  side of the axis the
  labeling information will be written.
.paragraph -9,0
(NCHR > 0) make the 'tick' mark,  annotation,  and
  title  placement  on the counterclockwise side
  of the axis relative  to  the  line  projected
  from  the origin along the desired axis.  This
  condition is normally desired for the Y-axis.
(NCHR = 0) make the  'tick'  mark  and  annotation
  placement on the counter-clockwise side of the
  axis relative to the line projected  from  the
  origin  along  the  desired axis.  There is no
  title on this axis.
(NCHR _< 0) make the 'tick' mark,  annotation,  and
  title  placement  on the clockwise side of the
  axis relative to the line projected  from  the
  origin along the desired axis.  This condition
  is normally desired for the X-axis.
.paragraph -15,1
AXSLEN##(input parameter) is the length, in inches,  of  the
  axis line.
ANGLE###(input parameter) is the angle, in degrees, at which
  the axis is to be drawn.  Normally this value is 0.0
  for the X-axis and 90.0 for the Y-axis.
FIRSTV##(input parameter) is the starting value  which  will
  appear  on  the first 'tick' mark of the axis.  This
  value, if  computed  by  SCALE  will  be  stored  at
  location ARRAY(NPT+1).
DELTAV##(input parameter) is the number of data units per inch of axis.
 This value, if computed by SCALE, will be stored at ARRAY(NPT+2).
TICSPC##(input parameter) is  the  distance  between  'tick'
  marks, in inches.
IPOWER##(input  parameter)  is  the   exponent   times   10,
  (*10**IPOWER), used in the title.
NUMDIG##(input parameter) is the number  of  decimal  places
  wanted  in  the  annotation  on  each labeled 'tick'
  mark.  If integers are wanted NUMDIG should  be  set
  equal to -1.  If no numbers are wanted NUMDIG should
  be set equal to 999.
.index 999 ><AXES
LABTIC##(input parameter) is the delta  value  for  labeling
  the  'tick' marks.  For example, if LABTIC = 3 every
  third 'tick' mark will be  labeled.   If  LABTIC  is
  less than 1 no labeling will be done.
.autoparagraph
.left margin 5.paragraph 5,1
.note
Each call to AXES will draw a single axis with labels.  It requires
two calls to AXES to create an (X,Y) coordinate system.
.end note
.;End of AXES.RNO
.;Start of AXIS.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'AXIS'\&
.index <AXIS
.index Subroutine ><AXIS

  AXIS provides the user with the capability of generating and
labeling  an  axis  by  drawing  a  line of arbitrary length
divided into one inch segments  by  'tick'  marks.   The
variable value is written as an annotation beside each mark.
The axis can also be labeled if the user desires.
.blank.center;********** calling sequence **********
.blank.center;CALL AXIS (X0,Y0,ITITLE,NCHR,AXSLEN,
.center;ANGLE,FIRSTV,DELTAV)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is  the  coordinate  position,  in
  inches,  of  the  starting  point for the axis.  The
  axes ends should be at  least  0.5  inchs  from  the
  current  window  limits to allow space for the scale
  annotation  and  the  title.   When  the  coordinate
  system  is  being  generated to coincide with a plot
  produced by subroutine LINE the X0 value for  the  X
  axis  must  be  0.0  and the Y0 value for the Y axis
  must be 0.0.
ITITLE##(input parameter) is the title
  for  the  axis.   This  title is centered and placed
  parallel to the axis line.  ITITLE may be either
  a Hollerith literal, or an array containing five left-justified
  characters per word.  The title
  has a fixed height of 0.15 inch.
NCHR####(input parameter) specifies the number of characters
  in  the  title  and  on  which  side of the axis the
  labeling information will be written.
.paragraph -9,0
(NCHR > 0) make the 'tick' mark,  annotation,  and
  title  placement  on the counterclockwise side
  of the axis relative  to  the  line  projected
  from  the origin along the desired axis.  This
  condition is normally desired for the Y-axis.
(NCHR = 0) make the  'tick'  mark  and  annotation
  placement on the counter-clockwise side of the
  axis relative to the line projected  from  the
  origin  along  the  desired axis.  There is no
  title on this axis.
(NCHR _< 0) make the 'tick' mark,  annotation,  and
  title  placement  on the clockwise side of the
  axis relative to the line projected  from  the
  origin along the desired axis.  This condition
  is normally desired for the X-axis.
.paragraph -15,1
AXSLEN##(input parameter) is the length, in inches,  of  the
  axis line.
ANGLE###(input parameter) is the angle, in degrees, at which
  the axis is to be drawn.  Normally this value is 0.0
  for the X-axis and 90.0 for the Y-axis.
FIRSTV##(input parameter) is the starting value  which  will
  appear  on  the first 'tick' mark of the axis.  This
  value, if  computed  by  SCALE  will  be  stored  at
  location  ARRAY(NPT+1).  Only two decimal places
  will be on the annotations.
DELTAV##(input parameter) is the number of  data  units  per
  inch  of  axis.  This value which is added to FIRSTV
  for each succeeding 1 inch division along the  axis,
  if   computed   by   SCALE,   will   be   stored  at
  ARRAY(NPT+2).
.autoparagraph
.left margin 5.paragraph 5,1
.note
Each call to AXIS will draw a single axis line and label it.
The creation of an (X,Y) coordinate system is accomplished by
two references to the subroutine AXIS.
.end note
.;End of AXIS.RNO
.;Start of DASHLN.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'DASHLN'\&
.index <DASHLN
.index Subroutine ><DASHLN

  DASHLN is used to draw either a solid or dashed line between
two points.
.blank.center;********** calling sequence **********
.blank.center;CALL DASHLN (X0,Y0,XN,YN,DASH)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is the coordinate, in  inches,  of
  the starting end of the line segment.
(XN,YN)#(input parameter) is the coordinate, in  inches,  of
  the terminating end of the line segment.
DASH####(input parameter) is a flag to tell whether a  solid
  or dashed line segment is desired.
.paragraph -9,0
(DASH _<= 0) makes the line segment solid.
(DASH >  0) makes the line segment  dashed.   DASH
  is the length, in inches.
.autoparagraph
.left margin 5.paragraph 5,1
.note
The first and last segments of the line are always drawn
with the pen down - this is so that the ends of the line are
clearly marked.
The length of DASH should be much smaller
than the distance between (X0,Y0) and (XN,YN).
.end note
.;End of DASHLN.RNO
.;Start of GRID.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'GRID'\&
.index <GRID
.index Subroutine ><GRID

  GRID draws a linear grid.
.blank.center;********** calling sequence **********
.blank.center;CALL GRID (X0,Y0,DELX,DELY,NXSP,NYSP)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is the coordinate, in  inches,  of
  the lower left hand corner of the grid.
DELX####(input  parameter)  is  the  distance,  in   inches,
  between the grid lines in the X direction.
DELY####(input  parameter)  is  the  distance,  in   inches,
  between the grid lines in the Y direction.
NXSP####(input parameter) is the number of grids  in  the  X
  direction.
NYSP####(input parameter) is the number of grids  in  the  Y
  direction.
.autoparagraph
.left margin 5.paragraph 5,1
.note
GRID will generate a linear grid of any size.  The number of
lines  drawn is NXSP + 1 in the X direction (vertical lines)
and NYSP + 1 in the Y direction (horizontal lines).
.end note
.;End of GRID.RNO
.;Start of LINE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'LINE'\&
.index <LINE
.index Subroutine ><LINE

  LINE enables a user to plot (X,Y) pairs of data values  from
an X array and a Y array.  LINE computes the position on the
page of each plotted point from the data values and  scaling
parameters  in  the  two  arrays.   The  data  points may be
represented by centered symbols with or  without  connecting
lines.  The connecting lines may be solid or dashed.
The scaling parameters, FIRSTV and DELTAV,  as  detailed  in
.index <SCALE ><FIRSTV
.index <SCALE ><DELTAV
subroutine SCALE, must be found in the last two locations of
each array.  These values, if  not  computed  by  subroutine
SCALE, must be supplied by the user.
.blank.center;********** calling sequence **********
.blank.center;CALL LINE (XARRAY,YARRAY,NPNTS,ILINE,ISYSB,DASH)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
XARRAY##(input parameter) is the name of the one dimensional
  array  containing the X (abscissa) values along with
  the scaling values for this array.
YARRAY##(input parameter) is the name of the one dimensional
  array  containing the Y (ordinate) values along with
  the scaling values for this array.
NPNTS###(input parameter) is the number of  data  points  in
  the  XARRAY and YARRAY.  Note:  The number of points
  in both  arrays  must  be  the  same.   This  number
  does not include the two extra locations required for
  scaling parameters.
ILINE###(input parameter) is a flag  used  to  describe  the
  type of line to be drawn through the data points.
.paragraph -9,0
(ILINE = 0) points  are  connected   by   straight
  lines, no centered symbols are plotted.
(ILINE > 0) points are connected by straight lines
  and a centered symbol is drawn at each point.
(ILINE _< 0) centered symbols are plotted  at  each
  point without connecting lines.
.paragraph -15,1
ISYMB###(input parameter) is the integer equivalent  of  the
  desired centered symbol.
DASH####(input parameter) is a  flag  to  tell  whether  the
  connecting lines are solid or dashed.
.paragraph -9,0
(DASH <= 0) make the connecting lines solid.
(DASH >  0) make  the  connecting  lines   dashed.
  DASH is the length, in inches.
.autoparagraph
.left margin 5.paragraph 5,1
.note
For the dashes to show up, the length of the dashes must be
much smaller than the distance between consecutive points.
Subroutine LINE should not be used to plot a large number
of points close together.
.end note
.;End of LINE.RNO
.;Start of LOGAX.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'LOGAX'\&
.index <LOGAX
.index Subroutine ><LOGAX

  LOGAX is used to draw a logarithmic axis with any number  of
cycles.  Each cycle is labelled.
.blank.center;********** calling sequence **********
.blank.center;CALL LOGAX (X0,Y0,NCHR,ITITLE,ANGLE,AXSLEN,NCYC,IEXP)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is  the  coordinate  position,  in  inches,  of  the
  starting point for the axis.
NCHR####(input parameter) specifies the number of characters in the title  and
  on  which  side of the axis the labeling information
  will be written.
.paragraph -9,0
(NCHR > 0) make the 'tick' mark,  annotation,  and
  header  placement on the counterclockwise side
  of the axis.
  This condition is normally desired for the Y-axis.
(NCHR = 0) make the  'tick'  mark  and  annotation
  placement on the counter-clockwise side of the
  axis.  There is no  header on this axis.
(NCHR _< 0) make the 'tick' mark, annotation,  and
  header  placement on the clockwise side of the axis.
  This condition is normally desired for the X-axis.
.paragraph -15,1
ITITLE##(input parameter) is the  title  for  the  axis.
  This  title  is  centered and placed parallel to the
  axis line.  ITITLE is either a Hollerith literal, or an
  array containing five left justified characters per word.
  The  title has  a  fixed
  height of 0.15 inch.
ANGLE###(input parameter) is the angle, in degrees, at which the axis is to be
  drawn.   Normally  this  value is 0.0 for the X-axis
  and 90.0 for the Y-axis.
AXSLEN##(input parameter) is the length, in inches, of the axis line.
NCYC####(input parameter) is the number of logarithmic cycles wanted.
IEXP####(input parameter) is the lower exponent limit for the axis.
  The base of the first cycle is labeled with 10**IEXP.
.autoparagraph
.left margin 5.paragraph 5,1
.note
The creation of an (X,Y) coordinate system is
accomplished by two references to subroutine
LOGAX.
.end note
.;End of LOGAX.RNO
.;Start of LOGAXS.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'LOGAXS'\&
.index <LOGAXS
.index Subroutine ><LOGAXS

  LOGAXS is used to draw a logarithmic axis with any number of
cycles, with only some of the cycles labelled.
.blank.center;********** calling sequence **********
.blank.center;CALL LOGAXS (X0,Y0,NCHR,ITITLE,ANGLE,AXSLEN,
.center;NCYC,IEXP,LABTIC)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameters) is the  coordinate  position,  in
  inches, of the starting point for the axis.
NCHR####(input parameter) specifies the number of characters
  in  the  title  and  on  which  side of the axis the
  labeling information will be written.
.paragraph -9,0
(NCHR > 0) make the 'tick' mark,  annotation,  and
  title  placement  on the counterclockwise side
  of the axis.
  This condition is normally desired for the Y-axis.
(NCHR = 0) make the  'tick'  mark  and  annotation
  placement on the counter-clockwise side of the axis.
  There is no title on this axis.
(NCHR _< 0) make the 'tick' mark,  annotation,  and
  title  placement  on the clockwise side of the axis.
  This condition is normally desired for the X-axis.
.paragraph -15,1
ITITLE##(input parameter) is the title
  for  the  axis.   This  title is centered and placed
  parallel to the axis line.  ITITLE is either a Hollerith literal, or an
  array containing five left-justified characters per word.
  The title has a fixed height of 0.15 inch.
ANGLE###(input parameter) is the angle, in degrees, at which
  the axis is to be drawn.  Normally this value is 0.0
  for the X-axis and 90.0 for the Y-axis.
AXSLEN##(input parameter) is the length, in inches,  of  the
  axis line.
NCYC####(input  parameter)  is  the  number  of  logarithmic
  cycles wanted.
IEXP####(input parameter) is the lower exponent limit for the
  axis.  The base of the first cycle is labeled with 10**IEXP.
LABTIC##(input parameter) is the labeling interval for
  the 'tick' marks.  For example, if LABTIC = 3, every
  third 'tick' mark is labeled.  If (LABTIC <= 0) no labeling will be done.
.autoparagraph
.left margin 5.paragraph 5,1
.note
The creation of an (X,Y) coordinate system  is  accomplished
by two references to subroutine LOGAXS.
.end note
.;End of LOGAXS.RNO
.;Start of SCALE.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'SCALE'\&
.index <SCALE
.index Subroutine ><SCALE

  Subroutine  SCALE  is  used  to  examine  the  data   values
contained in an array to determine:
.autotable
.left margin 10.paragraph -4,1
1) A  starting  value,  (FIRSTV) which is an adjusted minimum, or
  maximum value for the array (see NPT).
2) A scaling factor, (DELTAV) which is positive or negative such that:
.left margin 15
A) The  scale  annotation  drawn  by  AXIS  on  each
  division 'tick' mark  will  properly  represent  the range of
  real data values in the array.
B) The data points, when plotted by LINE will fit within the
  given plotting area.
.autoparagraph
.left margin 5.paragraph 5,1

  These two values (FIRSTV and DELTAV)
.index <SCALE ><FIRSTV
.index <SCALE ><DELTAV
are computed by SCALE and stored  in  the
two  locations  at  the  end of the data array used.
The scaling factor (DELTAV) that is computed represents  the
number  of  data units per inch of axis, but is adjusted
so that it is always an interval of 1, 2, 4, 5, or 8 * 10**N
(N  is  an  exponent  consistent  with  the  original
unadjusted scaling factor).  This adjustment insures that
the axes can be labeled with integer numbers.

  The starting value (FIRSTV) which would appear as the  first
annotation  on  the  axis,  is  computed as some multiple of
DELTAV that is equal to or outside the limits of the data in
the  array.

  For example, consider an  array
having  a range of values from 301 to 912 to be plotted over
an axis of 10 inches.   The  unadjusted  scaling  factor  is:
.blank.center;(912 -  301.0)  /  10.0  = 61.1 units/inch.
.blank
The adjusted DELTAV would be 80.0 (8#*#10**1).
In this example, a FIRSTV of 240.0 would be chosen as the best  value
if a minimum is returned; 1040.0 would be chosen as the
best value for the maximum.

  In another example, values from -1.0 to +1.0 are to be plotted
over a 5 inch axis.
.blank.center;(+1.0 - (-1.0)) / 5.0 = 0.4 units/inch
.blank
DELTAV = 4#*#10**-1, FIRSTV = -1.2 for a minimum, or +1.2 for
a maximum.  Note that 5 inches from -1.2 is +0.8, although
the data goes to +1.0, which is past the top of the axis.
.test page 20
.blank.center;********** calling sequence **********
.blank.center;CALL SCALE (ARRAY,AXSLEN,NPT)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
ARRAY###(input parameter) is the array of data points to  be
  examined.
.note
  This array must be dimensioned for at least two more elements
  than the number of values being scanned to allow
  SCALE to store the computed starting value and the scaling factor
  at the end of the array.
.end note
AXSLEN##(input parameter) is the  length  of  the  axis,  in
  inches,  to  which  the  data is to be scaled.  It's
  value must be greater than 1.  If the value given is
  not  a whole number, the value given will be rounded
  to the next lowest whole number and this value  will
  be used for calculations.
NPT#####(input parameter) is the number of data values to be
  scanned   within  the  array.
.paragraph -9,0
(NPT > 0) return FIRSTV as the minimum value.
(NPT _< 0) return FIRSTV as the maximum value, and use
  the absolute value of NPT as the number of data points.
.paragraph -15,1
  FIRSTV  is  returned   to   the   user   in  ARRAY(NPT+1)
.blank
  DELTAV is returned to the user in  ARRAY(NPT+2).
.autoparagraph
.left margin 5.paragraph 5,1

  Generally, subroutine SCALE is referenced  to  examine  each
array  to  be  plotted.   if the user knows the range of his
data values, he doesn't have  to  reference  SCALE  for  the
array  as  long  as  he  supplies  an appropriate FIRSTV and
DELTAV when the axes subroutines  and  subroutine  LINE  are
called.

.note
Unlike the other routines in described in this chapter, subroutine
SCALE does not do any plotting.
.end note
.;End of SCALE.RNO
.;Start of LABEL.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Labeling Routines
.test page 30
.indent -5.hl 1 ^&LABELING ROUTINES\&
.index Software >Labeling routines

  The routines used to label plots allow the user full freedom of
choice on symbol placement, size and orientation, as well as a fairly
full selection of alphabet styles for the characters.  The symbol sets
available to the user can be changed with the SETSYM routine.

  See the description of SETSYM for a list of character tables.
.index <SETSYM
Examples of the character sets is plotted in the appendix.

  The basic routine for symbol generation is SYMBOL, which actually makes the
calls to PLOT that define the pen strokes for the desired character.  The
routine NUMBER is a routine that is designed to make the generation of numeric
labels convenient.  Careful use of the labeling routines will enhance the
plot by attractively calling attention to the labeled features for easy
identification.

  These routines are the included in FORLIB, the FORTRAN
library.  Unlike the CALCNT and PLOT3D routines, FORLIB routines
get loaded automatically whenever they are needed.
.skip 3
  The Labelling Routines are:
.list
.le;NUMBER - Draw a floating-point number.
.le;SETSYM - Select a symbol set.
.le;SYMBOL - Draw text on the plot.
.end list
.;End of LABEL.RNO
.;Start of NUMBER.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'NUMBER'\&
.index <NUMBER
.index Subroutine ><NUMBER

  Subroutine NUMBER will draw a floating-point number  on  the
plotter.  This routine converts the number to a string of digits
and then calls subroutine SYMBOL.
.index <SYMBOL

.blank.center;********** calling sequence **********
.blank.center;CALL NUMBER (X0,X0,HEIGHT,FNUM,ANGLE,NDIG,IRAD)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameters) is the coordinate, in inches,  of
  the lower left hand corner of the first character to
  be drawn (before rotation).  The value of 999.0 for
  X0 or Y0 means to not change the appropriate pen coordinate.
.index 999 ><NUMBER

HEIGHT##(input parameter) is the height, in inches,  of  the
  digits to be drawn.
FNUM####(input parameter) is the floating-point number  that
  is to be converted and plotted.
ANGLE###(input parameter) is the angle, in degrees, at which
  the number is to be plotted.
NDIG####(input parameter)  controls  the  number  of  digits
  plotted.
.paragraph -9,0
(NDIG >  0) the number of digits to the  right  of
  the  decimal point that are to be plotted.  If
  NDIG is greater than eight, only eight
  digits will be plotted.
(NDIG =  0) only the integer portion of the number
  and the decimal point will be plotted.
(NDIG = -1) only the integer portion of the number
  will be plotted.
(NDIG < -1) the absolute value of NDIG - 1  digits
  will  be  truncated  from  the integer portion
  before plotting.
.paragraph -15,1
IRAD####(input parameter) is  an  optional  argument.   This
  argument allows the user to specify the output radix
  of the number.  If IRAD equals eight  the  number
  will be plotted in octal, etc.
.autoparagraph
.left margin 5.paragraph 5,1
.blank.center;^&Example\&
.blank
.literal
      PI = 3.14159
      CALL NUMBER (999.0, 999.0, 0.1, PI, 90.0, 2)
CC That drew '3.14' at 90 degrees, at the last
CC  pen position
.end literal
.;End of NUMBER.RNO
.;Start of SETSYM.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'SETSYM'\&
.index <SETSYM
.index Subroutine ><SETSYM

  The SETSYM routine changes the character set used by the SYMBOL routine.
The system character sets are stored in SYS:SYMBOL.DAT[1,4], users may
use a private set if they define the logical device name SYMBOL:.
.blank.center;********** calling sequence **********
.blank
.center;CALL SETSYM(IFUNC,IARG,IANS)
.blank
.center;or
.blank
.center;CALL SETSYM('WIDTH',LETTER,WIDTH)
.blank.center;**************************************
.autotable
.left margin 20.paragraph -15,1
IFUNC###(input parameter) is the function to perform.
IARG####(input parameter) is the argument for the function.
IANS####(output parameter) is the returned value.
.paragraph -15,0
.skip 2
(IFUNC = 'TABLE') change the character set table.  If IARG is
  positive, read that table from SYS:SYMBOL.DAT[1,4] (like the old
  ISETAB function).  If IARG is negative, read that table from
  SYMBOL:SYMBOL.DAT[-] (like the old MSETAB function).
#####IARG = (input parameter) The table to read.
#####IANS = (output parameter) The error flag.  0 means table set up,
  -1 means an error was encountered.
.skip
(IFUNC = 'QUERY') read the number of the current table and return it in IANS.
#####IARG = (ignored)
#####IANS = (output parameter) The current table number.
.skip
(IFUNE = 'WIDTH') read the width of the character as compared to the height.
#####IARG = (input parameter) Either a single character between quotes,
  or an integer with the ASCII code of the character.
#####WIDTH = (output parameter) The ratio of width to height, usually
  in the neighborhood of 0.67, and returned as 0.0 if no such character.
.autoparagraph
.left margin 5.paragraph 5,1
.skip 4.test page 15
.center;^&Symbol#Tables\&
.index Symbol sets >available
.blank
.no fill.list
Table			Upper	Lower	Numbers	Punctu-
			Case	Case		ation
.skip
1##CSM#Standard	yes	yes	yes	yes
2##CSM#secondary	yes	no	yes	yes
3##Olde#English	yes	yes	yes	yes
4##Old#German		yes	yes	no	no
5##Old#Italian		yes	yes	no	no
6##Script		yes	yes	no	no
7##Simplex#Roman	yes	yes	yes	yes
8##Simplex#Italics	yes	yes	yes	yes
9##Triplex#Roman	yes	yes	yes	yes
10#Triplex#Italics	yes	yes	yes	yes
11#Hershey's letters	yes	yes	yes	yes
12#Simplex#Greek	yes	yes	no	no
13#Duplex#Greek 	yes	yes	no	no
.end list
.fill

  The CSM software retains only one symbol table at any given time;
it contains the description of  alphabetic and numeric symbols, and
SETSYM table _#1 contains a set of centered symbols for marking points.
.test page 25

  There are 26 centered symbols in the CSM standard symbol table
(SETSYM table number 1).  The exact same centered symbols
appear in the CSM secondary table (SETSYM table number 2).
These symbols are:
.blank
.test page 16
.center;^&Centered Symbols\&
.index Centered symbols
.index Symbol sets >Centered symbols
.blank
.no fill.left margin 10
0     Square box            13     Vertical bar
1     Circle                14     Five pointed star
2     Triangle              15     Horizontal bar
3     Plus sign             16     Digit '0'
4     X                     17     Digit '1'
5     Diamond               18     Digit '2'
6     Up arrow              19     Digit '3'
7     X with top bar        20     Digit '4'
8     Z                     21     Digit '5'
9     Y                     22     Digit '6'
10    Square Star           23     Digit '7'
11    Asterisk              24     Digit '8'
12    Hourglass             25     Digit '9'
.fill.left margin 5
.;End of SETSYM.RNO
.;Start of SYMBOL.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'SYMBOL'\&
.index <SYMBOL
.index Subroutine ><SYMBOL

  The  SYMBOL  subroutine  draws  alpha-numeric   strings   or
centered  symbols of any height (minimum = 0.02 inches) at
any angle.  There are 3 modes of operation for this routine:
  Mode 1:  Draw text for titles and captions (NCHR > 0).
  Mode 2:  Draw a single character or symbol (NCHR = 0).
  Mode 3:  Draw a single centered symbol (NCHR _< 0).
.blank.center;********** calling sequence **********
.blank.center;CALL SYMBOL (X0,Y0,HEIGHT,ICHARS,ANGLE,NCHR)
.blank.center;**************************************
.blank
.test page 10
^&Modes 1 and 2:\&
.autotable
.left margin 20.paragraph -15,1
(X0,Y0)#(input parameter) is the coordinate, in  inches,  of
  the lower left hand corner of the first character to
  be drawn, before rotation by ANGLE.  The pen  is  up
  while moving to this point.  If X0 and/or Y0 are set
  to 999.0, the next symbol will be drawn as a continuation of the
.index 999 ><SYMBOL
  text previously drawn (the pen will not be repositioned from
  its current position at the end of the text).
HEIGHT##(input parameter) is the height, in inches,  of  the
  character(s)   to  be  drawn.   For  symbol  library
  character set  1  the  width/height  is  8/8,  this
  includes  the  spacing.  For example, a string of 16
  characters 0.15 inches  high  will  be  2.40  inches
  wide.  This is not true for other symbol sets.
ICHARS##(input parameter) is the  text  to  be  drawn.
.paragraph -9,0
(for mode 1) ICHARS is either a literal enclosed by apostrophes, or an array
  containing five left-justified characters per element.
(for mode 2) ICHARS(1) is the number  of  the  desired
  character. ICHARS may be an array or an undimensioned variable.
.paragraph -15,1
ANGLE###(input parameter) is the angle in degrees  at  which
  the text is to be plotted.
NCHR####(input parameter) the mode of operation.
.paragraph -9,0
(NCHR > 0) is  the  number  of  characters  to  be
  plotted from the ICHARS array (Mode 1).
(NCHR = 0) indicates that 1 character,
  as shown in ICHARS, is to be plotted (Mode 2).
.skip 2.test page 20
.paragraph -15,1
^&Mode 3:\&
(X0,Y0)#(input parameter) is the coordinate, in  inches,  of
  the  center  of  the  centered  symbol.   The  pen is
  returned to this point after the  special  character
  is drawn.
HEIGHT##(input parameter) is the height  and  width  of  the
  desired symbol.
ICHARS##(input parameter) is the integer equivalent  of  the
  desired  symbol,  ICHARS(1)  equals the value of the
  integer equivalent.  ICHARS may be an array or an undimensioned variable.
ANGLE###(input parameter) is the angle in degrees  at  which
  the symbol is to be plotted.
NCHR####(input parameter) is negative and determines whether
  the pen is up or down during the move to (X0,Y0).
.paragraph -9,0
(NCHR = -1) the pen  is  up  during  the  move  to
  (X0,Y0).
(NCHR = -2) the pen is down  during  the  move  to
  (X0,Y0).
.autoparagraph
.left margin 5.paragraph 5,1
.note
The text symbols (in CSM library symbol table 1) are
generated  on  an  8 by 8 point (X,Y) grid with the starting
point at the lower left corner, and finish point at the lower
right corner.  The special characters  are
generated  on a 5 by 5 point grid with the starting and finishing points at
the center.  The coordinates (Xn,Yn) of the lower left  hand
corner of the Nth character to be plotted are given by:
.blank.center;Xn = X0 + (N-1) * HEIGHT * COS(ANGLE)
.center;Yn = Y0 + (N-1) * HEIGHT * SIN(ANGLE)
.end note
.;End of SYMBOL.RNO
.;Start of OBSOL.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Obsolete Functions
.test page 30
.test page 5.indent -5.hl 1 OBSOLETE FUNCTIONS
.index Obsolete functions

  The following FUNCTION subprograms are obsolete:
.list
.le;IPLOT##- Replaced by subroutine PLOTS.
.le;ISETAB#- Replaced by subroutine SETSYM.
.le;MSETAB#- Replaced by subroutine SETSYM.
.end list
.;End of OBSOL.RNO
.;Start of IPLOT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.indent -5.hl 2 ^&Function 'IPLOT'\&
.index <IPLOT
.index Subroutine ><IPLOT
  This routine is obsolete.  Subroutine PLOTS should be used to
initiate the plot.  The change was made to be compatible with
DEC-supplied plotting routines, and to allow the plotter type
to be explicitly specified.

  As an interim measure, a dummy IPLOT routine is provided.  It
does the following:
.literal

	FUNCTION IPLOT(IWARN)
	IPLT = 0		!Zero means default plotter
	IERR = IWARN		!Number of messages to trace
	CALL PLOTS(IPLT,IERR)	!Call the right routine
	IPLOT = IERR		!Zero means OK
	RETURN
	END

.end literal

.note
Subroutine IPLOT will eventually go away.  All programs that use
IPLOT should be modified to use PLOTS instead.
.end note
.;End of IPLOT.RNO
.;Start of ISETAB.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 23.indent -5.hl 2 ^&Function 'ISETAB'\&
.index <ISETAB
.index Subroutine ><ISETAB
  This routine has been replaced.
Subroutine SETSYM should be used to change the data table for subroutine SYMBOL.

  As an interim measure, a dummy ISETAB routine is provided.  It
does the following:
.literal

	FUNCTION ISETAB(ITABLE)
	CALL SETSYM('TABLE',ITABLE,IERR) !Call the right routine
	ISETAB = IERR			 !Zero means OK
	RETURN
	END

.end literal

.note
Subroutine ISETAB will eventually go away.  All programs that use
ISETAB should be modified to use SETSYM instead.
.end note
.;End of ISETAB.RNO
.;Start of MSETAB.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 23.indent -5.hl 2 ^&Function 'MSETAB'\&
.index <MSETAB
.index Subroutine ><MSETAB
  This routine has been replaced.  Subroutine SETSYM should be used to
change the data table for subroutine SYMBOL.

  As an interim measure, a dummy MSETAB routine is provided.  It
does the following:
.literal

	FUNCTION MSETAB(ITABLE)
	CALL SETSYM('TABLE',-ITABLE,IERR) !Call right routine
	MSETAB = IERR			 !Zero means OK
	RETURN
	END

.end literal

.note
Subroutine MSETAB will eventually go away.  Any programs that use
MSETAB should be modified to use SETSYM instead.
.end note
.;End of MSETAB.RNO
.;Start of CONTUR.RNO
.chapter Contouring and 3-D Routines
.left margin 5.right margin 64.spacing 1.autoparagraph

.title Contour Map Routines
.indent -5.hl 1 ^&CONTOURING ROUTINES\&
.index Software >Contouring routines
  The routines CALCNT, GRIDER, and CALSIZ allow the user
to take data that is (X,Y,Z) triples, reduce the data to
equally spaced 'grided' data, and plot the information as
a contour map of a specified size.  The user should be very
aware of the fact that the basic (X,Y,Z) data provided to
subroutine GRIDER is changed according to internal algorithms
to make equally spaced data.  It is the gridded data that is
plotted, NOT the users original data, and the gridded data may
contain 'artifacts'.  The artifacts are artificial highs
or lows at a points in the gridded data array caused by
the algorithm used to make equally spaced data.

  To use these routines you must include LBY:CALCNT.REL as part
of your LOAD or EXECUTE command.  For example:
.blank
.center;&.EXECUTE MYPROG.FOR,LBY:CALCNT.REL
.skip 4
The CALCNT contouring routines consist of:
.list
.le;CALCNT - Draws the contour from equally spaced data
.le;CALSIZ - Changes the size of the contour map
.le;GRIDER - Transforms (X,Y,Z) to equally spaced data
.end list
.;End of CONTUR.RNO
.;Start of CALCNT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'CALCNT'\&
.index <CALCNT
.index Subroutine ><CALCNT

  This program will draw contours on a rectangular area  which
has been defined by equally spaced data, i.e.  gridded data.
The size of this area is normally 8 inches by 8  inches,  if
the  X  and Y lengths are equal.  If they are not equal, the
longer side of the rectangle will be 8 inches.  The size may
be  altered  by  referencing  subroutine  FACTOR  or CALSIZ.
Subroutine FACTOR will scale the entire plot up or down  and
subroutine  CALSIZ  will  only  increase or decrease the map
size,  the  characters  in  the  legend  and   the   contour
elevations will stay the same size.
.blank.center;********** calling sequence **********
.blank.center;CALL CALCNT (X,Y,GRID,IX,IY,MAXX,MAXY,CLOW,CHIGH,
.center;CINT,NELEV,LOWHI)
.blank.center;**************************************
.blank.left margin 14
.blank.indent -9
(X,Y)###(input parameter) is the coordinate, in  inches,  of
the  lower  left hand corner of the contour map.
Allow about .26 inches at the bottom of the map if
the legend is wanted.  Allow about one (1) inch on
each side of the map if the elevations are to be labeled.
.blank.indent -9
GRID####(input  parameter)  is  the  two  dimensional  array
containing the values to be contoured.  The location
of a point on the map is defined by the position  of
a point in the matrix.
.blank.indent -9
IX######(input parameter) is the number of contoured grids  in  the  X
direction.
.blank.indent -9
IY######(input parameter) is the number of contoured grids  in  the  Y
direction.
.blank.indent -9
MAXX####(input parameter) is the GRID array X  dimension.
.blank.indent -9
MAXY####(input parameter) is the GRID array Y dimension.
.blank.indent -9
CLOW####(input parameter) is the lowest contour value.
.blank.indent -9
CHIGH###(input parameter) is the highest contour value.   If
both  CLOW  and  CHIGH are zero, they will be set to
the minimum and maximum of GRID array.
.blank.indent -9
CINT####(input parameter) is the contour interval.
.left margin 22
.indent -9
(CINT > 0) CINT is the contour interval.
.indent -9
(CINT = 0) the contour interval is set equal to
(CHIGH - CLOW) / 16.
.indent -9
(CINT < 0) the contour interval is set equal to
(CHIGH - CLOW) / (-CINT).
.blank.left margin 14
.blank.indent -9
NELEV###(input parameter) indicates contour elevations along
the right and left hand sides of the map.
.left margin 22
.indent -9
(NELEV > 0) the contour  level  label interval,  i.e.   if
NELEV = 3 label every third contour.
.indent -9
(NELEV = 0) do not label any contours.
.indent -9
(NELEV < 0) do not label contours or  draw a perimeter.
.blank.left margin 14
.blank.indent -9
LOWHI###(input parameter) indicates lows and highs.
.left margin 22
.indent -9
(LOWHI <= 0) do not mark the lows and highs.
.indent -9
(LOWHI >  0) mark the lows and  highs.   The  lows
are  marked  with  an  'L'  and  the highs are
marked with an 'H'.
.left margin 5.note
The legend and the perimeter around the map are drawn  using
the  blue pen, every fifth (5th) contour is drawn in black,
and the lows and highs are drawn in red.
.end note
.;End of CALCNT.RNO
.;Start of CALSIZ.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'CALSIZ'\&
.index <CALSIZ
.index Subroutine ><CALSIZ

  CALSIZ allows the user to change the size of the contour map
to be plotted.  CALSIZ is used with subroutine CALCNT.
.blank.center;******** calling sequence **********
.blank.center;CALL CALSIZ (X,Y)
.blank.center;************************************
.left margin 14
.blank.indent -9
X#######(input parameter) is the maximum X direction size allowed
for the map, in inches.
.blank.indent -9
Y#######(input parameter) is the maximum Y direction size allowed
for the map, in inches.
.left margin 5.note
This routine will NOT cause the contour map to be expanded
in one direction only.  The grid will remain
square, and the map will be uniformly reduced to fit the most
demanding dimension.  When using this  routine  allow  about
an  inch on both sides of the map  in  the  X
direction for the contour elevation label.
.end note
.;End of CALSIZ.RNO
.;Start of GRIDER.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 2 ^&Subroutine 'GRIDER'\&
.index GRIDER
.index Subroutine ><GRIDER

  GRIDER  allows  the  user   to   grid   irregularly   spaced
three-dimensional  data into equally spaced gridded data.  A
weighted moving average technique is used to grid the data.
.blank.center;********** calling sequence **********
.blank.center;CALL GRIDER (N,X,Y,Z,GRDSIZ,IX,IY,ZZ,NX,NY,
.center;MXMN,XMAX,XMIN,YMAX,YMIN,ZMAX,ZMIN)
.blank.center;**************************************
.left margin 14
.blank.indent -9
N#######(input  parameter)  is   the   number   of   (X,Y,Z)
three-dimensional data sets to be gridded.
.blank.indent -9
(X,Y,Z)#(input  parameters)  are  the  coordinates  of   the
irregularly  spaced  three-dimensional  data  to  be
gridded.
.left margin 22
.indent -9
(X) is an array that contains the X values.
.indent -9
(Y) is an array that contains the Y values.
.indent -9
(Z) is an array that contains the Z values.
.left margin 14
.blank.indent -9
GRDSIZ##(input parameter) is  the  desired  length  of  each
square in the grid.  If GRDSIZ is less that or equal
to zero GRIDER will calculate  the  best  grid  size
from the input data.
.indent -1
(output parameter) is the length of the each  square
in  the  grid.   Warning  - GRDSIZ may be changed by
subroutine GRIDER.
.blank.indent -9
IX######(input parameter) is the number of grid lines wanted
in  the  X  direction.   If  IX is less than two (2)
GRIDER will calculate the best  IX  from  the  input
data.
.indent -1
(output parameter) is the number of grid lines  used
in  the X direction.  Warning - IX may be changed by
subroutine GRIDER.
.blank.indent -9
IY######(input parameter) is the number of grid lines wanted
in  the  Y  direction.   If  IY is less than two (2)
GRIDER will calculate the best  IY  from  the  input
data.
.indent -1
(output parameter) is the number of grid lines  used
in  the Y direction.  Warning - IY may be changed by
subroutine GRIDER.
.blank.indent -9
ZZ######(output parameter) is the two-dimensional array that
contains the gridded data.
.blank.indent -9
NX######(input parameter) is  the  X  dimension  of  the  ZZ
array.  NX is the maximum value allowed for IX.
.blank.indent -9
NY######(input parameter) is  the  Y  dimension  of  the  ZZ
array.  NY is the maximum value allowed for IY.
.blank.indent -9
MXMN####(input parameter) is a flag on  whether  or  not  to
calculate the X and Y maximums and minimums.
.left margin 22
.indent -9
(MXMN = 0) calculate XMAX, XMIN, YMAX, and YMIN.
.indent -9
(MXMN <> 0) do not calculate XMAX, XMIN, YMAX,  and
YMIN, use what the user sends.
.left margin 14
.blank.indent -9
XMAX####(input parameter) is the maximum X value.
.indent -1
(output parameter) is the maximum X  value  used  by
subroutine GRIDER.  Warning - XMAX may be changed by
subroutine GRIDER.
.blank.indent -9
XMIN####(input parameter) is the minimum X value.
.indent -1
(output parameter) is the minimum X  value  used  by
subroutine GRIDER.  Warning - XMIN may be changed by
subroutine GRIDER.
.blank.indent -9
YMAX####(input parameter) is the maximum Y value.
.indent -1
(output parameter) is the maximum Y  value  used  by
subroutine GRIDER.  Warning - YMAX may be changed by
subroutine GRIDER.
.blank.indent -9
YMIN####(input parameter) is the minimum Y value.
.indent -1
(output parameter) is the minimum Y  value  used  by
subroutine GRIDER.  Warning - YMIN may be changed by
subroutine GRIDER.
.blank.indent -9
ZMAX####(output parameter) the maximum Z value.
.blank.indent -9
ZMIN####(output parameter) the minimum Z value.
.skip 2
.note
This routine does not do any plotting.
.end note
.;End of GRIDER.RNO
.;Start of 3DPLOT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.title 3-D Plot Routines
.indent -5.hl 1 ^&3-D ROUTINES\&
.index Software >3-^D Routines
  Documentation on SLIC3D, GRID3D, and LOOK3D to be supplied
at a later date.
.;End of 3DPLOT.RNO
.;Start of SETUP.RNO
.chapter PROGRAMMING TECHNIQUES
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.title Programming Techniques
.indent -5.hl 1 ^&Starting and Stopping Plotting\&
.index Programming Techniques
.index Plotting >Starting
.index Plotting >Stopping
.index Programming Techniques >Starting plotting
.index Programming Techniques >Stopping plotting
.index Starting Plots
.index Stopping Plots
The graphics software for plotting routines requires a specific
sequence of calls to routines in the package in order to properly
initialize the plotting package, and also to finish the plot correctly.
The subroutine PLOTS is used to set up the plotting package by checking
window privileges, getting the initial character set, and gathering
identification information for labeling the spooled output.  Subroutine
PLOTS must be called BEFORE any reference to a routine that tries to plot.

  Correct termination of a plotting sequence is made by calling PLOT
with a third argument of 999.  That is:
.blank
.blank.center; CALL PLOT (X,Y,999)
.index ^^PLOT(X,Y,999)
.index 999 ><PLOT
.blank
Failure to properly terminate a plot may cause loss of the plot in
handling because the spooling identification label will be missing.
Although a plot may be properly initialized, and terminated, it is possible
to lose information on a plot due to the window limitations.  When the plotting
routines are initialized, the origin of the universal plotting window is set
to the lower left corner of a default 11 by 11 inch window.  This default allows
only positive X and Y values to be plotted on the unadjusted window.  It is
common practice to move the plot origin away from the corner of the plot window
to allow a margin to contain title information, axis labels, and other
identification.
.blank
.test page 10.center; ^&Example\&

  This example properly initializes a plot, resets the origin to allow a
margin for notations, changes the default character set (with proper error
recovery), and correctly terminates the plot.
.literal
	   .
	   .
	   .
C
C  *** START PLOT OUTPUT ***
C
	IERR = 2		!Ask for 2 warnings
	CALL PLOTS(IERR,0)	!Start the plot
	IF (IERR.NE.0) STOP '?CANNOT OPEN PLOT'
C
C  *** SET ORIGIN TO ALLOW 1 INCH LEFT AND
C  *** BOTTOM MARGINS WHILE PLOTTING  ***
C
	CALL PLOT (1.0, 1.0, -3)
	   .
	   .
	   .
C
C  *** CHANGE TO SYMBOL SET #9 ***
C  *** CLOSE PLOT AND STOP  ***
C  *** IF ANY PROBLEMS OCCUR  ***
C
	CALL SETSYM('TABLE',9,IERR)
	IF (IERR.EQ.0) GOTO 400
	CALL PLOT (X,Y,999) ! Must close plot first !!!
	STOP '?FAILURE TO GET SYMBOL SET 9'
400     CONTINUE
	   .
	   .
	   .
C
C  *** CLOSE PLOTTING OUTPUT ***
C
	CALL PLOT (X,Y,999)
	STOP
	END
.end literal
.index <PLOT
.index <PLOTS
.index <SETSYM
.index <SYMBOL
.;End of SETUP.RNO
.;Start of EFFICY.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 1 ^&Debugging Technique\&
.index Debugging
.index Software >Debugging
.index Programming Techniques >Debugging

  Debugging should be done sequentially.

  First, be sure that your program is producing the  data  you
wish  to  plot  by using printouts before adding the plotter
routines.

  Second, be sure that you are plotting  the  curve  correctly
before  adding  lots  of  'ginger bread' (axis, title, grid,
etc.).

  Third, add the trimmings that produce an impressive plot.
.index Common Errors
.blank.center; Common Errors

  There are two common errors that give programmers doing plotting the most
trouble.
.list
.le;Not knowing what data values are being sent to the plotting routines.
Many apparent plotting errors are in fact incorrect data values being sent to
the plotting routines.  Please be sure to print a listing of the data and check
it for correctness before sending it to the plotter.
.le;Incorrect calling sequence for a given plotting
routine.  The error may be due to a lack of sufficient arguments for a routine
(missing arguments) or arguments of an incorrect type (e.g. the routine needs an
integer value, and you have supplied a real variable, or visa-versa).
.end list
.;End of EFFICY.RNO
.;Start of ERRORS.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.title Warning and Error Messages
.indent -5.hl 1 ^&Warning and Error Messages\&
.index Warning messages
.index Error messages
.index Software >Warnings
.index Software >Error messages
.index Plotting >Warnings
.index Plotting >Error messages

  The plotting package will issue warning and error messages for any
actions which cause detectable failures of attempts to plot.  The
warning messages begin with the percent sign (%) to indicate a non-fatal
error, and the program will continue.  The error messages will begin
with a question mark (?), and will be fatal errors, that is, the program
execution will be halted.
.blank
.blank.center;^&Warning Messages\&
.left margin 14
.blank.indent -9
%PLTWWE#The window was exceeded
.blank
A reference to subroutine PLOT exceeded the  current
window.
.blank.center;^&Error Messages (Fatal)\&
.blank.indent -9
?PLTCSP#Please contact the systems programmer.
.blank
This message means there is an error in the plotting
package that can not be self corrected.
.;End of ERRORS.RNO
.;Start of EXAMPL.RNO
.appendix SAMPLE PROGRAMS
.left margin 5.right margin 64.spacing 1.autoparagraph
.index Sample programs
.title Sample Programs

  This chapter contains an example of a program which plots a function
generated in a main program.  The subroutine LINPLT is then used
to plot this function on a linear-linear plot.

  The second program is the one used to plot the character sets
one through thirteen found at the end of the manual.
.test page 30.left margin 5.right margin 64.spacing 1
.autoparagraph
.index Example Programs

.indent -5.hl 1 ^&Example program _#1\&###LINPLT
  This program calls a user defined plotting routine called LINPLT.
.index <LINPLT
X is the arrary of X-values and Y is the array of sinc(X).
.blank
.index Example programs ><LINPLT
.literal
       DIMENSION X(10000),Y(10000)
       I=0
       DO 100 A=-360,360,.1
       I=I+1
       Y(I)=SIND(360*A/60)/A/ACOS(-1.)*180/(.5)
       X(I)=A  !generate the (X,Y) pair for SINC function
100    CONTINUE
       CALL LINPLT(X,Y,I)   !calling plotting subroutine
       STOP
       END
.end literal
.skip 3
.test page 10
.literal
       SUBROUTINE LINPLT(X,Y,N)
       DIMENSION X(N),Y(N),ITITLE(5)
       DATA ITITLE/'PLOT OF A SINC FUNCTION'/
       IERR=-9
 C     CALL PLOTS(IERR,'TEK')   !direct plotting on TEK
       CALL PLOTS(IERR,'SPOOL') !spooled output for DP-8
       CALL ERASE               !erase the screen if on TEK
       IF(IERR.NE.0)STOP 'PLOT PROBLEM'
       CALL PLOT(1.0,1.0,-3)
       IP=NEWPEN(2)
       CALL FACTOR(0.5)         !scale everything down
       CALL SYMBOL(1.5,4.25,.15,ITITLE,0.0,23)
       XLEN=9.0
       YLEN=4.0
       NPT=N-2
       CALL SCALE(X,XLEN,NPT)   !scaling routine for LINE
       CALL SCALE(Y,YLEN,NPT)
       CALL LINE(X,Y,NPT,0,5,0) !connect (X,Y) pairs
       CALL GRID(0,0,1.,1.,8,4) !put a grid on the plot
       CALL PAUSEP(45)          !pause for 45 sec if on TEK
       CALL ERASE
       CALL PLOT(W,V,999)
       RETURN
       END

.end literal
.;End of EXAMPL.RNO
.;Start of TABLES.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.skip 5.test page 30
.indent -5.hl 1 ^&Example program _#2\&###SYMBOL tables
  This is the program used to plot the thirteen symbol tables
found at the end of this manual.  It makes use of the SYMBOL and
SETSYM subroutines.
.blank
.index Example programs >Symbol table routines
.index <NUMBER
.index <SYMBOL
.index <SETSYM
.literal

	PROGRAM TABLES  !Draws the SYMBOL sets for Appendix D
	DIMENSION TTL1(9),TTL2(7),DATE(3)
	DATA TTL1/'CHARACTERS AVAILABLE IN SUBROUTINE "SYMBOL"'/
	DATA TTL2/'CHARACTER SET IN SETSYM TABLE # '/
	DATA DATE  /'OCTOBER 1982'/

C Loop through all 13 tables
	DO 40 ITABLE = 1,13
	TYPE 10, ITABLE
10	FORMAT(' Starting SETSYM table #',I2)
	IERR = 2                    !2 error messages
	CALL PLOTS(IERR,'SPOOL')    !Start the plot
	IF(IERR.NE.0)STOP 'PLOT FAIL'
	CALL PLOT(0.0,1.0,-3)       !Leave room for page numbers
	CALL FACTOR(0.80)           !Reduce size to 5.6 by 8.8

C Draw a box around the plot in blue
	CALL NEWPEN(1,IERR)         !Reset to blue pen
	CALL PLOT(0.0, 0.0,3)       !Lower left corner, pen up
	CALL PLOT(0.0,11.0,2)       !Left edge
	CALL PLOT(8.5,11.0,2)       !Top edge
	CALL PLOT(8.5, 0.0,2)       !Right edge
	CALL PLOT(0.0, 0.0,2)       !Bottom edge

C Draw the title using SETSYM table #1
	CALL SETSYM('TABLE',1,IERR) !Reset to standard table
	CALL NEWPEN(2,IERR)         !Change to blue pen
	ATYPE = FLOAT(ITABLE)       !NUMBER needs a REAL arg
	CALL SYMBOL(0.8,10.0,0.15,TTL1,0.0,43)  !Plot titles
	CALL SYMBOL(1.5,9.6,0.15,TTL2,0.0,32)
	CALL NUMBER(999.0,999.0,0.25,ATYPE,0.0,-1,10)

	X0 = 1.4 ; Y0 = 8.6         !Origin
C Change to new character set
	ITEMP = ITABLE              !Avoid warning from FORTRAN
	CALL SETSYM('TABLE',ITEMP,IERR)
	X = 1.5 ; Y = 9.2 ; H = 0.15
	CALL SYMBOL(X,Y,H,'ABCDEFGHIJKLMNOPQRSTUVWXYZ',0.0,26)
	Y = 9.0
	CALL SYMBOL(X,Y,H,'abcdefghijklmnopqrstuvwxyz',0.0,26)
.end literal
.test page 20
.literal
C Create 6 columns, octal 40 thru 160
	DO 20 ICOL = 2,7
	X = X0 + FLOAT(ICOL-2)*1.0 + 0.50
C Do 16 rows in each column
	DO 20 IROW = 0,15
	Y = Y0 - FLOAT(IROW)*0.5 - 0.5
	ICHAR = ICOL*16 + IROW
	CALL SYMBOL(X,Y,0.30,ICHAR,0.0,0)
20	CONTINUE	!End of DO IROW and DO ICOL

C Go back to standard characters and label each symbol
	CALL SETSYM('TABLE',1,IERR)
	IF(IERR.NE.0) STOP 'CANNOT CHANGE BACK TO #1'
	CALL SYMBOL(3.25,0.2,0.15,DATE,0.0,12)
	DO 30 ICOL = 2,7
	X = X0 + FLOAT(ICOL-2)*1.0
C Label the top of each column
	CALL SYMBOL(X,Y0,0.06,'DEC OCT SYM',0.0,11)
	DO 30 IROW = 0,15
	Y = Y0 - FLOAT(IROW)*0.5 - 0.5
	ICHAR = ICOL*16 + IROW
	AI = FLOAT(ICHAR)
	CALL NUMBER(X,Y,0.06,AI,0.0,-1,10)  !Decimal
	X3 = X + 0.24
	CALL NUMBER(X3,Y,0.06,AI,0.0,-1,8)  !Octal
30	CONTINUE        !End of DO IROW and DO ICOL

C Finish this plot correctly
40	CALL PLOT(X,Y,999)      !End of DO ITABLE=1,13
	END
.end literal
.index Symbol table routines ><NUMBER
.index Symbol table routines ><SYMBOL
.index Symbol table routines ><SETSYM
.;End of TABLES.RNO

.;Start of LBY.RNO
.appendix LIBRARY PROGRAMS
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Library Programs

  This appendix shows sample runs of plotting programs from the
System Library.
.list
.le;EZPLOT#- Draws simple graphs
.le;GRAPH##- Does curve approximation (spline fit)
.le;SIMPLT#- Rewrite of EZPLOT
.le;DRAW###- Interactive drawing for TEK 4012 or GIGI
.end list
.;End of LBY.RNO
.;Start of EZPLOT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.indent -5.hl 1 EZPLOT
.index Library programs ><EZPLOT
  EZPLOT is the old work horse plotting routine of the CSM library
and has been in use for many years.  This routine allows the user
to view his data in a quick and dirty fashion.  The program is
quick to use but does lack some of the frills of GRAPH or SIMPLT
.blank
.literal
	.RUN LBY:EZPLOT
	[11:59:05]
	

	DO YOU WANT GENERAL INSTRUCTIONS ? *YES

	DATA INPUT MUST BE REAL AND IN X,Y PAIRS.
	DATA MAY BE ENTERED FROM A TERMINAL
	OR READ FROM AN INPUT DATA FILE.
	
	YOU WILL BE ASKED TO SPECIFY LABELS FOR THE
	X AND Y AXES, TO DETERMINE THEIR LENGTHS,
	AND TO GIVE A TITLE FOR THE PLOT.
	
	YOU MUST SPECIFY WHETHER YOU WANT SYMBOLS PLOTTED
	AT EACH POINT, A CONNECTING LINE DRAWN, OR BOTH.
	NOTE: THE LINE MAY BE DASHED OR SOLID.
	
	YOU WILL BE GIVEN THE OPTION OF A LINEAR-LINEAR,
	LINEAR-LOG, LOG-LINEAR OR LOG-LOG PLOT.
	
	YOU MAY SELECT AUTO SCALING, IN WHICH CASE THE
	MAX AND MIN VALUES OF THE ARRAY ARE USED FOR SCALING,
	OR YOU MAY SPECIFY THE UPPER AND LOWER
	BOUNDS TO BE USED FOR SCALING.
	
	IF MORE THAN ONE SET OF DATA WILL BE PLOTTED
	ON THE SAME AXES, SPECIFY AN UPPER BOUND AND A
	LOWER BOUND FOR THE FIRST SET OF DATA WHICH WILL
	ACCOMMODATE THE SUBSEQUENT SETS OF DATA.
	
	THE PEN WILL BE BLACK FOR THE FIRST SET OF DATA
	PLOTTED. YOU HAVE THE OPTION OF CHANGING THE COLOR
	FOR SUBSEQUENT SETS OF DATA ON THE SAME AXES.
	
	TYPE T IF YOU WISH TO TYPE IN DATA
	TYPE F IF YOU WISH DATA READ FROM A FILE
	*F

	WHAT IS THE NAME OF YOUR INPUT FILE ? *FOR10.DAT

	ENTER FORMAT OF DATA INCLUDING PARENS
	CANNOT EXCEED 30 CHARACTERS INCLUDING THE PARENS.
	*(2G)

	   4 DATA VALUES READ
	
	DO YOU WANT THE DATA TYPED ON YOUR TERMINAL ? *NO

	TYPE THE X-AXIS LABEL,20 CHARACTERS OR LESS
	*Title of x-axis

	TYPE THE Y-AXIS LABEL, 20 CHARACTERS OR LESS
	*Title of y-axis

	TYPE A TITLE FOR THE GRAPH,20 CHAR OR LESS
	*Title of plot

	IF YOU WANT A SYMBOL PLOTTED AT EACH POINT, TYPE -1
	IF YOU WANT A LINE DRAWN CONNECTING PTS, TYPE 0
	IF YOU WANT BOTH SYMBOLS AND A LINE, TYPE 1
	*0

	FOR A DASHED LINE, TYPE 1
	FOR A SOLID LINE, TYPE 0
	*1

	FOR LINEAR-LINEAR PLOT, TYPE 1
	FOR LINEAR-LOG PLOT, TYPE 2
	FOR LOG-LINEAR PLOT, TYPE 3
	FOR LOG-LOG PLOT, TYPE 4
	*1

	THE X AND Y AXES HAVE A MAX OF 9.0 INCHES
	TYPE THE LENGTH OF THE X AXIS
	*8

	TYPE THE LENGTH OF THE Y AXIS
	*8

	DO YOU WANT AUTOMATIC SCALING, Y OR N ? *Y

	ARE GRAPH SPECIFICATIONS CORRECT ?
	IF NOT, PROGRAM ASKS ALL GRAPH SPECS AGAIN.
	*Y

	DO YOU WANT ANOTHER SET OF DATA
	PLOTTED ON THE SAME SET OF AXES ? *N

	STOP
	
	End of Execution
.end literal
.note
The value or characters preceded by * are typed in by the user
.end note
.;End of EZPLOT.RNO
.;Start of GRAPH.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30
.indent -5.hl 1 GRAPH
.index Library programs ><GRAPH
  GRAPH is another library program.
.blank
.literal
.RUN LBY:GRAPH
[13:08:02]

    THIS A FINAL PLOTTING PROGRAM IN WHICH
    THE USER CAN PRODUCE A FINAL, POLISHED PLOT.
    THE USER SHOULD THOROUGHLY KNOW HIS DATA
    BEFORE RUNNING THIS PROGRAM.

    ENTER PLOT TITLE (--2-- LINES OF 50 CHAR. MAX.)
    (HIT THE <RETURN> AFTER EACH LINE.)
This is the title of the plot,
it is 2 lines long.

    FOR PLOT TITLE TO APPEAR AT TOP    --ENTER "T"
    FOR PLOT TITLE TO APPEAR AT BOTTOM --ENTER "B"
T

    CHOOSE THE TYPE OF GRAPH TO BE PLOTTED.
    LINEAR-LINEAR GRAPH --ENTER "1"
    LINEAR-LOG GRAPH    --ENTER "2"
    LOG-LINEAR GRAPH    --ENTER "3"
    LOG-LOG GRAPH       --ENTER "4"
1

    DO YOU WANT THE X-AXIS TO INTERSECT
    THE Y-AXIS AT SOME POINT OTHER THAN THE
    LOWER-LEFT CORNER OF THE GRAPH ?
NO

    THE X-AXIS WILL BE DEALT WITH FIRST.
    ENTER THE TITLE FOR THE AXIS (50 CHAR. MAX.)
This is the X-AXIS

    ENTER THE LENGTH FOR THE X-AXIS LINE(1" to 10").
10

    ENTER THE START AND END VALUES FOR X-AXIS.
    (LEFT VALUE , RIGHT VALUE)
0,10

    ENTER THE INCREMENT (IN DATA UNITS) BETWEEN
    LABELED TIC MARKS ALONG THE AXIS.
    (THESE TICS WILL BE LABELED)
1

    HOW MANY INTERMEDIATE DIVISIONS
    DO YOU WANT BETWEEN THE LABELED TICS?
    (THESE DIVISIONAL TICS WILL NOT BE LABELED.)
5

    IN LABELING THE AXIS, HOW MANY SIG FIGS
    DO YOU WANT PRINTED PAST THE DECIMAL?
    (IF DECIMAL POINTS ARE NOT DESIRED--ENTER "-1" )
1

    WAS ALL THE X-AXIS INFORMATION PUT IN CORRECTLY ?
Y

    THE Y-AXIS WILL NOW BE DEALT WITH.
    ENTER THE TITLE FOR THE AXIS (50 CHAR. MAX.)
This is the Y-AXIS

    ENTER THE LENGTH FOR THE Y-AXIS LINE(1" to 9").
7

    ENTER THE START AND END VALUES FOR Y-AXIS.
    (BOTTOM VALUE , TOP VALUE)
0,100

    ENTER THE INCREMENT (IN DATA UNITS) BETWEEN
    LABELED TIC MARKS ALONG THE AXIS.
    (THESE TICS WILL BE LABELED)
10

    HOW MANY INTERMEDIATE DIVISIONS
    DO YOU WANT BETWEEN THE LABELED TICS?
    (THESE DIVISIONAL TICS WILL NOT BE LABELED.)
5
    IN LABELING THE AXIS, HOW MANY SIG FIGS
    DO YOU WANT PRINTED PAST THE DECIMAL?
    (IF DECIMAL POINTS ARE NOT DESIRED--ENTER "-1" )
-1

    WAS ALL THE Y-AXIS INFORMATION PUT IN CORRECTLY ?
Y

    WHAT PEN COLOR DO YOU WANT FOR BOTH AXES?
    (BLUE, BLACK, OR RED)
BLUE

    WOULD YOU LIKE A GRID TO BE DRAWN ?
NO

    THE DATA WILL NOW BE DEALT WITH.
    TO ENTER THE DATA POINTS FROM YOUR TERMINAL--ENTER "T"
    TO ENTER THE DATA POINTS FROM A DATA FILE  --ENTER "F"
F

    WHAT IS THE NAME OF YOUR DATA FILE ?
TEST.DAT

    ENTER THE FORMAT OF YOUR DATA.
    (INCLUDE PARENTHESIS)
(2G)

    TO PLOT SYMBOLS AT THE DATA POINTS        --ENTER "-1"
    TO PLOT A LINE THROUGH THE DATA POINTS    --ENTER "0"
    TO PLOT BOTH LINE AND SYMBOLS             --ENTER "1"
    TO PLOT A DASHED-LINE                     --ENTER "2"
    TO PLOT BOTH DASHED-LINE AND SYMBOLS      --ENTER "3"
    TO PLOT A BEST-FIT-LINE OF THE DATA POINTS--ENTER "4"
         (POLYNOMIAL REGRESSION)
    TO PLOT BOTH BEST-FIT-LINE AND SYMBOLS    --ENTER "5"
5

    CHOOSE THE SYMBOL TO BE PLOTTED:
    SQUARE  --ENTER "0"
    CIRCLE  --ENTER "1"
    TRIANGLE--ENTER "2"
       +    --ENTER "3"
       X    --ENTER "4"
    DIAMOND --ENTER "5"
       *    --ENTER "6"
    LOZENGE --ENTER "10"
    STAR    --ENTER "14"
2

    WHAT PEN COLOR DO YOU WANT FOR THE PLOT?
BLACK

    WHAT DEGREE OF POLYNOMIAL WOULD YOU LIKE
    THE DATA POINTS TO BE FIT TO ?
2

    DO YOU WANT THE CURVE-FIT-LINE TO EXTEND
    TO THE EDGES OF THE GRAPH ?
Y

    THE COEFFICIENTS FOR THE BEST-CURVE-FIT
    LINE (IN ASCENDING ORDER) ARE:
     0.0000000
     0.0000001
     1.0000000
    DO YOU WANT TO PLOT MORE DATA ON THIS GRAPH ?
NO

    A PLOT FILE HAS BEEN CREATED, AND EXISTS
    NOW ON YOUR AREA.  IF YOU ARE LOGGED-IN AT
    A TEKTRONIX, THE PLOT CAN BE VIEWED BY THE
    COMMAND:  R TEK
STOP

End of Execution
CPU Time: 1.01	Elapsed time: 3:10.63
EXIT

.DIRECT *.PLT
[13:12:01]

QA63NZ PLT  23  <077> 1-Nov-82  DSKA:[11,10] GRAPH

.TEK QA63NZ.PLT
[13:12:26
  (The TEK program shows the plot on the screen)

.PLOT *.PLT
[13:13:26]
[Plotter job GRAPH queued, request #2067, limit 4]
.end literal
.note
Everything that starts on column 1 was typed by the user.
.end note
.;End of GRAPH.RNO

.;Start of SIMPLT.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.index Library programs ><SIMPLT
.indent -5.hl 1 SIMPLT
  SIMPLT is a newer version of a quick plotting program.  The main benifit
of this program is that it can be used to make very simple plots or
fancy plots.  This program also has the advantage of having a
cubic spline curve smoothing for the lines connecting the data points.
.skip 2
.literal
	.R LBY:SIMPLT
	[11:07:59]
	

	Welcome to SIMPLT, version 1.17
	Do you need instructions? *Y
	
	SIMPLT.HLP				13-Dec-80
	
	Some of the features of SIMPLT are:
		Logarithmic plotting
		Centered symbols
		Dashed or solid lines
		Up to ten sets of data on a single plot
		Automatic scaling
		Cubic spline curve smoothing
		Polynomial regression curve fitting
		Extensive error checking
	
	To use SIMPLT, type:
		.RUN LBY:SIMPLT
	Then just answer the questions. Good luck!!!
	
	[End of SIMPLT.HLP]
	

	For input files, you may type any valid file spec.
	Default format is (2G).
	
	To type data, enter file spec as
	either 'TTY:' or 'TYPE'.
	
	Input file: *{Input the file name}
	Enter format (include parens): *(2G)

	EOF reached. read terminates with   4 points read.
	Would you like to see the data? *N

	Another set of data? *N
	[ 1 sets entered]
	
	Title of graph: *The desired title for the plot

	X axis title: *The title of the x-axis
	X axis length (inches): *8
	Is the x axis logarithmic? *N

	Y axis title: *The title of the y-axis
	Y axis length (inches): *8
	Is the y axis logarithmic? *N

	Would you like a grid? *Y

	Line # 1 - What color (blue, black, or red)? *BLACK
	           Centered symbols? *Y
	           Connecting lines? *Y
	           Dashed lines? *Y

	Plot is finished. Thank you.
	
	End of Execution
   --------------------------------------------------------
			     OR


	
	           Centered symbols? *Y
	           Connecting lines? *N
	           Smoothed lines? *N
	           Polynomial regression line? *Y
	             Degree of curve (5 or less, please)? *4
	             Do you want the regression line to be
	             drawn to the edges of the graph? *Y

	Plot is finished. Thank you.
	
	End of Execution
   --------------------------------------------------------
			     OR


	           Centered symbols? *Y
	           Connecting lines? *N
	           Smoothed lines? *Y
	           Dashed lines? *Y

	Plot is finished. Thank you.
	
	End of Execution
.end literal
.note
The responses preceded by an asterisk are typed by the user
.end note
.;End of SYMPLT.RNO
.;Start of DRAW.RNO
.left margin 5.right margin 64.spacing 1.autoparagraph
.test page 30.index Library programs ><DRAW

.indent -5.hl 1 DRAW
  The DRAW package consists of a series of programs that
run interactively on the TEK 4012 or GIGI graphics terminals.
The program triggers the crosshairs on the terminal, so that the
user can position the crosshairs and type single-letter commands.

  The manual for the DRAW package is available by
.skip
#	.PRINT MAN:DRAW.MAN

.note
  The DRAW package is suitable for the generation one-shot
special plots, and is not recommended for graphing data.
.end note
.;End of DRAW.RNO
.;Start of DOCMEN.RNO
.appendix HELP AND DOCUMENTARY FILES ON PLOTTING
.left margin 5.right margin 64.spacing 1.autoparagraph
.indent -5.hl 1 HELP FILES ON PLOTTING
.index Help
  On the computer in the help files (HLP:) and in the documentary
files (DOC:), there is a series of files which can aid a user in
writting plotting programs.
.list
.le;The command ".HELP PLOTS" will type out the general PLOT help file.
.index HELP >^^HELP PLOTS
.le;The command ".HELP PLOTROUTINES" will type out HLP:PLOTRO.HLP.
This help file consists of a list of plot subroutines and their arguments.
.index HELP >^^HELP PLOTROUTINES
.le;The file DOC:PLOT.DOC documents the differences between the old
version 11 routines and the current version 12 routines.
.index HELP >^^PLOT.DOC
.le;A copy of this manual is stored on MAN:PLOT.MAN, but that copy does
not have any of the plots from Appendix D, and is bulky.  A better copy
of this manual is available from the Dispatcher at the CSM Computing Center,
on the Colorado School of Mines campus.
.end list
.chapter EXAMPLES OF SYMBOL SETS
.left margin 5.right margin 64.spacing 1.autoparagraph
.title Examples of SYMBOL sets
.index SETSYM
.index SYMBOL TABLES
  The following is examples of the thirteen character sets
available on the system.  These sets may be retrieved by using
the SETSYM subroutine.
  The thirteen character sets are:
.skip
.list 0
.le;CSM Standard
.le;CSM Secondary
.le;Olde English
.le;Old German
.le;Old Italian
.le;Script
.le;Simplex Roman
.le;Simplex Italics
.le;Triplex Roman
.le;Triplex Italics
.le;Hershey's letters
.le;Simplex Greek
.le;Duplex Greek
.end list
.page
.hl 1 ^&SETSYM table 1\&###CSM Standard
.page
.hl 1 ^&SETSYM table 2\&###CSM Secondary
.page
.hl 1 ^&SETSYM table 3\&###Olde English
.page
.hl 1 ^&SETSYM table 4\&###Old German
.page
.hl 1 ^&SETSYM table 5\&###Old Italian
.page
.hl 1 ^&SETSYM table 6\&###Script
.page
.hl 1 ^&SETSYM table 7\&###Simplex Roman
.page
.hl 1 ^&SETSYM table 8\&###Simplex Italics
.page
.hl 1 ^&SETSYM table 9\&###Triplex Roman
.page
.hl 1 ^&SETSYM table 10\&###Triplex Italics
.page
.hl 1 ^&SETSYM table 11\&###Hershey's letters
.page
.hl 1 ^&SETSYM table 12\&###Simplex Greek
.page
.hl 1 ^&SETSYM table 13\&###Duplex Greek
.page
.;Start of INDEX.RNO
.page
.left margin 5.right margin 64.spacing 1
.title INDEX
.number index
.display number rl
.do index Graphics Manual
.;End of INDEX.RNO