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 |