xeroxc.style
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Michael Plass, April 16, 1991 2:20 pm PDT
BeginStyle
(
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
normal amount to indent nested code nodes
(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