<<>> <> <> <> <<>> BeginStyle (Cedar) AttachStyle (XCPrintFonts) "font prefix for Xerox Character Code fonts suitable for hardcopy" { "Xerox/XC1-3-3/" fontPrefix } StyleRule (CodeFont) "code font" { "Modern" family } StyleRule (FontFamily) "main font" { "Modern" family } StyleRule (AlternateFontFamily) "other font" { "Classic" family } StyleRule (Nest) "nop for this style" {} StyleRule (codeIndent) 15 bp StyleParam <> (TabSize) {the codeIndent Magnified} .cvx .def (HalfTabSize) {the codeIndent Magnified 0.5 .mul} .cvx .def (root) "for root node" { XeroxCharCodes cedar.root } StyleRule (code) "for code" { standard IF isComment THEN {0.5 em restIndent} ELSE {HalfTabSize restIndent} FI } StyleRule (codeExdent) "for exdented code nodes" { code IF nestingLevel 1 .eq .not THEN {TabSize smaller leftIndent} FI } StyleRule (default) "style rule for nodes without explict formats" { code } StyleRule (standard) "shared" { cedar.standard TabSize tabStops IF nestingLevel 1 .eq .not THEN {TabSize bigger leftIndent} FI FontFamily IF isComment THEN {look.c} ELSE {regular face} FI } StyleRule (look.c) "comments" { +italic face AlternateFontFamily 2 pt bigger size} StyleRule (look.t) "used for placeholders" { "xerox/tiogafonts/" fontPrefix "tioga" family regular face 10 bp size} StyleRule EndStyle