(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED " 9-Jan-87 16:47:35" ("compiled on " {ERIS}LIBRARY>SKETCHCOLOR.;2) " 7-Jan-87 03:28:48" recompiled ALL in "Xerox Lisp 7-Jan-87 ..." dated " 7-Jan-87 03:56:58") (FILECREATED " 9-Jan-87 16:47:16" {ERIS}LIBRARY>SKETCHCOLOR.;2 4779 changes to%: (VARS BLACKSHADE16 DARKGRAY16 MEDIUMGRAY16 LIGHTGRAY16 WHITESHADE16 REDTEXTURE GREENTEXTURE BLUETEXTURE SKETCHCOLORCOMS) previous date%: "29-Oct-85 14:44:30" {ERIS}LIBRARY>SKETCHCOLOR.;1) COLORTEXTURETEST :D4 (P 6 REDLEVEL P 4 GREENLEVEL P 2 BLUELEVEL P 0 LFT I 0 W) ÆlZ@ n,l^JIó’±®o@ ¿J@ ¿o@ ¿g@ ¿h@ l2Õ@ ¿j@ ¿n,l^LKó³do@ ¿L@ ¿n,l^NMó´h@ l2Õ@ ¿j@ ¿Ll2Ô\°Çjd@NlÕh@ l-dggNLJh ¿Nl2Ô^°¸Jl2ÔZ±ÿRh(177 BKBITBLT 173 TEXTUREOFCOLOR 154 DSPYPOSITION 134 DSPXPOSITION 128 DSPYPOSITION 121 DSPYPOSITION 101 PRIN1 95 PRIN1 73 DSPXPOSITION 67 DSPYPOSITION 60 DSPYPOSITION 54 PRIN1 46 PRIN1 37 PRIN1 31 PRIN1 8 CLEARW) (163 REPLACE 160 TEXTURE 50 RED) ( 91 "Green: " 42 " " 27 "BLUE: ") LEVELTEXTURE :D4 (L (0 LEVEL)) )ld@ñ“`l–@ñ“`lÈ@ñ“`lõ@ñ“``NIL (38 WHITESHADE16 34 LIGHTGRAY16 25 MEDIUMGRAY16 16 DARKGRAY16 7 BLACKSHADE16) () PRIMARYTEXTURE :D4 (P 0 TEXTURE I 1 LEVEL I 0 PRIMARY) D@dgð•¿`°gð“`Ž@dgð”¿`‚ A jdHjdldgg H(64 BKBITBLT 46 LEVELTEXTURE 39 BITMAPCOPY 36 \ILLEGAL.ARG) (60 ERASE 57 INPUT 32 GREENTEXTURE 26 GREEN 20 BLUETEXTURE 15 BLUE 10 REDTEXTURE 4 RED) () (PRETTYCOMPRINT SKETCHCOLORCOMS) (RPAQQ SKETCHCOLORCOMS ((FNS COLORTEXTURETEST LEVELTEXTURE PRIMARYTEXTURE) (VARS (SKETCHINCOLORFLG T)) (FILES COLOR STYLESHEET) (ADVISE \FILLCIRCLE.DISPLAY \POLYSHADE.DISPLAY))) (RPAQQ SKETCHINCOLORFLG T) (FILESLOAD COLOR STYLESHEET) (PUTPROPS \FILLCIRCLE.DISPLAY READVICE (NIL (BEFORE NIL (COND ((LISTP TEXTURE) (COND ((TEXTUREP (CAR TEXTURE)) (SETQ TEXTURE (CAR TEXTURE))) (T (SETQ TEXTURE (TEXTUREOFCOLOR (CADR TEXTURE)))))))))) (PUTPROPS \POLYSHADE.DISPLAY READVICE (NIL (BEFORE NIL (COND ((LISTP FILL.SHADE) (COND ((TEXTUREP (CAR FILL.SHADE)) (SETQ FILL.SHADE (CAR FILL.SHADE))) (T (SETQ FILL.SHADE (TEXTUREOFCOLOR (CADR FILL.SHADE )))))))))) (READVISE \FILLCIRCLE.DISPLAY \POLYSHADE.DISPLAY) (PUTPROPS SKETCHCOLOR COPYRIGHT ("Xerox Corporation" 1985 1987)) NIL