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

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

There is 1 other file named iphysx.for in the archive. Click here to see a list.

	INTEGER FUNCTION IPHYSX(XPOS)
C************************************************************
C
C  THIS FUNCTION RETURNS THE PHYSICAL POSITION
C  IN RASTER UNITS, OF A SPECIFIED USER X POSITION
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

	SCALE = 1023. / (XMAX - XMIN)
	IPHYSX = SCALE * (XPOS - XMIN) + .5
	RETURN
	END