<> <> <> <> <<>> (DocGraphicsSlides.jam) = (slide.jam).run <<(PresTools.jam).run % Jock's talk on Presentation Tools>> <<(Introduction.jam).run % Rick's Introduction>> <<(QualityIssues.jam).run % Rick's Quality Issues>> <<(PageDescLang.jam).run % Ricks Page Description Languages>> (dunntest) [ (rjbIntro1) (rjbQuality3) (rjbPDL4) (rjbPDLVFA1) (rjbPDLDoc3) (jdm12) (jdm15) (slide13) (slide14) (slide20) (slide31) ] .def (newleft) { % touch the rightmost text in slide; new xxxleft value suggested 12 inch .touch .pop .sub xxxleft .add 2 .div 72 .div (suggested xxxleft) = = } .cvx .def (slide
1) { (xxxleft) 1.0 inch .def (xxxindent) xxxleft 0.5 inch .add .def (xxxtop) 5.5 inch .def (xxxgap) 0.7 inch .def (xxxsmallgap) 0.45 inch .def (
Name) whoframe (
Title) title [ (
Title) (
Subtitle) ] title (
Point) major (
Subpoint) minor (
Subpoint) minor (
Point) major (
Point) major (
Point) major (
1) slidenumber } .cvx .def (printit) { % centerpoint {.true .setpriorityimportant
Name}.cvx (
Name.ip) .makeinterpress } .cvx .def (slideex) { (xxxleft) 1.0 inch .def (xxxindent) xxxleft 0.5 inch .add .def (xxxtop) 5.5 inch .def (xxxgap) 0.7 inch .def (xxxsmallgap) 0.45 inch .def (Rick Beach) whoframe [ (Documentation Graphics) (Quality Issues) ] title (· Major point) major (Minor point) minor (Useless point) minor (· Another great idea) major (· wonder what will come next) major (· Mumble Mumble) major (1) slidenumber } .cvx .def (clipslide) {12 inch 8 inch 0.25 inch roundCornerBox 1 .makeoutline .clipoutline} .cvx .def (titlefont) {54 LUCSB} .cvx .def (title) { % [ ] title % title (xxxtitle) .exch .def xxxtitle .type (.rope) .eq { 6 inch 6.75 inch .setxy titlefont xxxtitle textColor dropCenter } { xxxtitle .type (.array) .eq { 6 inch 7.15 inch .setxy titlefont xxxtitle 0 .aget textColor dropCenter 6 inch 6.3 inch .setxy titlefont xxxtitle 1 .aget textColor dropCenter } { (title argument is neither a rope or array) = } /ifelse } /ifelse (majortext) () .def (minortext) () .def } .cvx .def (whoframe) { % whoframe (whotext) .exch .def backgroundBlue 0 inch 0 inch 12 inch 8 inch .maskrectangle backgroundLightBlue 0 inch 6.0 inch 12 inch 2 inch .maskrectangle 8 .setstrokewidth black 0 0 .moveto 12 inch 0 .lineto 12 inch 8 inch .lineto 0 8 inch .lineto .maskstrokeclosed whofont 9.0 inch 5.0 .setxy whotext numberColor drop (majortext) () .def (minortext) () .def } .cvx .def (whofont) {15 HELVMI} .cvx .def (whoframe0) { % whoframe (whotext) .exch .def backgroundBlue 0 inch 0 inch 12 inch 8 inch .maskrectangle 8 .setstrokewidth black 0 0 .moveto 12 inch 0 .lineto 12 inch 8 inch .lineto 0 8 inch .lineto .maskstrokeclosed whofont 9.0 inch 5.0 .setxy whotext numberColor drop (majortext) () .def (minortext) () .def } .cvx .def (whoframenull) { % whoframe (whotext) .exch .def white -0.5 inch -0.5 inch 13 inch 9 inch .maskrectangle %backgroundLightBlue -0.5 inch 6.0 inch 13 inch 2.5 inch .maskrectangle (majortext) () .def (minortext) () .def (majorColor) (black) .def (minorColor) (black) .def } .cvx .def (centerpoint) { % centerpoint (centertext) .exch .def majorfont 6.0 inch xxxtop .setxy centertext majorColor dropCenter (xxxtop) xxxtop xxxgap .sub .def } .cvx .def (majortext) () .def (majorfont) {40 LUCSB} .cvx .def (major) { % 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 (minortext) () .def (minorfont) {32 LUCSB} .cvx .def (minor) { % minor (minortext) .exch .def majortext .length 0 .gt { (xxxtop) xxxtop xxxgap xxxsmallgap .sub .add .def } .cvx .if minorfont xxxindent xxxtop .setxy minortext minorColor drop (xxxtop) xxxtop xxxsmallgap .sub .def (majortext) () .def } .cvx .def (slidenumberfont) {20 MODM} .cvx .def (slidenumber) { % slidenumber slidenumberfont 0.1 inch 0.1 inch .setxy numberColor drop } .cvx .def (backgroundBlue) {"Xerox/Research/Slides/background" .findcolor .setcolor}.cvx .def (backgroundLightBlue) {"Xerox/Research/Slides/titleBackground" .findcolor .setcolor}.cvx .def (textColor) ("Xerox/Research/Slides/titleText" .findcolor .setcolor) .def (numberColor) ("Xerox/Research/Slides/slideNumber" .findcolor .setcolor) .def (majorColor) ("Xerox/Research/Slides/text" .findcolor .setcolor) .def (minorColor) ("Xerox/Research/Slides/text" .findcolor .setcolor) .def (sixPerPage) {{ % (backgroundBlue) {white}.cvx .def % (backgroundLightBlue) {white}.cvx .def % (textColor) (black).def % (numberColor) (black) .def % (majorColor) (black) .def % (minorColor) (black) .def (slidesetup) { 1 4 .div .scalet -6 -6 12 inch 12 .add 8 inch 12 .add .cliprectangle .cvx .dosave %12 .setstrokewidth 0 inch 0 inch .moveto 12 inch 0 .lineto 12 inch 8 inch .lineto 0 8 inch %.lineto .maskstrokeclosed } .cvx .def 10 HELVB 4.25 inch 10.5 inch .setxy talkTitle center 10 HELVB 4.25 inch 0.5 inch .setxy (DOCUMENTATION GRAPHICS TUTORIAL / SIGGRAPH '87) center %black 0 0 .moveto 8.5 inch 0 .lineto 8.5 inch 11 inch .lineto 0 11 inch .lineto .maskstrokeclosed 1 inch 1.5 inch .translatet {.dup = 3.5 inch 0 inch .translatet slidesetup} .cvx .dosave {.dup = 0 inch 0 inch .translatet slidesetup} .cvx .dosave {.dup = 3.5 inch 3 inch .translatet slidesetup} .cvx .dosave {.dup = 0 inch 3 inch .translatet slidesetup} .cvx .dosave {.dup = 3.5 inch 6 inch .translatet slidesetup} .cvx .dosave {.dup = 0 inch 6 inch .translatet slidesetup} .cvx .dosave } .cvx .dosave } .cvx .def