(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