C
C INCLUDE 'calcops.inc' C ------------------------------------------------------------------ INTEGER LUCFG,MCOLOR,KOLOR,NOUTS 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 * ,NOUTS SAVE /PLOTC/ C ------------------------------------------------------------------ C LUCFG...Logical unit number of the CalComp configuration file C calcomp.cfg. C MCOLOR..Maximum colour index. Colours greater than MCOLOR are C replaced by KOLOR=MCOLOR. C KOLOR...Colour index set by the last invocation of subroutine C NEWPEN. Initially set to KOLOR=0. C R,G,B...Arays containing the intensities of the red, blue and C green colour components (reals between 0 and 1). 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 HOLD... Character height set by the last invocation of subroutine C SYMBOL or NUMBER. Initially set to HOLD=0. C B1,B2,B3,B4... Bounding box. C NOUTS...Number of points which were originally outside C the plotting area. C C Common block /PLOTC/ is included in FORTRAN 77 source code file C 'calcops.for'. C C Date: 2006, March 16 C Coded by Ludek Klimes C C======================================================================= C