C NAME: CLRACC C C COLOR TEST PROGRAM 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 C REAL XX(5),YY(5) INTEGER PAT1(16),PAT2(16),PAT3(16),TNTBL1(4),TNTBL2(4),IARG(2) C C HEX VALUES OF PAT1, PAT2, AND PAT3: C C DATA PAT1/1,2,4,8,10,20,40,80,100,200, C 400,800,1000,2000,4000,8000/ C DATA PAT2/1C00,2200,2100,2100,2100,2200, C 1000,0,41,22,14,8,14,22,41,0/ C DATA PAT3/8000,4000,2000,1000,800,400, C 200,100,80,40,20,10,8,4,2,1/ C DATA PAT1/1,2,4,8,16,32,64,128,256,512, 1 1024,2048,4096,8192,16384,32768/ DATA PAT2/7168,8704,16640,16640,16640,8704, 1 7168,0,65,34,20,8,20,34,65,0/ DATA PAT3/32768,16384,8192,4096,2048,1024, 1 512,256,128,64,32,16,8,4,2,1/ DATA TNTBL1/18,69,150,166/ DATA TNTBL2/209,173,83,33/ C C... INITIALIZE GRAPHIC PACKAGE CALL VPOPT (101,0,0.0,IERR) CALL PLOTS (0,0,0) C C... SCALE PLOT FOR THE PLOTTER IN USE CALL VPOPT (-1,IARG,RARG,IERR) CALL FACTOR (0.0038 * IARG(2)) C C... OUTPUT LINE PLOT CALL NEWPEN (4) CALL PENCLR (4,5) CALL PLOT (0.,0.,3) CALL PLOT (8.0,0.,2) CALL PLOT (8.0,10.50,2) CALL PLOT (0.,10.50,2) CALL PLOT (0.,0.,2) C C... OUTPUT ACCEPTANCE HEADER CALL PENCLR (4,6) CALL SYMBOL (.5,3.0,.14,21HCOLOR ACCEPTANCE TEST,90.,21) CALL PENCLR (4,1) C C... TEST CIRCLE WITH FILL AND OUTLINE/NO-OUTLINE C C... DEFINE PATTERNS CALL DEFPAT (1,PAT1,16) CALL DEFPAT (2,PAT2,16) CALL DEFPAT (3,PAT3,16) C C... SET NULL PATTERN ACTIVE CALL SETPAT (63) C C... OUTPUT CIRCLES X1 = 6.0 X2 = 6.65 X3 = 7.30 Y = 2.25 IWIDTH = 1 RADIUS = -.25 CALL NEWPEN (1) CALL PENCLR (1,1) DO 10 I = 1,4 CALL TONFLG (0) CALL PENCLR (1,I) IPATN = I - 1 IF (IPATN .GT. 0) CALL SETPAT (IPATN) IF (I.EQ.3) IWIDTH = 0 IF (I.GT.3) IWIDTH = 1 IF (I.GT.1) RADIUS = .25 CALL CIRCLE (X1,Y,RADIUS,IWIDTH) C C... SET TO SOLID COLOR IF (I.EQ.1) RADIUS = -RADIUS CALL TONFLG (1) CALL TONCLR (TNTBL1(I)) CALL CIRCLE (X2,Y,RADIUS,IWIDTH) CALL TONCLR (TNTBL2(I)) CALL CIRCLE (X3,Y,RADIUS,0) CALL TONFLG (0) CALL PENCLR (1,1) IF (I.EQ.1) RADIUS = -RADIUS CALL CIRCLE (X3,Y,-RADIUS,4) Y = Y + .83 10 CONTINUE C C... SET BACK TO PEN COLOR CALL TONFLG (0) C C... TEST CIRCLE WITH THICK OUTLINE X = 2.375 Y = 1. DO 20 I = 1,8 IWIDTH = I - 1 CALL PENCLR (1,I) CALL CIRCLE (X,Y,-.125,IWIDTH) X = X + .375 20 CONTINUE CALL PENCLR (1,1) C C... PLOT TEXT 'COLOR' IN PRIMARY COLORS X = 5.5 Y = .5 DO 25 I = 1,8 CALL PENCLR (1,I) CALL SYMBOL (X,Y,.1,5HCOLOR,90.,5) X = X + .25 25 CONTINUE CALL PENCLR (1,1) C C... DRAW LINE FOR THICKNESS X = 1. Y = 7.5 DO 30 I = 1,4 IPEN = I CALL NEWPEN (IPEN) CALL PLOT (X,Y,3) CALL PLOT (X,Y+1.,2) X = X + .25 30 CONTINUE C C... DRAW LINES ON AN ANGLE X = 4.0 Y = 8.0 CALL NEWPEN (1) C C... SELECT COLOR RED CALL PENCLR (1,6) CALL CIRCLE (X,Y,-1.5,1) CALL PENCLR (1,1) ANGLE = 0. IPEN = 0 DELTA = 3.14159 * 2.0/720. IPNCLR = 0 DO 35 I = 1,720 XP = 1.5 * COS(ANGLE) + X YP = 1.5 * SIN(ANGLE) + Y ANGLE = ANGLE + DELTA IPEN = IPEN + 1 IPNCLR = IPNCLR + 1 IF (IPEN .EQ. 8) IPEN = 1 IF (IPNCLR .GT. 8) IPNCLR = 1 CALL PENCLR (IPEN,IPNCLR) CALL NEWPEN (IPEN) CALL PLOT (X,Y,3) CALL PLOT (XP,YP,2) 35 CONTINUE C C... RESET PENS TO BLACK DO 38 I = 1,7 CALL PENCLR (I,1) 38 CONTINUE C C... DRAW THICK CHARACTERS X = 1. Y = 5.5 DO 40 I = 1,4 IPEN = I CALL NEWPEN (IPEN) CALL PENCLR (I,I) IF (I .EQ. 1) CALL SYMBOL (X,Y,.1,5HTHICK,90.,5) IF (I .EQ. 2 .OR. I .EQ. 3) 1 CALL SYMBOL (X,Y,.1,7HTHICKER,90.,7) IF (I .EQ. 4 ) CALL SYMBOL (X,Y,.1,8HTHICKEST,90.,8) CALL PENCLR (I,1) X = X + .25 40 CONTINUE C C... TEST PEN DEFINITIONS X = 1. Y = 1. DO 50 I = 5,7 IPEN = I CALL NEWPEN (IPEN) CALL PLOT (X,Y,3) CALL PLOT (X,Y+4.,2) X = X + .25 50 CONTINUE C C... TEST POLYGON XX(1) = 6.85 YY(1) = 6.5 XX(2) = 5.85 YY(2) = 7.0 XX(3) = 6.85 YY(3) = 7.5 XX(4) = 6.85 YY(4) = 6.5 C C... DEFINE PATTERN CALL DEFPAT (4,0,1) CALL SETPAT (4) CALL NEWPEN (1) CALL PENCLR (1,5) CALL CONVEX (XX,YY,-4) CALL SETPAT (1) DO 60 I = 1,4 YY(I) = YY(I) + 1. 60 CONTINUE CALL PENCLR (1,6) CALL CONVEX (XX,YY,4) DO 65 I = 1,4 YY(I) = YY(I) + 1. 65 CONTINUE CALL SETPAT (3) CALL PENCLR (1,7) CALL CONVEX (XX,YY,-4) C C... TEST POLYGON WITH THICK LINES XX(1) = 3.0 YY(1) = 5.5 XX(2) = 3.0 YY(2) = 6. XX(3) = 2.5 YY(3) = 5.75 XX(4) = 3.0 YY(4) = 5.5 DO 75 I = 1,5 IPEN = I CALL NEWPEN (IPEN) CALL PENCLR (IPEN,I) CALL CONVEX (XX,YY,-4) DO 70 J = 1,4 XX(J) = XX(J) + .75 70 CONTINUE 75 CONTINUE C C... GENERATE A 3 INCH CIRCLE C C... SELECT PEN 1 CALL NEWPEN (1) C C... SELECT COLOR BLUE CALL PENCLR (1,5) CALL CIRCLE (4.0,3.5,-1.5,1) C C... PUT TEXT IN CIRCLE ANGLE = 0. X = 4.0 Y = 3.5 HEIGHT = .1 DO 100 I = 1,8 CALL PENCLR (1,I) CALL SYMBOL (X,Y,HEIGHT,12H ACCEPTANCE,ANGLE,12) ANGLE = ANGLE + 45. 100 CONTINUE CALL PLOT (0.,0.,999) STOP END