sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/rplot.fi

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