<> <> <> <> <<>> <<>> BeginStyle (basicSize) 12 bp StyleParam (basicIncrement) 2 bp StyleParam (extraLead) 2 bp StyleParam (magnification) 1.0 StyleParam (Magnified) {the magnification .mul} .cvx .def (BasicSize) {the basicSize Magnified} .cvx .def (BasicIncrement) {the basicIncrement Magnified} .cvx .def (ExtraLead) {the extraLead Magnified} .cvx .def (SmallerSize) "Make the font size smaller" {BasicIncrement smaller size} StyleRule (BasicLeading) % normal type leading {BasicSize ExtraLead .add} .cvx .def (MoreLead) % double inter-paragraph spacing {ExtraLead 3 .mul} .cvx .def (BreakSize) % normal inter-paragraph spacing {BasicSize 9.875 bp .add} .cvx .def (look.u) "up, for superscript " { the size 0.4 .mul vShift SmallerSize} StyleRule (pageBreak) "to force a new page" { 0 pt 1 filll 0 pt topLeadingGlue 1 fil 0 pt 0 pt bottomLeadingGlue } PrintRule (pageBreak) "to force a new page" { } ScreenRule (head4list) "an item in a No. 4 head list" { default 3 sp restIndent the restIndent tabStops } StyleRule (firstReference) "an item in a reference list" { default BreakSize MoreLead 0 topLeadingGlue flushLeft lineFormatting 4 sp restIndent the restIndent tabStops } StyleRule (reference) "an item in a reference list" { default flushLeft lineFormatting 4 sp restIndent the restIndent tabStops } StyleRule (root) "format for the root node" { 0 topMargin 0 headerMargin 0 pt footerMargin 0 pt bottomMargin .1 in leftMargin .25 in rightMargin 8.5 in lineLength 0 pt leftIndent 0 pt rightIndent 2 column 0.375 in columnGap 8.5 in pageWidth 11.21875 in pageLength %11 in pageLength 999999 firstHeaders } StyleRule (dofont) "" {"xerox/pressfonts/XeroxBook-mrr" family} PrintRule (dofont) "" {"gacha" family} ScreenRule (default) "default for undefined formats" { dofont 1 in tabStops 12 bp leading 12 bp topLeading IF isComment THEN {italic face} ELSE {regular face} FI <> } StyleRule (block) "for block paragraphs, no initial indentation" { default BreakSize MoreLead 0 topLeadingGlue 4 maxHorizontalExpansion (English) hyphenation flushLeft lineFormatting } StyleRule (center) "center" { default centered lineFormatting centered lastLineFormatting } StyleRule EndStyle