blob: e39f804a62aa65fc280fc6f72c90f27e325f0535 (
plain) (
tree)
|
|
###########################################################################
# #
# @OverheadSetup extension to @DocumentSetup. #
# #
# Jeffrey H. Kingston #
# August 1994 #
# #
# This package extends DocumentSetup with definitions for overheads. #
# #
###########################################################################
extend @BasicSetup @DocumentSetup
export @OverheadTransparencies @Lecture @Overhead
def @OverheadSetup
named @DateLine { No }
named @ContentsWord { contents }
named @LectureWord { lecture }
named @OverheadWord { }
named @LectureNumbers { Arabic }
named @FirstLectureNumber { 1 }
named @OverheadNumbers { Arabic }
named @FirstOverheadNumber { 1 }
named @TitlePageFont { Helvetica Base }
named @LectureHeadingFont { Bold 1.20f }
named @LectureHeadingBreak { 1.2fx nohyphen }
named @LectureHeadingFormat
left number right title { @Centre number @DP @Centre title @DP }
named @AboveLectureGap { 3.0f }
named @OverheadHeadingFont { Bold }
named @OverheadHeadingBreak { 1.2fx nohyphen }
named @OverheadHeadingFormat
left number right title { @Centre title @DP }
named @OverheadFormat
named @II right x { |@DisplayIndent x | }
named @QQ right x { |@DisplayIndent x |@DisplayIndent }
named @CC right x { |0.5rt x | }
named @RR right x { |1.0rt x | }
right @Body
{ @Body }
named @AboveOverheadGap { 1.0f }
named @LectureInContents { Yes }
named @OverheadInContents { No }
named @ReferencesInContents { Yes }
named @LectureNumInTheorems { Yes }
named @OverheadNumInTheorems { No }
named @LectureNumInDisplays { Yes }
named @OverheadNumInDisplays { No }
named @LectureNumInFigures { Yes }
named @OverheadNumInFigures { No }
named @LectureNumInTables { Yes }
named @OverheadNumInTables { No }
named @LectureNumInRunners { Yes }
named @OverheadNumInRunners { Yes }
named @LecturePrefix { }
named @OverheadPrefix { }
@Begin
#######################################################################
# #
# Symbols for passing full title to running headers. #
# #
#######################################################################
export @Val
def @StoreTitle left @Tag named @Val {} { @Null }
def @SaveTitle right x { save @StoreTitle @Val { x } }
def @GetTitle { @StoreTitle&&save @Open { @Val } }
#######################################################################
# #
# Lists of lectures and overheads. #
# #
#######################################################################
export num
def @LectureList named @Tag {} right num
{
@Galley
//1.1b @LectureList @Next num
}
export num
def @OverheadsList named @Tag {} right num
{
@Galley
//1.1b @OverheadsList @Next num
}
export num
def @LecOverheadsList named @Tag {} right num
{
@Galley
//1.1b @LecOverheadsList @Next num
}
#######################################################################
# #
# @Full - this sends text to a full-width place. #
# #
#######################################################################
def @Full force into { @FullPlace&&following } right x { x }
#######################################################################
# #
# @OverheadTransparencies. #
# #
#######################################################################
def @OverheadTransparencies
named @Title {}
named @RunningTitle { dft }
named @Author {}
named @Institution {}
named @DateLine { @DateLine }
named @InitialFont { @InitialFont }
named @InitialBreak { @InitialBreak }
named @InitialSpace { @InitialSpace }
named @InitialLanguage { @InitialLanguage }
named @PageOrientation { @PageOrientation }
named @PageHeaders { @PageHeaders }
named @FirstPageNumber { @FirstPageNumber }
named @FirstOverheadNumber { @FirstOverheadNumber }
named @FirstLectureNumber { @FirstLectureNumber }
named @OptimizePages { @OptimizePages }
{
def @DatePart
{
@DateLine @Case {
No @Yield { @Null }
Yes @Yield { |0.5rt @Date | }
else @Yield { |0.5rt @DateLine | }
}
}
def @TitlePart
{
@TitlePageFont @Font @InitialBreak @Break
@InitialSpace @Space clines @Break {
//0.5i |0.5rt 1.5f @Font @InitialBreak @Break
@InitialSpace @Space clines @Break @Title |
//1i |0.5rt clines @Break @Author |
//0.5i |0.5rt clines @Break @I @Institution |
//0.5i @DatePart
}
}
def @ContentsPart
{
@DP |0.5rt @LectureHeadingFont @Font @LectureHeadingBreak @Break
@LectureHeadingFormat { contents @WordVal @ContentsWord } |
@DP @ContentsSection
}
def @ReferencesPart
named @Tag {}
{
@DP |0.5rt @LectureHeadingFont @Font @LectureHeadingBreak @Break
@LectureHeadingFormat { @RefHeading @RefListTitle } |
// @PageMark @Tag
// @ReferencesInContents @ContentsEntry
title { @RefHeading @RefListTitle }
pagenum { @PageOf @Tag }
// Start @Runner @MajorTitle { @GetTitle }
@DP @ReferencesSection
// NonStart @Runner @MajorTitle { @GetTitle }
}
def @OverheadsBody force into { @ColPlace&&preceding }
named @Optimize { @OptimizePages }
{
@Title @Case {
"" @Yield @Null
else @Yield @TitlePart
}
//1.1b @MakeContents @Case {
{ Yes Bypass } @Yield @ContentsPart
else @Yield @Null
}
// Start @Runner @MajorTitle { @GetTitle }
//1.1b @OverheadsList @FirstOverheadNumber
//1.1b @LectureList @FirstLectureNumber
//1.1b @ReferencesPart
}
@InitialFont @Font @InitialBreak @Break @InitialLanguage @Language
@InitialSpace @Space { @ColourCommand @InitialColour } @SetColour
{
@SaveTitle {
@InitialLanguage @Language { @RunningTitle @Dft @Title }
}
// Yes @BeginAllCounters {}
// Yes @BeginDisplayCounter {}
// Yes @BeginFigureCounter {}
// Yes @BeginFigureCounter {}
// @PageList
@ColumnNumber { 1 }
@PageHeaders { @PageHeaders }
@Orient { @PageOrientation }
extra { Yes }
@FirstPageNumber
// @OverheadsBody
// Start @Runner
}
}
#######################################################################
# #
# Overheads. #
# #
#######################################################################
def @Overhead force into { @OverheadsList&&preceding }
named @Tag {}
named @Title {}
named @RunningTitle { dft }
named @Format
named @II right x { |@DisplayIndent x | }
named @QQ right x { |@DisplayIndent x |@DisplayIndent }
named @CC right x { |0.5rt x | }
named @RR right x { |1.0rt x | }
right @Body { @OverheadFormat @Body }
named @InitialLanguage {}
named @BypassNumber { dft }
body @Body
{
@LargeScaleStructure
tag { @Tag }
type { Major }
initiallanguage { @InitialLanguage }
title { @Title }
majortitle { @GetTitle }
runningtitle { @RunningTitle }
aboveheadinggap { @AboveOverheadGap }
headingfont { @OverheadHeadingFont }
headingbreak { @OverheadHeadingBreak }
headingformat { @Num @OverheadHeadingFormat @Body }
incontents { @OverheadInContents }
contentsindent { 0f }
numbers { @OverheadNumbers }
attachnum { @OverheadsList&&preceding @Tagged @Tag }
retrievenum { @OverheadsList&&@Tag @Open { num } }
bypassnumber { @BypassNumber }
pnprefix { @OverheadPrefix }
intheorems { @OverheadNumInTheorems }
indisplays { @OverheadNumInDisplays }
infigures { @OverheadNumInFigures }
intables { @OverheadNumInTables }
sendheader { @Full @Body }
innergap { @DisplayGap }
inrunners { @OverheadNumInRunners }
@Format @Body
}
#######################################################################
# #
# Lectures containing overheads. #
# #
#######################################################################
export @BeginOverheads @EndOverheads @Overhead
def @Lecture force into { @LectureList&&preceding }
named @Tag {}
named @Title {}
named @RunningTitle { dft }
named @InitialLanguage {}
named @BypassNumber { dft }
body @Body
{
def @EndOverheadsPlace { @Galley }
def @EndOverheads force into { @EndOverheadsPlace&&preceding }
{}
macro @BeginOverheads
{ //1.1b @LecOverheadsList 1
// @EndOverheadsPlace //
}
def @LectureNum
{
@LectureNumbers @Then {
@BypassNumber @Dft {
@LectureNumbers @Num @LectureList&&@Tag @Open { num }
}
}
}
def @Overhead force into { @LecOverheadsList&&preceding }
named @Tag {}
named @Title {}
named @RunningTitle { dft }
named @Format
named @II right x { |@DisplayIndent x | }
named @QQ right x { |@DisplayIndent x |@DisplayIndent }
named @CC right x { |0.5rt x | }
named @RR right x { |1.0rt x | }
right @Body { @OverheadFormat @Body }
named @InitialLanguage { @InitialLanguage }
named @BypassNumber { dft }
body @Body
{
@LargeScaleStructure
tag { @Tag }
type { Minor }
initiallanguage { @InitialLanguage }
title { @Title }
runningtitle { @RunningTitle }
headingfont { @OverheadHeadingFont }
headingbreak { @OverheadHeadingBreak }
headingformat { @Num @OverheadHeadingFormat @Body }
incontents { @OverheadInContents }
contentsindent { 2f }
numbers { @OverheadNumbers }
attachnum { @LecOverheadsList&&preceding @Tagged @Tag }
retrievenum { @LecOverheadsList&&@Tag @Open { num } }
bypassnumber { @BypassNumber }
prefix { @LectureNum }
majornum { @LectureNum }
majortitle { @GetTitle }
intheorems { @OverheadNumInTheorems }
indisplays { OverheadNumInDisplays }
infigures { @OverheadNumInFigures }
inrunners { @OverheadNumInRunners }
@Format @Body
}
@LargeScaleStructure
tag { @Tag }
type { Major }
initiallanguage { @InitialLanguage }
title { @Title }
runningtitle { @RunningTitle }
aboveheadinggap { @AboveLectureGap }
headingfont { @LectureHeadingFont }
headingbreak { @LectureHeadingBreak }
headingformat { @Num @LectureHeadingFormat @Body }
incontents { @LectureInContents }
contentsindent { 0f }
word { lecture @WordVal @LectureWord }
numbers { @LectureNumbers }
attachnum { @LectureList&&preceding @Tagged @Tag }
retrievenum { @LectureList&&@Tag @Open { num } }
bypassnumber { @BypassNumber }
pnprefix { @LecturePrefix }
majortitle { @GetTitle }
intheorems { @LectureNumInTheorems }
indisplays { @LectureNumInDisplays }
infigures { @LectureNumInFigures }
intables { @LectureNumInTables }
sendheader { @Full @Body }
innergap { @DisplayGap }
inrunners { @LectureNumInRunners }
@Body
}
@End @OverheadSetup
|
