diff options
Diffstat (limited to 'include/slidesf')
| -rw-r--r-- | include/slidesf | 371 |
1 files changed, 371 insertions, 0 deletions
diff --git a/include/slidesf b/include/slidesf new file mode 100644 index 0000000..e39f804 --- /dev/null +++ b/include/slidesf @@ -0,0 +1,371 @@ + +########################################################################### +# # +# @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 |