% BasicPrint.style % last written by Plass, July 16, 1982 10:12 am % modified by Beach, May 20, 1983 3:11 pm; added left/right footers % see comments after EndStyle % last edited by Beach, August 9, 1983 4:28 pm; added lastLineFormatting StyleParam BeginStyle % provisional Style attributes (default) (default) .def % (centered) (centered) .def % (flushLeft) (flushLeft) .def % (flushRight) (flushRight) .def % (justified) (justified) .def (lastLineFormatting) default StyleParam % Syntactic sugar (bp) "big point" {72.0 .div in} StyleRule (IF) {}.cvx .def (THEN) {}.cvx .def (FI) {.cvx .if}.cvx .def (ELSE) {.cvx}.cvx .def (FIELSE) {.cvx .ifelse}.cvx .def (EXITifTRUE) {{.exit} .cvx .if}.cvx .def (EXITifFALSE) {.not {.exit} .cvx .if}.cvx .def (DO) {}.cvx .def (ENDLOOP) {.cvx .loop}.cvx .def % Page layout control variables (pageNumbering) {.true} .cvx .def (firstPageNumber) {1} .cvx .def (firstHeadersAfterPage) {1} .cvx .def (oneSidedFormat) % set false if you wish two-sided headers/footers {.true} .cvx .def (GalleyWidth) { the pageWidth the leftMargin .sub the rightMargin .sub the rightIndent .sub }.cvx .def % Page layout routines (PageBuilder) { StartPageCounter DO { .page EXITifFALSE HeaderBox .exchbox FooterBox 3 .vbox .shipout IncrPage } ENDLOOP }.cvx .def (StartPageCounter) { (PageCount) (firstPageNumber) .load .def }.cvx .def (GetPageCounter) { (Helvetica) 10 bp .textfont PageCount .cvs .textbox 1 .hbox }.cvx .def (IncrPage) { (PageCount) PageCount 1 .add .def }.cvx .def (IsOddPage) { % determines which page to format: odd => right (recto) page, even => left (verso) page PageCount .dup 2 .div 2 .mul .sub 1 .eq }.cvx .def (HeaderBox) { IF oneSidedFormat THEN { GetHeaders } ELSE { IF IsOddPage THEN { GetRectoHeaders } ELSE { GetVersoHeaders } FIELSE } FIELSE .fill 2 the headerMargin .vboxto } .cvx .def (GetHeaders) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { (insideHeader) .getmark .fill (centerHeader) .getmark .fill GetPageCounter 5 GalleyWidth .hboxto } ELSE { .fill 1 GalleyWidth .hboxto } FIELSE } .cvx .def (GetRectoHeaders) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { (insideRectoHeader) .getmark .fill (centerRectoHeader) .getmark .fill GetPageCounter 5 GalleyWidth .hboxto } ELSE { .fill 1 GalleyWidth .hboxto } FIELSE } .cvx .def (GetVersoHeaders) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { GetPageCounter .fill (centerVersoHeader) .getmark .fill (insideVersoHeader) .getmark 5 GalleyWidth .hboxto } ELSE { (empty) .getmark .fill 2 GalleyWidth .hboxto } FIELSE } .cvx .def (FooterBox) { .fill IF oneSidedFormat THEN { GetFooters } ELSE { IF IsOddPage THEN { GetRectoFooters } ELSE { GetVersoFooters } FIELSE } FIELSE 2 the footerMargin .vboxto } .cvx .def (GetFooters) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { (insideFooter) .getmark .fill (centerFooter) .getmark .fill (outsideFooter) .getmark 5 GalleyWidth .hboxto } ELSE { (empty) .getmark .fill 2 GalleyWidth .hboxto } FIELSE } .cvx .def (GetRectoFooters) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { (insideRectoFooter) .getmark .fill (centerRectoFooter) .getmark .fill (outsideRectoFooter) .getmark 5 GalleyWidth .hboxto } ELSE { (empty) .getmark .fill 2 GalleyWidth .hboxto } FIELSE } .cvx .def (GetVersoFooters) { IF pageNumbering PageCount firstHeadersAfterPage .gt .and THEN { (outsideVersoFooter) .getmark .fill (centerVersoFooter) .getmark .fill (insideVersoFooter) .getmark 5 GalleyWidth .hboxto } ELSE { (empty) .getmark .fill 2 GalleyWidth .hboxto } FIELSE } .cvx .def EndStyle % How to use the various boolean flags: % pageNumbering: default .true => pages are numbered; set to .false if pages are NOT to be numbered % firstPageNumber: number of the first page; can be established by setting Postfix property to (firstPageNumber) 0 .def, or in a Style. % oneSidedFormat: default .true => pages have same headers and footers on each page; set to .false if alternating even/odd headers and footers are desired % How to use header/footer mark properties: % create a Tioga text node with header/footer text % Set property Mark to have a value of the header or footer kind from one of the kinds: insideHeader, centerHeader, outsideHeader, insideRectoHeader, centerRectoHeader, outsideRectoHeader, insideVersoHeader, centerVersoHeader, outsideVersoHeader, insideFooter, centerFooter, outsideFooter, insideRectoFooter, centerRectoFooter, outsideRectoFooter, insideVersoFooter, centerVersoFooter, outsideVersoFooter (although the default style places the page number when outside*Header would go. Other kinds of marks are permissible but unless the layout JaM code is changed to reference them they will disappear into the void (thus spelling errors are not caught). % Be cautious with long text for header/footers. The TSetter should not wedge or fault of course, but the results WILL NOT be pleasing with a high probability. Await TiogaII for this to go away. % How to customize the header/footer layout schemes: % There should be strong evidence of a pattern to the header/footer layout in existence. % One-sided pages have the page number in the top-right corner (where outsideHeader would go), and all the other 5 parts of running head/feet coming from Mark properties. % Two-sided pages have the page number in the top-outside corners (where outside*Header would go), and all the other 11 (count'em!) parts of running head/feet coming from Mark properties. % GetPageCounter arranges to create a box containing the page number. Modify it to include standard text if you wish. % For example, (Helvetica) 10 bp .textfont "Page " .textbox PageCount .cvs .textbox 2 .hbox % in which the text "Page " has been added and the number of boxes increased from 1 to 2, will generate folios of the form "Page 1". Κ'– "style" style˜Iheaderšœ˜Kšœ/˜/KšœC˜CK˜K˜SIruledefšœ ˜ ˜L˜L˜L˜L˜ L˜L˜'—˜LšœΟcœ&˜)LšœΟsœ ˜Lšœžœ ˜Lšœžœ˜Lšœžœ˜Lšœžœ˜ Lšœž œ˜(Lšœž œ"˜.Lšœžœ ˜Lšœžœ˜—˜šœΟb œ˜Jšœ˜—šœŸœ˜Jšœ ˜ —šœŸœ˜Jšœ ˜ —šœŸœ3˜BJšœ˜—šœŸ œ˜J˜KJšœ ˜ ——˜šœŸ œ˜Jšœ˜šžœ˜Jšœž ˜Jšœ ˜ Jšœ˜Jšœ ˜ Jšœ˜Jšœ˜Jšœž˜ —Jšœ ˜ —šœŸœ˜Jšœ(˜(Jšœ ˜ —šœŸœ˜Jšœ;˜;Jšœ ˜ —šœŸœ˜ Jšœ!˜!Jšœ ˜ —šœŸ œ˜ J˜WJ˜'Jšœ ˜ —šœŸ œ˜ šžœžœ˜Jšœ ˜ Jšœžœ˜šžœ žœ˜Jšœ˜Jšœžœ˜Jšœ˜Jšœž˜—Jšœž˜—Jšœ˜Jšœ˜Jšœ ˜ —šœŸ œ˜šžœ8žœ˜@JšœJ˜JJšœ˜Jšœžœ˜Jšœ˜Jšœž˜—Jšœ ˜ —šœŸœ˜šžœ8žœ˜@JšœT˜TJšœ˜Jšœžœ˜Jšœ˜Jšœž˜—Jšœ ˜ —šœŸœ˜šžœ8žœ˜@JšœT˜TJšœ˜Jšœžœ˜Jšœ,˜,Jšœž˜—Jšœ ˜ —šœŸ œ˜ Jšœ˜šžœžœ˜Jšœ ˜ Jšœžœ˜šžœ žœ˜Jšœ˜Jšœžœ˜Jšœ˜Jšœž˜—Jšœž˜—Jšœ˜Jšœ ˜ —šœŸ œ˜šžœ8žœ˜@JšœT˜TJšœ˜Jšœžœ˜Jšœ,˜,Jšœž˜—Jšœ ˜ —šœŸœ˜šžœ8žœ˜@Jšœc˜cJšœ˜Jšœžœ˜Jšœ,˜,Jšœž˜—Jšœ ˜ —šœŸœ˜šžœ8žœ˜@Jšœc˜cJšœ˜Jšœžœ˜Jšœ,˜,Jšœž˜—Jšœ ˜ ——Lšœ ˜ ˜'JšœŸ œT˜cJšœŸœ:Ÿœ6˜ˆJšœŸœŠ˜š—˜+J˜2Jšœ˜J˜Β—˜4J˜XJ˜ͺJ˜»Jšœu˜uJšœ[˜[J˜„——…—ΐν