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
(mcsIMSlide
1) { % birdshapes
(mcs) mcsframe
1 (HummingBirdSlide.ip) .showip
(13) slidenumber
} .cvx .def
(mcsIMSlide
2) { %Imager block diagram
(mcs) mcsframe
1 (imagerarchitecture.ip) .showip
(31) slidenumber
} .cvx .def
(mcsIMSlide
3) { %Simple Application
(mcs) mcsframe
1 (ImagerSimpleApplication.ip) .showip
(31) slidenumber
} .cvx .def
(mcsIMSlide
4) { %Complex Application
(mcs) mcsframe
1 (ImagerApplication.ip) .showip
(31) slidenumber
} .cvx .def
(mcsIMSlide
5) { %Printing system
(mcs) mcsframe
1 (ImagerInterpress.ip) .showip
(31) slidenumber
} .cvx .def
(mcsIMSlide
6) { % 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
(mcsIMSlide
7) { %shapes
(mcs) mcsframe
(shapes.jam) .run
(15) slidenumber
} .cvx .def
(mcsIMSlide
8) { %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
(mcsIMSlide
9) { %bird outline
(mcs) mcsframe
(BirdShape.jam) .run
(17) slidenumber
} .cvx .def
(mcsIMSlide
10) { %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
(mcsIMSlide
11) { %fill types
(mcs) mcsframe
(Fill.jam) .run
(19) slidenumber
} .cvx .def
(mcsIMSlide
12) { %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
(mcsIMSlide
13) { %dashed lines
(mcs) mcsframe
{ 0.25 inch 0.75 inch .translatet 2.0 .scalet (Dashed.jam) .run}.cvx .dosave
(21) slidenumber
} .cvx .def
(mcsIMSlide
14) { % 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
(mcsIMSlide
15) { %rainbow bird
(mcs) mcsframe
{
0.15 inch 0.375 inch 11.625 inch 7.5 inch .cliprectangle
rainbowbird}.cvx .dosave
(23) slidenumber
} .cvx .def
(mcsIMSlide
16) { %silly text
(mcs) mcsframe
(ShoreBirds.jam) .run
(24) slidenumber
} .cvx .def
(mcsIMSlide
17) { %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
(mcsIMSlide
18) { %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
(mcsIMSlide
19) { %classic picture again
mcsIMSlide14
} .cvx .def
(mcsIMSlide
20) {%color definitions
(mcs) mcsframe
(ColorDefs.jam) .run
(28) slidenumber
} .cvx .def
(mcsIMSlide
21) { %sampled color defs
(mcs) mcsframe
(SampledColor.jam) .run
(29) slidenumber
} .cvx .def
(mcsIMSlide
22) { %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
(mcsIMSlide
23) { %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
(mcsIMSlide
24) { %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
(mcsIMSlide
25) { % jaggytext
(mcs) mcsframe
1 (jaggytext.ip) .showip
(22) slidenumber
} .cvx .def
(mcsIMSlide
26) { % contours
(mcs) mcsframe
1 (contours.ip) .showip
(22) slidenumber
} .cvx .def
(mcsIMSlide
27) {%constant vs sampled color defs
(mcs) mcsframe
1 (SampledColor.ip) .showip
(28) slidenumber
} .cvx .def
(mcsIMSlide
28) { %RGB Color Operator
(mcs) mcsframe
1 (RGBOperator.ip) .showip
(29) slidenumber
} .cvx .def
(mcsIMSlide
29) { %CMYKOperator
(mcs) mcsframe
1 (CMYKOperator.ip) .showip
(29) slidenumber
} .cvx .def
(mcsIMSlide
30) {%RGBModelOperator 255
(mcs) mcsframe
1 (RGBModelOperator.ip) .showip
(28) slidenumber
} .cvx .def
(mcsIMSlide
31) { %RGBModelOperator 1
(mcs) mcsframe
1 (RGBModelOperator1.ip) .showip
(29) slidenumber
} .cvx .def