% Slides.Style
% last written by Horning, August 31, 1982 11:06 am
% last modified by Beach, November 9, 1983 3:53 pm
BeginStyle
(
Cedar
) AttachStyle
% General declarations
(
firstHeadersAfterPage
)
{0} .cvx .def
(
BasicSize
) % normal type font size
{18 bp} .cvx .def
(
ExtraLead
) % normal between-lines leading
{4 bp} .cvx .def
(
FontFamily
) "main font" { "Helvetica" family } StyleRule
(
BodyFontFamily
) "screen font" { "Tioga" family } ScreenRule
(
BodyFontFamily
) "print font" { "Helvetica" family } PrintRule
(
AlternateFontFamily
) "other font" { "TimesRoman" family } StyleRule
(
Nest
) "display nesting level" { ParaIndent bigger leftIndent } StyleRule
% Looks
% Formats
(
docStandard
) "shared by various text formats" {
standard
FontFamily
nestingLevel 2 .gt {Nest} .cvx .if
} StyleRule
(
item
) "for lists of items." {
ragged
BasicSize 4 .mul bigger restIndent
the restIndent tabStops
} StyleRule
(
subtitle
) "for subtitle nodes" {
title
DoubleIncrement smaller size
DoubleBreak BasicSize MoreLead topLeadingGlue
DoubleBreak BasicSize MoreLead bottomLeadingGlue
} StyleRule
(
title
) "for title nodes on the screen" {
docStandard
bold face
the size DoubleIncrement .add leading
DoubleBreak BasicSize MoreLead topLeadingGlue
DoubleBreak BasicSize MoreLead bottomLeadingGlue
200 pageBreakAfterLastLinePenalty
0 firstIndent
0 restIndent
centered lineFormatting
} ScreenRule
(
title
) "for title nodes when printed" {
docStandard
24 pt size
bold face
the size DoubleIncrement .add leading
1 fill 0 pt 0 pt topLeadingGlue
DoubleBreak BasicSize MoreLead bottomLeadingGlue
200 pageBreakAfterLastLinePenalty
0 firstIndent
0 restIndent
centered lineFormatting
} PrintRule
EndStyle