
BeginStyle

(Cedar) AttachStyle

(nestIndent) 0 StyleParam
(NestIndent) {the nestIndent sp Magnified} .cvx .def

(DefaultNest) "for everything" {DoNest} StyleRule

(AsciiFont) "This fixed-pitch font is available on the printers..." {
FixedPitchFont
} PrintRule
(AsciiFont) "...and this one is available for the screen" {
"AMTeX" family
} ScreenRule

(root) "our own special root format, overriding parts of cedarRoot" {
cedarRoot
BasicSize size
} StyleRule

(default) "most nodes" { scheme } StyleRule

(schemer) "common to all Scheme nodes" {
standard
AsciiFont
Nest
8 sp tabStops
IF isComment THEN {look.c 0 sp restIndent} ELSE {6 sp restIndent} FI
} StyleRule

(scheme) "normal Scheme nodes" {
scheme3
} StyleRule

(scheme1) "indented by 1 space" {
1 nestIndent
schemer
} StyleRule

(scheme2) "indented by 2 spaces" {
2 nestIndent
schemer
} StyleRule

(scheme3) "indented by 3 spaces" {
3 nestIndent
schemer
} StyleRule

(scheme4) "indented by 4 spaces" {
4 nestIndent
schemer
} StyleRule

(scheme5) "indented by 5 spaces" {
5 nestIndent
schemer
} StyleRule

(scheme6) "indented by 6 spaces" {
6 nestIndent
schemer
} StyleRule

(scheme7) "indented by 7 spaces" {
7 nestIndent
schemer
} StyleRule

(scheme8) "indented by 8 spaces" {
8 nestIndent
schemer
} StyleRule

(scheme9) "indented by 9 spaces" {
9 nestIndent
schemer
} StyleRule

(scheme10) "indented by 10 spaces" {
10 nestIndent
schemer
} StyleRule

(scheme11) "indented by 11 spaces" {
11 nestIndent
schemer
} StyleRule

(scheme12) "indented by 12 spaces" {
12 nestIndent
schemer
} StyleRule

(scheme13) "indented by 13 spaces" {
13 nestIndent
schemer
} StyleRule

(scheme14) "indented by 14 spaces" {
14 nestIndent
schemer
} StyleRule

(scheme15) "indented by 15 spaces" {
15 nestIndent
schemer
} StyleRule

(scheme16) "indented by 16 spaces" {
16 nestIndent
schemer
} StyleRule

(scheme17) "indented by 17 spaces" {
17 nestIndent
schemer
} StyleRule

(scheme18) "indented by 18 spaces" {
18 nestIndent
schemer
} StyleRule

(scheme19) "indented by 19 spaces" {
19 nestIndent
schemer
} StyleRule

(scheme20) "indented by 20 spaces" {
20 nestIndent
schemer
} StyleRule

(look.c) "Scheme comments" {
look.i look.f
} StyleRule

(look.k) "Scheme syntactic keywords" {
look.f look.i look.z
} StyleRule

(look.n) "Scheme defined names" {
look.f look.b
} StyleRule

EndStyle


   ü  
Scheme.Style
Copyright Ó 1987, 1990, 1991 by Xerox Corporation.  All rights reserved.
Last Changed by Pavel on May 15, 1990 2:56 pm PDT
Michael Plass, January 6, 1988 9:38:54 am PST
Last tweaked by Mike Spreitzer on May 16, 1990 8:23:06 am PDT

Ê  •NewlineDelimiter
–(cedarcode) style™ ™Icodešœ
Ïeœ=™HJ™1K™-K™=—J˜ J˜
Iitem˜ LšœÏbœ˜L˜ šœž
œ˜L™ —Lšœž
œ)˜4L˜ Lšœžœ%˜1L˜ šœž	œ;˜ELšœ˜L˜—šœž	œ1˜;Lšœ˜Lšœ˜—L˜ šœžœ@˜ELšœ	˜	Lšœ˜Lšœ˜—L˜ Lšœžœ#˜+L˜ šœžœ ˜(L˜L˜	L˜Lšœ˜LšÏkœŸœŸœŸ˜DL˜—L˜ šœžœ˜ L˜L˜—L˜ šœžœ˜!L˜Lšœ˜L˜L˜ —šœžœ˜"L˜Lšœ˜L˜L˜ —šœžœ˜"L˜Lšœ˜L˜L˜ —šœžœ˜"L˜Lšœ˜L˜L˜ —šœžœ˜"Lšœ˜Lšœ˜L˜L˜ —šœžœ˜"Lšœ˜Lšœ˜L˜L˜ —šœžœ˜"Lšœ˜Lšœ˜L˜L˜ —šœžœ˜"Lšœ˜Lšœ˜L˜L˜ —šœžœ˜"Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜L˜ —šœžœ˜$Lšœ˜Lšœ˜L˜—L˜ šœžœ˜L˜L˜L˜ —šœžœ˜&Lšœ˜L˜L˜ —šœžœ˜!L˜L˜—L˜ J˜J˜ J˜ — …—    	  +  