(StandardDemo.jam
Edited by Mik Lamming, July 15, 1983 5:44 pm
Edited by Doug Wyatt, July 21, 1983 5:49 pm) =
% once this is loaded, you can do the following
% showshow to run through an entire demo. Start on the black and white display
% cameodemo to do the little girl in an ellipse
% all of the arrow/border pattern demos
% The slides in Slides.jam
(graphics.jam) .run
(color8.bcd).loadbcd
(setup) (
.false .keepgl
.false .dorefresh
(circlepatches.jam) .run
(parc.jam) .run
(arrowdemo.jam) .run
(slides.jam) .run
(griffin.jam) .run
(borderpattern) (spiral) .load .def
(showcurve)(slide10) .load .def
).cvx .def
(reset) (
.initdc e
) .cvx .def
(dtouch)(
.touch .touch
) .cvx .def
(showmonk)(
.initdc .pushdc .6 .6 .scale white (monk.ais) .drawimage .popdc
) .cvx .def
(showrmonk)(
.initdc .pushdc .3 .3 .scale 25 .rotate .touch .translate 0 0 .setcp
white (monk.ais) .drawimage .popdc
) .cvx .def
(showlogo)(
.pushdc 50 50 .translate 0 0 .setcp 80 3. .div .dup .scale parc .popdc
.pushdc 50 350 .translate 0 0 .setcp 80 3. .div .dup .scale .75 .5 .scale parc .popdc
) .cvx .def
(showtriangle)(
.black 3 area
) .cvx .def
(showstar)(
.black 5 area
) .cvx .def
(showcaption)(
.initdc (Helveticad24.ks) .setfont
goldencream 80 60 .setcp (Xerox/ISL, September 1982) .drawtext
) .cvx .def
(showfox)(
(TimesRoman18.ks) .setfont
.touch .setcp fox .drawtext .touch .setcp fox .drawtext
.pushdc .touch .setcp 30 .rotate fox .drawtext .popdc
.pushdc .touch .setcp 2 2 .scale fox .drawtext .popdc
.pushdc .touch .setcp 1 2 .scale fox .drawtext .popdc
).cvx .def
(showcable) (
(cablecar.jam) .run
).cvx .def
(showshow)(
(dtouch to show PARC logo) =
dtouch showlogo
(Parc logo finished) =
(dtouch to show monk) =
dtouch e showmonk
(Monk finished..touch near his ear for a rotated monk) =
showrmonk
(Monk finished..Touch 3 points in a triangle) =
showtriangle
(Triangle finished..Touch 5 points in a star) =
.white 5 area .black
(Star finished..dtouch for San Francisco cable car) =
dtouch e showcable
(Cable car finished..dtouch to erase, then 5 touches for foxes) =
dtouch e showfox
(Foxes finished..move JaMGraphics viewer to color display.) =
8 .turnoncolor griffinmap
(dTouch to start colordemo) =
dtouch
reset darkGreen 0 0 1000 1000 .drawbox
.initdc .pushdc .4 .4 .scale 400 230 .translate 0 0 .setcp white (monk.ais) .drawimage .popdc
(Monk finished..Touch 3 points in a triangle) =
darkBlue 3 area
(Triangle finished..dtouch for San Francisco cable car, in color this time) =
dtouch e .pushdc 100 0 .translate .6 .6 .scale showcable .popdc
(Cable car finished..dtouch for path slide) =
dtouch e showcurve
(dTouch to start cameodemo) =
dtouch e showcameo
) .cvx .def
(cameodemo) (
.pushdc
(std.tab) LoadMap
brown 0 0 1000 1000 .drawbox
(dtouch for ellipse clipping region) =
dtouch
.6 .6 .scale 250 150 .translate
390 500 elipse .cliparea gray 0 0 1000 1000 .drawbox
(dtouch for the color image) =
dtouch
0 0 .setcp (ygn-std.ais) ShowRawImage .popdc
(dtouch for spiral border pattern) =
dtouch
(borderpattern) (spiral) .load .def
(color1) (.97 .6 .8 .hsvcolor).cvx .def
20 80 cameoborder
(dtouch for caption) =
dtouch
showcaption
(dtouch to show first blowup - 5x) = dtouch blowup1 (dtouch to show second blowup - 10x) = dtouch blowup2
(dtouch to show regular size) = dtouch regularSize
(dtouch to fiddle with the color map) = dtouch
RotateColors
(dtouch to restore the color map) =
dtouch
reset
RestoreMap griffinmap
).cvx .def
(showcameo) (cameodemo) .load .def

(blowup1) (
 .pushdc -350 -650 .translate 0 0 .moveto 0 0 .setcp
 5 5 .scale (ygn-std.ais) ShowRawImage .popdc
 ) .cvx .def
(blowup2) (
 .pushdc -900 -1600 .translate 0 0 .moveto 0 0 .setcp
 10 10 .scale (ygn-std.ais) ShowRawImage .popdc
 ) .cvx .def

(regularSize) (
 .pushdc .6 .6 .scale 250 150 .translate 0 0 .setcp (ygn-std.ais) ShowRawImage .popdc
 ) .cvx .def

setup