Simple.Style
Copyright Ó 1987, 1990, 1991, 1992 by Xerox Corporation. All rights reserved.
Michael Plass, February 10, 1992 10:15 am PST
Last changed by Pavel on March 8, 1990 6:20 pm PST
This style is just complicated enough to show nesting level by indentation and comments by italics. It provides no looks or special formats, and is useful if you wish to see only the content of a document without the fancy formatting.
BeginStyle
(root) "format for the root node" {
2 pt bigger topLeading
Tioga supplies reasonable defaults for the critical style parameters; we just change the topLeading here to give a little more space between nodes.
IF isPrint THEN {(xerox/xc1-3-3/) fontPrefix} ELSE {9 in lineLength} FI
For printing, we need different fonts. And for screens, we want to be able to have longer lines.
} StyleRule
(default) "default for undefined formats" {
nestingLevel 1 .sub 20 .mul 2 .add pt leftIndent
Show the nesting level by indentation. That's postfix for (nestingLevel-1)*20+2
IF isComment THEN {italic face} ELSE {regular face} FI
Show comment nodes by italics
} StyleRule
EndStyle