Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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