<<>> <> <> <> <> <> <<>> BeginStyle (look.b) "add bold to font face" {+bold face} StyleRule (look.c) "command name" { +bold face "Helvetica" family} StyleRule (look.e) "emphasis" {the face italic .eq {+bold face} {+italic face} .ifelse .cvx .exec} StyleRule (look.i) "add italic to font face" {+italic face} StyleRule (look.l) "larger font" {12 bp size "TimesRoman" family} StyleRule (look.m) " {18 bp size "TimesRoman" family} StyleRule (look.s) "smaller font" {8 bp size "TimesRoman" family} StyleRule (look.u) "underline all characters" {all underlining} StyleRule (default) "default type for nodes" { standard } StyleRule (header) "for document header info" { standard +italic face } StyleRule (root) "default type for root nodes" { standard 0 pt leftIndent 10 pt topIndent 5 pt rightIndent 4 sp tabStops } StyleRule (ruledef) "for first node of rule definition" { standard "TimesRoman" family 12 pt size regular face 24 pt topLeading 14 pt bottomLeading regular face } StyleRule (step) 0.25 in StyleParam (standard) "set up standard font, etc." { "TimesRoman" family regular face caps+lowercase alphabets 10 pt size 13 pt leading 14 pt topLeading 14 pt bottomLeading IF nestingLevel 1 .eq .not THEN {the step bigger leftIndent} FI IF isComment THEN {standardComment} FI } StyleRule (standardComment) "set up for comment nodes" { italic face 11 pt leading 12 pt topLeading 12 pt bottomLeading } StyleRule EndStyle