projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
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 |