(if (environment-bound? user 'make-pcedar-package) #t (load "PCedarMaker"))

(define PrintColor-interfaces '("HBrick" "PrintColor" "CustomBrick" "ImagerPrintColor" "ImagerPrintContext"))
(define PrintColor-impls '("HBrickImpl" "CustomBrickImpl" "ImagerPrintColorImpl" "ImagerPrintContextImpl"))

(define (make-PrintColor interfaces? impls? models)
(and
(make-pcedar-package
interfaces? PrintColor-interfaces
impls? PrintColor-impls
"PrintColorPackage"
models
)
(make-pcedar-package
interfaces? '()
impls? '("SchemePrintColorImpl")
#f
models
)
)
)


    ’  
MakePrintColor.scheme
Copyright Ó 1988, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, September 21, 1988 2:47:15 pm PDT

Ê æ  •NewlineDelimiter
–(cedarcode) style™ šœ™Icodešœ
Ïeœ7™BK™0J™ —šœK˜KJ˜ —Jšœm˜mJšœk˜kJ˜ šœ3˜3˜šœ˜Jšœ!˜!Jšœ˜Jšœ˜Jšœ˜Jšœ˜—šœ˜Jšœ˜Jšœ ˜ J˜Jšœ˜Jšœ˜—J˜—J˜J˜ —J˜ — …—    &  ž  