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
   ¦  
xeroxc.style
Copyright Ó 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, April 16, 1991 2:20 pm PDT

normal amount to indent nested code nodes
Ê*  –(cedarcode) style•NewlineDelimiter
™ ™Icodešœ
Ïeœ1™<Jšœ)™)J™ —˜
J˜ šœÏbœ˜J˜ —šœžœG˜TJ˜Jšœ˜J˜ —šœžœ˜Jšœ˜Jšœ˜J˜ —šœž
œ˜Jšœ˜Jšœ˜J˜ —šœžœ˜$Jšœ	Ïkœ˜Jšœ˜J˜ —Jšœžœ$˜)šœž
œ˜Jšœ)™)—Jšœžœ&˜.šœžœ/˜;J˜ J˜ —šœžœ˜J˜J˜
J˜J˜ —šœÏnœ˜Jšœ˜JšŸœŸœŸœŸ˜FJ˜J˜ —šœ 
œ˜(Jšœ˜JšŸœŸœŸ˜?J˜J˜ —šœ œ2˜:J˜J˜J˜ —šœ œ˜Jšœ˜JšœŸœŸœŸ˜OJšœ
˜
JšŸœŸœ
ŸœŸ˜1J˜J˜ —šœžœÏcœ˜šœ<˜<J˜ ——šœžœ¡œ˜"JšœP˜P—˜ J˜ ——J˜— …—      à  