C       NAME: CLRTBL
C
C	COLOR TABLE PROGRAM
C
C	LANGUAGE:  FORTRAN
C
C	OPERATING SYSTEM:  DEC VAX/VMS
C
C	ORDER NUMBER:  5448-SE
C
C	PART NUMBER:  000-025522-001  OCTOBER 1985
C
C	PRODUCT:  DEC VAX/VMS VERSAPLOT COLOR RANDOM 2.0
C
C	VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C	A XEROX COMPANY
C
C	Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C	"NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C	INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C	LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C	PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C	REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C	THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C	VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C	AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C	THE COPYRIGHT ACT OF 1976."
C
C
C
      DIMENSION IARG(2)
C
C     SET COLOR TONING ACTIVE AND USE THE DEFAULT TONING SEQUENCE.
C
      CALL VPOPT(101,0,0.0,IERR)
C
C     INITIALIZE FOR PLOTTING.
C
      CALL PLOTS ( 0, 0, 0 )
C
C     SCALE PLOT FOR THE PLOTTER IN USE
C
      CALL VPOPT (-1,IARG,RARG,IERR)
      CALL FACTOR (0.0035 * IARG(2))
C
C     SET POLYGON FILL TO COLOR TONING.
C
      CALL TONFLG ( -1 )
C
C     DRAW A BORDER AROUND THE PAGE BOUNDARIES.
C
      CALL PLOT ( 0.0, 0.0, 3 )
      CALL PLOT ( 8.5, 0.0, 2 )
      CALL PLOT ( 8.5, 11.0, 2 )
      CALL PLOT ( 0.0, 11.0, 2 )
      CALL PLOT ( 0.0, 0.0, 2 )
C
C     TITLE THE PLOT.
C
      CALL NEWPEN ( 4 )
      CALL SYMBOL ( 3.1, 10.3, 0.2, 11HCOLOR TABLE, 0.0, 11 )
C
C     WRITE THE DISCLAIMER ABOUT COLOR SHIFTS.
C
      CALL NEWPEN ( 2 )
      CALL SYMBOL ( 1.9, 10.0, 0.07,
     *  37HTHESE SAMPLE COLORS ARE NOT ABSOLUTE , 0.0, 37 )
      CALL SYMBOL ( 999.0, 999.0, 0.07,
     *  35HAND WILL CHANGE AS CONDITIONS VARY., 0.0, 35 )
      CALL NEWPEN ( 1 )
C
C     DRAW 16 ROWS OF 16 COLORED CIRCLES.
C
      Y0 = 0.0
      DO 0200 IA=1,16,1
        X0 = 0.6
        Y = Y0 + FLOAT ( IA ) * 0.6
        DO 0100 IB=1,16,1
          X = X0 + FLOAT ( IB ) * 0.45
          ICLR = 256 - ( ( IA - 1 ) * 16 + ( 16 - IB ) )
          CALL TONCLR ( ICLR )
          CALL CIRCLE ( X, Y, 0.18, 1 )
          CALL NUMBER ( X-0.1, Y-0.3, 0.07, FLOAT ( ICLR ),
     *      0.0, -1 )
 0100   CONTINUE
 0200 CONTINUE
C
C     TERMINATE ALL PLOTTING.
C
      CALL PLOT ( 0.0, 0.0, 999 )
C
C     END OF TABLE.
C
      STOP
      END