% BlueAndWhite.Style
% Created by Beach, May 20, 1983 2:25 pm
% last modified by Subhana, August 9, 1983 2:20 PM
BeginStyle
(
Cedar) AttachStyle
% General declarations
(
oneSidedFormat) % set false if you wish two-sided headers/footers
{.false} .cvx .def
(
firstPageNumber)
{0} .cvx .def
(
firstHeadersAfterPage)
{0} .cvx .def
(
BasicLeading) % normal type leading
{BasicSize 6 bp .add} .cvx .def
% Looks
(look.
q) "
quaint Xerox logo font ScreenRule" {
"Logo" family 24 pt size 4 pt bigger topLeading} ScreenRule
(look.
q) "
quaint Xerox logo font PrintRule" {
"Logo" family 24 pt size 8 pt .neg vshift} PrintRule
% Formats
(
block) "for block paragraphs, no initial indentation" {
docStandard
regular face
0 MoreLead 0 topLeadingGlue
10 pageBreakPenalty
justified lineFormatting
} StyleRule
(
indent) "for indented paragraphs" {
block
BasicSize 3 .mul bigger leftIndent
} StyleRule
(
head1) "for chapter headings" {
docStandard
bold face
LargeSize size
LargeSize MoreLead .add leading
isComment {
QuadBreak BasicSize MoreLead topLeadingGlue
} {
HexBreak BasicSize MoreLead topLeadingGlue
} .ifelse .cvx .exec
24 pt BasicSize MoreLead bottomLeadingGlue
} ScreenRule
(
head1) "for chapter headings" {
docStandard
bold face
LargeSize size
LargeSize MoreLead .add leading
isComment {
QuadBreak BasicSize MoreLead topLeadingGlue
} {
HexBreak BasicSize MoreLead topLeadingGlue
} .ifelse .cvx .exec
24 pt BasicSize MoreLead bottomLeadingGlue
} PrintRule
(
head2) "for major section headings" {
docStandard
bold face
BasicSize MoreLead .add leading
40 pt BasicSize MoreLead topLeadingGlue
24 pt BasicSize MoreLead bottomLeadingGlue
50 pageBreakAfterLastLinePenalty
} StyleRule
(
head3) "for minor section headings" {
docStandard
italic face
BasicSize MoreLead .add leading
DoubleBreak BasicSize MoreLead topLeadingGlue
24 pt BasicSize MoreLead bottomLeadingGlue
25 pageBreakAfterLastLinePenalty
} StyleRule
(
pageBreak) "to force a new page" {
standard
centered lineFormatting
0 pt 1 fill 0 pt topLeadingGlue
1 fill 0 pt 0 pt bottomLeadingGlue
} PrintRule
(
pageBreak) "to force a new page" {
standard
centered lineFormatting
} ScreenRule
(
root) "default type for root nodes" {
docStandard
.5 in topMargin
.8 in headerMargin
.5 in footerMargin
.5 in bottomMargin
85 pt leftMargin
85 pt rightMargin
442 pt lineLength
24 pt topIndent
24 pt topLeading
0 leftIndent
0 pt rightIndent
} StyleRule
(
widowSaver) "for paragraphs with the last line right-justified" {
block
isComment .not { ParaIndent firstIndent } .cvx .if
justified lastLineFormatting
} StyleRule
EndStyle