% 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