Lout 3.29.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@27 9365b830-b601-4143-9ba8-b4a8e2c3339c

1 files changed, 0 insertions, 1358 deletions

diff --git a/include/save_bookf b/include/save_bookf
deleted file mode 100644
index 001f946..0000000
--- a/include/save_bookf
+++ /dev/null
@@ -1,1358 +0,0 @@
-
-###########################################################################
-#                                                                         #
-#  @BookSetup extension to @DocumentSetup.                                #
-#                                                                         #
-#  Jeffrey H. Kingston                                                    #
-#  17 September 1999                                                      #
-#                                                                         #
-#  This package extends DocumentSetup with definitions for books.         #
-#                                                                         #
-###########################################################################
-
-extend @BasicSetup @DocumentSetup
-export @Book @Preface @Abbreviations @Introduction @Chapter @Appendix
-def @BookSetup
-    named @TitlePageFont		{  Helvetica Base		}
-    named @SeparateIntroNumbering	{  Yes				}
-    named @PrefaceAfterContents		{  No				}
-    named @ChapterStartPages		{  Any				}
-    named @ReferencesBeforeAppendices	{  No				}
-
-    named @PrefaceWord			{  preface			}
-    named @ContentsWord			{  contents			}
-    named @FigureListWord		{  figurelist			}
-    named @TableListWord		{  tablelist			}
-    named @IntroductionWord		{  introduction			}
-    named @AbbreviationsWord		{  abbreviations		}
-    named @ChapterWord			{  chapter			}
-    named @AppendixWord			{  appendix			}
-    named @GlossaryWord			{  glossary			}
-    named @IndexWord			{  index			}
-    named @IndexAWord			{  index			}
-    named @IndexBWord			{  index			}
-    named @ColophonWord			{  colophon			}
-
-    named @ChapterNumbers		{  Arabic			}
-    named @FirstChapterNumber		{  1				}
-    named @SectionNumbers		{  Arabic			}
-    named @FirstSectionNumber		{  1				}
-    named @SubSectionNumbers		{  Arabic			}
-    named @FirstSubSectionNumber	{  1				}
-    named @SubSubSectionNumbers		{  Arabic			}
-    named @FirstSubSubSectionNumber	{  1				}
-    named @AppendixNumbers		{  UCAlpha			}
-    named @FirstAppendixNumber		{  1				}
-    named @SubAppendixNumbers		{  Arabic			}
-    named @FirstSubAppendixNumber	{  1				}
-    named @SubSubAppendixNumbers	{  Arabic			}
-    named @FirstSubSubAppendixNumber	{  1				}
-
-    named @PartHeadingFont		{  Helvetica Base 2.50f		}
-    named @PartHeadingBreak		{  clines 1.2fx nohyphen	}
-    named @PartHeadingFormat
-	left number right title		{  @CD number @DP @CD title	}
-
-    named @ChapterHeadingFont		{  Bold 2.00f			}
-    named @ChapterHeadingBreak		{  ragged 1.2fx nohyphen   	}
-    named @ChapterHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @SectionHeadingFont		{  Bold				}
-    named @SectionHeadingBreak		{  ragged 1.2fx nohyphen	}
-    named @SectionHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @SubSectionHeadingFont	{  Bold				}
-    named @SubSectionHeadingBreak	{  ragged 1.2fx nohyphen	}
-    named @SubSectionHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @SubSubSectionHeadingFont	{  Slope			}
-    named @SubSubSectionHeadingBreak	{  ragged 1.2fx nohyphen	}
-    named @SubSubSectionHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @AppendixHeadingFont		{  Bold 2.00f			}
-    named @AppendixHeadingBreak		{  ragged 1.2fx nohyphen   	}
-    named @AppendixHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @SubAppendixHeadingFont	{  Bold				}
-    named @SubAppendixHeadingBreak	{  ragged 1.2fx nohyphen   	}
-    named @SubAppendixHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @SubSubAppendixHeadingFont	{  Slope			}
-    named @SubSubAppendixHeadingBreak	{  ragged 1.2fx nohyphen   	}
-    named @SubSubAppendixHeadingFormat
-	left number right title		{  number @DotSep title    	}
-
-    named @AbovePartGap			{  4.00f			}
-    named @AboveChapterGap		{  3.00f			}
-    named @SectionGap			{  2.0v  @OrIfPlain 3f		}
-    named @SubSectionGap		{  1.5v  @OrIfPlain 2f		}
-    named @SubSubSectionGap		{  1.5v  @OrIfPlain 2f		}
-    named @SubAppendixGap		{  2.0v  @OrIfPlain 3f		}
-    named @SubSubAppendixGap		{  1.5v  @OrIfPlain 2f		}
-
-    named @PrefaceInContents		{  Yes 				}
-    named @AbbreviationsInContents	{  Yes				}
-    named @IntroductionInContents	{  Yes				}
-    named @PartInContents		{  Yes				}
-    named @ChapterInContents		{  Yes				}
-    named @SectionInContents		{  Yes				}
-    named @SubSectionInContents		{  Yes				}
-    named @SubSubSectionInContents	{  No				}
-    named @AppendixInContents		{  Yes				}
-    named @SubAppendixInContents	{  Yes				}
-    named @SubSubAppendixInContents	{  No				}
-    named @ReferencesInContents		{  Yes				}
-    named @GlossaryInContents		{  Yes				}
-    named @IndexInContents		{  Yes				}
-    named @IndexAInContents		{  Yes				}
-    named @IndexBInContents		{  Yes				}
-    named @ColophonInContents		{  Yes				}
-    named @PartContentsIndent		{  0.5rt			}
-
-    named @ChapterNumInTheorems		{  Yes				}
-    named @SectionNumInTheorems		{  No				}
-    named @SubSectionNumInTheorems	{  No				}
-    named @SubSubSectionNumInTheorems	{  No				}
-    named @AppendixNumInTheorems	{  Yes				}
-    named @SubAppendixNumInTheorems	{  No				}
-    named @SubSubAppendixNumInTheorems	{  No				}
-
-    named @ChapterNumInDisplays		{  Yes				}
-    named @SectionNumInDisplays		{  Yes				}
-    named @SubSectionNumInDisplays	{  No				}
-    named @SubSubSectionNumInDisplays	{  No				}
-    named @AppendixNumInDisplays	{  Yes				}
-    named @SubAppendixNumInDisplays	{  Yes				}
-    named @SubSubAppendixNumInDisplays	{  No				}
-
-    named @ChapterNumInFigures		{  Yes				}
-    named @SectionNumInFigures		{  No				}
-    named @SubSectionNumInFigures	{  No				}
-    named @SubSubSectionNumInFigures	{  No				}
-    named @AppendixNumInFigures		{  Yes				}
-    named @SubAppendixNumInFigures	{  No				}
-    named @SubSubAppendixNumInFigures	{  No				}
-
-    named @ChapterNumInTables		{  Yes				}
-    named @SectionNumInTables		{  No				}
-    named @SubSectionNumInTables	{  No				}
-    named @SubSubSectionNumInTables	{  No				}
-    named @AppendixNumInTables		{  Yes				}
-    named @SubAppendixNumInTables	{  No				}
-    named @SubSubAppendixNumInTables	{  No				}
-
-    named @SectionNumInRunners		{  Yes				}
-    named @SubSectionNumInRunners	{  No				}
-    named @SubSubSectionNumInRunners	{  No				}
-    named @SubAppendixNumInRunners	{  Yes				}
-    named @SubSubAppendixNumInRunners	{  No				}
-
-    named @PrefacePrefix		{				}
-    named @ContentsPrefix		{				}
-    named @FigureContentsPrefix		{				}
-    named @TableContentsPrefix		{				}
-    named @AbbreviationsPrefix		{				}
-    named @IntroductionPrefix		{				}
-    named @ChapterPrefix		{				}
-    named @AppendixPrefix		{				}
-    named @ReferencesPrefix		{				}
-    named @GlossaryPrefix		{				}
-    named @IndexPrefix			{				}
-    named @IndexAPrefix			{				}
-    named @IndexBPrefix			{				}
-    named @ColophonPrefix		{				}
-
-@Begin
-
-    #######################################################################
-    #                                                                     #
-    #  Lists of chapters, sections, sub(-sub)sections, and appendices.    #
-    #                                                                     #
-    #######################################################################
-
-    export num
-    def @ChapterList named @Tag {} right num
-    {
-	    @Galley
-        //  @ChapterList @Next num
-    }
-
-    export num
-    def @SectionList named @Tag {} right num
-    {
-	@Galley
-        //@SectionGap	@SectionList @Next num
-    }
-
-    export num
-    def @SubSectionList named @Tag {} right num
-    {
-	@Galley
-        //@SubSectionGap    @SubSectionList @Next num
-    }
-
-    export num
-    def @SubSubSectionList named @Tag {} right num
-    {
-	@Galley
-        //@SubSubSectionGap @SubSubSectionList @Next num
-    }
-
-    export num
-    def @AppendixList named @Tag {} right num
-    {
-	@Galley
-        //	@AppendixList @Next num
-    }
-
-    export num
-    def @SubAppendixList named @Tag {} right num
-    {
-	@Galley
-        //@SubAppendixGap   @SubAppendixList @Next num
-    }
-
-    export num
-    def @SubSubAppendixList named @Tag {} right num
-    {
-	@Galley
-        //@SubSubAppendixGap   @SubSubAppendixList @Next num
-    }
-
-    def @PrefacePlace { @Galley }
-    def @AbbreviationsPlace { @Galley }
-    def @IntroductionPlace { @Galley }
-
-
-    #######################################################################
-    #                                                                     #
-    #  @Full - this sends text to a full-width place on a new page, even  #
-    #  if @ChapterStartPages is SamePage.                                 #
-    #                                                                     #
-    #######################################################################
-
-    def @Full right x
-    {
-	def @Any  force into { @FullPlace&&following     } right x { x }
-	def @Odd  force into { @OddFullPlace&&following  } right x { x }
-	def @Even force into { @EvenFullPlace&&following } right x { x }
-
-	@ChapterStartPages @Case {
-	    { Any SamePage } @Yield @Any  x
-	    Odd  @Yield @Odd  x
-	    Even @Yield @Even x
-	}
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  @ChapterFull - this sends text to a full-width place on a new      #
-    #  page, unless @ChapterStartPages is SamePage, in which case it      #
-    #  doesn't send the text anywhere.                                    #
-    #                                                                     #
-    #######################################################################
-
-    def @ChapterFull right x
-    {
-	def @Any  force into { @FullPlace&&following     } right x { x }
-	def @Odd  force into { @OddFullPlace&&following  } right x { x }
-	def @Even force into { @EvenFullPlace&&following } right x { x }
-
-	@ChapterStartPages @Case {
-	    Any  @Yield @Any  x
-	    Odd  @Yield @Odd  x
-	    Even @Yield @Even x
-	    SamePage @Yield x
-	}
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  @IntroFull - this sends text to a full-width intro place.          #
-    #                                                                     #
-    #######################################################################
-
-    def @IntroFull right x
-    {
-	def @Any  force into { @IntroFullPlace&&following     } right x { x }
-	def @Odd  force into { @IntroOddFullPlace&&following  } right x { x }
-	def @Even force into { @IntroEvenFullPlace&&following } right x { x }
-
-	@ChapterStartPages @Case {
-	    { Any SamePage } @Yield @Any  x
-	    Odd  @Yield @Odd  x
-	    Even @Yield @Even x
-	}
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  @ChooseFull - this sends either to introfull or ordinary full      #
-    #                                                                     #
-    #######################################################################
-
-    def @ChooseFull right x
-    {
-	@SeparateIntroNumbering @Case {
-	    No  @Yield @Full x
-	    Yes @Yield @IntroFull x
-	}
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Book.                                                              #
-    #                                                                     #
-    #######################################################################
-
-    def @Book
-	named @Tag {}
-        named @Title {}
-        named @Author {}
-        named @Edition {}
-        named @Publisher {}
-        named @BeforeTitlePage {}
-        named @OnTitlePage {}
-        named @AfterTitlePage {}
-        named @AtEnd { dft }
-        named @InitialFont { @InitialFont }
-        named @InitialBreak { @InitialBreak }
-        named @InitialOutdent { @InitialOutdent }
-        named @InitialSpace { @InitialSpace }
-        named @InitialLanguage { @InitialLanguage }
-        named @PageOrientation { @PageOrientation }
-        named @PageHeaders { @PageHeaders }
-        named @ColumnNumber { @ColumnNumber }
-        named @FirstPageNumber { @FirstPageNumber }
-        named @IntroFirstPageNumber { @IntroFirstPageNumber }
-	named @OptimizePages { @OptimizePages }
-	named @GlossaryText { @GlossaryText }
-	named @IndexText { @IndexText }
-	named @IndexAText { @IndexAText }
-	named @IndexBText { @IndexBText }
-    {
-	def @Before
-	{
-	    @BeforeTitlePage @Case {
-		""   @Yield @Null
-		else @Yield @BeforeTitlePage
-	    }
-	}
-
-	def @On
-	{
-	    @OnTitlePage @Case {
-		"" @Yield {
-		    	//1i    |0.5rt 2.5f @Font {1.2fx clines} @Break @Title |
-			//2i    |0.5rt clines @Break @Author |
-			//1i    |0.5rt clines @Break @Edition |
-			//1rt   @OneRow @Publisher
-		}
-		else @Yield @OnTitlePage
-	    }
-	}
-
-	def @After
-	{
-	    @AfterTitlePage @Case {
-		""   @Yield @Null
-		else @Yield  { @AfterTitlePage // None @Runner }
-	    }
-	}
-
-	def @ContentsPart
-	    named @Tag {}
-	{
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { ExtraMajorIntro }
-		initiallanguage { @InitialLanguage }
-		title { contents @WordVal @ContentsWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		incontents { No }
-		pnprefix { @ContentsPrefix }
-		inrunners { Yes }
-		majortitle { contents @WordVal @ContentsWord }
-		sendheader { @ChooseFull @Body }
-		innergap { @SectionGap }
-		@ContentsSection
-	}
-
-	def @FigureContentsPart
-	    named @Tag {}
-	{
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { ExtraMajorIntro }
-		initiallanguage { @InitialLanguage }
-		title { figurelist @WordVal @FigureListWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		incontents { No }
-		pnprefix { @FigureContentsPrefix }
-		inrunners { Yes }
-		majortitle { figurelist @WordVal @FigureListWord }
-		sendheader { @ChooseFull @Body }
-		innergap { @SectionGap }
-		@FigureContentsSection
-	}
-
-	def @TableContentsPart
-	    named @Tag {}
-	{
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { ExtraMajorIntro }
-		initiallanguage { @InitialLanguage }
-		title { tablelist @WordVal @TableListWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		incontents { No }
-		pnprefix { @TableContentsPrefix }
-		inrunners { Yes }
-		majortitle { tablelist @WordVal @TableListWord }
-		sendheader { @ChooseFull @Body }
-		innergap { @SectionGap }
-		@TableContentsSection
-	}
-
-	def @ReferencesPart
-	    named @Tag {}
-	{
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { ExtraMajor }
-		initiallanguage { @InitialLanguage }
-		title { @RefHeading @RefListTitle }
-		majortitle { @RefHeading @RefListTitle }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		incontents { @ReferencesInContents }
-		pnprefix { @ReferencesPrefix }
-		inrunners { Yes }
-		sendheader { @ChapterFull @Body }
-		innergap { @SectionGap }
-		@ReferencesSection
-
-	}
-
-	def @GlossaryPart
-	    named @Tag {}
-	{
-	    def @Run
-	    {
-		NonStart @Runner
-		    @MajorNum {}
-		    @MajorTitle { glossary @WordVal @GlossaryWord }
-		    @MinorNum {}
-		    @MinorTitle { glossary @WordVal @GlossaryWord }
-		    @Owner { @Tag }
-		    @Prefix { @GlossaryPrefix }
-	    }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Major }
-		initiallanguage { @InitialLanguage }
-		title { glossary @WordVal @GlossaryWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		headingtext { @GlossaryText }
-		incontents { @GlossaryInContents }
-		pnprefix { @GlossaryPrefix }
-		inrunners { Yes }
-		sendheader { @Full @Body }
-		innergap { @SectionGap }
-		wantindefinite { Yes }
-		@GlossarySection @Run
-	}
-
-	def @IndexPart
-	    named @Tag {}
-	{
-	    def @Run
-	    {
-		NonStart @Runner
-		    @MajorNum {}
-		    @MajorTitle { index @WordVal @IndexWord }
-		    @MinorNum {}
-		    @MinorTitle { index @WordVal @IndexWord }
-		    @Owner { @Tag }
-		    @Prefix { @IndexPrefix }
-	    }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Major }
-		initiallanguage { @InitialLanguage }
-		title { index @WordVal @IndexWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		headingtext { @IndexText }
-		incontents { @IndexInContents }
-		pnprefix { @IndexPrefix }
-		inrunners { Yes }
-		sendheader { @Full @Body }
-		innergap { @SectionGap }
-		wantindefinite { Yes }
-		@IndexSection @Run
-	}
-
-	def @IndexAPart
-	    named @Tag {}
-	{
-	    def @RunA
-	    {
-		NonStart @Runner
-		    @MajorNum {}
-		    @MajorTitle { index @WordVal @IndexAWord }
-		    @MinorNum {}
-		    @MinorTitle { index @WordVal @IndexAWord }
-		    @Owner { @Tag }
-		    @Prefix { @IndexAPrefix }
-	    }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Major }
-		initiallanguage { @InitialLanguage }
-		title { index @WordVal @IndexAWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		headingtext { @IndexAText }
-		incontents { @IndexAInContents }
-		pnprefix { @IndexAPrefix }
-		inrunners { Yes }
-		sendheader { @Full @Body }
-		innergap { @SectionGap }
-		wantindefinite { Yes }
-		@IndexASection @RunA
-	}
-
-	def @IndexBPart
-	    named @Tag {}
-	{
-	    def @RunB
-	    {
-		NonStart @Runner
-		    @MajorNum {}
-		    @MajorTitle { index @WordVal @IndexBWord }
-		    @MinorNum {}
-		    @MinorTitle { index @WordVal @IndexBWord }
-		    @Owner { @Tag }
-		    @Prefix { @IndexBPrefix }
-	    }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Major }
-		initiallanguage { @InitialLanguage }
-		title { index @WordVal @IndexBWord }
-		aboveheadinggap { @AboveChapterGap }
-		headingfont { @ChapterHeadingFont }
-		headingbreak { @ChapterHeadingBreak }
-		headingformat { @Num @ChapterHeadingFormat @Body }
-		headingtext { @IndexAText }
-		incontents { @IndexBInContents }
-		pnprefix { @IndexBPrefix }
-		inrunners { Yes }
-		sendheader { @Full @Body }
-		innergap { @SectionGap }
-		wantindefinite { Yes }
-		@IndexBSection @RunB
-	}
-
-        def @BookIntro force into { @IntroColPlace&&preceding }
-	    named @Optimize { @OptimizePages }
-        {
-		    @NoLinkPageMark @Tag
-	    //	    @Before
-            //1.1b  @TitlePageFont @Font @On
-            //1.1b  @After
-            //	    Start @Runner @Owner { @Tag }
-            //1.1b  @PrefaceAfterContents @NoDo @PrefacePlace
-            //      @MakeContents @Case {
-			{ Yes Bypass }	@Yield @ContentsPart
-			else		@Yield @Null
-		    }
-            //      @MakeFigureContents @Case {
-			{ Yes Bypass }	@Yield @FigureContentsPart
-			else		@Yield @Null
-		    }
-            //      @MakeTableContents @Case {
-			{ Yes Bypass }	@Yield @TableContentsPart
-			else		@Yield @Null
-		    }
-            //1.1b  @PrefaceAfterContents @Do @PrefacePlace
-        }
-
-        def @BookBody force into { @ColPlace&&preceding }
-	    named @Optimize { @OptimizePages }
-        {
-	    # The first component of @BookBody must be indefinite, so that
-	    # its flushing is delayed until we reach the body galleys, either
-	    # @Introduction or @Chapter.  If not, @BookBody will free up
-	    # @PrefacePlace etc. too soon, producing a "no @PrefacePlace
-	    # precedes this @PrefacePLace&&preceding" error message.
-
-	        @AbbreviationsPlace
-	    //  @IntroductionPlace
-	    //	@ChapterList @FirstChapterNumber
-	    //	@ReferencesBeforeAppendices @Do {
-		    @MakeReferences @Do @ReferencesPart
-		}
-	    //	@MakeGlossary @Do @GlossaryPart
-            //	@AppendixList @FirstAppendixNumber
-	    //	@ReferencesBeforeAppendices @NoDo {
-		    @MakeReferences @Do @ReferencesPart
-		}
-	    //	@MakeIndexA @Do @IndexAPart
-	    //  @MakeIndexA @Case {
-		  Bypass  @Yield @BypassBeginIndexAPlace
-		  else    @Yield @Null
-		}
-	    //	@MakeIndexB @Do @IndexBPart
-	    //  @MakeIndexB @Case {
-		  Bypass  @Yield @BypassBeginIndexBPlace
-		  else    @Yield @Null
-		}
-	    //	@MakeIndex  @Do @IndexPart
-	    //  @MakeIndex @Case {
-		  Bypass  @Yield @BypassBeginIndexPlace
-		  else    @Yield @Null
-		}
-        }
-
-	def @BookCombined force into { @ColPlace&&preceding }
-	    named @Optimize { @OptimizePages }
-	{
-		    @NoLinkPageMark @Tag
-	    //	    @Before
-            //1.1b  @TitlePageFont @Font @On
-            //1.1b  @After
-            //	    Start @Runner @Owner { @Tag }
-            //1.1b  @PrefaceAfterContents @NoDo @PrefacePlace
-            //      @MakeContents @Case {
-			{ Yes Bypass }	@Yield @ContentsPart
-			else		@Yield @Null
-		    }
-            //      @MakeFigureContents @Case {
-			{ Yes Bypass }	@Yield @FigureContentsPart
-			else		@Yield @Null
-		    }
-            //      @MakeTableContents @Case {
-			{ Yes Bypass }	@Yield @TableContentsPart
-			else		@Yield @Null
-		    }
-            //1.1b  @PrefaceAfterContents @Do @PrefacePlace
-	    //  @AbbreviationsPlace
-	    //  @IntroductionPlace
-	    //	@ChapterList @FirstChapterNumber
-	    //	@ReferencesBeforeAppendices @Do {
-		    @MakeReferences @Do @ReferencesPart
-		}
-	    //	@MakeGlossary @Do @GlossaryPart
-            //	@AppendixList @FirstAppendixNumber
-	    //	@ReferencesBeforeAppendices @NoDo {
-		    @MakeReferences @Do @ReferencesPart
-		}
-	    //	@MakeIndexA @Do @IndexAPart
-	    //  @MakeIndexA @Case {
-		  Bypass  @Yield @BypassBeginIndexAPlace
-		  else    @Yield @Null
-		}
-	    //	@MakeIndexB @Do @IndexBPart
-	    //  @MakeIndexB @Case {
-		  Bypass  @Yield @BypassBeginIndexBPlace
-		  else    @Yield @Null
-		}
-	    //	@MakeIndex  @Do @IndexPart
-	    //  @MakeIndex @Case {
-		  Bypass  @Yield @BypassBeginIndexPlace
-		  else    @Yield @Null
-		}
-	}
-
-        @InitialFont @Font { @InitialBreak setoutdent @InitialOutdent } @Break
-	@InitialLanguage @Language @InitialSpace @Space
-	{ @ColourCommand @InitialColour } @SetColour
-        {
-
-	    @SeparateIntroNumbering @Case {
-
-		No  @Yield {
-		        Yes @BeginAllCounters {}
-		        Yes @BeginDisplayCounter {}
-		        Yes @BeginFigureCounter {}
-		        Yes @BeginTableCounter {}
-		    //	@PageList
-			    @ColumnNumber { @ColumnNumber }
-			    @PageHeaders { @PageHeaders }
-			    @Orient { @PageOrientation }
-			    @FirstPageNumber
-		    //	@BookCombined
-		    //	NonStart @Runner @Owner { @Tag }
-		    //  @AtEnd @Case {
-			    dft @Yield @Null
-			    else @Yield
-				 @EvenPage @Orient { @PageOrientation } @AtEnd
-			}
-		}
-
-		Yes @Yield {
-		        Yes @BeginAllCounters {}
-		        Yes @BeginDisplayCounter {}
-		        Yes @BeginFigureCounter {}
-		        Yes @BeginTableCounter {}
-		    //  @IntroPageList
-			    @ColumnNumber { 1 }
-			    @PageHeaders { @PageHeaders }
-			    @Orient { @PageOrientation }
-			    @IntroFirstPageNumber
-		    # //	NonStart @Runner @Owner { @Tag }
-		    //	None @Runner @Owner { @Tag }
-		    //	@PageList
-			    @ColumnNumber { @ColumnNumber }
-			    @PageHeaders { @PageHeaders }
-			    @Orient { @PageOrientation }
-			    extra { Yes }
-			    @FirstPageNumber
-		    //	@BookIntro
-		    //	@BookBody
-		    //	NonStart @Runner @Owner { @Tag }
-		    //  @AtEnd @Case {
-			    dft @Yield @Null
-			    else @Yield
-				 @EvenPage @Orient { @PageOrientation } @AtEnd
-			}
-		}
-	    }
-        }
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Preface.                                                           #
-    #                                                                     #
-    #######################################################################
-
-    def @Preface force into { @PrefacePlace&&preceding }
-        named @Tag {}
-        named @Title { preface @WordVal @PrefaceWord }
-        named @RunningTitle { dft }
-	named @InitialLanguage {}
-        body @Body
-    {
-
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { ExtraMajorIntro }
-	    initiallanguage { @InitialLanguage }
-	    title { @Title }
-	    runningtitle { @RunningTitle }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @ChapterHeadingFont }
-	    headingbreak { @ChapterHeadingBreak }
-	    headingformat { @Num @ChapterHeadingFormat @Body }
-	    incontents { @PrefaceInContents }
-	    pnprefix { @PrefacePrefix }
-	    sendheader { @ChooseFull @Body }
-	    innergap { @SectionGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Abbreviations.                                                     #
-    #                                                                     #
-    #######################################################################
-
-    def @Abbreviations force into { @AbbreviationsPlace&&preceding }
-        named @Tag {}
-        named @Title { abbreviations @WordVal @AbbreviationsWord }
-        named @RunningTitle { dft }
-	named @InitialLanguage {}
-        body @Body
-    {
-
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { Major }
-	    initiallanguage { @InitialLanguage }
-	    title { @Title }
-	    runningtitle { @RunningTitle }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @ChapterHeadingFont }
-	    headingbreak { @ChapterHeadingBreak }
-	    headingformat { @Num @ChapterHeadingFormat @Body }
-	    incontents { @AbbreviationsInContents }
-	    pnprefix { @AbbreviationsPrefix }
-	    sendheader { @Full @Body }
-	    innergap { @SectionGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Introduction.                                                      #
-    #                                                                     #
-    #######################################################################
-
-    def @Introduction force into { @IntroductionPlace&&preceding }
-        named @Tag {}
-        named @Title { introduction @WordVal @IntroductionWord }
-        named @RunningTitle { dft }
-	named @InitialLanguage {}
-        body @Body
-    {
-
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { Major }
-	    initiallanguage { @InitialLanguage }
-	    title { @Title }
-	    runningtitle { @RunningTitle }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @ChapterHeadingFont }
-	    headingbreak { @ChapterHeadingBreak }
-	    headingformat { @Num @ChapterHeadingFormat @Body }
-	    incontents { @IntroductionInContents }
-	    pnprefix { @IntroductionPrefix }
-	    sendheader { @Full @Body }
-	    innergap { @SectionGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Chapters containing sections and subsections.                      #
-    #                                                                     #
-    #######################################################################
-
-    export @BeginSections @EndSections @Section
-    def @Chapter force into { @ChapterList&&preceding }
-        named @Tag {}
-        named @Title {}
-        named @RunningTitle { dft }
-	named @InitialLanguage {}
-	named @PartNumber {}
-	named @PartTitle {}
-	named @PartText {}
-        named @BypassNumber { dft }
-        body @Body
-    {
-
-        def @EndSectionsPlace { @Galley }
-
-        def @EndSections force into { @EndSectionsPlace&&preceding }
-	{}
-
-        macro @BeginSections
-	{   //@SectionGap @SectionList @FirstSectionNumber
-	    // @EndSectionsPlace //
-	}
-
-	def @ChapterShortNum
-	{
-	    @ChapterNumbers @Then {
-		@BypassNumber @Dft {
-		    @ChapterNumbers @Num @ChapterList&&@Tag @Open { num }
-		}
-	    }
-	}
-
-	def @MajorNum
-	{
-	    @ChapterNumbers @Then @InitialLanguage @Language {
-		chapter @WordVal @ChapterWord @ChapterShortNum
-	    }
-	}
-
-	def @MajorTitle
-	{
-	    @InitialLanguage @Language {
-		@RunningTitle @Dft @Title
-	    }
-	}
-
-        export @BeginSubSections @EndSubSections @SubSection
-        def @Section force into { @SectionList&&preceding }
-            named @Tag {}
-            named @Title {}
-            named @RunningTitle { dft }
-	    named @InitialLanguage { @InitialLanguage }
-	    named @BypassNumber { dft }
-            body @Body
-        {
-
-            def @EndSubSectionsPlace { @Galley }
-
-            def @EndSubSections force into { @EndSubSectionsPlace&&preceding }
-	    {}
-
-            macro @BeginSubSections
-            {	//@SubSectionGap @SubSectionList @FirstSubSectionNumber
-		// @EndSubSectionsPlace //
-	    }
-
-	    def @SectionShortNum
-	    {
-		@SectionNumbers @Then {
-		    @BypassNumber @Dft {
-			@ChapterShortNum @Join @SectionNumbers @Num
-			{ @SectionList&&@Tag @Open { num } }
-		    }
-		}
-	    }
-
-	    export @BeginSubSubSections @EndSubSubSections @SubSubSection
-            def @SubSection force into { @SubSectionList&&preceding }
-		named @Tag {}
-		named @Title {}
-		named @RunningTitle { dft }
-		named @InitialLanguage { @InitialLanguage }
-		named @BypassNumber { dft }
-		body @Body
-            {
-
-                def @EndSubSubSectionsPlace { @Galley }
-
-                def @EndSubSubSections force into
-		    { @EndSubSubSectionsPlace&&preceding }
-		{}
-
-                macro @BeginSubSubSections
-                { //@SubSubSectionGap @SubSubSectionList @FirstSubSubSectionNumber
-		  // @EndSubSubSectionsPlace //
-		}
-
-		def @SubSectionShortNum
-		{
-		    @SubSectionNumbers @Then {
-			@BypassNumber @Dft {
-			    @SectionShortNum @Join @SubSectionNumbers @Num
-			    { @SubSectionList&&@Tag @Open { num } }
-			}
-		    }
-		}
-
-		def @SubSubSection force into { @SubSubSectionList&&preceding }
-		    named @Tag {}
-		    named @Title {}
-		    named @RunningTitle { dft }
-		    named @InitialLanguage { @InitialLanguage }
-		    named @BypassNumber { dft }
-		    body @Body
-		{
-                
-		    @LargeScaleStructure
-			tag { @Tag }
-			type { Minor }
-			initiallanguage { @InitialLanguage }
-			title { @Title }
-			runningtitle { @RunningTitle }
-			headingfont { @SubSubSectionHeadingFont }
-			headingbreak { @SubSubSectionHeadingBreak }
-			headingformat { @Num @SubSubSectionHeadingFormat @Body }
-			incontents { @SubSubSectionInContents }
-			contentsindent { 9f }
-			numbers { @SubSubSectionNumbers }
-			attachnum { @SubSubSectionList&&preceding @Tagged @Tag }
-			retrievenum { @SubSubSectionList&&@Tag @Open { num } }
-			bypassnumber { @BypassNumber }
-			prefix { @SubSectionShortNum }
-			majornum { @MajorNum }
-			majortitle { @MajorTitle }
-			intheorems { @SubSubSectionNumInTheorems }
-			indisplays { @SubSubSectionNumInDisplays }
-			infigures { @SubSubSectionNumInFigures }
-			intables { @SubSubSectionNumInTables }
-			inrunners { @SubSubSectionNumInRunners }
-			@Body
-	        }
-
-		@LargeScaleStructure
-		    tag { @Tag }
-		    type { Minor }
-		    initiallanguage { @InitialLanguage }
-		    title { @Title }
-		    runningtitle { @RunningTitle }
-		    headingfont { @SubSectionHeadingFont }
-		    headingbreak { @SubSectionHeadingBreak }
-		    headingformat { @Num @SubSectionHeadingFormat @Body }
-		    incontents { @SubSectionInContents }
-		    contentsindent { 6f }
-		    numbers { @SubSectionNumbers }
-		    attachnum { @SubSectionList&&preceding @Tagged @Tag }
-		    retrievenum { @SubSectionList&&@Tag @Open { num } }
-		    bypassnumber { @BypassNumber }
-		    prefix { @SectionShortNum }
-		    majornum { @MajorNum }
-		    majortitle { @MajorTitle }
-		    intheorems { @SubSectionNumInTheorems }
-		    indisplays { @SubSectionNumInDisplays }
-		    infigures { @SubSectionNumInFigures }
-		    intables { @SubSectionNumInTables }
-		    inrunners { @SubSectionNumInRunners }
-		    @Body
-
-            }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Minor }
-		initiallanguage { @InitialLanguage }
-		title { @Title }
-		runningtitle { @RunningTitle }
-		headingfont { @SectionHeadingFont }
-		headingbreak { @SectionHeadingBreak }
-		headingformat { @Num @SectionHeadingFormat @Body }
-		incontents { @SectionInContents }
-		contentsindent { 3f }
-		numbers { @SectionNumbers }
-		attachnum { @SectionList&&preceding @Tagged @Tag }
-		retrievenum { @SectionList&&@Tag @Open { num } }
-		bypassnumber { @BypassNumber }
-		prefix { @ChapterShortNum }
-		majornum { @MajorNum }
-		majortitle { @MajorTitle }
-		intheorems { @SectionNumInTheorems }
-		indisplays { @SectionNumInDisplays }
-		infigures { @SectionNumInFigures }
-		intables { @SectionNumInTables }
-		inrunners { @SectionNumInRunners }
-		@Body
-
-        }
-
-	def @Part
-	    named @Tag {}
-	{
-	    @LargeScaleStructure
-	        type { VeryMajor }
-		initiallanguage { @InitialLanguage }
-		title { @PartTitle }
-		aboveheadinggap { @AbovePartGap }
-		headingfont { @PartHeadingFont }
-		headingbreak { @PartHeadingBreak }
-		headingformat { @Num @PartHeadingFormat @Body }
-		bypassnumber { @PartNumber }
-		incontents { @PartInContents }
-		sendheader { @Full @Body }
-		inrunners { Yes }
-		tag { @Tag }
-		@PartText
-	}
-
-	@PartNumber @Case {
-	    ""   @Yield {
-		 @PartTitle @Case {
-		     "" @Yield @Null
-		     else @Yield @Part
-		 }
-	    }
-	    else @Yield @Part
-	}
-	//
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { Major }
-	    initiallanguage { @InitialLanguage }
-	    title { @Title }
-	    runningtitle { @RunningTitle }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @ChapterHeadingFont }
-	    headingbreak { @ChapterHeadingBreak }
-	    headingformat { @Num @ChapterHeadingFormat @Body }
-	    incontents { @ChapterInContents }
-	    contentsindent { 0f }
-	    word { chapter @WordVal @ChapterWord }
-	    numbers { @ChapterNumbers }
-	    attachnum { @ChapterList&&preceding @Tagged @Tag }
-	    retrievenum { @ChapterList&&@Tag @Open { num } }
-	    bypassnumber { @BypassNumber }
-	    pnprefix { @ChapterPrefix }
-	    intheorems { @ChapterNumInTheorems }
-	    indisplays { @ChapterNumInDisplays }
-	    infigures { @ChapterNumInFigures }
-	    intables { @ChapterNumInTables }
-	    sendheader { @ChapterFull @Body }
-	    innergap { @SectionGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-    #######################################################################
-    #                                                                     #
-    #  Appendices.                                                        #
-    #                                                                     #
-    #######################################################################
-
-    export @BeginSubAppendices @EndSubAppendices @SubAppendix
-    def @Appendix force into { @AppendixList&&preceding }
-        named @Tag {}
-        named @Title {}
-        named @RunningTitle { dft }
-	named @InitialLanguage {}
-	named @PartNumber {}
-	named @PartTitle {}
-	named @PartText {}
-        named @BypassNumber { dft }
-        body @Body
-    {
-
-        def @EndSubAppendicesPlace { @Galley }
-
-        def @EndSubAppendices force into { @EndSubAppendicesPlace&&preceding }
-	{}
-
-        macro @BeginSubAppendices
-	{   //@SubAppendixGap @SubAppendixList @FirstSubAppendixNumber
-	    // @EndSubAppendicesPlace //
-	}
-
-	def @AppendixShortNum
-	{
-	    @AppendixNumbers @Then {
-		@BypassNumber @Dft {
-		    @AppendixNumbers @Num @AppendixList&&@Tag @Open { num }
-		}
-	    }
-	}
-
-	def @MajorNum
-	{
-	    @AppendixNumbers @Then @InitialLanguage @Language {
-		appendix @WordVal @AppendixWord @AppendixShortNum
-	    }
-	}
-
-	def @MajorTitle
-	{
-	    @InitialLanguage @Language {
-		@RunningTitle @Dft @Title
-	    }
-	}
-
-        export @BeginSubSubAppendices @EndSubSubAppendices @SubSubAppendix
-        def @SubAppendix force into { @SubAppendixList&&preceding }
-            named @Tag {}
-            named @Title {}
-            named @RunningTitle { dft }
-	    named @InitialLanguage { @InitialLanguage }
-	    named @BypassNumber { dft }
-            body @Body
-        {
-
-            def @EndSubSubAppendicesPlace { @Galley }
-
-            def @EndSubSubAppendices force into { @EndSubSubAppendicesPlace&&preceding }
-	    {}
-
-            macro @BeginSubSubAppendices
-            {	//@SubSubAppendixGap @SubSubAppendixList @FirstSubSubAppendixNumber
-		// @EndSubSubAppendicesPlace //
-	    }
-
-	    def @SubAppendixShortNum
-	    {
-		@SubAppendixNumbers @Then {
-		    @BypassNumber @Dft {
-			@AppendixShortNum @Join @SubAppendixNumbers @Num
-			{ @SubAppendixList&&@Tag @Open { num } }
-		    }
-		}
-	    }
-
-            def @SubSubAppendix force into { @SubSubAppendixList&&preceding }
-		named @Tag {}
-		named @Title {}
-		named @RunningTitle { dft }
-		named @InitialLanguage { @InitialLanguage }
-		named @BypassNumber { dft }
-		body @Body
-            {
-
-		@LargeScaleStructure
-		    tag { @Tag }
-		    type { Minor }
-		    initiallanguage { @InitialLanguage }
-		    title { @Title }
-		    runningtitle { @RunningTitle }
-		    headingfont { @SubSubAppendixHeadingFont }
-		    headingbreak { @SubSubAppendixHeadingBreak }
-		    headingformat { @Num @SubSubAppendixHeadingFormat @Body }
-		    incontents { @SubSubAppendixInContents }
-		    contentsindent { 6f }
-		    numbers { @SubSubAppendixNumbers }
-		    attachnum { @SubSubAppendixList&&preceding @Tagged @Tag }
-		    retrievenum { @SubSubAppendixList&&@Tag @Open { num } }
-		    bypassnumber { @BypassNumber }
-		    prefix { @SubAppendixShortNum }
-		    majornum { @MajorNum }
-		    majortitle { @MajorTitle }
-		    intheorems { @SubSubAppendixNumInTheorems }
-		    indisplays { @SubSubAppendixNumInDisplays }
-		    infigures { @SubSubAppendixNumInFigures }
-		    intables { @SubSubAppendixNumInTables }
-		    inrunners { @SubSubAppendixNumInRunners }
-		    @Body
-
-            }
-
-	    @LargeScaleStructure
-		tag { @Tag }
-		type { Minor }
-		initiallanguage { @InitialLanguage }
-		title { @Title }
-		runningtitle { @RunningTitle }
-		headingfont { @SubAppendixHeadingFont }
-		headingbreak { @SubAppendixHeadingBreak }
-		headingformat { @Num @SubAppendixHeadingFormat @Body }
-		incontents { @SubAppendixInContents }
-		contentsindent { 3f }
-		numbers { @SubAppendixNumbers }
-		attachnum { @SubAppendixList&&preceding @Tagged @Tag }
-		retrievenum { @SubAppendixList&&@Tag @Open { num } }
-		bypassnumber { @BypassNumber }
-		prefix { @AppendixShortNum }
-		majornum { @MajorNum }
-		majortitle { @MajorTitle }
-		intheorems { @SubAppendixNumInTheorems }
-		indisplays { @SubAppendixNumInDisplays }
-		infigures { @SubAppendixNumInFigures }
-		intables { @SubAppendixNumInTables }
-		inrunners { @SubAppendixNumInRunners }
-		@Body
-
-        }
-
-	def @Part
-	    named @Tag {}
-	{
-	    @LargeScaleStructure
-	        type { VeryMajor }
-		initiallanguage { @InitialLanguage }
-		title { @PartTitle }
-		aboveheadinggap { @AbovePartGap }
-		headingfont { @PartHeadingFont }
-		headingbreak { @PartHeadingBreak }
-		headingformat { @Num @PartHeadingFormat @Body }
-		bypassnumber { @PartNumber }
-		incontents { @PartInContents }
-		sendheader { @Full @Body }
-		inrunners { Yes }
-		tag { @Tag }
-		@PartText
-	}
-
-	@PartNumber @Case {
-	    ""   @Yield {
-		 @PartTitle @Case {
-		     "" @Yield @Null
-		     else @Yield @Part
-		 }
-	    }
-	    else @Yield @Part
-	}
-	//
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { Major }
-	    initiallanguage { @InitialLanguage }
-	    title { @Title }
-	    runningtitle { @RunningTitle }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @AppendixHeadingFont }
-	    headingbreak { @AppendixHeadingBreak }
-	    headingformat { @Num @AppendixHeadingFormat @Body }
-	    incontents { @AppendixInContents }
-	    contentsindent { 0f }
-	    word { appendix @WordVal @AppendixWord }
-	    numbers { @AppendixNumbers }
-	    attachnum { @AppendixList&&preceding @Tagged @Tag }
-	    retrievenum { @AppendixList&&@Tag @Open { num } }
-	    bypassnumber { @BypassNumber }
-	    pnprefix { @AppendixPrefix }
-	    intheorems { @AppendixNumInTheorems }
-	    indisplays { @AppendixNumInDisplays }
-	    infigures { @AppendixNumInFigures }
-	    intables { @AppendixNumInTables }
-	    sendheader { @ChapterFull @Body }
-	    innergap { @SubAppendixGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-    def @Colophon force into { @ColophonPlace&&preceding }
-        named @Tag {}
-	named @InitialLanguage {}
-	named @PartNumber {}
-	named @PartTitle {}
-	named @PartText {}
-        named @BypassNumber { dft }
-        body @Body
-    {
-
-	@LargeScaleStructure
-	    tag { @Tag }
-	    type { Major }
-	    initiallanguage { @InitialLanguage }
-	    aboveheadinggap { @AboveChapterGap }
-	    headingfont { @AppendixHeadingFont }
-	    headingbreak { @AppendixHeadingBreak }
-	    headingformat { @Num @AppendixHeadingFormat @Body }
-	    incontents { @ColophonInContents }
-	    contentsindent { 0f }
-	    word { colophon @WordVal @ColophonWord }
-	    numbers { None }
-	    pnprefix { @ColophonPrefix }
-	    sendheader { @ChapterFull @Body }
-	    innergap { @SubAppendixGap }
-	    inrunners { Yes }
-	    @Body
-
-    }
-
-
-@End @BookSetup