(SampleSlides.JaM
Created by Rick Beach, August 3, 1983 4:06 pm) =
-- check if DunnSlides.JaM has been loaded; load it if it hasn't
(title) .where {.pop} {(DunnSlides.JaM) .run} .ifelse .cvx .exec
(
titleSlide) {
(Graphical Style) title
(Towards High Quality Illustrations) centerText
halfLineSpace
halfLineSpace
medFont
(Richard J. Beach and Maureen Stone) centerText
(Imaging Sciences Laboratory) centerText
(XEROX Palo Alto Research Center) centerText
XeroxLogo
}.cvx .def
(
slide1) {
(Book Quality Illustrations) title
halfLineSpace
(Publication Quality Standards) bulletText
(A Single Illustration) bulletText
(A Family of Illustrations) bulletText
(House Style) indentText
(Consistency) indentText
XeroxLogo
} .cvx .def
(
slide2) {
(Scientific American Illustrations) title
halfLineSpace
(House Style) bulletText
(Thin Lines, Arrowheads) indentText
(Helvetica typeface, Colors) indentText
(Sketch to Finished Artwork) bulletText
(Some Observations) bulletText
XeroxLogo
} .cvx .def
(
slide3) {
(Traditional Book Illustration) title
halfLineSpace
(Groups of Similar Illustrations) bulletText
(Style Guidelines) bulletText
(Reproduction Quality) bulletText
XeroxLogo
} .cvx .def
(
slide4) {
(Illustrations for Various Media) title
halfLineSpace
(What changes?) bulletText
(Textbook Illustrations) bulletText
(Projected Illustrations) bulletText
XeroxLogo
} .cvx .def
(
slide5) {
(Graphic Design) title
halfLineSpace
(Book Design Discipline) bulletText
(Layout Grid) bulletText
(Typography Specification) bulletText
XeroxLogo
} .cvx .def
(
slide6) {
(Graphical Style) title
halfLineSpace
(Capture Design Discipline for Illustrations) bulletText
(Artwork Rendering Attributes) bulletText
(Integration with Text Editor/Formatter) bulletText
(Expression of Illustrator's Intent) bulletText
XeroxLogo
} .cvx .def
(
slide7) {
(Text Formatter Model) title
halfLineSpace
(Separation of Content vs Form) bulletText
(Content: Textual matter) indentText
(Form: Layout and appearance) indentText
(Illustration Analogy) bulletText
(Geometry vs Rendering) indentText
XeroxLogo
} .cvx .def
(
slide8) {
(Geometry vs Rendering) title
halfLineSpace
(Geometry) bulletText
(Positions, Transformations, Paths) indentText
(Rendering) bulletText
(Attributes, Algorithms, Style) indentText
XeroxLogo
} .cvx .def
(
slide9) {
(Illustration Rendering) title
halfLineSpace
(Graphics Package Attributes) bulletText
(Color, Line Weight, Line Pattern) indentText
(Typography) bulletText
(Type Family, Face, Size) indentText
(Composition, Layout) indentText
(Interaction among Illustration Components) bulletText
(Relative Positions, Boxed Text) indentText
(Arrows, Shadows) indentText
XeroxLogo
} .cvx .def
(
slide10) {
(TiogaArtwork Experiment) title
halfLineSpace
(Cedar Programming Environment) bulletText
(Tioga Text Editor and Typesetter) bulletText
(Cedar Graphics Package) bulletText
(Griffin Illustrator) bulletText
XeroxLogo
} .cvx .def
(
slide11) {
(Integration with Typesetter) title
halfLineSpace
(Illustrations within Documents) bulletText
(Recursion between) bulletText
(Typesetter and TiogaArtwork) indentText
(Two Passes: Layout & Rendering) bulletText
XeroxLogo
} .cvx .def
(
slide12) {
(Representation of Illustrations) title
halfLineSpace
(Tioga Document Structure) bulletText
(Hierarchical tree-structured document) indentText
(Nodes contain text) indentText
(Illustrations in Tioga Documents) bulletText
(Image Representation) bulletText
(Display Lists) indentText
(Picture Language) indentText
XeroxLogo
} .cvx .def
(
slide13) {
(Representation of Graphical Style) title
halfLineSpace
(Extend Tioga Style Language) bulletText
(Graphical Rendering Attributes) indentText
(Caption Layout Attributes) indentText
(Control Rendering Algorithms) bulletText
(Shadows) indentText
(Arrows) indentText
(Border Patterns) indentText
XeroxLogo
} .cvx .def
(
slide14) {
(Observations from TiogaArtwork) title
halfLineSpace
(Capture Illustration Creator's Intent) bulletText
(Media Independence Through Styles) bulletText
(Integration of Text Formatter and Illustrator) bulletText
(Necessity of Tools for Styles) bulletText
XeroxLogo
} .cvx .def
(
slide15) {
(Future Research) title
halfLineSpace
(Capturing Relationships) bulletText
(Expanding Typography in Illustrations) bulletText
(Integrating Layout Facilities) bulletText
(Illustration Tools with Graphical Style) bulletText
(Integration with Additional Illustration Sources) bulletText
(Configurable Illustrations for Various Layouts) bulletText
XeroxLogo
} .cvx .def
(
slide16) {
(With Thanks To:) title
halfLineSpace
(George Roth, Graphic Designer) bulletText
(XEROX PARC) bulletText
(Research Intern Program) indentText
(Imaging Sciences Lab, XEROX PARC) bulletText
(Cedar Graphics, Tioga) indentText
XeroxLogo
} .cvx .def
(
StyleRecursion) {
blueBackground
(StyleRecursionTrapezoidalRule) .where {.pop} {(StyleRecursion.JaM) .run} .ifelse .cvx .exec
.pushdc 410 180 .translate StyleRecursionTrapezoidalRule .popdc
447 166 .setpos smallFont (Typesetter) shadowedText
.pushdc 270 180 .translate StyleRecursionTiogaArtwork .popdc
253 166 .setpos smallFont (TiogaArtwork) shadowedText
.pushdc 90 180 .translate StyleRecursionTypesetter .popdc
100 166 .setpos smallFont (Typesetter) shadowedText
} .cvx .def
(
StyleArrow) {
blueBackground
(arrowhead1) .where {.pop} {(arrowdemo.jam) .run} .ifelse .cvx .exec
.pushdc
375 200 .translate 1 1 .scale
graphics .begin quiver .begin
(arrowpattern) (4 2 arrowhead1 10 2 arrowfeather3 yellow drawarea).cvx .def
225 100 150 3 75 100 5 3 15 givenarrow
.end .end
.popdc
XeroxLogo
InitDC
} .cvx .def
(
StyleBorder) {
blueBackground
(givenborder) .where {.pop} {(arrowdemo.jam) .run} .ifelse .cvx .exec
.pushdc
350 200 .translate 1 1 .scale
graphics .begin quiver .begin
(borderpattern) {white 0 -.5 move 1 -.5 line 1 .4 line 0 .4 line drawarea .red 0 -.5 move 0 .4 line .9 .4 line .9 -.3 line .4 -.3 line .4 0 line .6 0 line .6 .1 line .3 .1 line .3 -.4 line 1.0 -.4 line 1.0 -.5 line .2 -.5 line .2 .2 line .7 .2 line .7 -.1 line .5 -.1 line .5 -.2 line .8 -.2 line .8 .3 line .1 .3 line .1 -.5 line drawarea}.cvx .def
5 3 75 100 150 3 225 100 20 20 givenborder
.end .end
.popdc
XeroxLogo
InitDC
} .cvx .def