PDP-10 Archive: decus/20-0125/scale.for from decus_20tap4

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/scale.for

There are 3 other files named scale.for in the archive. Click here to see a list.

	SUBROUTINE SCALE(XMINP, YMINP, XMAXP, YMAXP)
C************************************************************
C
C  THIS ROUTINE IS USED TO SET THE SCALING FACTOR OF THE
C  GT40 SCREEN.
C
C  (XMINP, YMINP)  - DESIRED CO-ORDINATES OF LOWER LEFT CORNER
C  (XMAXP, YMAXP)  - DESIRED CO-ORDINATES OF UPPER RIGHT CORNER
C
C  POSSIBLE ERRORS:
C	NONE
C
C  ROUTINES CALLED:
C	NONE
C
C************************************************************
	INTEGER BEAMX, BEAMY
	COMMON /SCLBLK/ XMIN, YMIN, XMAX, YMAX, BEAMX, BEAMY

	XMIN = XMINP
	YMIN = YMINP
	XMAX = XMAXP
	YMAX = YMAXP
	RETURN
	END