Style.style
Copyright Ó 1985, 1986, 1987, 1991 by Xerox Corporation. All rights reserved.
last written by Paxton, July 22, 1982 2:59 pm
Rick Beach, August 5, 1985 4:50:07 pm PDT
Michael Plass, November 23, 1987 12:40:53 pm PST
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) "
%©#è®ÒC®"
{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