% TwoColumnCedar.Style
% last written by Plass, November 17, 1982 4:20 pm
% last written by Beach, June 6, 1983 9:02 am
BeginStyle
(Cedar) AttachStyle
% Syntactic sugar
(bp) "big point" {72.0 .div in} StyleRule
(IF) {}.cvx .def
(THEN) {}.cvx .def
(ELSE) {.cvx}.cvx .def
(FI) {.cvx .if}.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 StyleRules
(root) "default format for root nodes for two-column layout" {
24 pt topIndent
24 pt topLeading
0 pt leftIndent
10 pt rightIndent
3 in lineLength
8.5 in pageWidth
11 in pageLength
.5 in topMargin
.8 in headerMargin
.5 in footerMargin
.5 in bottomMargin
1 in leftMargin
1 in rightMargin
} StyleRule
% Page layout routines
(PageBuilder) {
StartPageCounter
DO {
.page EXITifFALSE
.fill
.page IF .not THEN {.fill} FI
3 .hbox
HeaderBox
.exchbox
FooterBox
3 .vbox .shipout
IncrPage
} ENDLOOP
}.cvx .def
EndStyle