C ----- R P L O T . F I ----- C C REAL-PLOT PACKAGE COMMON BLOCK DEFINITION C REAL ABSPOS(2), @ X,Y MEASURED FROM PLOTTER ORIGIN WITH FACTOR 1 I.E. THE REAL PEN POSITION * ORGPOS(2), @ X,Y MEASURED FROM THE LAST ORIGIN SET BY PLOT WITH FACTOR 1 * OLDPOS(2), @ X,Y THE LAST LOCATION WHEN PEN WAS DOWN WITH USER FACTOR * DELTAX,DELTAY, @ PLOT COMPUTES HERE THE DIFFERENCE BETWEEN THE LAST PEN DOWN LOCATION AND THE ACTUALLY WANTED ONE. * MAXABX,MAXABY, @ MAXIMUM OF ABSPOS DURING THE WHOLE PLOT * MINABX,MINABY @ MINIMUM " "" "" "" "" REAL XFACTR,YFACTR @ USER FACTOR FOR X AND Y INTEGER PEN @ LAST PEN COMMAND LOGICAL INIT @ PLOTS FLAG C COMMON /CRPLOT/ ABSPOS,ORGPOS,OLDPOS,DELTAX,DELTAY,MAXABX, * MAXABY,MINABX,MINABY,XFACTR,YFACTR,PEN,INIT C -----