DocGraphicsSlides.jam
Copyright © 1986 by Xerox Corporation. All rights reserved.
Rick Beach, July 22, 1987 4:49:14 pm PDT
Polle Zellweger (PTZ) August 7, 1986 1:40:13 pm PDT
(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
(slide1) {
(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) {
% <text> 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) {
% [ <text> <text> ] title
% <text> 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) {
% <text> whoframe
(whotext) .exch .def
backgroundBlue -0.5 inch -0.5 inch 13 inch 9 inch .maskrectangle
backgroundLightBlue -0.5 inch 6.0 inch 13 inch 2.5 inch .maskrectangle
black -1 inch 0 inch 14 inch 2 .maskrectangle
black -1 inch 8 inch 14 inch 2 .maskrectangle
black 0 inch -1 inch 1 11 inch .maskrectangle
black 12 inch -1 inch 1 11 inch .maskrectangle
whofont 9.0 inch 5.0 .setxy whotext numberColor drop
(majortext) () .def
(minortext) () .def
} .cvx .def
(whofont) {15 HELVMI} .cvx .def
(whoframe0) {
% <text> whoframe
(whotext) .exch .def
backgroundBlue -0.5 inch -0.5 inch 13 inch 9 inch .maskrectangle
%backgroundLightBlue -0.5 inch 6.0 inch 13 inch 2.5 inch .maskrectangle
black -1 inch 0 inch 14 inch 2 .maskrectangle
black -1 inch 8 inch 14 inch 2 .maskrectangle
black 0 inch -1 inch 1 11 inch .maskrectangle
black 12 inch -1 inch 1 11 inch .maskrectangle
whofont 9.0 inch 5.0 .setxy whotext numberColor drop
(majortext) () .def
(minortext) () .def
} .cvx .def
(whoframenull) {
% <text> 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) {
% <text> 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) {
% <text> 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) {
% <text> 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) {
% <text> 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 0 0 12 inch 8 inch .cliprectangle
.cvx .dosave
0.05 inch 0.05 inch .moveto 11.95 inch 0 .lineto 11.95 inch 7.95 inch .lineto 0 7.95 inch .lineto .maskstrokeclosed
} .cvx .def
10 HELVB 4.25 inch 10.5 inch .setxy (DOCUMENTATION GRAPHICS) center
10 HELVB 4.25 inch 0.5 inch .setxy (SIGGRAPH'86) center
black 0 0 .moveto 8.5 inch 0 .lineto 8.5 inch 11 inch .lineto 0 11 inch .lineto .maskstrokeclosed
1 inch 2 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