<<>> <> <> <> <> <> 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