%GriffinPrint.jam
%Print griffin colorseparations
(screenFreq) 45 .def
(DoIt) {
{1 1  .scale 0 0 .translate (imaging) .run}.cvx .dosave
}.cvx .def

(makepd) {
(screenFreq) 45 .def
(Screening at ) .print screenFreq .print ( lines per inch) =
(imaging.pd)  .opencolorversatecpd
(wscolor) (red).cvx .def
(prcolor) (blue).cvx .def
.newtoner (black . . . ) .print
0.55 screenFreq 75 .setdotscreen
Griffin.BlackPass
black 0 0 10 10 .maskrectangle
DoIt

.newtoner (cyan . . . ) .print
0.55 screenFreq 60 .setdotscreen
Griffin.CyanPass
cyan 10 0 10 10 .maskrectangle
DoIt

.newtoner (magenta . . . ) .print
0.55 screenFreq 30 .setdotscreen
Griffin.MagentaPass
magenta 20 0 10 10 .maskrectangle
DoIt

.newtoner (yellow . . . ) .print
0.55 screenFreq 0 .setdotscreen
Griffin.YellowPass
yellow 30 0 10 10 .maskrectangle
DoIt
(closing) .print
.closepd
(.) =
Griffin.FullColor
} .cvx .def


(noprint) {
{7.0 72 .mul 10.2 72 .mul .translate
-1 -10 1 10 .drawbox
-10 -1 10 1 .drawbox}.cvx .dosave
}.cvx .def


(target) {
1 .setstrokewidth
-0.5 -20 0.5 20 .drawbox
-20 -0.5 20 0.5 .drawbox
-15 0 .moveto 15 0 -15 0 .arcto .maskstrokeclosed
-8 0 .moveto 8 0 -8 0 .arcto .maskstrokeclosed
}.cvx .def

(doTargets) {
8 72 .mul 10 .setcp .drawtext
{25 25 .translate target}.cvx .dosave
{25 10.7 72 .mul .translate target}.cvx .dosave
{8.2 72 .mul 10.7 72 .mul .translate target}.cvx .dosave 
{8.2 72 .mul 25 .translate target}.cvx .dosave 
}.cvx .def

(makeBlackImaging) {
(imaging-hornet.pd)  .openhornetpd
%.true .setpriorityimportant
(black . . . ) .print
(wscolor) (0 0 .4 docolor).cvx .def
(prcolor) (0 0 .7 docolor).cvx .def
Griffin.BlackPass
.8 .8 .scale DoIt
(closing) .print
.closepd
}.cvx .def
(makeBlack) {
(lilacs-black.pd)  .openplatemakerpd
(black . . . ) .print
0.55 screenFreq 75 .setdotscreen
Griffin.BlackPass
black (black) doTargets
DoIt
(closing) .print
.closepd
}.cvx .def
(makeCyan){
(ctest-cyan.pd)  .openplatemakerpd
(cyan . . . ) .print
0.55 screenFreq 60 .setdotscreen
Griffin.CyanPass
cyan (cyan) doTargets
DoIt
(closing) .print
.closepd
}.cvx .def

(makeMagenta){
(ctest-magenta.pd)  .openplatemakerpd
(magenta . . . ) .print
0.55 screenFreq 30 .setdotscreen
Griffin.MagentaPass
magenta (magenta) doTargets
DoIt
(closing) .print
.closepd
}.cvx .def
(makeYellow){
(ctest-yellow.pd)  .openplatemakerpd
(yellow . . . ) .print
0.55 screenFreq 0 .setdotscreen
Griffin.YellowPass
yellow (yellow) doTargets
DoIt
(closing) .print
.closepd
}.cvx .def
(makeseps) {
(Screening at ) .print screenFreq .print ( lines per inch) =
makeBlack
makeCyan
makeMagenta
makeYellow
Griffin.FullColor
} .cvx .def