| 1 | C ----- R P L O T . F I -----\r |
| 2 | C\r |
| 3 | C REAL-PLOT PACKAGE COMMON BLOCK DEFINITION\r |
| 4 | C\r |
| 5 | REAL ABSPOS(2), @ X,Y MEASURED FROM PLOTTER ORIGIN WITH FACTOR 1 I.E. THE REAL PEN POSITION\r |
| 6 | * ORGPOS(2), @ X,Y MEASURED FROM THE LAST ORIGIN SET BY PLOT WITH FACTOR 1\r |
| 7 | * OLDPOS(2), @ X,Y THE LAST LOCATION WHEN PEN WAS DOWN WITH USER FACTOR\r |
| 8 | * DELTAX,DELTAY, @ PLOT COMPUTES HERE THE DIFFERENCE BETWEEN THE LAST PEN DOWN LOCATION AND THE ACTUALLY WANTED ONE.\r |
| 9 | * MAXABX,MAXABY, @ MAXIMUM OF ABSPOS DURING THE WHOLE PLOT\r |
| 10 | * MINABX,MINABY @ MINIMUM " "" "" "" ""\r |
| 11 | REAL XFACTR,YFACTR @ USER FACTOR FOR X AND Y\r |
| 12 | INTEGER PEN @ LAST PEN COMMAND\r |
| 13 | LOGICAL INIT @ PLOTS FLAG\r |
| 14 | C\r |
| 15 | COMMON /CRPLOT/ ABSPOS,ORGPOS,OLDPOS,DELTAX,DELTAY,MAXABX,\r |
| 16 | * MAXABY,MINABX,MINABY,XFACTR,YFACTR,PEN,INIT\r |
| 17 | C -----\r |
| 18 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |