
<<ImagingModel.JaM>>
<<Maureen Stone August 14, 1986 7:12:16 am PDT>>
<<**Find who redefines white>>
    <<Maureen Stone, July 21, 1987 1:15:46 pm PDT>>
<<>>

% Warning.  This file is currently setup for lecture notes

(mcsimarray) [(mcsIMSlide1) (mcsIMSlide2) (mcsIMSlide3) (mcsIMSlide4) (mcsIMSlide5) (mcsIMSlide6) (mcsIMSlide9) (mcsIMSlide7) 
(mcsIMSlide12) (mcsIMSlide13) (mcsIMSlide14) (mcsIMSlide17) (mcsIMSlide18) (mcsIMSlide27) (mcsIMSlide28) (mcsIMSlide29) 
(mcsIMSlide30) (mcsIMSlide31) (mcsIMSlide22) (mcsIMSlide11) (mcsIMSlide10)  (mcsIMSlide15)] .def

(mcsimexarray) [(mcsIMSlide1) (mcsIMSlide2) (mcsIMSlide3) (mcsIMSlide4) (mcsIMSlide5) (mcsIMSlide6) (mcsIMSlide9) (mcsIMSlide7) 
(mcsIMSlide12) (mcsIMSlide13) (mcsIMSlide14) (mcsIMSlide17) (mcsIMSlide18) (mcsIMSlide27) (mcsIMSlide29) (mcsIMSlide31) 
(mcsIMSlide22) (mcsIMSlide11) (mcsIMSlide10)  (mcsIMSlide15)] .def

(mcsimtextarray) [(mcsIMSlide28) (mcsIMSlide30)] .def


%(DocGraphicsSlides.jam) .run
% (JaMIDunnImpl) .callinit
(slide.jam) .run
(df) {(simpleframe) .run}.cvx .def
(sampledbird) {
{.black .setcolor -55 -24 .translatet 8 .scalet (birdbits.ais)  .pixelarrayfromais  .maskpixel}.cvx .dosave
}.cvx .def
(wedge) {
{3 .scalet (wedge.ais)  .pixelarrayfromais  .drawpa}.cvx .dosave
}.cvx .def
(contourWedge) {
{  .black .setcolor 3  .scalet (contour.ais)  .pixelarrayfromais  .maskpixel}.cvx .dosave
}.cvx .def
(jaggytext1) {
{.black .setcolor  2 .scalet (jaggytext1.ais)  .pixelarrayfromais  .maskpixel}.cvx .dosave
}.cvx .def
(jaggytext2) {
{.black .setcolor  4 .scalet (jaggytext2.ais)  .pixelarrayfromais  .maskpixel}.cvx .dosave
}.cvx .def
(unjaggytext) {
{2 .scalet 1 (unjaggytext.ip)  .showip }.cvx .dosave
}.cvx .def
(rainbowPA) (/cyan/ais/rainbow-red.ais) (/cyan/ais/rainbow-grn.ais) (/cyan/ais/rainbow-blu.ais) .pixelarrayfrom3ais .def
(rainbowbird) {{
-55 -24 .translatet 
2 .scalet rainbowPA .setpacolor
4 .scalet
(birdbits.ais)  .pixelarrayfromais  .maskpixel}.cvx .dosave
}.cvx .def
(coolWhite) (.white).cvx .def
<<(coolWhite) (.85 .85 .85 .rgbcolor).cvx .def>>
(major) {
% <text> major
(majortext) .exch .def
minortext .length 0 .gt { (xxxtop) xxxtop xxxgap xxxsmallgap .sub .sub .def } .cvx .if
majorfont xxxleft xxxtop .setxy majortext majorColor drop (xxxtop) xxxtop xxxgap .sub .def
(minortext) () .def
} .cvx .def

(mcsIMArray) [
(mcsIMSlide1) (mcsIMSlide2) (mcsIMSlide3) (mcsIMSlide4) (mcsIMSlide5) (mcsIMSlide6) (mcsIMSlide7) (mcsIMSlide8) (mcsIMSlide9)
(mcsIMSlide10) (mcsIMSlide11) (mcsIMSlide12) (mcsIMSlide13) (mcsIMSlide14) (mcsIMSlide15) (mcsIMSlide16) (mcsIMSlide17) 
(mcsIMSlide18) (mcsIMSlide19)
(mcsIMSlide20) (mcsIMSlide21) (mcsIMSlide22) (mcsIMSlide23) (mcsIMSlide24) (mcsIMSlide25) (mcsIMSlide26)
] .def
<<>>
(mcsIMArray2) mcsIMArray 0 12 .subarray .def    % 12 slides
(mcsIMArray3) mcsIMArray 12 14 .subarray .def    % 14 slides
(mcsIMArray4) [ %8
(mcsIMSlide2) (mcsIMSlide3) (mcsIMSlide4) (mcsIMSlide5) (mcsIMSlide6) (mcsIMSlide7) (mcsIMSlide25) (mcsIMSlide26) 
] .def
(showtime) .false .def
(copies) 2 .def
<<1 mcsIMArray (Dunn) ShowInNs>>
(background) {(Xerox/Research/Slides/background) .findcolor .setcolor}.cvx .def
(mcsframe) {.pop .white .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
(mcsIMSlide1) { % birdshapes
(mcs) mcsframe 
1 (HummingBirdSlide.ip) .showip
    (13) slidenumber
} .cvx .def

(mcsIMSlide2) { %Imager block diagram 
(mcs) mcsframe 
1 (imagerarchitecture.ip) .showip
    (31) slidenumber
} .cvx .def


(mcsIMSlide3) { %Simple Application 
(mcs) mcsframe 
1 (ImagerSimpleApplication.ip) .showip
    (31) slidenumber
} .cvx .def


(mcsIMSlide4) { %Complex Application 
(mcs) mcsframe 
1 (ImagerApplication.ip) .showip
    (31) slidenumber
} .cvx .def


(mcsIMSlide5) { %Printing system 
(mcs) mcsframe 
1 (ImagerInterpress.ip) .showip
    (31) slidenumber
} .cvx .def


(mcsIMSlide6) { % classic bird
(mcs) mcsframe
{90 460 .translatet -90 .rotatet 1
coolWhite .setcolor -36 -27 332 72 .add  678 54 .add .maskrectangle
(classicbird.ip) .showip}.cvx .dosave 
    (14) slidenumber
} .cvx .def

(mcsIMSlide7) { %shapes 
(mcs) mcsframe
(shapes.jam) .run 
    (15) slidenumber
} .cvx .def

(mcsIMSlide8) {  %IP curves
(mcs) mcsframe
{2.0 inch 0.25 inch .translatet
coolWhite .setcolor -0.5 inch 0 inch  9.25 inch 7.5 inch .maskrectangle
1.5 .scalet (CurveDefs.jam) .run
}.cvx .dosave 
    (16) slidenumber
} .cvx .def

(mcsIMSlide9) { %bird outline
(mcs) mcsframe 
(BirdShape.jam) .run
    (17) slidenumber
} .cvx .def

(mcsIMSlide10) { %bird holes
(mcs) mcsframe
{
-900 0 .translatet
64 {1 1 .5 .rgbcolor .setcolor 2 .setstrokewidth
0 0 900 575 .maskvector 48 0 .translatet}.cvx .rept
}.cvx .dosave
(BirdHoles.jam) .run 
    (18) slidenumber
} .cvx .def

(mcsIMSlide11) { %fill types 
(mcs) mcsframe
(Fill.jam) .run 
    (19) slidenumber
} .cvx .def

(mcsIMSlide12) { %IP line parameters
(mcs) mcsframe
{1.5 inch 0.35 inch .translatet
coolWhite .setcolor 0.15 inch 0 inch  9.15 inch 7.5 inch .maskrectangle
1.5 .scalet (LineParams.jam) .run
}.cvx .dosave 
    (20) slidenumber
} .cvx .def

(mcsIMSlide13) { %dashed lines
(mcs) mcsframe 
{ 0.25 inch 0.75 inch .translatet 2.0 .scalet (Dashed.jam) .run}.cvx .dosave 
    (21) slidenumber
} .cvx .def

(mcsIMSlide14) { % bird pixelmask
(mcs) mcsframe
{coolWhite .setcolor
0.15 inch 0.375 inch 11.625 inch 7.5 inch .cliprectangle  
0.25 inch 0.25 inch 12 inch 8 inch .maskrectangle  
sampledbird}.cvx .dosave
    (22) slidenumber
} .cvx .def

(mcsIMSlide15) {  %rainbow bird
(mcs) mcsframe 
{
0.15 inch 0.375 inch 11.625 inch 7.5 inch .cliprectangle  
rainbowbird}.cvx .dosave
    (23) slidenumber
} .cvx .def

(mcsIMSlide16) {  %silly text
(mcs) mcsframe 
(ShoreBirds.jam) .run
    (24) slidenumber
} .cvx .def

(mcsIMSlide17) { %IP font metrics
(mcs) mcsframe 
{
coolWhite .setcolor 1.0 inch 0.5 inch  10.0 inch 7.0 inch .maskrectangle
(FontDef.jam) .run
}.cvx .dosave 
(FontDef.jam) .run
    (25) slidenumber
} .cvx .def


(mcsIMSlide18) { %IP show
(mcs) mcsframe 
(mcs) mcsframe 
{1.5 inch 1.0 inch .translatet
coolWhite .setcolor -0.5 inch -0.5 inch  10.0 inch 7.0 inch .maskrectangle
1.25 .scalet (ShowDef.jam) .run
}.cvx .dosave 
    (26) slidenumber
} .cvx .def


(mcsIMSlide19) {  %classic picture again
mcsIMSlide14
} .cvx .def


(mcsIMSlide20) {%color definitions 
(mcs) mcsframe 
(ColorDefs.jam) .run
    (28) slidenumber
} .cvx .def


(mcsIMSlide21) { %sampled color defs
(mcs) mcsframe 
(SampledColor.jam) .run
    (29) slidenumber
} .cvx .def


(mcsIMSlide22) {  %clipped bird
(mcs) mcsframe 
{3.75 inch 1.0 inch .translatet
coolWhite .setcolor -0.5 inch -0.25 inch 5.5 inch 6.75 inch .maskrectangle
1 (classicbirdclipped.ip) .showip}.cvx .dosave 
    (30) slidenumber
} .cvx .def


(mcsIMSlide23) {  %font slide
(mcs) mcsframe
{0.4 inch 2.75 inch .translatet 
.white .setcolor -0.15 inch -0.8 inch 11.55 inch 4.15 inch .maskrectangle
2 .scalet 1 (fontscan.ip) .showip}.cvx .dosave 
    (32) slidenumber
} .cvx .def


(mcsIMSlide24) {  %functional color
(mcs) mcsframe 
{2.4 inch 1.0 inch .translatet 
coolWhite .setcolor -0.4 inch -0.25 inch 8.25 inch 6.75 inch .maskrectangle
 1.35 .scalet 1 (aic4.ip) .showip}.cvx .dosave 
    (34) slidenumber
} .cvx .def

(mcsIMSlide25) { % jaggytext
(mcs) mcsframe
1 (jaggytext.ip) .showip
    (22) slidenumber
} .cvx .def

(mcsIMSlide26) { % contours
(mcs) mcsframe
1 (contours.ip) .showip
    (22) slidenumber
} .cvx .def


(mcsIMSlide27) {%constant vs sampled color defs 
(mcs) mcsframe 
1 (SampledColor.ip) .showip
    (28) slidenumber
} .cvx .def


(mcsIMSlide28) { %RGB Color Operator
(mcs) mcsframe 
1 (RGBOperator.ip) .showip
    (29) slidenumber
} .cvx .def


(mcsIMSlide29) { %CMYKOperator
(mcs) mcsframe 
1 (CMYKOperator.ip) .showip
    (29) slidenumber
} .cvx .def

(mcsIMSlide30) {%RGBModelOperator 255 
(mcs) mcsframe 
1 (RGBModelOperator.ip) .showip
    (28) slidenumber
} .cvx .def


(mcsIMSlide31) { %RGBModelOperator 1
(mcs) mcsframe 
1 (RGBModelOperator1.ip) .showip
    (29) slidenumber
} .cvx .def