(Style) Style
(BasicLooks) AttachStyle
(
look.e) "emphasis" {
the face italic .eq {+bold face} {+italic face} .ifelse .cvx .exec
} StyleRule
(
look.c) "command name" {
+bold face} StyleRule
(step) 0.25 in .def
(
standard) "set up standard font, etc." {
"Tioga" family
regular face
caps+lowercase alphabets
10 pt size
13 pt leading
14 pt top leading
14 pt bottom leading
flush left line formatting
} StyleRule
(
default) "default type for nodes" {
standard
step bigger left indent
} StyleRule
(
header) "for document header info" {
standard
+italic face
step bigger left indent
} StyleRule
(
ruledef) "for first node of rule definition" {
"TimesRoman" family
12 pt size
step bigger left indent
regular face
24 pt top leading
14 pt bottom leading
regular face
} StyleRule
(
root) "default type for root nodes" {
standard
10 pt top indent
step .neg .1 in .add left indent
5 pt right indent
4 sp tab stops
} StyleRule
EndStyle