Trailing-Edge
-
PDP-10 Archives
-
decuslib10-02
-
43,50247/genplt.lst
There are no other files named genplt.lst in the archive.
GGGGGGGGG EEEEEEEEE NNN NNN PPPPPPPPP LLL TTTTTTTTT
GGG EEE NNNN NNN PPP PPP LLL TTT
GGG GGGG EEEEEE NNN N NNN PPPPPPPPP LLL TTT
GGG GGG EEE NNN NNNN PPP LLL TTT
GGGGGGGGG EEEEEEEEE NNN NNN PPP LLLLLLLL TTT
IIIIIIIII IIIIIIIII
III III
III III
III III
IIIIIIIII IIIIIIIII
GENPLT-II is a package of FORTRAN non-interactive graphic
subroutines which provide a wide variety of automatic
functions such as the plotting of scales and grids. Data
can be represented by plotted points or symbols, by solid or
dashed lines, or as shaded figures. Draftsman's Gothic and
Greek lettering are provided.
Further information concerning these routines has been
published in Volume 3 of "Computer Programs For Chemistry,"
W. A. Benjamin, Inc., 1969 (edited by Delos F. DeTar).
GENPLT-II, a General Plotting Package Page 2
Coupling GENPLT-II to a Particular Plotting Device
-------- --------- -- - ---------- -------- ------
The GENPLT-II subroutines produce graphic output on a
specific plotting device by calling a set of routines
provided by the user for that device. Several typical
packages of such coupling routines are supplied. If an
installation has a plotting device, some primitive routines
will probably be available for its use. One of the provided
coupling packages can then be modified to call these
primitive routines. The file PENTST is provided to test a
new or modified set of coupling routines. If the coupling
routines are operating correctly, this program will produce
3 versions of the Yale University crest.
Each of the coupling packages contains 5 simple routines
with a standardized argument list. These are as follow.
SUBROUTINE PENBGN(LASTX,LASTY,NEWX,NEWY)
called by the user to initialize any parameters needed
by the other routines of the coupling package. The most
important parameters are FACTOR which is the number of
plotter grid units corresponding to XWIDTH or YWIDTH
equal 1.0 (the maximum possible), and OFSETX and OFSETY
which are the coordinates of the plotter grid origin
stated in plotter grid units. PENBGN might also produce
an identification frame if used with a camera monitored
CRT, or might advance paper if used with a drum plotter.
SUBROUTINE PENHLT(LASTX,LASTY,NEWX,NEWY)
called by the user when a fresh plotting surface must be
provided. Would advance film in CRT camera or advance
the paper in drum plotter. For a flat-bed plotter,
would signal the operator to change paper. For a
storage CRT, would clear screen.
SUBROUTINE PENEND(LASTX,LASTY,NEWX,NEWY)
called by the user after all plotting has been
generated. For most devices would merely call PENHLT
again. Some systems might require calling an accounting
routine.
The arguments NEWX and NEWY for the above routines are
dummies not used by the routines. LASTX and LASTY are set,
if necessary, by these coupling routines for use when the
user calls the higher level GENPLT-II routines and contain
the present pen or CRT beam position coordinates for use in
interpolation between drawn lines.
Two additional coupling routines are called internally by
the GENPLT-II routines. These are as follow.
GENPLT-II, a General Plotting Package Page 3
SUBROUTINE PENUP(LASTX,LASTY,NEWX,NEWY)
moves the pen or CRT beam from the former position
LASTX, LASTY to the new position NEWX, NEWY without
drawing a line.
SUBROUTINE PENDWN(LASTX,LASTY,NEWX,NEWY)
draws a line from the former position LASTX, LASTY to
the new position NEWX, NEWY.
The following packages of coupling subroutines are provided.
The printer output package is written entirely in FORTRAN
and should work under any system. Printer representation of
plots is often useful if normal hardcopy graphic output is
either expensive or slow. The unit number NTAPE onto which
printer plots are output is set by PENHLT when this is
initially called by PENBGN and should be changed as
necessary.
File PRTPAC
contains the routines PENBGN, PENUP, PENDWN and PENEND
for producing printer or teletype plots using the
characters X and space. File PRTPAC must be used with
one of the following versions of PENHLT.
File PRTHLB
produces large printer plots 3 pages wide by 4 pages
high. Although designed for a printer with at least
122 characters per line, it is necessary to change
only 1 variable (ICHAR) to split the plot into
narrower columns for printing on a teletype.
File PRTHLC
produces a very low resolution plot on a single
printer page of 101 character width.
File XRXHLT
produces an output file containing duration and
intensity information for driving a Xerox
Telecopier. Custom built hardware and the routines
to drive this hardware are necessary to generate the
audio tones which control this device. The stylus
of the telecopier spins inside a rolled sheet of
carbon paper which in turn is inside a rolled sheet
of normal paper. The other printer coupling
routines can be used since both the printer and
telecopier are raster displays. The version of
PENHLT meant for the Telecopier is unusual in that
it allows both horizontal and vertical resolution to
be specified by a single variable.
File CALPAC
calls the standard Calcomp routine PLOT to produce plots
on Calcomp drum plotters. It may be necessary to
GENPLT-II, a General Plotting Package Page 4
restore the DIMENSION statement and the call to
subroutine PLOTS which appear as comment lines in
PENBGN. The following files are also provided.
File CALPLT
simulates the standard Calcomp routine PLOT.
Individual horizontal, vertical or diagonal motions
of the stepping motor are requested by calling a
routine named PLOTP. The routine PLOTP must be
written for the individual system.
File CALARD
simulates the above mentioned routine PLOTP for
monitoring on an ARDS graphic terminal. Routines in
the file ARDMAC are called for final output.
File ARDPAC
A very simple set of coupling routines which call the
routines in file ARDMAC for output on an ARDS (Advanced
Remote Display Station) storage tube terminal.
File ARDMAC
contains Macro routines for driving a dual scope
ARDS terminal with write-through cursor and with
Sylvania tablet interface. The entry points within
this file are described in the appendix.
GENPLT-II, a General Plotting Package Page 5
Dimension Systems
--------- -------
The sizes and locations of items to be plotted are specified
in 3 different dimension systems.
1. User defined data has its own dimension system (which
can differ in the horizontal and vertical directions)
and is windowed into a plot area which can contain a
range of data extending in the horizontal direction from
XFIRST at the left edge to XFINAL at the right edge, and
in the vertical direction from YFIRST at the bottom edge
to YFINAL at the top edge. Similarly, routine BARPLT
requires the maximum sum of the segments of an
individual bar be input in data coordinates as the
argument TOTAL.
2. The plot area into which the data are windowed has its
width XWIDTH, height YWIDTH, horizontal distance XCORNR
from the left edge of the maximum usable plotting
surface and vertical distance YCORNR from the lower edge
of the maximum usable plotting surface specified as
fractions of the width or height of the maximum usable
plotting surface. Similarly, the argument HEIGHT which
defines the height of captions plotted by routine WRDPLT
and of numbers plotted by routine NMBPLT is specified as
a fraction of the height of the maximum usable plotting
surface.
3. The heights of scale captions and of scale numbers and
of scale tick marks, the heights of characters used to
represent data or used as the tips of arrows, and the
lengths of the dashes and of the spaces of dashed lines
used to represent data, are specified in units which are
1/50th of the height of the plot area. Use of this
relative unit for the specification of the arguments
RELHIT, RELSPC and RELARO allow the proportions of a
plot to be independent of changes in its overall size.
For example, if data ranging from 0.001 to 0.002 in the
horizontal direction and from 1200.0 to -300.0 in the
vertical direction were to be plotted in a centered plot
area having width 0.6 of the maximum possible width and
having height 0.5 of the maximum possible height, then
XFIRST = 0.001
XFINAL = 0.002
YFIRST = 1200.0
YFINAL = -300.0
XWIDTH = 0.6
YWIDTH = 0.5
XCORNR = 0.3
YCORNR = 0.25
GENPLT-II, a General Plotting Package Page 6
The decreasing vertical scale causes difficulty for neither
the data plotting routines nor for the scale plotting
routine.
These arguments, and the XPOINT and YPOINT data actually
being represented are diagramed below.
*******upper*edge*of*maximum*usable*plotting*surface********
* *
* *
* *
* r
l i
e .............. XWIDTH .............. g
f h
t t
* ******upper*edge*of*plot*area******* . *
e * .r . e
d l . i . d
g e . g . g
e f XFINAL h . e
* t YFINAL t . *
o * * Y o
f p p W f
* l X l I *
u o . o D u
s t . t H s
a * . * T a
b e XFIRST XPOINT e . b
l d YFIRST YPOINT d . l
e g . g . e
* e . e . *
s *. * . s
u..XCORNR...******lower*edge*of*plot*area******* . u
r . r
f Y f
a C a
c O c
e R e
* N *
* R *
* . *
*******lower*edge*of*maximum*usable*plotting*surface********
GENPLT-II, a General Plotting Package Page 7
Selection of Character Strings for Plotting Captions
--------- -- --------- ------- --- -------- --------
Since the GENPLT-II fonts were originally developed for use
on an IBM 7094 computer, only the characters in the BCD
character set can be used in input strings. These allowed
characters include the upper case Roman alphabet, the
numerals 0 through 9, and the 11 other characters left
parenthesis, right parenthesis, comma, apostrophe, period,
plus sign, minus sign, asterisk, slash, equals sign and
dollar sign (used as a non-plotting control character). All
other characters will be translated to blanks (spaces) prior
to being plotted.
The basic version of the lettering routine (FONT1C) plots
only horizontal or vertical upper case Roman block letters.
Plotting of the string is terminated whenever a $ (dollar
sign, not alt-mode) is encountered as a character to be
plotted. The caption
THIS IS A SAMPLE TITLE
could be plotted if the following Hollerith field were to be
included as one of the caption arguments (such as NAMELX,
NAMELY etc. of a CALL SCLPLT statement).
23HTHIS IS A SAMPLE TITLE$
It will be noted that the $ must be included in the
character count and that this character count can be less
than the 72 maximum. In effect, the terminal $ prevents the
plotting as random characters of the unspecified portion of
the caption.
The advanced version of the lettering routine (LTRPLC) can
plot lettering at any angle, and interprets the character
following a $ in a plotted alphameric string as an option
selector rather than as a character to be plotted. A blank
(space character), zero or any other character not used for
particular options following a $ causes termination of
plotting of the string. The digits 1, 2, 3 and 4 select
Roman upper case, Roman lower case, Greek upper case and
Greek lower case respectively (in fonts 7 and 8, semi-script
Roman is selected rather than Greek by $3 and $4). Roman
upper case lettering is initially provided, however this
alphabet and case are not automatically reset by succeeding
calls to the lettering program. The sample caption given
above could be plotted with the first letter in each word in
upper case by using the following string.
40H$1T$2HIS $1I$2S $1A S$2AMPLE $1T$2ITLE$
Greek letters are identified in the character strings by the
Roman letters having the same numerical positions within the
corresponding alphabets. For example, $3X would refer to
upper case omega, the 24th character in the Greek alphabet.
Italic lettering, size modification, and sub-superscripting
are provided by the following option selector character
GENPLT-II, a General Plotting Package Page 8
pairs.
$$ selects italic lettering.
$* selects lettering and intercharacter spacing both of
3/2 normal size.
$/ selects lettering and intercharacter spacing both of
2/3 normal size.
$+ selects superscript lettering.
$- selects subscript lettering.
$) selects lettering 3/2 normal width.
$( selects lettering 2/3 normal width.
$= causes return to normal upper case Roman.
These options are cumulative until the entire group is reset
by termination of plotting of the string or by the $= option
selector pair. If italic superscripting had been requested
by a $$$+ or $+$$ selector set, italic subscripting could be
simply obtained by use of the $- selector pair (though a
redundant $$ would cause no harm). However to obtain normal
size italic lettering under the same initial conditions, it
would be necessary to use a $=$$ option selector set, since
the $= option selector pair would remove the italic slant as
well as cause return to the normal lettering size.
A comma following a dollar sign can be used to backspace.
Such a backspace has the same width as have most of the
upper case Roman letters and as have all the digits and
punctuation marks and upper and lower case Greek letters. A
period following a dollar sign can be used to shift the
plotted output to a new line, similar to incrementing the
LINE argument of routine WRDPLT. The new line command
should only be used, however, if the lettering is being left
justified.
One of the following fonts must be loaded if file LTRPLC is
used. This additional file contains the lettering
coordinates. FONT6A is recommended for normal use.
FONT2 primitive upper and lower case Roman and upper
and lower case Greek.
FONT3 rounded (but not standard draftsman) upper and
lower case Roman and upper and lower case Greek.
FONT4 outline sans-serif upper and lower case Roman
(matches single stroke draftsman's Roman).
FONT5 outline Caslon upper and lower case Roman
(classic outline serif).
FONT6A draftsman's upper and lower case Roman and upper
and lower case Greek.
FONT7 draftsman's upper and lower case Roman and upper
and lower case fore-hand semi-script.
FONT8 draftsman's upper and lower case Roman and upper
and lower case back-hand semi-script.
FONT9 draftsman's upper and lower case Roman (same as
in fonts 6, 7 and 8 with no alternate alphabet).
GENPLT-II, a General Plotting Package Page 9
Routines in the GENPLT-II Package
-------- -- --- --------- -------
AROPLT plots arrows with letters as head and tail.
BARPLT plots bar charts.
DIMPLT hatches any irregularly shaped closed figure for
which the user has supplied X and Y coordinate
arrays. The hatch lines with which the figure is
shaded can be drawn at any angle. Unlike DRKPLT
described below, DIMPLT results in a slight
precision loss in the input arrays. Both DIMPLT and
DRKPLT window the shaded figure onto the plot area.
DRKPLT hatches with horizontal and/or vertical shading
lines any irregularly shaped closed figure for which
the user has supplied X and Y coordinate arrays.
DSHPLT plots X and Y arrays as a dashed line with user
defined dash and space lengths. The lengths of
dashes and of the spaces between them is independent
of the distances between consecutive points defining
the line. The line is windowed onto the plot area.
GENPLT plots user defined X and Y arrays as a set of
points, a continuous line, centered alphameric
characters, centered symbols (diamonds, hexagons
etc.) or as a set of lines connecting blank arreas
centered at the specified coordinates (to connect
points independently plotted as symbols or
characters).
GRDPLT plots grids which match the scales drawn by SCLPLT.
LINPLT plots a line from the point previously specified by
either PNTPLT or LINPLT.
NMBPLT plots a left justified, baseline centered or right
justified number at any angle and either with or
without decimal point.
PNTPLT plots individual points or the start of new lines.
SCLPLT plots a set of linear scales, either at the borders
of the rectangular plot area, or intersecting at
user chosen coordinates (not necessarily zero,zero
on the scale) to divide the plot area into
quadrants. the user has control over which borders
will bear tick marks, scale numbers and legends.
WRDPLT plots a left justified, baseline centered, or right
justified caption at any angle.
GENPLT-II, a General Plotting Package Page 10
SUBROUTINE AROPLT(X1 ,Y1 ,X2 ,Y2 ,XFIRST,YFIRST,
XFINAL,YFINAL,XWIDTH,YWIDTH,XCORNR,YCORNR,ITAIL ,IHEAD ,
RELHIT,RELSPC,RELARO,LASTX ,LASTY )
Routine to plot possibly dashed arrow with tail at point
X1,Y1 and with head at point X2,Y2.
The routines DSHPLT and WRDPLT are called. The lettering
routine capable of lettering at angles must be used.
The arrow can have one or more letters centered at head and
tail. These are specified as the strings IHEAD and ITAIL.
V's at both ends would give a double headed arrow. Each
string must be terminated by a dollar sign followed by a
blank (space character) or by some other dollar sign command
which would specify the end of the string to be plotted. If
no termination command is present within the string, a
maximum of 72 letters will be plotted.
A bar can be plotted at ends of arrow as a subscript minus
sign. It must be remembered that the width of a character
is usually 2/3rds of its height. To get bars with width
equal to height of other letters, the string '$)$--$ ' would
be used. The $* command character pair should not here be
used instead of the $) character pair since the $* would
also give an larger gap after the minus sign and lead to
slightly incorrect centering.
X1 = horizontal data coordinate of tail of arrow
Y1 = vertical data coordinate of tail of arrow
X2 = horizontal data coordinate of head of arrow
Y2 = vertical data coordinate of head of arrow
XFIRST = horizontal data coordinate to be placed at left
border of plot area.
YFIRST = vertical data coordinate to be placed at lower
border of plot area.
XFINAL = horizontal data coordinate to be placed at right
border of plot area.
YFINAL = vertical data coordinate to be placed at upper
border of plot area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = horizontal distance from plotting table origin to
left plot edge.
YCORNR = vertical distance from plotting table origin to
lower plot edge.
ITAIL = array containing letter or letters to be plotted at
arrow tail.
IHEAD = array containing letter or letters to be plotted at
arrow head.
RELHIT = length of dashes along stem of arrow in units of
magnitude 0.02*YWIDTH.
RELSPC = length of spaces along stem of arrow in units of
GENPLT-II, a General Plotting Package Page 11
magnitude 0.02*YWIDTH.
RELARO = height of letter at end of arrow in units of
magnitude 0.02*YWIDTH.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE BARPLT(INDIC ,KNDBGN,KNDEND,KNTBAR,MSTBAR,RATIO ,
TOTAL ,XWIDTH,YWIDTH,XCORNR,YCORNR,RELHIT,NAME ,LASTX ,
LASTY )
Routine to plot bar charts.
INDIC = 1 plots horizontal bar.
INDIC = 2 plots vertical bar.
INDIC = 3 plots hatching identification blocks.
KNDBGN = number of first component to plot, not larger than
KNDEND.
KNDEND = number of final component to plot, maximum is 7.
KNTBAR = number of this bar in plotting sequence, first bar
is 1.
MSTBAR = total number of bars to be plotted.
RATIO = array of segment lengths in data units.
TOTAL = data units corresponding to total width of plot
area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
RELHIT = height of plotted alphanumeric characters in units
of 0.02*YWIDTH.
NAME = 10 letter bar title or sequence of 10 letter block
titles
LASTX = horizontal (X) grid coordinate of last point
plotted.
LASTY = vertical (Y) grid coordinate of last point plotted.
GENPLT-II, a General Plotting Package Page 12
SUBROUTINE DIMPLT(KONTRL,XPOINT,YPOINT, NEXT,KRDBGN,KRDEND,
XFIRST,YFIRST,XFINAL,YFINAL,XWIDTH,YWIDTH,XCORNR,YCORNR,
RELHIT,RELSPC,LASTX ,LASTY )
Routine to darken or hatch an irregularly shaped figure.
The plotted output is windowed onto the plot area. Unlike
output from DRKPLT, hatch lines can be at any angle. DIMPLT
rotates the input XPOINT and YPOINT arrays prior to
processing. These arrays are returned to their original
values before returning to the calling program, but the user
should be aware that there can have been a slight precision
loss. DRKPLT does not alter the contents of the input
XPOINT and YPOINT arrays.
KONTRL = selects perimeter or angle of hatching
KONTRL = negative gives perimeter
KONTRL = 0 or greater, hatching angle in degrees
= 0 gives horizontal hatch lines
= 90 gives vertical hatch lines
XPOINT = array of X coordinates defining perimeter of
figure.
YPOINT = array of Y coordinates defining perimeter of
figure.
NEXT = fixed or floating point array used as working
space. NEXT is redefined during processing
destroying former contents. NEXT must be
dimensioned same or larger than XPOINT and YPOINT.
Portion of NEXT which is used is parallel to used
portions of XPOINT and YPOINT arrays.
KRDBGN = subscript of first point to be plotted.
KRDEND = subscript of final point to be plotted.
XFIRST = X coordinate (in system used for XPOINT) to be
placed at left border of plot area.
YFIRST = Y coordinate (in system used for YPOINT) to be
placed at lower border of plot area.
XFINAL = X coordinate (in system used for XPOINT) to be
placed at right border of plot area.
YFINAL = Y coordinate (in system used for YPOINT) to be
placed at upper border of plot area.
XWIDTH = horizontal width (as fraction of maximum) of plot
area.
YWIDTH = vertical height (as fraction of maximum) of plot
area.
XCORNR = X distance (as fraction of maximum dimension) from
plotting table origin to left plot edge.
YCORNR = Y distance (as fraction of maximum dimension) from
plotting table origin to lower plot edge.
RELHIT = distance between alternate pairs of hatch lines in
units of 0.02*YWIDTH. RELHIT and RELSPC both set
at 1.0 would give 50 lines in distance
corresponding to height of the plot area.
RELSPC = distance between alternate pairs of hatch lines in
units of 0.02*YWIDTH.
GENPLT-II, a General Plotting Package Page 13
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE DRKPLT(KONTRL,XPOINT,YPOINT, NEXT,KRDBGN,KRDEND,
XFIRST,YFIRST,XFINAL,YFINAL,XWIDTH,YWIDTH,XCORNR,YCORNR,
RELHIT, LASTX, LASTY)
Routine to darken or hatch an irregularly shaped figure.
Only horizontal and/or vertical hatch lines are provided.
The routine DIMPLT should be used for other angles. The
plotted output is windowed onto the plot area.
KONTRL = option control which selects type of hatching to be
used.
KONTRL = 1 gives hatching formed of parallel horizontal
lines.
KONTRL = 2 gives crosshatch of horizontal and vertical
lines.
KONTRL = 3 gives hatching formed of parallel vertical lines.
KONTRL = 4 plots perimeter of figure.
XPOINT = array of X coordinates defining perimeter of
figure.
YPOINT = array of Y coordinates defining perimeter of
figure.
NEXT = fixed or floating point array used as working
space.
NEXT = is redefined by DRKPLT so former contents are
destroyed.
NEXT = must have same dimensions as XPOINT or YPOINT.
KRDBGN = subscript of first point to be plotted.
KRDEND = subscript of final point to be plotted.
XFIRST = X coordinate to be placed at left border of plot
area.
YFIRST = Y coordinate to be placed at lower border of plot
area.
XFINAL = X coordinate to be placed at right border of plot
area.
YFINAL = Y coordinate to be placed at upper border of plot
area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
RELHIT = distace between hatch lines in units of
0.02*YWIDTH.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
GENPLT-II, a General Plotting Package Page 14
SUBROUTINE DSHPLT(XPOINT,YPOINT,KRDBGN,KRDEND,XFIRST,YFIRST,
XFINAL,YFINAL,XWIDTH,YWIDTH,XCORNR,YCORNR,RELHIT,RELSPC,
LASTX ,LASTY )
Routine to plot dashed lines. The length of individual
dashes and spaces is independent of the distance between
point coordinates which define the line. The line plotted
is windowed onto the plot area.
XPOINT = array of X coordinates of points to be plotted.
YPOINT = array of Y coordinates of points to be plotted.
KRDBGN = subscript of first point to be plotted.
KRDEND = subscript of final point to be plotted.
XFIRST = X coordinate to be placed at left border of plot
area.
YFIRST = Y coordinate to be placed at lower border of plot
area.
XFINAL = X coordinate to be placed at right border of plot
area.
YFINAL = Y coordinate to be placed at upper border of plot
area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
RELHIT = length of dashes in units of magnitude 0.02*YWIDTH.
RELSPC = length of spaces in units of magnitude 0.02*YWIDTH.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE GENPLT(MODE1 ,MODE2 ,MODE3 ,XPOINT,YPOINT,KRDBGN,
KRDEND,XFIRST,YFIRST,XFINAL,YFINAL,FIRSTX,FIRSTY,FINALX,
FINALY,XWIDTH,YWIDTH,XCORNR,YCORNR,RELHIT,LETTER,LASTX ,
LASTY )
Routine to plot data X and Y coordinate arrays as points, as
symbols, as characters, as connected lines, or as lines
connecting square blank areas (which are not outlined)
centered at the input coordinates. The plotting of a point,
or of a line segment to a point can be suppressed if the
point is outside the plot area. It must be noted that this
does not provide true windowing of a line connecting the
specified points. Routine DSHPLT should instead be used,
either with very long dashes or with zero length spaces
between dashes, to plot lines which require true windowing
onto the plot area.
GENPLT-II, a General Plotting Package Page 15
MODE1 = 1 does not check if points are in requested plot
area.
MODE1 = 2 sets scales to fit coordinates of plotted points.
MODE1 = 3 does not plot point coordinates exceeding limits.
MODE2 = 1 requires both input X and Y coordinate arrays.
MODE2 = 2 simulates X array left to right at equal
intervals.
MODE3 = 1 gives plot with lines connecting blank areas
around points.
MODE3 = 2 gives plot with line connecting points.
MODE3 = 3 gives plot with dot at each point.
MODE3 = 4 gives plot with alphanumeric character at each
point.
MODE3 = 5 gives plot with special symbol at each point.
XPOINT = array of X coordinates of points to be plotted.
YPOINT = array of Y coordinates of points to be plotted.
KRDBGN = subscript of first point to be plotted.
KRDEND = subscript of final point to be plotted.
XFIRST = X coordinate to be placed at left border of plot
area.
YFIRST = Y coordinate to be placed at lower border of plot
area.
XFINAL = X coordinate to be placed at right border of plot
area.
YFINAL = Y coordinate to be placed at upper border of plot
area.
Scales may either increase or decrease if MODE1 = 1
or 3. Scales are selected to increase toward right
and top if MODE1 = 2. Input limits XFIRST, YFIRST,
XFINAL and YFINAL are ignored if MODE1 = 2.
FIRSTX = X coordinate placed at left border of plot area.
FIRSTY = Y coordinate placed at lower border of plot area.
FINALX = X coordinate placed at right border of plot area.
FINALY = Y coordinate placed at upper border of plot area.
FIRSTX, FIRSTY, FINALX and FINALY are output
arguments. These variables may be used to define
the ends of the scales to be drawn by SCLPLT. The
value of these output arguments will vary from the
input arguments only if MODE1 = 2.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
GENPLT-II, a General Plotting Package Page 16
RELHIT = height in units of 0.02*YWIDTH of the letters,
symbols, or blank areas centered at each point for
MODE3=1, 4 or 5
RELHIT = 1.0 gives letters YWIDTH/50 high.
LETTER = alphanumeric character centered at points if MODE3
= 4. This is first letter specified by a Hollerith
field (either within enclosing apostrophes or after
a character count and the letter H) or read using
an alphameric A field within a FORMAT statement.
The character will be plotted in the case and
alphabet (either Roman or Greek) selected prior to
the call to GENPLT. A dummy call to WRDPLT could
be used to select case and alphabet.
LETTER = integer selecting special symbol if MODE3 = 5.
symbols are specified by letter values
1, 2=triangle
3, 4=square
5, 6=pentagon
7, 8=hexagon
9,10=octagon
11,12=cross
Two orientations of each symbol are provided.
These symbols are independent of the font loaded.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE GRDPLT(LINESX,LINESY,XFIRST,YFIRST,XFINAL,YFINAL,
XWIDTH,YWIDTH,XCORNR,YCORNR,LASTX ,LASTY )
Routine to plot grids having line spacing matching that of
the scale markings drawn by SCLPLT.
LINESX = number of grid divisions along horizontal scale
between consecutive horizontal scale numbers
plotted by SCLPLT.
LINESY = number of grid divisions along vertical scale
between consecutive vertical scale numbers plotted
by SCLPLT. Border is plotted if both LINESX = 0
and LINESY = 0.
XFIRST = left limiting coordinate of horizontal (X) scale.
YFIRST = lower limiting coordinate of vertical (Y) scale.
XFINAL = right limiting coordinate of horizontal (X) scale.
YFINAL = upper limiting coordinate of vertical (Y) scale.
XWIDTH = horizontal plot width.
YWIDTH = vertical plot width.
XCORNR = distance from plotting table origin to left plot
edge.
GENPLT-II, a General Plotting Package Page 17
YCORNR = distance from plotting table origin to lower plot
edge.
LASTX = horizontal (X) grid coordinate of last point
plotted.
LASTY = vertical (Y) grid coordinate of last point plotted.
SUBROUTINE LINPLT(XCOORD,YCOORD,XFIRST,YFIRST,XFINAL,YFINAL,
XWIDTH,YWIDTH,XCORNR,YCORNR,LASTX ,LASTY )
Routine to continue previous line to new coordinates.
XCOORD = X or horizontal coordinate to which line is to be
plotted
YCOORD = Y or vertical coordinate to which line is to be
plotted
XFIRST = X coordinate cooresponding to left edge of plot
area.
YFIRST = Y coordinate cooresponding to lower edge of plot
area.
XFINAL = X coordinate cooresponding to right edge of plot
area.
YFINAL = Y coordinate cooresponding to upper edge of plot
area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE NMBPLT(INDIC ,INDEX ,LINE ,FIGURE,KDECML,HEIGHT,
XCORNR,YCORNR,LASTX ,LASTY )
Routine to plot floating point numbers either as integers or
with decimal point.
INDIC = angle of baseline of number in degrees from
horizontal. INDIC can only have values 0 and 90 if
FONT1C is used.
INDEX = 0 plots left end of baseline of number at the point
having the coorinates XCORNR and YCORNR.
INDEX = 1 centers baseline of number at the point having
the coorinates XCORNR and YCORNR.
GENPLT-II, a General Plotting Package Page 18
INDEX = 2 plots right end of baseline of number at the
point having the coorinates XCORNR and YCORNR.
LINE = line upon which number is to be plotted. Line
starting at input values of XCORNR and YCORNR is
line = 1. Higher valued lines are offset to be
plotted below line number 1. Spacing between lines
is 1.5 height of numbers plotted.
FIGURE = floating point number to be plotted.
KDECML = number of decimal places (numerals right of decimal
point) to be plotted.
KDECML = 0 gives figure plotted as integer.
HEIGHT = height of numbers to be plotted.
XCORNR = horizontal coordinate of lettering baseline. see
INDEX.
YCORNR = vertical coordinate of lettering baseline. see
INDEX.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
SUBROUTINE PNTPLT(XCOORD,YCOORD,XFIRST,YFIRST,XFINAL,YFINAL,
XWIDTH,YWIDTH,XCORNR,YCORNR,LASTX ,LASTY )
Routine to plot a single point or the start of a new line.
XCOORD = X or horizontal coordinate of point to be plotted.
YCOORD = Y or vertical coordinate of point to be plotted.
XFIRST = X coordinate cooresponding to left edge of plot
area.
YFIRST = Y coordinate cooresponding to lower edge of plot
area.
XFINAL = X coordinate cooresponding to right edge of plot
area.
YFINAL = Y coordinate cooresponding to upper edge of plot
area.
XWIDTH = horizontal width of plot area.
YWIDTH = vertical height of plot area.
XCORNR = X distance from plotting table origin to left plot
edge.
YCORNR = Y distance from plotting table origin to lower plot
edge.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
GENPLT-II, a General Plotting Package Page 19
SUBROUTINE SCLPLT(INDEX0,INDEX1,INDEX2,INDEX3,INDEX4,INDEX5,
INDEX6,INDEX7,INDEX8,INDEX9,XFIRST,YFIRST,XFINAL,YFINAL,
XCROSS,YCROSS,XWIDTH,YWIDTH,XCORNR,YCORNR,RELHIT,NAMELX,
NAMELY,NAMEUX,NAMERY,NAME ,LASTX ,LASTY )
Routine to plot captions and linear scales consisting of
border lines, tick marks and scale numbers. The scale
numbers are selected to be as logical as is possible.
However, extremely large numbers at either or both ends of a
scale, or extremely small differences between the numbers at
the ends of the scale should be avoided to prevent overlap
of the plotted numerals.
INDEX0 = 1 gives immediate return from SCLPLT subroutine.
INDEX0 = 2-4 defines format of scales to be plotted.
INDEX0 = 2-3 does not cause any actual plotting to be
undertaken.
INDEX0 = 2 defines format for external (rectangular) scales.
INDEX0 = 3 defines format for internal (crossed) scales.
Internal scales divide the plot area in quadrants
of possibly unequal size.
INDEX0 = 4 causes actual plotting of plotting area corners.
INDEX0 = 4 marks corners of plotting area with large
crosses.
INDEX0 = 4 voids all other options except caption options.
INDEX0 = 4 might be used for paper alignment or trimming of
plots.
INDEX1 = 1 gives no horizontal (X) scale lines.
INDEX1 = 2-4 plots horizontal (X) scale lines.
INDEX1 = 2 plots only lower horizontal (X) scale line.
INDEX1 = 3 plots both upper and lower horizontal (X) scale
lines.
INDEX1 = 4 plots only upper horizontal (X) scale line.
INDEX2 = 1 gives no vertical (Y) scale lines.
INDEX2 = 2-4 plots vertical (Y) scale lines.
INDEX2 = 2 plots only left vertical (Y) scale line.
INDEX2 = 3 plots both left and right vertical (Y) scale
lines.
INDEX2 = 4 plots only right vertical (Y) scale line.
INDEX3 = 1 gives no tick marks along horizontal (X) scales.
INDEX3 = 2-4 plots tick marks along horizontal (X) scales.
INDEX3 = 2 plots only lower horizontal (X) scale tick marks.
INDEX3 = 3 plots upper and lower horizontal (X) scale tick
marks.
INDEX3 = 4 plots only upper horizontal (X) scale tick marks.
INDEX4 = 1 gives no tick marks along vertical (Y) scales.
INDEX4 = 2-4 plots tick marks along vertical (Y) scales.
INDEX4 = 2 plots only left vertical (Y) scale tick marks.
INDEX4 = 3 plots left and right vertical (Y) scale tick
GENPLT-II, a General Plotting Package Page 20
marks.
INDEX4 = 4 plots only right vertical (Y) scale tick marks.
INDEX5 = 1 gives no scale numbers along horizontal (X)
scales.
INDEX5 = 2-4 plots scale numbers along horizontal (X) scales
(providing these same scales have tick marks
selected by INDEX3).
INDEX5 = 2 plots only lower horizontal (X) scale numbers.
INDEX5 = 3 plots upper and lower horizontal (X) scale
numbers.
INDEX5 = 4 plots only upper horizontal (X) scale numbers.
INDEX6 = 1 gives no scale numbers along vertical (Y) scales.
INDEX6 = 2-4 plots scale numbers along vertical (Y) scales
(providing these same scales have tick marks
selected by INDEX4).
INDEX6 = 2 plots only left vertical (Y) scales numbers.
INDEX6 = 3 plots left and right vertical (Y) scale numbers.
INDEX6 = 4 plots only right vertical (Y) scale numbers.
INDEX7 = 1 gives no horizontal (X) scale captions.
INDEX7 = 2-4 plots captions along horizontal (X) scales.
INDEX7 = 2 plots only lower horizontal (X) scale caption.
INDEX7 = 3 plots upper and lower horizontal (X) scale
captions.
INDEX7 = 4 plots only upper horizontal (X) scale caption.
INDEX8 = 0,1 gives no vertical (Y) scale captions.
INDEX8 = 2-4 plots captions along vertical (Y) scales.
INDEX8 = 2 plots only left vertical (Y) scale caption.
INDEX8 = 3 plots left and right vertical (Y) scale captions.
INDEX8 = 4 plots only right vertical (Y) scale caption.
INDEX8 = also controls direction of INDEX6 selected scale
numbers.
INDEX8 = 0 plots horizontally any scale numbers on vertical
scale.
INDEX8 = 0 prevents overlap of scale numbers on X and Y
scales.
INDEX8 = 1-4 plots vertically any scale numbers on Y scale.
INDEX8 = 1-4 prevents overlap of Y scale captions and
numbers.
INDEX9 = 1 gives no main caption.
INDEX9 = 2-4 plots main caption.
INDEX9 = 2 plots main caption below lower horizontal (X)
scale. The location of this main caption would be
below the caption of the lower horizontal scale
NAMELX possibly selected by INDEX7.
INDEX9 = 3 plots main caption above lower horizontal (X)
scale. The location of this main caption would be
above the tick marks on the lower horizontal scale
possibly selected by INDEX3.
GENPLT-II, a General Plotting Package Page 21
INDEX9 = 4 plots main caption below upper horizontal (X)
scale. The location of this main caption would be
below the tick marks on the upper horizontal scale
possibly selected by INDEX3.
XFIRST = left limiting coordinate of horizontal (X) scale.
YFIRST = lower limiting coordinate of vertical (Y) scale.
XFINAL = right limiting coordinate of horizontal (X) scale.
YFINAL = upper limiting coordinate of vertical (Y) scale.
XCROSS = horizontal coordinate (in the system used for
XFIRST and XFINAL) of the point of intersection of
crossed scales.
XCROSS = is ignored unless INDEX0 = 3.
YCROSS = vertical coordinate (in the system used for YFIRST
and YFINAL) of the point of intersection of crossed
scales.
YCROSS = is ignored unless INDEX0 = 3.
XWIDTH = horizontal plot width.
YWIDTH = vertical plot width.
XCORNR = distance from plotting table origin to left plot
edge.
YCORNR = distance from plotting table origin to lower plot
edge.
RELHIT = height of scale numbers in units of 0.02*YWIDTH.
RELHIT = proportions height of tick marks, numbers, and
captions.
RELHIT = 1.0 gives numbers YWIDTH/50 high, and is best for
large plots.
RELHIT = 2.0 gives numbers YWIDTH/25 high, and is best for
small plots.
NAMELX = lower horizontal scale caption, same height as
numbers.
NAMELX = 72 characters (or terminated by a dollar sign
followed by a blank (space character) within the
string if fewer than 72) read by 14A5,1A2 format or
specified by alphameric string in DATA statement or
in CALL statement.
NAMELY = left vertical scale caption, same height as
numbers.
NAMELY = 72 characters (or terminated by a dollar sign
followed by a blank (space character) within the
string if fewer than 72) read by 14A5,1A2 format or
specified by alphameric string in DATA statement or
in CALL statement.
NAMEUX = upper horizontal scale caption, same height as
numbers.
NAMEUX = 72 characters (or terminated by a dollar sign
followed by a blank (space character) within the
string if fewer than 72) read by 14A5,1A2 format or
GENPLT-II, a General Plotting Package Page 22
specified by alphameric string in DATA statement or
in CALL statement.
NAMERY = right vertical scale caption, same height as
numbers.
NAMERY = 72 characters (or terminated by a dollar sign
followed by a blank (space character) within the
string if fewer than 72) read by 14A5,1A2 format or
specified by alphameric string in DATA statement or
in CALL statement.
NAME = main caption, height is 1.5 times that of scale
numbers.
NAME = 72 characters (or terminated by a dollar sign
followed by a blank (space character) within the
string if fewer than 72) read by 14A5,1A2 format or
specified by alphameric string in DATA statement or
in CALL statement.
LASTX = horizontal (X) grid coordinate of last point
plotted.
LASTY = vertical (Y) grid coordinate of last point plotted.
SUBROUTINE WRDPLT(INDIC ,INDEX ,LINE ,LWORD ,LTRBGN,LTREND,
HEIGHT,XCORNR,YCORNR,LASTX ,LASTY )
Routine to plot captions at positions not provided as
standard by SCLPLT.
INDIC = angle of lettering baseline in degrees from
horizontal. INDIC can only have values 0 and 90 if
FONT1C is used.
INDEX = 0 plots left end of lettering baseline at the point
with the coordinates XCORNR and YCORNR.
INDEX = 1 centers lettering baseline at the point with the
coordinates XCORNR and YCORNR.
INDEX = 2 plots right end of lettering baseline at the
point with the coordinates XCORNR and YCORNR.
LINE = line upon which alphameric string LWORD is to be
plotted. Line starting at input values of XCORNR
and YCORNR is line = 1. Higher valued lines are
offset to be plotted below line number 1. Spacing
between lines is 1.5 height of words plotted.
LWORD = word array to be plotted. This must either be
specified as a string in the CALL WRDPLT statement
(either with a leading character count followed by
letter H, or with leading and trailing
apostrophes), or be an array with each character
byte being defined within each array element (4
letters per word for IBM 360 or IBM 370, 5 for
PDP-10, 6 for IBM 7094, 10 for CDC 60 bit
GENPLT-II, a General Plotting Package Page 23
computers). This means the array can have been
read by some multiple of an A5 format on the
PDP-10.
LTRBGN = number of first letter in word array to be plotted.
This would have the value 1 if lettering is to
include first character in word array.
LTREND = number of final letter in word array to be plotted.
This prevents plotting of garbage if the dollar
sign and blank (space) combination has not been
used within the character string to terminate its
own plotting.
HEIGHT = height of letters to be plotted.
XCORNR = horizontal coordinate of lettering baseline. see
INDEX.
YCORNR = vertical coordinate of lettering baseline. see
INDEX.
LASTX = last X grid coordinate plotted.
LASTY = last Y grid coordinate plotted.
GENPLT-II, a General Plotting Package Page 24
Calling Hierarchy of the GENPLT-II Routines
------- --------- -- --- --------- --------
AROPLT DSHPLT PENDWN
PENUP
WRDPLT LTRPLT IBCD
PENDWN
PENUP
BARPLT HCHPLT PENDWN
PENUP
LTRPLT IBCD
PENDWN
PENUP
PENDWN
PENUP
DIMPLT PENDWN
PENUP
DRKPLT PENDWN
PENUP
DSHPLT PENDWN
PENUP
GENPLT LTRPLT IBCD
PENDWN
PENUP
PENDWN
PENUP
GRDPLT PENDWN
PENUP
LINPLT PENDWN
NMBPLT LTRPLT IBCD
PENDWN
PENUP
PNTPLT PENUP
SCLPLT LTRPLT IBCD
PENDWN
PENUP
PENDWN
PENUP
WRDPLT LTRPLT IBCD
PENDWN
PENUP
The routine LTRPLT consists either of file FONT1C or of file
LTRPLC and one of the files FONT2 through FONT9.
GENPLT-II, a General Plotting Package Page 25
Appendix
Appendix: Interactive Graphics Routines
--------- ----------- -------- --------
(some of which call entries in file ARDMAC)
FUNCTION IPLDST(IX,IY,JX,JY,IPENX,IPENY)
Function to return distance from line having endpoints.
Calculations are performed in integer mode and can have 10
percent error.
IPLDST = returned with distance
IX = horizontal coordinate of start of line
IY = vertical coordinate of start of line
JX = horizontal coordinate of end of line
JY = vertical coordinate of end of line
IPENX = horizontal coordinate of reference point
IPENY = vertical coordinate of reference point
FUNCTION IPLHIT(KONTRL,IWIDE,IHIGH,IX,IY,JX,JY,IPENX,IPENY)
Function to test if tablet stylus points to point or line.
The routines CRTOFF and CRTON are called.
IPLHIT = 0 returned if stylus doesn't point to line
= 1 returned if stylus points to line
KONTRL = 0, does not outline active area
= 1, outlines active area if test successful
IWIDE = half-width of active area around point or line
IHIGH = -1, test if stylus points to line (acitive area
extends beyond ends of line)
= 0, test if stylus points to middle of line (active
area extends only to ends of line)
= positive, half-height of active area around point
(JX and JY are not used)
IX = horizontal coordinate of point or of end 1 of line
IY = vertical coordinate of point or of end 1 of line
JX = horizontal coordinate of end 2 of line
JY = vertical coordinate of end 2 of line
IPENX = horizontal position of stylus
IPENY = vertical position of stylus
GENPLT-II, a General Plotting Package Page 26
Appendix
SUBROUTINE PLTBOX(KONTRL,IWIDE,IHIGH,IX,IY,JX,JY)
Routine to outline point or line with box or diamond. The
routines CRTOFF and CRTON are called.
KONTRL = 0, plot as box (edges at 0 and 90 degrees)
= 1, plot as diamond (edges at diagonal)
IWIDE = half-width of box around point or line
IHIGH = -1, box extends beyond ends of line
= 0, box touches ends of line
= positive, half-height of box around point (JX and
JY are not used)
IX = horizontal coordinate of point or of end 1 of line
IY = vertical coordinate of point or of end 1 of line
JX = horizontal coordinate of end 2 of line
JY = vertical coordinate of end 2 of line
SUBROUTINE PLTCUT(IPLCUT,IX,IY,JX,JY,MINX,MINY,MAXX,MAXY)
Routine to window line. This routine is based on GENPLT-II
plotter coupling routines published in volume 3 of Computer
Programs For Chemistry.
IPLCUT = returned as 0 if line does not pass thru window.
= returned as 1 if line passes thru window
IX = horizontal coordinate of start of line
IY = vertical coordinate of start of line
JX = horizontal coordinate of end of line
JY = vertical coordinate of end of line
MINX = horizontal coordinate of lower left corner of
window
MINY = vertical coordinate of lower left corner of window
MAXX = horizontal coordinate of upper right corner of
window
MAXY = vertical coordinate of upper right corner of window
PLTCUT routine returns JX, JY, IX and IY changed if
windowing is necessary.
GENPLT-II, a General Plotting Package Page 27
Appendix
SUBROUTINE PLTLIN(MULT,IDASH,IWEDGE,IHIGH,JHIGH,IDSPLY,IX,
IY,JDSPLY,JX,JY)
Routine to plot parallel lines between blank rectangles of
different widths. The routines CRTOFF and CRTON are called.
MULT = number of parallel lines to be drawn
= 1 or greater, this number of lines is drawn
centered between point IX IY and point JX JY.
IDASH = 0, continuous line is drawn
= 1 or greater, dashed line is drawn
IWEDGE = -1 or less, each line is wedge pointing from point
IX, IY to point JX, JY.
= 0, normal (non-wedge) line representation.
= 1 or greater, each line is wedge pointing from
point JX, JY to point IX, IY.
IHIGH = separation between lines if MULT is not 1 and/or
between dashes if IDASH is not zero. IHIGH is
similarly the minimum dash length and the minimum
width of the broadest wedge end which are
proportional to IDASH and the absolute value of
IWEDGE respectively.
JHIGH = half of height of rectangles 1 and 2.
IDSPLY = 0, line is drawn to coordinates IX and IY
= 1 or greater, is width of blank rectangle 1
IX = horizontal coordinate of rectangle 1
IY = vertical coordinate of rectangle 1
JDSPLY = 0, line is drawn to coordinates JX and JY
= 1 or greater, is width of blank rectangle 2
JX = horizontal coordinate of rectangle 2
JY = vertical coordinate of rectangle 2
SUBROUTINE PLTTOP(IWIDE,IX,IY,JX,JY,NEWX,NEWY)
Routine to calculate position above line midpoint.
IWIDE = distance to be from line
IX = horizontal coordinate of start of line
IY = vertical coordinate of start of line
JX = horizontal coordinate of end of line
JY = vertical coordinate of end of line
NEWX = returned with calculated X coordinate
NEWY = returned with calculated Y coordinate
GENPLT-II, a General Plotting Package Page 28
Appendix
Appendix: Entry Points in File ARDMAC
--------- ----- ------ -- ---- ------
SUBROUTINE CRTLTR(STRING,IFIRST,IFINAL,NEWX,NEWY)
uses hardware character generation to plot an alphameric
string containing 67 or fewer characters.
STRING = 7 bit ASCII string (you can't get any other
kind from DEC PDP-10 FORTRAN).
IFIRST = serial number of first character.
IFINAL = serial number of final character. (to plot
from 3rd through 20th character in string,
IFIRST=3 and IFINAL=20)
NEWX = horizontal coordinate of lower, left corner of
first letter to be plotted.
NEWY = vertical coordinate of lower, left corner of
first letter to be plotted.
SUBROUTINE CRTOFF(NEWX,NEWY)
positions CRT beam without writing at point NEWX, NEWY.
NEWX = horizontal coordinate from 0 to 1023.
NEWY = vertical coordinate from 0 to 1023.
SUBROUTINE CRTON (NEWX,NEWY)
draws line from previous beam position to the new point with
coordinates NEWX and NEWY.
NEWX = horizontal coordinate from 0 to 1023.
NEWY = vertical coordinate from 0 to 1023.
SUBROUTINE CRTSCP(KONTRL) selects which screen will show
letters and drawn lines.
KONTRL = bit coded mask selecting screen.
= 1, lines will appear on screen 1.
= 2, lines will appear on screen 2.
= 3, lines will appear on both screens 1 and 2.
SUBROUTINE CRTSTR(KONTRL)
selects whether letters and drawn lines are stored on the
CRT screen or merely momentarily visible (the latter mode is
known as "write-through").
KONTRL = 0, lines are momentarily visible.
= 1, lines are stored.
SUBROUTINE CRTWIP(NO ARGUMENT)
clears the currently selected screen, empties input buffer
and returns ARDS terminal to teletype mode.
SUBROUTINE CRTXYZ(NEWX,NEWY,NEWZ)
queries the terminal about the current location of the
tablet stylus and returns stylus position in the locations
supplied as arguments (original contents are destroyed).
NEWX = horizontal coordinate from 0 to 1023.
NEWY = vertical coordinate from 0 to 1023.
NEWZ = 0, stylus is pressed against tablet.
GENPLT-II, a General Plotting Package Page 29
Appendix
= 4 or 6, stylus is within about 3/8 inch of the
tablet surface.
= -1, stylus is beyond 3/8 inch of tablet
surface.
author: Donald E. Barth
Department of Chemistry
Harvard University
updated: September 1972