C INCLUDE 'calcops.inc' C ------------------------------------------------------------------ INTEGER LUCFG,MCOLOR,KOLOR PARAMETER (LUCFG=97,MCOLOR=255) REAL R(0:MCOLOR),G(0:MCOLOR),B(0:MCOLOR) REAL SCALE,STARTX,STARTY,XOLD,YOLD,HOLD,B1,B2,B3,B4 PARAMETER (SCALE=72/2.54) COMMON/PLOTC/ KOLOR,R,G,B,STARTX,STARTY,XOLD,YOLD,HOLD,B1,B2,B3,B4 SAVE /PLOTC/ C ------------------------------------------------------------------ C LUCFG...Logical unit number of the CalComp configuration file C calcomp.lst. C STARTX,STARTY... Origin of CalComp coordinates in world C coordinates. C XOLD,YOLD... Point referred during the previous invocation of a C CalComp subroutine, in CalComp coordinates. C B1,B2,B3,B4... Bounding box. C C Common block /PLOTC/ is included in FORTRAN 77 source code file C 'calcops.for'. C C Date: 1996, July 8 C Coded by Ludek Klimes C C======================================================================= C