(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)(setblue slide10) .cvx .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