Google
 

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