C     NAME: GRDTON
C
C    LANGUAGE:  FORTRAN
C
C    OPERATING SYSTEM:  UNIVERSAL
C
C    ORDER NUMBER:  5428-SE
C
C    PART NUMBER:  000-026366  NOVEMBER 1985
C
C    PRODUCT:  UNIVERSAL 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
      DIMENSION X(200),Y(200),IPAT(16)
C
      DIMENSION NE(2)
C
      DATA IPAT/ -12287, 00003, 16391, 00012,
     1             00029, 00048, 00116, 00192,
     2             00464, 00768, 01856, 03072,
     3             07424, 12288, 29696,-16384/
C
      DATA MASK1/-30584/,MASK2/-21846/
C
      DATA NE/50,6/
C
C...  INITIALIZE THE PLOTTING SYSTEM
      CALL PLOTS (0,0,0)
C
C...  DRAW THE SMALLER GRID
      CALL GRID (1.0,1.0,35,.2,35,.2,MASK1)
C
C...  DRAW THE LARGER GRID
      CALL GRID (1.0,1.0,7,1.,7,1.,MASK2)
C
C...  DEFINE THE TONE AREA
      ANG = 0
      DELTA = 3.14159*2./50.
      DO 10 I=1,50
      X(I) = 2.0*COS(ANG)+3.5
      Y(I) = 2.0*SIN(ANG)+3.5
   10 ANG = ANG + DELTA
C
C...  DEFINE THE TONE PATTERN
      CALL TONE (0.,0.,IPAT,-16)
C
C...  PLOT THE TONE AREA
      CALL TONE (X,Y,50,1)
C
C...  DRAW A CIRCLE AROUND THE TONE PATTERN
      CALL PLOT (X(1),Y(1),3)
      DO 15 I=2,50
   15 CALL PLOT (X(I),Y(I),2)
      CALL PLOT (X(1),Y(1),2)
C
C...  DEFINE THE END OF PLOT
      CALL PLOT (0.,0.,-999)
C
C...  DEFINE A STAR
C
      ANG = 0
      AMT = 4*3.14159/5.0
      DO 20 I=51,56
      X(I) = 2.0*COS(ANG) + 3.5
      Y(I) = 2.0*SIN(ANG) + 3.5
   20 ANG = ANG + AMT
C
C...  TONE THE STAR
      CALL TONE (0.,0.,IPAT,-16)
      CALL TONE (X,Y,NE,2)
C
C...  TERMINATE PLOTTING
      CALL PLOT (0.,0.,999)
      STOP
      END