ColorImaging.JaM
Maureen Stone August 14, 1986 7:12:16 am PDT
**Find who redefines white
Maureen Stone, July 23, 1987 11:44:21 pm PDT
%(DocGraphicsSlides.jam) .run
% (JaMIDunnImpl) .callinit
(slide.jam) .run
(PrintArray) [ %mcsIMSlide26 defined in ImagingModel
(mcsCISlide2) (mcsCISlide1) (mcsCISlide3) (mcsCISlide4) (mcsIMSlide26) (mcsCISlide5) (mcsCISlide6)
] .def
(mcsCIArray) [
(mcsCISlide2) (mcsCISlide1) (mcsCISlide3) (mcsCISlide4) (mcsCISlide5) (mcsCISlide6)
] .def
(mcsCIArray1) [ % 3 slides
(mcsCISlide1) (mcsCISlide2) (mcsCISlide5)
] .def
(mcsCIArray2) [ % 1 slide
(mcsCISlide6)
] .def
(showtime) .false .def
(copies) 2 .def
1 mcsCIArray (Dunn) ShowInNs
1 mcsCIArray (DunnSnap) ShowInNs
(background) {(Xerox/Research/Slides/background) .findcolor .setcolor}.cvx .def
(whoframe0) {.pop .black .setcolor -100 -100 2000 2000 .maskrectangle background 0 inch 0 inch 12 inch 8 inch .maskrectangle}.cvx .def
(slidenumber) { .pop }.cvx .def
(showtime) .false .def
(inch) {72 .mul}.cvx .def
%picture slides
(mcsCISlide1) { % Digital Halftones
(mcs) whoframe0
1 (halftoneslide.ip) .showip
(13) slidenumber
} .cvx .def
(mcsCISlide2) { %Round Halftones
(mcs) whoframe0
1 (dotareaslide.ip) .showip
(31) slidenumber
} .cvx .def
(mcsCISlide3) { %Ideal CMY
(mcs) whoframe0
1 (idealCMY.ip) .showip
(31) slidenumber
} .cvx .def
(mcsCISlide4) { %Ideal Spectra
(mcs) whoframe0
1 (idealSpectra.ip) .showip
(31) slidenumber
} .cvx .def
(mcsCISlide5) { %Printing Process
(mcs) whoframe0
1 (ProcessSlide.ip) .showip
(31) slidenumber
} .cvx .def
(mcsCISlide6) { % Printer vs. Monitor
{1 1.15 .div .scalet -11 -52 .translatet
1 (PrinterVsMonitorSlide.ip) .showip
(14) slidenumber}.cvx .dosave
} .cvx .def