Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0126/aptek.for
There is 1 other file named aptek.for in the archive. Click here to see a list.
SUBROUTINE APDVIC
C
C Device dependant initialisation for the Tektronix 4012 terminal
C
C Define the ATOPLT parameters for the Tektronix 4010 by creating
C a COMMON data area APPRM and filling it with the parameter
C values
C
C The various data in APPRM are set out below:
C
INTEGER APLO, APHI
REAL APPARM(45)
COMMON /APPRM/APPARM, APLO, APHI
C
C 1 X,Y physical size of plot in mm
C
EQUIVALENCE (PLTSIZ,APPARM(1))
C
C 3 X,Y values for the length of the axes
C
EQUIVALENCE (AXISLN,APPARM(3))
C
C 5 X,Y values for the position of the origin
C
EQUIVALENCE (PENORG,APPARM(5))
C
C 7 height of the ticks on the X axis
C
EQUIVALENCE (XTKSIZ,APPARM(7))
C
C 8 difference in height between alternate ticks
C
EQUIVALENCE (TKHDIF,APPARM(8))
C
C 9 length of the Notes frame, along the X axis
C
EQUIVALENCE (NBOXSZ,APPARM(9))
C 10 spacing between ticks along X axis
C
EQUIVALENCE (XTKSPC,APPARM(10))
C
C 11 X,Y position of the X axis title
C
EQUIVALENCE (XTTPOS,APPARM(11))
C
C 13 X,Y position of the Y axis title
C
EQUIVALENCE (YTTPOS,APPARM(13))
C
C 15 character size of the X and Y axis titles
C
EQUIVALENCE (TTLSIZ,APPARM(15))
C
C 17 X,Y position of the plot title
C
EQUIVALENCE (PTTSIZ,APPARM(17))
C
C 18 clearance of the plot title from the plot frame
C
EQUIVALENCE (PTTCLR,APPARM(18))
C
C 19 tick label character size
C
EQUIVALENCE (TKLSIZ,APPARM(19))
C
C 20 tick label clearance from frame
C
EQUIVALENCE (TKLCLR,APPARM(20))
C
C 21 size of the characters in the notes frame
C
EQUIVALENCE (NOTSIZ,APPARM(21))
C
C 22 X,Y displacement of the 1st note from the top left of the frame
C
EQUIVALENCE (NOTDSP,APPARM(22))
C
C 24 Y spacing between note lines
C
EQUIVALENCE (NOTSPC,APPARM(24))
C
C 25 size of the symbol characters for special symbols
C
EQUIVALENCE (SYMSIZ,APPARM(25))
C 26 size of ticks along the Y axis
C
EQUIVALENCE (YTKSIZ,APPARM(26))
C
C 27 line density for plotting tick lines
C
EQUIVALENCE (TIKDEN,APPARM(27))
C
C 28 X,Y scale factors for complete plot
C
EQUIVALENCE (SCLFAC,APPARM(28))
C
C 30 close plot flag - true if 1.0
C
EQUIVALENCE (CLSPLT,APPARM(30))
C
C 31 type of label
C
EQUIVALENCE (TKLTYP,APPARM(31))
C
C 33 tick value increment
C
EQUIVALENCE (TKLINC,APPARM(33))
C
C 35 fixed tick value
C
EQUIVALENCE (TKLVAL,APPARM(35))
C
C 37 flag for integer labels
C
EQUIVALENCE (TKLINT,APPARM(37))
C
C 39 size of exponent characters for log labels
C
EQUIVALENCE (TKESIZ,APPARM(39))
C
C 40 size of exponent power labels ffor log labels
C
EQUIVALENCE (TKPSIZ,APPARM(40))
C
C 41 clearance of exponent labels from value labels
C
EQUIVALENCE (TKECLR,APPARM(41))
C
C 42 X,Y position of program ID message
C
EQUIVALENCE (VERPOS,APPARM(42))
C
C 44 size of program ID message
C
EQUIVALENCE (VERSIZ,APPARM(44))
C
C 45 tick spacing along Y axis
C
EQUIVALENCE (YTKSPC,APPARM(45))
C
DATA APLO, APHI, APPARM/ 1, 45,
* 200.0, 150.0, 130.0, 120.0, 27.0, 15.0, 2.5, 1.5,
* 41.0, 10.0, 50.0, 1.0, 6.0, 40.0, 5.0, 5.0,
* 5.0, 3.0, 2.5, 1.5, 3.0, 2.0, 4.0, 5.0,
* 2.0, 2.5, 1.0, 1.0, 1.0, 0.0, 0.0, 0.0,
* 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2.5, 2.0,
* 0.75, 0.0, 5.0, 2.0, 10.0/
C
C
CALL APTEKM
C
C
END