Lout 3.17.

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

48 files changed, 30174 insertions, 0 deletions

diff --git a/include/README b/include/README
new file mode 100644
index 0000000..0204b0c
--- /dev/null
+++ b/include/README
@@ -0,0 +1,73 @@
+Directory lout/include
+
+This directory contains Lout source files for the standard packages.
+The following listing classifies them into types of files.
+
+Setup files (containing mainly lists of options settable by the user)
+---------------------------------------------------------------------
+
+   Setup files for basic document types (choose one):
+
+       doc              The OrdinarySetup package
+       report           The ReportSetup package
+       book             The BookSetup package
+       slides           The OverheadsSetup package
+       picture          The IllustrationSetup package
+
+   Setup files for special-purpose packages (choose any combination):
+
+       tbl              The Tbl table formatting package
+       tab              The Tab table formatting package (OBSOLETE, use tbl)
+       eq               The Eq equation formatting package
+       diag             The Diag diagram drawing package
+       fig              The Fig advanced graphics package (OBSOLETE, use diag)
+       graph            The Graph graph drawing package
+       cprint           The cprint C and C++ program printing package
+       pas              The Pas Pascal progam printing package
+       modula           The Modula Modula-2 progam printing package
+       latin2           The Latin2 (Eastern European characters) package
+       russian          The Russian language package
+
+Source files (containing Lout and PostScript source code for the packages)
+--------------------------------------------------------------------------
+
+       bsf              The BasicSetup package
+       bsf.lpg          A PostScript prepend file needed by BasicSetup
+       dsf              The DocumentSetup package
+       docf             The OrdinarySetup package
+       reportf          The ReportSetup package
+       bookf            The BookSetup package
+       slidesf          The OverheadsSetup package
+       picturef         The IllustrationSetup package
+
+       tabf             The Tab table formatting package (OBSOLETE)
+       tabf.lpg         A PostScript prepend file needed by tabf (OBSOLETE)
+       tblf             The Tbl table formatting package
+       tblf.lpg         A PostScript prepend file needed by tblf
+       eqf              The Eq equation formatting package
+       figf             The Fig advanced graphics package (OBSOLETE)
+       figf.lpg         A PostScript prepend file needed by figf (OBSOLETE)
+       diagf            The Diag diagram drawing package
+       diagf.etc        A file included by diagf
+       diagf.lpg        A PostScript prepend file needed by diagf
+       graphf           The Graph graph drawing package
+       graphf.etc       A file included by graphf
+       graphf.lpg       A PostScript prepend file needed by graphf
+       cprintf          The cprint C and C++ program printing package
+       pasf             The Pas Pascal progam printing package
+       modulaf          The Modula Modula-2 progam printing package
+       latin2.fd        Latin2 font definitions file (placeholder file)
+       russian.fd       Russian font definitions file (placeholder file)
+
+Miscellaneous
+-------------
+
+       fontdefs         Standard font definitions file
+       langdefs         Standard language definitions file
+       mydefs           Empty file for if the user doesn't have one
+       ts               The ToySetup package (an expert users' intro. example)
+       init             A Lout source file used during installation (lout -x)
+
+
+Jeffrey H. Kingston
+26 May 1999
diff --git a/include/book b/include/book
new file mode 100644
index 0000000..2d28f62
--- /dev/null
+++ b/include/book
@@ -0,0 +1,376 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for books                                                 #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   17 September 1999                                                         #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  @SysInclude commands for standard packages.                                #
+#                                                                             #
+###############################################################################
+
+  @SysInclude { fontdefs	} # font definitions
+  @SysInclude { langdefs	} # language definitions
+  @SysInclude { bsf		} # BasicSetup package
+  @SysInclude { dsf		} # DocumentSetup package
+  @SysInclude { bookf		} # BookSetup extension
+
+
+###############################################################################
+#                                                                             #
+#  @Include command for reading personal definitions from current directory.  #
+#                                                                             #
+###############################################################################
+
+  @Include { mydefs }
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup @Use clause - basics, lists, paragraphs, displays.         #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+ 
+@Use { @BasicSetup
+  # @InitialFont	{ Times Base 12p	} # initial font
+  # @InitialBreak	{{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
+  # @InitialSpace	{ lout			} # initial space style
+  # @InitialLanguage	{ English		} # initial language
+  # @InitialColour	{ black			} # initial colour
+  # @OptimizePages	{ No			} # optimize page breaks?
+  # @HeadingFont	{ Bold			} # font for @Heading
+  # @ParaGap		{ 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+  # @ParaIndent		{ 2.00f	@OrIfPlain 5s	} # first-line indent for @PP
+  # @DisplayGap		{ 1.00v	@OrIfPlain 1f	} # gap above, below displays
+  # @DisplayIndent	{ 2.00f	@OrIfPlain 5s	} # @IndentedDisplay indent
+  # @DefaultIndent	{ 0.5rt			} # @Display indent
+  # @DisplayNumStyle	{ (num)			} # style of display numbers
+  # @WideIndent		{ 4.00f	@OrIfPlain 10s	} # @WideTaggedList indent
+  # @VeryWideIndent	{ 8.00f	@OrIfPlain 20s	} # @VeryWideTaggedList indent
+  # @ListOuterGap	{ 1.00v	@OrIfPlain 1f	} # gap before, after lists
+  # @ListGap		{ 1.00v	@OrIfPlain 1f	} # gap between list items
+  # @ListIndent		{ 0s			} # indent of list items
+  # @ListRightIndent	{ 0s			} # right indent of list items
+  # @ListLabelWidth	{ 2.00f	@OrIfPlain 5s	} # width allowed for list tags
+  # @NumberSeparator	{ .			} # separates nums like 2.3.7
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @DocumentSetup @Use clause - page layout plus figures, tables, etc.    #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @DocumentSetup
+  # @PageType		{ A4	@OrIfPlain Other} # page type (width, height)
+  # @PageWidth		{ 80s			} # page width if type Other
+  # @PageHeight		{ 66f			} # page height if type Other
+  # @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+  # @PageBackground	{  			} # background of each page
+  # @TopMargin		{ 2.5c	@OrIfPlain 6f	} # top margin of all pages
+  # @FootMargin		{ 2.5c	@OrIfPlain 6f	} # bottom margin of all pages
+  # @OddLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of odd pages
+  # @OddRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of odd pages
+  # @EvenLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of even pages
+  # @EvenRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of even pages
+  # @PageBoxType	{ None			} # None Box CurveBox ShadowBox
+  # @PageBoxMargin	{ 1.00c			} # page box margin
+  # @PageBoxLineWidth	{			} # page box line thickness
+  # @PageBoxPaint	{ none			} # page box paint
+  # @PageBoxShadow	{ 0.60c			} # shadow margin if ShadowBox
+  # @ColumnNumber	{ 1			} # number of columns (1 to 10)
+  # @ColumnGap		{ 1.00c	@OrIfPlain 6s	} # column gap
+  # @FigureLocation	{ PageTop		} # default figure location
+  # @TableLocation	{ PageTop		} # default table location
+  # @FigureFormat	{ @CC @Body		} # default figure format
+  # @TableFormat	{ @CC @Body		} # default table format
+  # @FigureWord		{ figure		} # "Figure" word else anything
+  # @TableWord		{ table			} # "Table" word else anything
+  # @FigureNumbers	{ Arabic		} # method of numbering figures
+  # @TableNumbers	{ Arabic		} # method of numbering tables
+  # @FigureCaptionPos	{ Below 		} # Above or Below
+  # @TableCaptionPos	{ Below			} # Above or Below
+  # @CaptionFont        {                       } # figure, table caption font
+  # @CaptionBreak       {                       } # figure, table caption break
+  # @CaptionFormat      { @B { number @DotSep @OneCol }	} # figure, table caption format
+  # @MakeFigureContents { No                    } # list of figures at start
+  # @MakeTableContents  { No                    } # list of tables at start
+  # @MakeContents	{ No			} # make contents? Yes or No
+    @MakeContents	{ Yes			} # make contents? Yes or No
+  # @ContentsGap	{ 0.20v	@OrIfPlain 0f	} # extra gap above minor entry
+  # @ContentsGapAbove	{ 0.80v	@OrIfPlain 1f	} # extra gap above major entry
+  # @ContentsGapBelow	{ 0.00v	@OrIfPlain 0f	} # extra gap below major entry
+  # @ContentsFont       { Bold                  } # font for major entry
+  # @ContentsPartGapAbove { 1.00v @OrIfPlain 1f	} # extra gap above `part' entry
+  # @ContentsPartGapBelow { 0.00v @OrIfPlain 0f	} # extra gap below `part' entry
+  # @ContentsFormat	{ number @DotSep title	} # contents entry format
+  # @ContentsLeader	{ ..			} # leader symbol in contents
+  # @ContentsLeaderGap	{ 4s	@OrIfPlain 2s	} # gap between leaders
+  # @ContentsRightWidth	{ 3f	@OrIfPlain 6s	} # page numbers column width
+  # @MakeReferences	{ Yes			} # make references? Yes or No
+  # @RefCiteStyle	{ [cite]		} # citation style
+  # @RefCiteLabels	{ @RefNum		} # citation items
+  # @RefNumbers		{ Arabic		} # reference numbers
+  # @RefListFormat	{ Labels		} # NoLabels, Labels, etc.
+  # @RefListLabels	{ [@RefNum]		} # ref list label format
+  # @RefListTitle	{ references		} # title of reference list
+  # @ChapRefListTitle	{ references		} # title of chapter ref list
+  # @RefListIndent	{ 0s			} # indent to left of labels
+  # @RefListRightIndent	{ 0s			} # indent to right of items
+  # @RefListGap		{ @ListGap		} # gap between ref list items
+  # @RefListFont	{        		} # font used in reference list
+  # @RefListBreak	{        		} # break style of ref list
+  # @RefListLabelWidth 	{ @ListLabelWidth	} # Labels column width
+  # @RefListSortKey	{ @Tag			} # sorting key
+  # @MakeIndex		{ No			} # make index? Yes or No
+    @MakeIndex		{ Yes			} # make index? Yes or No
+  # @IndexFont		{			} # index entries font
+  # @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexColumnNumber	{ 2			} # index columns (1 to 10)
+  # @IndexColumnGap	{ 1.00c	@OrIfPlain 6s	} # index column gap
+  # @MakeIndexA		{ No 			} # make index A? Yes or No
+  # @IndexAFont		{			} # index A entries font
+  # @IndexABreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexAColumnNumber	{ 2			} # index A columns (1 to 10)
+  # @IndexAColumnGap	{ 1.00c	@OrIfPlain 6s	} # index A column gap
+  # @MakeIndexB		{ No 			} # make index B? Yes or No
+  # @IndexBFont		{			} # index B entries font
+  # @IndexBBreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexBColumnNumber	{ 2			} # index B columns (1 to 10)
+  # @IndexBColumnGap	{ 1.00c	@OrIfPlain 6s	} # index B column gap
+  # @TopGap		{ 0.75c	@OrIfPlain 2f	} # gap between figures
+  # @MidGap		{ 0.75c	@OrIfPlain 2f	} # gap above/below body text
+  # @FootNoteNumbers	{ Arabic		} # footnote numbers
+  # @FootNoteThrough	{ No			} # numbered through chapter?
+  # @FootNoteLocation	{ ColFoot		} # where the footnote appears
+  # @FootNoteFont	{ 0.80f			} # font for footnotes
+  # @FootNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for footnotes
+  # @FootNoteFormat     { { number &0.05f } @Insert body } # footnote format
+  # @FootLen		{ 2.00c	@OrIfPlain 10s	} # length of footnote line
+  # @FootAboveGap	{ @DisplayGap		} # gap above footnote line
+  # @FootGap		{ 0.20c	@OrIfPlain 1fx	} # gap between footnotes
+  # @MarginNoteFont	{ 0.80f			} # font of margin notes
+  # @MarginNoteBreak	{ ragged 1.10fx		} # break style of margin notes
+  # @MarginNoteHGap	{ 0.5c   		} # horizontal gap to notes
+  # @MarginNoteVGap	{ @DisplayGap		} # min vertical gap between
+  # @MarginNoteWidth	{ 1.50c  		} # width of margin notes
+  # @EndNoteNumbers	{ Arabic		} # endnote numbers
+  # @EndNoteFont	{ 0.80f			} # font of endnotes
+  # @EndNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for endnotes
+  # @EndNoteFormat	{ { number &0.05f } @Insert body } # endnote format
+  # @EndNoteGap		{ 0.20c	@OrIfPlain 1f	} # gap between endnotes
+  # @TheoremWord	{ theorem		} # "Theorem" word, etc.
+  # @TheoremTitleFormat	{ (title)		} # only if title present
+  # @TheoremFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @DefinitionWord	{ definition		} # "Definition" word, etc.
+  # @DefinitionTitleFormat { (title)		} # only if title present
+  # @DefinitionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ClaimWord		{ claim			} # "Claim" word, etc.
+  # @ClaimTitleFormat	{ (title)		} # only if title present
+  # @ClaimFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @PropositionWord	{ proposition		} # "Proposition" word, etc.
+  # @PropositionTitleFormat { (title)		} # only if title present
+  # @PropositionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @LemmaWord		{ lemma			} # "Lemma" word, etc.
+  # @LemmaTitleFormat	{ (title)		} # only if title present
+  # @LemmaFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @CorollaryWord	{ corollary		} # "Corollary" word, etc.
+  # @CorollaryTitleFormat { (title)		} # only if title present
+  # @CorollaryFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ExampleWord	{ example		} # "Example" word, etc.
+  # @ExampleTitleFormat	{ (title)		} # only if title present
+  # @ExampleFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ProofWord		{ proof			} # "Proof" word, etc.
+  # @PageHeaders	{ Simple		} # None Simple Titles NoTitles
+    @PageHeaders	{ Titles		} # None Simple Titles NoTitles
+  # @PageNumbers	{ Arabic		} # page numbers
+  # @FirstPageNumber	{ 1			} # number of first page 
+  # @IntroPageNumbers	{ Roman			} # intro page numbers
+  # @IntroFirstPageNumber{ 1			} # number of first intro page 
+  # @StructPageNums	{ No			} # make structured page numbers
+
+  # @OddTop		{ @Centre{- @PageNum -}	} # Simple page headers
+  # @OddFoot		{ @Null			}
+  # @EvenTop		{ @Centre{- @PageNum -}	}
+  # @EvenFoot		{ @Null			}
+  # @StartOddTop	{ @Null			}
+  # @StartOddFoot	{ @Null			}
+  # @StartEvenTop	{ @Null			}
+  # @StartEvenFoot	{ @Null			}
+  # @IntroOddTop	{ @Null			}
+  # @IntroOddFoot	{ @Centre @PageNum	}
+  # @IntroEvenTop	{ @Null			}
+  # @IntroEvenFoot	{ @Centre @PageNum	}
+  # @IntroStartOddTop	{ @Null			}
+  # @IntroStartOddFoot	{ @Null			}
+  # @IntroStartEvenTop	{ @Null			}
+  # @IntroStartEvenFoot	{ @Null			}
+
+						  # Titles, NoTitles headers
+  # @RunningOddTop  { @I {@MinorNum @DotSep @MinorTitle} @Right @B @PageNum }
+  # @RunningOddFoot		{ @Null					}
+  # @RunningEvenTop { @B @PageNum @Right @I {@MajorNum @DotSep @MajorTitle} }
+  # @RunningEvenFoot		{ @Null					}
+  # @RunningStartOddTop 	{ @Null					}
+  # @RunningStartOddFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningStartEvenTop	{ @Null					}
+  # @RunningStartEvenFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningIntroOddTop		{ @Null					}
+  # @RunningIntroOddFoot	{ @Right @PageNum			}
+  # @RunningIntroEvenTop	{ @Null					}
+  # @RunningIntroEvenFoot	{ @PageNum				}
+  # @RunningIntroStartOddTop	{ @Null					}
+  # @RunningIntroStartOddFoot	{ @Null					}
+  # @RunningIntroStartEvenTop	{ @Null					}
+  # @RunningIntroStartEvenFoot	{ @Null					}
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @BookSetup @Use clause - options specific to books.                    #
+#                                                                             #
+###############################################################################
+
+@Use { @BookSetup
+  # @TitlePageFont		{ Helvetica Base} # title page font (not size)
+  # @SeparateIntroNumbering	{ Yes		} # separate intro page numbers
+  # @PrefaceAfterContents  	{ No		} # Yes or No
+  # @ChapterStartPages		{ Any		} # Any, Odd, or Even
+  # @ReferencesBeforeAppendices	{ No		} # references before appendices
+  # @PrefaceWord		{ preface	} # word for "Preface"
+  # @ContentsWord		{ contents	} # word for "Contents"
+  # @FigureListWord		{ figurelist	} # word for "List of Figures"
+  # @TableListWord		{ tablelist	} # word for "List of Tables"
+  # @IntroductionWord		{ introduction	} # word for "Introduction"
+  # @ChapterWord		{ chapter	} # word for "Chapter"
+  # @AppendixWord		{ appendix	} # word for "Appendix"
+  # @IndexWord			{ index		} # word for "Index"
+  # @IndexAWord			{ index		} # word for "Index" (A)
+  # @IndexBWord			{ index		} # word for "Index" (B)
+  # @ChapterNumbers		{ Arabic	} # kind of chapter numbers
+  # @FirstChapterNumber		{ 1		} # first chapter number (Arabic)
+  # @SectionNumbers		{ Arabic	} # kind of section numbers
+  # @FirstSectionNumber		{ 1		} # first section number (Arabic)
+  # @SubSectionNumbers		{ Arabic	} # kind of subsection numbers
+  # @FirstSubSectionNumber	{ 1		} # first subsect number (Arabic)
+  # @SubSubSectionNumbers	{ Arabic	} # kind of sub-subs. numbers
+  # @FirstSubSubSectionNumber	{ 1		} # first sub-sub number (Arabic)
+  # @AppendixNumbers		{ UCAlpha	} # kind of appendix numbers
+  # @FirstAppendixNumber	{ 1		} # first appendix num (Arabic)
+  # @SubAppendixNumbers		{ Arabic	} # kind of subappendix numbers
+  # @FirstSubAppendixNumber	{ 1		} # first sub-app num (Arabic)
+  # @SubSubAppendixNumbers	{ Arabic	} # kind of sub-subapp. numbers
+  # @FirstSubSubAppendixNumber	{ 1		} # first sub-sub num (Arabic)
+  # @PartHeadingFont		{ Helvetica Base 2.50f	} # part head font
+  # @PartHeadingBreak		{ clines 1.2fx nohyphen	} # part head break
+  # @PartHeadingFormat          { @CD number @DP @CD title } # part head format
+  # @ChapterHeadingFont		{ Bold 2.00f		} # chapter head font
+  # @ChapterHeadingBreak	{ ragged 1.2fx nohyphen	} # chapter head break
+  # @ChapterHeadingFormat	{ number @DotSep title	} # format of chap. head
+  # @SectionHeadingFont		{ Bold			} # section head font
+  # @SectionHeadingBreak	{ ragged 1.2fx nohyphen	} # section head break
+  # @SectionHeadingFormat	{ number @DotSep title	} # section head fmt
+  # @SubSectionHeadingFont	{ Bold			} # subs. head font
+  # @SubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # subs. head break
+  # @SubSectionHeadingFormat	{ number @DotSep title	} # subs. head fmt
+  # @SubSubSectionHeadingFont	{ Slope			} # sub-subs. head font
+  # @SubSubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-subs. head break
+  # @SubSubSectionHeadingFormat	{ number @DotSep title	} # sub-subs. head fmt
+  # @AppendixHeadingFont	{ Bold 2.00f		} # appendix head font
+  # @AppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # appendix head break
+  # @AppendixHeadingFormat	{ number @DotSep title	} # appendix head fmt
+  # @SubAppendixHeadingFont	{ Bold			} # subapp. head font
+  # @SubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # subapp. head break
+  # @SubAppendixHeadingFormat	{ number @DotSep title	} # subapp. head fmt
+  # @SubSubAppendixHeadingFont	{ Slope			} # sub-suba. head font
+  # @SubSubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-suba. head break
+  # @SubSubAppendixHeadingFormat{ number @DotSep title	} # sub-suba. head fmt
+  # @AbovePartGap		{ 4.00f			} # gap above part title
+  # @AboveChapterGap		{ 3.00f			} # above major titles
+  # @SectionGap			{ 2.0v	@OrIfPlain 3f	} # between sections
+  # @SubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between subsects
+  # @SubSubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subs.
+  # @SubAppendixGap		{ 2.0v	@OrIfPlain 3f	} # between subappendices
+  # @SubSubAppendixGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subapps
+  # @AbbreviationsInContents	{ Yes		} # add abbreviations to contents
+  # @IntroductionInContents	{ Yes		} # add introduction to contents
+  # @PartInContents		{ Yes		} # add parts to contents
+  # @ChapterInContents		{ Yes		} # add chapters to contents
+  # @SectionInContents		{ Yes		} # add sections to contents
+  # @SubSectionInContents	{ Yes		} # add subsections to contents
+  # @SubSubSectionInContents	{ No		} # add sub-subsects to contents
+  # @AppendixInContents		{ Yes		} # add appendices to contents
+  # @SubAppendixInContents	{ Yes		} # add subappendices to contents
+  # @SubSubAppendixInContents	{ No		} # add sub-subapps to contents
+  # @ReferencesInContents	{ Yes		} # add ref. section to contents
+  # @IndexInContents		{ Yes		} # add index to contents
+  # @IndexAInContents		{ Yes		} # add index A to contents
+  # @IndexBInContents		{ Yes		} # add index B to contents
+  # @PartContentsIndent         { 0.5rt		} # indent of part contents entry
+  # @ChapterNumInTheorems	{ Yes		} # theorem num has chapter num
+  # @SectionNumInTheorems	{ No		} # theorem num has section num
+  # @SubSectionNumInTheorems	{ No		} # theorem num has subsect num
+  # @SubSubSectionNumInTheorems	{ No		} # theorem num has sub-ss. num
+  # @AppendixNumInTheorems	{ Yes		} # theorem num has appendix num
+  # @SubAppendixNumInTheorems	{ No		} # theorem num has sub-app num
+  # @SubSubAppendixNumInTheorems{ No		} # theorem num has sub-sa. num
+  # @ChapterNumInDisplays	{ Yes		} # display num has chapter num
+  # @SectionNumInDisplays	{ Yes		} # display num has section num
+  # @SubSectionNumInDisplays	{ No		} # display num has subsect num
+  # @SubSubSectionNumInDisplays	{ No		} # display num has sub-ss. num
+  # @AppendixNumInDisplays	{ Yes		} # display num has appendix num
+  # @SubAppendixNumInDisplays	{ Yes		} # display num has sub-app num
+  # @SubSubAppendixNumInDisplays{ No		} # display num has sub-sa. num
+  # @ChapterNumInFigures	{ Yes		} # figure num has chapter num
+  # @SectionNumInFigures	{ No		} # figure num has section num
+  # @SubSectionNumInFigures	{ No		} # figure num has subsect num
+  # @SubSubSectionNumInFigures	{ No		} # figure num has sub-ss. num
+  # @AppendixNumInFigures	{ Yes		} # figure num has appendix num
+  # @SubAppendixNumInFigures	{ No		} # figure num has sub-app num
+  # @SubSubAppendixNumInFigures	{ No		} # figure num has sub-sa. num
+  # @ChapterNumInTables		{ Yes		} # table num has chapter num
+  # @SectionNumInTables		{ No		} # table num has section num
+  # @SubSectionNumInTables	{ No		} # table num has subsect num
+  # @SubSubSectionNumInTables	{ No		} # table num has sub-ss. num
+  # @AppendixNumInTables	{ Yes		} # table num has appendix num
+  # @SubAppendixNumInTables	{ No		} # table num has sub-app num
+  # @SubSubAppendixNumInTables	{ No		} # table num has sub-sa. num
+  # @SectionNumInRunners 	{ Yes		} # runners have section num
+  # @SubSectionNumInRunners 	{ No		} # runners have subsect num
+  # @SubSubSectionNumInRunners 	{ No		} # runners have sub-ss. num
+  # @SubAppendixNumInRunners 	{ Yes		} # runners have sub-app num
+  # @SubSubAppendixNumInRunners { No		} # runners have sub-sa. num
+  # @PrefacePrefix		{		} # for structured page nums
+  # @ContentsPrefix		{		} # for structured page nums
+  # @FigureContentsPrefix	{		} # for structured page nums
+  # @TableContentsPrefix	{		} # for structured page nums
+  # @AbbreviationsPrefix	{		} # for structured page nums
+  # @IntroductionPrefix		{		} # for structured page nums
+  # @ChapterPrefix		{		} # for structured page nums
+  # @AppendixPrefix		{		} # for structured page nums
+  # @ReferencesPrefix		{		} # for structured page nums
+  # @IndexPrefix		{		} # for structured page nums
+  # @IndexAPrefix		{		} # for structured page nums
+  # @IndexBPrefix		{		} # for structured page nums
+}
+
+
+###############################################################################
+#                                                                             #
+#  @Database (and @SysDatabase) clauses go here.                              #
+#                                                                             #
+###############################################################################
+
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
diff --git a/include/bookf b/include/bookf
new file mode 100644
index 0000000..fe5ab72
--- /dev/null
+++ b/include/bookf
@@ -0,0 +1,1263 @@
+
+###########################################################################
+#                                                                         #
+#  @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 @IndexWord			{  index			}
+    named @IndexAWord			{  index			}
+    named @IndexBWord			{  index			}
+
+    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		{  No 				}
+    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 @IndexInContents		{  Yes				}
+    named @IndexAInContents		{  Yes				}
+    named @IndexBInContents		{  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 @IndexPrefix			{				}
+    named @IndexAPrefix			{				}
+    named @IndexBPrefix			{				}
+
+@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.                     #
+    #                                                                     #
+    #######################################################################
+
+    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  @Yield @Any  x
+	    Odd  @Yield @Odd  x
+	    Even @Yield @Even x
+	}
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  @NoForceFull - this sends text to a full-width place.              #
+    #                                                                     #
+    #######################################################################
+
+    def @NoForceFull right x
+    {
+	def @Any  into { @FullPlace&&following     } right x { x }
+	def @Odd  into { @OddFullPlace&&following  } right x { x }
+	def @Even into { @EvenFullPlace&&following } right x { x }
+
+	@ChapterStartPages @Case {
+	    Any  @Yield @Any  x
+	    Odd  @Yield @Odd  x
+	    Even @Yield @Even 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  @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 @AtAfter { dft }
+        named @InitialFont { @InitialFont }
+        named @InitialBreak { @InitialBreak }
+        named @InitialSpace { @InitialSpace }
+        named @InitialLanguage { @InitialLanguage }
+        named @PageOrientation { @PageOrientation }
+        named @PageHeaders { @PageHeaders }
+        named @ColumnNumber { @ColumnNumber }
+        named @FirstPageNumber { @FirstPageNumber }
+        named @IntroFirstPageNumber { @IntroFirstPageNumber }
+	named @OptimizePages { @OptimizePages }
+    {
+	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 { @Full @Body }
+		innergap { @SectionGap }
+		@ReferencesSection
+
+	}
+
+	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 }
+		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 }
+		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 }
+		incontents { @IndexBInContents }
+		pnprefix { @IndexBPrefix }
+		inrunners { Yes }
+		sendheader { @Full @Body }
+		innergap { @SectionGap }
+		wantindefinite { Yes }
+		@IndexBSection @RunB
+	}
+
+        def @BookIntro force into { @IntroColPlace&&preceding }
+	    named @Optimize { @OptimizePages }
+        {
+		    @PageMark @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
+		}
+            //	@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 }
+	{
+		    @PageMark @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
+		}
+            //	@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 @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 }
+		    //	@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 @Null
+	    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 { @Full @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 @Null
+	    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 { @Full @Body }
+	    innergap { @SubAppendixGap }
+	    inrunners { Yes }
+	    @Body
+
+    }
+
+
+@End @BookSetup
diff --git a/include/bsf b/include/bsf
new file mode 100644
index 0000000..726058f
--- /dev/null
+++ b/include/bsf
@@ -0,0 +1,1563 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @BasicSetup package (Version 3.13)                                    #
+#                                                                             #
+#  Jeffrey H. Kingston                                                        #
+#  5 February 1999                                                            #
+#                                                                             #
+#  Based on the first part of the @DocumentLayout package, version 3.11.      #
+#                                                                             #
+#  This package contains basic symbols used widely throughout many            #
+#  documents, for font changes, particular characters, standard words in      #
+#  the current language, date and time, paragraphs, lists, colours,           #
+#  rules, and boxes.                                                          #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { "bsf.lpg" }   # rules, boxes, margin note setup
+
+
+###############################################################################
+#                                                                             #
+#  The following symbols are defined outside @BasicSetup so that              #
+#  they can be invoked when setting its parameters in the @Use clause.        #
+#                                                                             #
+###############################################################################
+
+def @OrIfPlain
+    precedence 80
+    left x
+    right y
+{
+    @BackEnd @Case {
+	PlainText @Yield y
+	else      @Yield x
+    }
+}
+
+    export i c p m s v f
+    def @LengthUnits
+    {
+	def i left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" in" }
+		PDF        @Yield { "__mul(__in, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def c left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" cm" }
+		PDF        @Yield { "__mul(__cm, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def p left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" pt" }
+		PDF        @Yield { "__mul(__pt, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def m left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" em" }
+		PDF        @Yield { "__mul(__em, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def s left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" sp" }
+		PDF        @Yield { "__mul(__louts, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def v left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" vs" }
+		PDF        @Yield { "__mul(__loutv, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+
+	def f left x {
+	    @BackEnd @Case {
+		PostScript @Yield { x" ft" }
+		PDF        @Yield { "__mul(__loutf, "x")" }
+		PlainText  @Yield ""
+	    }
+	}
+    }
+
+
+###############################################################################
+#                                                                             #
+#  Symbols exported by @BasicSetup.                                           #
+#                                                                             #
+###############################################################################
+
+export
+
+    @InitialFont @InitialBreak @InitialSpace @InitialLanguage @InitialColour
+    @OptimizePages @HeadingFont
+    @ParaGap @ParaIndent @DisplayGap @DisplayIndent @DefaultIndent
+    @DisplayNumStyle @WideIndent @VeryWideIndent
+    @ListGap @ListIndent @ListRightIndent @ListLabelWidth
+    @NumberSeparator
+
+    @Word @Roman @UCRoman @Alpha @UCAlpha @Months @ShortMonths @WeekDays
+    @ShortWeekDays @TwelveHours @ShortHours @MeriDiems @ShortMeriDiems
+
+    @Sym @R @I @B @BI @S @F @II
+    "~" "~~" "``" "''" ",," "--" "---" "..."
+
+    @Bullet @ParSym @SectSym @Dagger @DaggerDbl @CDot @Sterling @Yen @Florin
+    @Star @Degree @Minute @Second @Multiply @Divide @Lozenge @Register
+    @CopyRight @TradeMark @Euro
+
+    @Date @Time @DateTimeFormat @DropCapTwo @DropCapThree @Centre @Right
+    @NoDotSep @NoDotJoin @Join @Sep @DotSep @DotJoin @DashJoin @NumSep
+    @OverStrike @Sup @Sub @Colour @FullWidthRule @LocalWidthRule
+    @Box @CurveBox @ShadowBox @BoundaryMarks @NumberMarker @NumberOf
+    @PageMarker @PageMark @PageOf
+
+    @BeginDisplayCounter
+
+    @Heading "^" "&-" @If @Not @And @Or @True
+    @PP @LP @LLP @DP @LOP @NP @CNP
+
+    @BeginAlignedDisplays
+    @EndAlignedDisplays
+
+    @Display
+    @LeftDisplay
+    @IndentedDisplay
+    @QuotedDisplay
+    @CentredDisplay
+    @RightDisplay
+    @AlignedDisplay
+    @LeftAlignedDisplay
+    @IndentedAlignedDisplay
+    @QuotedAlignedDisplay
+    @CentredAlignedDisplay
+    @RightAlignedDisplay
+    @NumberedDisplay
+    @LeftNumberedDisplay
+    @IndentedNumberedDisplay
+    @QuotedNumberedDisplay
+    @CentredNumberedDisplay
+    @RightNumberedDisplay
+    @AlignedNumberedDisplay
+    @LeftAlignedNumberedDisplay
+    @IndentedAlignedNumberedDisplay
+    @QuotedAlignedNumberedDisplay
+    @CentredAlignedNumberedDisplay
+    @RightAlignedNumberedDisplay
+
+    @RawDisplay
+    @RawLeftDisplay
+    @RawIndentedDisplay
+    @RawQuotedDisplay
+    @RawCentredDisplay
+    @RawRightDisplay
+    @RawAlignedDisplay
+    @RawLeftAlignedDisplay
+    @RawIndentedAlignedDisplay
+    @RawQuotedAlignedDisplay
+    @RawCentredAlignedDisplay
+    @RawRightAlignedDisplay
+    @RawNumberedDisplay
+    @RawLeftNumberedDisplay
+    @RawIndentedNumberedDisplay
+    @RawQuotedNumberedDisplay
+    @RawCentredNumberedDisplay
+    @RawRightNumberedDisplay
+    @RawAlignedNumberedDisplay
+    @RawLeftAlignedNumberedDisplay
+    @RawIndentedAlignedNumberedDisplay
+    @RawQuotedAlignedNumberedDisplay
+    @RawCentredAlignedNumberedDisplay
+    @RawRightAlignedNumberedDisplay
+
+    @ListItem
+    @ListInterruptItem
+    @ListNewPage
+    @DropListItem
+    @TagItem
+    @DropTagItem
+
+    @EndList
+    @RawEndList
+
+    @RawList
+    @RawLeftList
+    @RawIndentedList
+    @RawQuotedList
+    @RawCentredList @RawCenteredList
+    @RawNumberedList
+    @RawParenNumberedList
+    @RawRomanList
+    @RawParenRomanList
+    @RawUCRomanList
+    @RawParenUCRomanList
+    @RawAlphaList
+    @RawParenAlphaList
+    @RawUCAlphaList
+    @RawParenUCAlphaList
+    @RawBulletList
+    @RawStarList
+    @RawDashList
+    @RawTaggedList
+    @RawWideTaggedList
+    @RawVeryWideTaggedList
+
+    @List
+    @LeftList
+    @IndentedList
+    @QuotedList
+    @CentredList @CenteredList
+    @NumberedList 
+    @ParenNumberedList
+    @RomanList
+    @ParenRomanList
+    @UCRomanList
+    @ParenUCRomanList
+    @AlphaList
+    @ParenAlphaList
+    @UCAlphaList
+    @ParenUCAlphaList
+    @BulletList 
+    @StarList 
+    @DashList
+    @TaggedList
+    @WideTaggedList
+    @VeryWideTaggedList
+
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup package.                                                   #
+#                                                                             #
+###############################################################################
+
+def @BasicSetup
+    named @InitialFont	  { Times Base 12p	} # initial font
+    named @InitialBreak	  { {adjust 1.20fx hyphen} @OrIfPlain
+			    {ragged 1fx nohyphen} } # initial break
+    named @InitialSpace	  { lout		} # initial space style
+    named @InitialLanguage{ English		} # initial language
+    named @InitialColour  { black		} # initial colour
+    named @OptimizePages  { No			} # optimize page breaks?
+    named @HeadingFont	  { Bold		} # font for @Heading
+    named @ParaGap	  { 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+    named @ParaIndent	  { 2.0f @OrIfPlain 5s	} # first-line indent for @PP
+    named @DisplayGap	  { 1.0v @OrIfPlain 1f	} # gap above, below displays
+    named @DisplayIndent  { 2.0f @OrIfPlain 5s	} # @IndentedDisplay indent
+    named @DefaultIndent  { 0.5rt		} # @Display indent
+    named @DisplayNumStyle
+	right num	  { (num)		} # display number style
+    named @WideIndent	  { 4.0f @OrIfPlain 10s	} # @WideTaggedList indent
+    named @VeryWideIndent { 8.0f @OrIfPlain 20s	} # @VeryWideTaggedList indent
+    named @ListOuterGap	  { 1.0v @OrIfPlain 1f	} # gap before, after list
+    named @ListGap	  { 1.0v @OrIfPlain 1f	} # gap between list items
+    named @ListIndent	  { 0s			} # indent of list items
+    named @ListRightIndent{ 0s			} # right indent of list items
+    named @ListLabelWidth { 2.0f @OrIfPlain 5s	} # width allowed for list tags
+    named @NumberSeparator{ .			} # separates numbers like 2.3.7
+@Begin
+
+    ###########################################################################
+    #                                                                         #
+    #   @Sym, font symbols, and miscellaneous special characters.             #
+    #                                                                         #
+    ###########################################################################
+
+    def @Sym right x { { Symbol Base } @Font @Char x	}
+
+    def @R   right x { Base @Font x			}
+    def @I   right x { Slope @Font x			}
+    def @B   right x { Bold @Font x			}
+    def @BI  right x { BoldSlope @Font x		}
+    def @S   right x { smallcaps @Font x		}
+    def @F   right x { { Courier Base -1p } @Font x 	}
+
+    def @II
+	right x
+    {
+	{ @CurrFace @Case {
+	    Bold @Yield BoldSlope
+	    else @Yield Slope
+	} } @Font x
+    }
+
+    def "~"  left x right y { x &1su y }
+    def "~~" left x right y { x &2s y }
+
+    def "``"       { @Char "quotedblleft"	@OrIfPlain "``"	}
+    def "''"       { @Char "quotedblright"	@OrIfPlain "''"	}
+    def ",,"       { @Char "quotedblbase"	@OrIfPlain ",,"	}
+    def "--"       { @Char "endash"		@OrIfPlain "--"	}
+    def "---"      { @Char "emdash"		@OrIfPlain "---"}
+    def "..."      { @Char "ellipsis"		@OrIfPlain "..."}
+    def @Bullet    { @Char "bullet"		@OrIfPlain "o"	}
+    def @ParSym    { @Char "paragraph"		@OrIfPlain "P"	}
+    def @SectSym   { @Char "section"		@OrIfPlain "$"	}
+    def @Dagger    { @Char "dagger"		@OrIfPlain "+"	}
+    def @DaggerDbl { @Char "daggerdbl"		@OrIfPlain "++"	}
+    def @CDot      { @Char "periodcentered"	@OrIfPlain "."	}
+    def @Sterling  { @Char "sterling"		@OrIfPlain "&"	}
+    def @Yen       { @Char "yen"		@OrIfPlain "Y"	}
+    def @Florin    { @Char "florin"		@OrIfPlain "f"	}
+
+    def @Star      { @Sym  "asteriskmath"	@OrIfPlain "*"	}
+    def @Degree    { @Sym  "degree"		@OrIfPlain "o"	}
+    def @Minute    { @Sym  "minute"		@OrIfPlain "'"	}
+    def @Second    { @Sym  "second"		@OrIfPlain "''"	}
+    def @Multiply  { @Sym  "multiply"		@OrIfPlain "x"	}
+    def @Divide    { @Sym  "divide"		@OrIfPlain "/"	}
+    def @Lozenge   { @Sym  "lozenge"		@OrIfPlain "O"	}
+    def @Register  { @Sym  "registersans"	@OrIfPlain "R"	}
+    def @CopyRight { @Sym  "copyrightsans"	@OrIfPlain "C"	}
+    def @TradeMark { @Sym  "trademarksans"	@OrIfPlain "TM"	}
+
+    def @Euro
+    {
+	@BackEnd @Case {
+
+	    PostScript @Yield {
+		0.65w @VShift @VContract @HContract
+		"xsize ysize ysize 0.07 mul louteuro" @Graphic {
+		    0.7f @High 0.735f @Wide
+		}
+	    }
+
+	    PDF @Yield { EUR }
+
+	    PlainText @Yield { EUR }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Symbols stored in the "standard" database                              #
+    #                                                                         #
+    #    @Word            language-spacific words such as Chapter, etc.       #
+    #    @Roman           lower case Roman numerals i, ii, ... , cc           #
+    #    @UCRoman         upper case Roman numerals I, II, ... , CC           #
+    #    @Alpha           lower case Roman alphabet a, b,  ... , z            #
+    #    @UCAlpha         upper case Roman alphabet A, B,  ... , Z            #
+    #    @Months          months of the year:  January, ... , December        #
+    #    @ShortMonths     months of the year, abbreviated:  Jan, ..., Dec     #
+    #    @WeekDays        days of the week:  Sunday, ... , Saturday           #
+    #    @ShortWeekDays   days of the week, abbreviated:  Sun, ... , Sat      #
+    #    @TwelveHours     hours, from 1 to 12                                 #
+    #    @ShortHours      hours, from 0 to 23                                 #
+    #    @DateTimeFormat  format of results of @Date and @Time                #
+    #                                                                         #
+    ###########################################################################
+
+    def @Word		left @Tag right @Val { @Val }
+    def @Roman		left @Tag right @Val { @Val }
+    def @UCRoman	left @Tag right @Val { @Val }
+    def @Alpha		left @Tag right @Val { @Val }
+    def @UCAlpha	left @Tag right @Val { @Val }
+    def @Months		left @Tag right @Val { @Val }
+    def @ShortMonths	left @Tag right @Val { @Val }
+    def @WeekDays	left @Tag right @Val { @Val }
+    def @ShortWeekDays	left @Tag right @Val { @Val }
+    def @TwelveHours  	left @Tag right @Val { @Val }
+    def @ShortHours  	left @Tag right @Val { @Val }
+    def @MeriDiems  	left @Tag right @Val { @Val }
+    def @ShortMeriDiems	left @Tag right @Val { @Val }
+
+    export @Value
+    def @DateTimeFormat	left @Tag
+	named @Value
+	    named @Year          {}
+	    named @ShortYear     {}
+	    named @Month         {}
+	    named @ShortMonth    {}
+	    named @MonthNum      {}
+	    named @Day           {}
+	    named @ShortDay      {}
+	    named @DayNum        {}
+	    named @MeriDiem      {}
+	    named @ShortMeriDiem {}
+	    named @Hour          {}
+	    named @TwelveHour    {}
+	    named @ShortHour     {}
+	    named @Minute        {}
+	    named @Second        {}
+	{}
+    {}
+
+    @SysDatabase @Word @Roman @UCRoman @Alpha @UCAlpha @Months
+		 @ShortMonths @WeekDays @ShortWeekDays @TwelveHours
+		 @ShortHours @MeriDiems @ShortMeriDiems @DateTimeFormat
+    { standard  }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Date and @Time: the date and time now.                                #
+    #                                                                         #
+    ###########################################################################
+
+    def @Date
+	named @Format
+	    named @Year         { @Moment&&now @Open { {@Century}@Year         }}
+	    named @ShortYear    { @Moment&&now @Open { @Year                   }}
+	    named @Month        { @Moment&&now @Open { @Months&&@Month         }}
+	    named @ShortMonth   { @Moment&&now @Open { @ShortMonths&&@Month    }}
+	    named @MonthNum     { @Moment&&now @Open { @Month                  }}
+	    named @Day          { @Moment&&now @Open { @WeekDays&&@WeekDay     }}
+	    named @ShortDay     { @Moment&&now @Open { @ShortWeekDays&&@WeekDay}}
+	    named @DayNum       { @Moment&&now @Open { @Day                    }}
+	    named @MeriDiem     { @Moment&&now @Open { @MeriDiems&&@Hour       }}
+	    named @ShortMeriDiem{ @Moment&&now @Open { @ShortMeriDiems&&@Hour  }}
+	    named @Hour         { @Moment&&now @Open { @Hour                   }}
+	    named @TwelveHour   { @Moment&&now @Open { @TwelveHours&&@Hour     }}
+	    named @ShortHour    { @Moment&&now @Open { @ShortHours&&@Hour      }}
+	    named @Minute       { @Moment&&now @Open { @Minute                 }}
+	    named @Second       { @Moment&&now @Open { @Second                 }}
+	{
+	    @DateTimeFormat&&date @Open { @Value
+		@Year          { @Year }
+		@ShortYear     { @ShortYear }
+		@Month         { @Month }
+		@ShortMonth    { @ShortMonth }
+		@MonthNum      { @MonthNum }
+		@Day           { @Day }
+		@ShortDay      { @ShortDay }
+		@DayNum        { @DayNum }
+		@MeriDiem      { @MeriDiem }
+		@ShortMeriDiem { @ShortMeriDiem }
+		@Hour          { @Hour }
+		@TwelveHour    { @TwelveHour }
+		@ShortHour     { @ShortHour }
+		@Minute        { @Minute }
+		@Second        { @Second }
+	    }
+	}
+    { @Format }
+
+    def @Time
+	named @Format
+	    named @Year         { @Moment&&now @Open { {@Century}@Year         }}
+	    named @ShortYear    { @Moment&&now @Open { @Year                   }}
+	    named @Month        { @Moment&&now @Open { @Months&&@Month         }}
+	    named @ShortMonth   { @Moment&&now @Open { @ShortMonths&&@Month    }}
+	    named @MonthNum     { @Moment&&now @Open { @Month                  }}
+	    named @Day          { @Moment&&now @Open { @WeekDays&&@WeekDay     }}
+	    named @ShortDay     { @Moment&&now @Open { @ShortWeekDays&&@WeekDay}}
+	    named @DayNum       { @Moment&&now @Open { @Day                    }}
+	    named @MeriDiem     { @Moment&&now @Open { @MeriDiems&&@Hour       }}
+	    named @ShortMeriDiem{ @Moment&&now @Open { @ShortMeriDiems&&@Hour  }}
+	    named @Hour         { @Moment&&now @Open { @Hour                   }}
+	    named @TwelveHour   { @Moment&&now @Open { @TwelveHours&&@Hour     }}
+	    named @ShortHour    { @Moment&&now @Open { @ShortHours&&@Hour      }}
+	    named @Minute       { @Moment&&now @Open { @Minute                 }}
+	    named @Second       { @Moment&&now @Open { @Second                 }}
+	{
+	    @DateTimeFormat&&time @Open { @Value
+		@Year          { @Year }
+		@ShortYear     { @ShortYear }
+		@Month         { @Month }
+		@ShortMonth    { @ShortMonth }
+		@MonthNum      { @MonthNum }
+		@Day           { @Day }
+		@ShortDay      { @ShortDay }
+		@DayNum        { @DayNum }
+		@MeriDiem      { @MeriDiem }
+		@ShortMeriDiem { @ShortMeriDiem }
+		@Hour          { @Hour }
+		@TwelveHour    { @TwelveHour }
+		@ShortHour     { @ShortHour }
+		@Minute        { @Minute }
+		@Second        { @Second }
+	    }
+	}
+    { @Format }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @DropCapTwo and @DropCapThree                                          #
+    #                                                                         #
+    ###########################################################################
+
+    def @DropCapTwo
+	left y
+	named height { 1.5v }
+	right x
+    {
+	def @ParPlace { @Galley }
+	def @EndParPlace { @Galley }
+
+	def @LineList
+	{
+	    @PAdjust @ParPlace
+	    //1vx @LineList
+	}
+
+	def @ParGalley horizontally into { @ParPlace&&preceding }
+	    right x
+	{
+	    x
+	}
+
+	def @EndPar force into { @EndParPlace&&following } { @Null }
+
+	def @Cap
+	{
+	    -0.25f @VShift 1.0w @VShift {
+		-90d @Rotate height @Wide @Scale 90d @Rotate y
+	    }
+	}
+
+						  |1s @PAdjust @ParPlace 
+	/1vo  @Cap @ParGalley {x & @EndPar &1rt } |   @PAdjust @ParPlace
+	//1vx @LineList
+	//    @EndParPlace
+    }
+
+    def @DropCapThree
+	left y
+	named height { 2.5v }
+	right x
+    {
+	def @ParPlace { @Galley }
+	def @EndParPlace { @Galley }
+
+	def @LineList
+	{
+	    @PAdjust @ParPlace
+	    //1vx @LineList
+	}
+
+	def @ParGalley force horizontally into { @ParPlace&&preceding }
+	    right x
+	{
+	    x
+	}
+
+	def @EndPar force into { @EndParPlace&&following } { @Null }
+
+	def @Cap
+	{
+	    -0.25f @VShift 1.0w @VShift {
+		-90d @Rotate height @Wide @Scale 90d @Rotate y
+	    }
+	}
+
+						|1s @PAdjust @ParPlace 
+	/1vo  @ParGalley { x & @EndPar &1rt }	|   @PAdjust @ParPlace
+	/1vo  @Cap				|   @PAdjust @ParPlace
+	//1vx @LineList
+	//    @EndParPlace
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Centre, @Center, @Right, @NoDotSep, @NoDotJoin, @DotSep,              #
+    #  @DotJoin, @DashJoin, @NumSep                                           #
+    #                                                                         #
+    ###########################################################################
+
+    macro @Centre @Center { |0.5rt @HContract }
+
+    def @Right
+	precedence 50
+	left x
+	right y
+    { x |1.0rt @OneCol { 2f @Wide {} | y } }
+
+    def @NoDotSep left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield { x |2s y }
+		}
+	    }
+	}
+    }
+
+    def @NoDotJoin left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+	        y @Case {
+		    {}   @Yield x
+		    else @Yield { x{y} }
+	        }
+	    }
+	}
+    }
+
+    def @DotSep left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield { x. |2s y }
+		}
+	    }
+        }
+    }
+
+    def @DotJoin left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield { x.y }
+		}
+	    }
+	}
+    }
+
+    def @DashJoin left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield { x--y }
+		}
+	    }
+        }
+    }
+
+    def @NumSep left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield {
+			@CurrLang @Case {
+			    Hungarian @Yield { y. x }
+			    else      @Yield { x y }
+			}
+		    }
+		}
+	    }
+        }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @OverStrike, @Sup and @Sub                                            #
+    #                                                                         #
+    ###########################################################################
+
+    def @OverStrike left x right y
+    {
+	@OneRow { @HContract @VContract x /0io @HContract @VContract y }
+    }
+
+    def @Sup
+	left x
+	named gap { 0.40fk }
+	right y
+    {
+	@HContract @VContract
+	{
+	    | 0.7f @Font y ^/gap x
+	}
+    }
+
+    def @Sub
+	left x
+	named gap { 0.40fk }
+	right y
+    {
+	@HContract @VContract
+	{
+	    x /gap | 0.7f @Font y
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Colour, @Color, @AddPaint, @LineWidth                                #
+    #                                                                         #
+    ###########################################################################
+
+    def @ColourCommand right col
+    {
+	def @ColourCoords
+	{
+	    col @Case {
+		darkblue	@Yield	{ 0.0 0.0 0.5 }
+		blue		@Yield	{ 0.0 0.0 1.0 }
+		lightblue	@Yield	{ 0.5 0.5 1.0 }
+		darkgreen	@Yield	{ 0.0 0.5 0.0 }
+		green		@Yield	{ 0.0 1.0 0.0 }
+		lightgreen	@Yield	{ 0.5 1.0 0.5 }
+		darkred		@Yield	{ 0.5 0.0 0.0 }
+		red		@Yield	{ 1.0 0.0 0.0 }
+		lightred	@Yield	{ 1.0 0.5 0.5 }
+		darkcyan	@Yield	{ 0.0 0.5 0.5 }
+		cyan		@Yield	{ 0.0 1.0 1.0 }
+		lightcyan	@Yield	{ 0.5 1.0 1.0 }
+		darkmagenta	@Yield	{ 0.5 0.0 0.5 }
+		magenta		@Yield	{ 1.0 0.0 1.0 }
+		lightmagenta	@Yield	{ 1.0 0.5 1.0 }
+		darkyellow	@Yield	{ 0.5 0.5 0.0 }
+		yellow		@Yield	{ 1.0 1.0 0.0 }
+		lightyellow	@Yield	{ 1.0 1.0 0.5 }
+		darkgray	@Yield	{ 0.2 0.2 0.2 }
+		gray		@Yield	{ 0.5 0.5 0.5 }
+		lightgray	@Yield	{ 0.8 0.8 0.8 }
+		darkgrey	@Yield	{ 0.2 0.2 0.2 }
+		grey		@Yield	{ 0.5 0.5 0.5 }
+		lightgrey	@Yield	{ 0.8 0.8 0.8 }
+		black		@Yield	{ 0.0 0.0 0.0 }
+		white		@Yield	{ 1.0 1.0 1.0 }
+	    }
+	}
+
+	col @Case {
+	    nochange @Yield { nochange }
+	    else @Yield { @BackEnd @Case {
+		PostScript	@Yield { @ColourCoords setrgbcolor }
+		PDF		@Yield { @ColourCoords rg @ColourCoords RG }
+		PlainText	@Yield ""
+	    } }
+	}
+    }
+
+    def @Colour @Color left col right y { {@ColourCommand col} @SetColour y }
+
+    def @AddPaint right col
+    {
+	col @Case {
+	    none @Yield ""
+	    nochange @Yield {
+		@BackEnd @Case {
+		    PostScript @Yield "gsave fill grestore"
+		    PDF        @Yield "q f Q"
+		    PlainText  @Yield ""
+		}
+	    }
+	    else @Yield {
+		@BackEnd @Case {
+		    PostScript @Yield {"gsave" @ColourCommand col "fill grestore"}
+		    PDF        @Yield { "q" @ColourCommand col "f Q" }
+		    PlainText  @Yield ""
+		}
+	    }
+	}
+    }
+
+    def @LineWidth right lw
+    {
+	lw @Case {
+	    "" @Yield ""
+	    else @Yield {
+		@BackEnd @Case {
+		    PostScript @Yield { lw "setlinewidth" }
+		    PDF        @Yield { lw "w" }
+		    PlainText  @Yield ""
+		}
+	    }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @FullWidthRule, @Box, @CurveBox, and @ShadowBox                       #
+    #                                                                         #
+    ###########################################################################
+
+    def @FullWidthRule
+	import @LengthUnits named linewidth {}
+    {
+	@BackEnd @Case {
+
+	    PostScript @Yield @HExpand {
+		{ "LoutRule" @LineWidth linewidth "stroke" } @Graphic { 0.5p @High }
+	    }
+
+	    PDF @Yield @HExpand {
+		{ "0 0 m __xsize 0 l" @LineWidth linewidth "S" } @Graphic { 0.5p @High }
+	    }
+
+	    PlainText @Yield { "-" @PlainGraphic 1f @High }
+	}
+    }
+
+    def @LocalWidthRule
+	import @LengthUnits named linewidth {}
+    {
+	@BackEnd @Case {
+
+	    PostScript @Yield {
+		{ "LoutRule" @LineWidth linewidth "stroke" } @Graphic { 0.5p @High }
+	    }
+
+	    PDF @Yield {
+		{ "0 0 m __xsize 0 l" @LineWidth linewidth "S" } @Graphic { 0.5p @High }
+	    }
+
+	    PlainText  @Yield { "-" @PlainGraphic 1f @High }
+	}
+    }
+
+    def @Box
+	named margin { 0.3f }
+	import @LengthUnits named linewidth {}
+	named paint { none }
+	right x
+    {
+	@BackEnd @Case {
+
+	    PostScript @Yield @VContract @HContract 0c @HShift {
+		{"LoutBox" @AddPaint paint @LineWidth linewidth "stroke"}
+		@Graphic
+		{ ^/margin ^|margin 0c @HShift @OneRow x |margin /margin }
+	    }
+
+	    PDF @Yield @VContract @HContract 0c @HShift {
+		{ "0 0 m __xsize 0 l __xsize __ysize l 0 __ysize l h"
+		@AddPaint paint @LineWidth linewidth "S" } @Graphic
+		{ ^/margin ^|margin 0c @HShift @OneRow x |margin /margin }
+	    }
+
+	    PlainText @Yield @VContract @HContract 0c @HShift {
+		^/margin ^|margin 0c @HShift @OneRow x |margin /margin
+	    }
+	}
+    }
+
+    def @CurveBox
+	named margin { 0.3f }
+	import @LengthUnits named linewidth {}
+	named paint { none }
+	right x
+    {
+	def @PDFStuff
+	{
+	    "__xmark 0 m"
+	    "__sub(__xsize, __xmark) 0 l"
+	    "__sub(__xsize, __div(__mul(11, __xmark), 24)) 0"
+	    "__xsize __div(__mul(11, __xmark), 24)"
+	    "__xsize __xmark c"
+	    "__xsize __sub(__ysize, __xmark) l"
+	    "__xsize __sub(__ysize, __div(__mul(11, __xmark), 24))"
+	    "__sub(__xsize, __div(__mul(11, __xmark), 24)) __ysize"
+	    "__sub(__xsize, __xmark) __ysize c"
+	    "__xmark __ysize l"
+	    "__div(__mul(11, __xmark), 24) __ysize"
+	    "0 __sub(__ysize, __div(__mul(11, __xmark), 24))"
+	    "0 __sub(__ysize, __xmark) c"
+	    "0 __xmark l"
+	    "0 __div(__mul(11, __xmark), 24)"
+	    "__div(__mul(11, __xmark), 24) 0"
+	    "__xmark 0 c"
+	    "h"
+	    @AddPaint paint @LineWidth linewidth "S"
+	}
+
+	@VContract @HContract 0c @HShift @BackEnd @Case {
+
+	    PostScript @Yield {
+		{"LoutCurveBox" @AddPaint paint @LineWidth linewidth "stroke"}
+		@Graphic
+		{ ^/margin ^|margin 0c @HShift @OneRow x |margin /margin }
+	    }
+
+	    PlainText @Yield {
+		^/margin ^|margin 0c @HShift @OneRow x |margin /margin
+	    }
+
+	    PDF @Yield {
+		@PDFStuff @Graphic
+		{ ^/margin ^|margin 0c @HShift @OneRow x |margin /margin }
+	    }
+	}
+    }
+
+    def @ShadowBox
+	named margin { 0.3f }
+	import @LengthUnits named linewidth {}
+	named paint { none }
+	named shadow { 0.2f }
+	right x
+    {
+	@VContract @HContract 0c @HShift @BackEnd @Case {
+
+	    PostScript @Yield {
+		"LoutShadowBox fill" @Graphic
+		{ ^/shadow ^|shadow 0c @HShift
+		      @Box margin {margin} paint {paint} linewidth {linewidth} x
+		      |shadow /shadow
+		}
+	    }
+
+	    PlainText @Yield {
+		^/shadow ^|shadow 0c @HShift
+		@Box margin {margin} paint {paint} linewidth {linewidth} x
+		|shadow /shadow
+	    } 
+
+	    PDF @Yield {
+		{
+		  "__mul(__xmark, 2) 0 m __xsize 0 l"
+		  "__xsize __sub(__ysize, __mul(__xmark, 2)) l"
+		  "__sub(__xsize, __xmark) __sub(__ysize, __mul(__xmark, 2)) l"
+		  "__sub(__xsize, __xmark) __xmark l"
+		  "__mul(__xmark, 2) __xmark l h f"
+		}
+		@Graphic
+		{ ^/shadow ^|shadow 0c @HShift
+		  @Box margin {margin} paint {paint} linewidth {linewidth} x
+		  |shadow /shadow
+		}
+	    }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @BoundaryMarks                                                        #
+    #                                                                         #
+    ###########################################################################
+
+    def @BoundaryMarks
+	import @LengthUnits named linewidth { 0.2p }
+	import @LengthUnits named length { 0.5c }
+	import @LengthUnits named gap { 0.5c }
+	import @LengthUnits named lout { 0c }
+	import @LengthUnits named rout { 0c }
+	import @LengthUnits named uout { 0c }
+	import @LengthUnits named dout { 0c }
+    {
+	def @UpStroke    { "0" gap       "rmoveto" "0" length     "rlineto" }
+	def @DownStroke  { "0" gap "neg" "rmoveto" "0" length "neg rlineto" }
+	def @LeftStroke  { gap "neg" "0" "rmoveto" length "neg" "0 rlineto" }
+	def @RightStroke { gap "0"       "rmoveto" length       "0 rlineto" }
+
+	def @LLSpot { lout "neg"             dout "neg" moveto }
+	def @LRSpot { xsize rout "add"       dout "neg" moveto }
+	def @ULSpot { lout "neg"       ysize uout "add" moveto }
+	def @URSpot { xsize rout "add" ysize uout "add" moveto }
+
+	def @PDFStuff {
+	    "__sub(-"gap", "lout")            __sub(0, "dout") m "
+	    "__sub(__sub(-"gap", "lout"), "length") __sub(0, "dout") l"
+	    "__sub(0, "lout")       __sub(-"gap", "dout") m "
+	    "__sub(0, "lout") __sub(__sub(-"gap", "dout"), "length") l"
+	    "__add(__xsize,"rout")       __sub(-"gap", "dout") m "
+	    "__add(__xsize,"rout") __sub(__sub(-"gap", "dout"), "length") l"
+	    "__add(__add(__xsize,"rout"),"gap")           __sub(0, "dout") m "
+	    "__add(__add(__add(__xsize,"rout"),"gap"),"length") __sub(0, "dout") l"
+	    "      __sub(__sub(0, "lout"), "gap")            __add(__ysize, "uout") m "
+	    "__sub(__sub(__sub(0, "lout"), "gap"), "length") __add(__ysize, "uout") l"
+	    "__sub(0, "lout")       __add(__add(__ysize, "uout"), "gap") m "
+	    "__sub(0, "lout") __add(__add(__add(__ysize, "uout"), "gap"), "length") l"
+	    "      __add(__add(__xsize, "rout"), "gap")            __add(__ysize, "uout") m "
+	    "__add(__add(__add(__xsize, "rout"), "gap"), "length") __add(__ysize, "uout") l"
+	    "__add(__xsize, "rout")       __add(__add(__ysize, "uout"), "gap") m "
+	    "__add(__xsize, "rout") __add(__add(__add(__ysize, "uout"), "gap"), "length") l"
+
+	    linewidth "w S"
+	}
+
+	@BackEnd @Case {
+
+	    PostScript @Yield {
+		{
+		    @LLSpot @LeftStroke
+		    @LLSpot @DownStroke
+		    @LRSpot @DownStroke
+		    @LRSpot @RightStroke
+		    @ULSpot @LeftStroke
+		    @ULSpot @UpStroke
+		    @URSpot @RightStroke
+		    @URSpot @UpStroke
+	
+		    linewidth "setlinewidth stroke"
+		} @Graphic {}
+	    }
+
+	    PlainText @Yield ""
+
+	    PDF @Yield { @PDFStuff @Graphic {} }
+	}
+    }
+
+    ##########################################################################
+    #                                                                        #
+    #   @NumberMarker, @NumberOf, @PageMarker, @PageMark, and @PageOf        #
+    #                                                                        #
+    ##########################################################################
+
+    export @Tag @Value
+    def @NumberMarker
+	named @Tag {}
+	named @Value { "??" }
+    {
+	@Null
+    }
+
+    def @NumberOf
+	right x
+    {
+	@NumberMarker&&x @Open { @Value }
+    }
+
+
+    export num rawnum @Tag
+    def @PageMarker
+	named @Tag {}
+	named num {}
+	named rawnum {}
+    {
+	@PageLabel num
+    }
+
+    def @PageMark
+	right x
+    {
+	@PageMarker&&preceding @Tagged x
+    }
+
+    def @PageOf
+	right x
+    {
+	@PageMarker&&x @Open { num }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Join and @Sep                                                         #
+    #                                                                         #
+    #  Join two objects together with @NumberSeparator, unless one is         #
+    #  empty in which case just return the other.                             #
+    #                                                                         #
+    ###########################################################################
+
+    def @Join left x right y
+    {
+        x @Case {
+	    {}   @Yield y
+	    else @Yield {
+	        y @Case {
+		    {}   @Yield x
+		    else @Yield { x{@NumberSeparator}y }
+	        }
+	    }
+        }
+    }
+
+    def @Sep left x right y
+    {
+	x @Case {
+	    {}   @Yield y
+	    else @Yield {
+		y @Case {
+		    {}   @Yield x
+		    else @Yield { x{@NumberSeparator} |2s y }
+		}
+	    }
+        }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Miscellaneous.                                                         #
+    #                                                                         #
+    ###########################################################################
+
+    def @Heading       right x { ragged @Break @HeadingFont      @Font x }
+    def "^"		       { {} ^& {}				 }
+    def "&-"  left x   right y { x &0ch y				 }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @If @Not @And @Or @True                                                #
+    #                                                                         #
+    #  Used in databases to make optional fields format nicely.               #
+    #                                                                         #
+    ###########################################################################
+
+    def @If
+	precedence 97
+	left x
+	right y
+    {
+	y @Case {
+	    {} @Yield @Null
+	    else @Yield { @Null{x} }
+	}
+    }
+
+    def @Not
+	precedence 100
+	right y
+    {
+	y @Case {
+	    {} @Yield "*"
+	    else @Yield ""
+	}
+    }
+
+    def @And
+	precedence 99
+	left x
+	right y
+    {
+	x @Case {
+	   {} @Yield {}
+	   else @Yield y
+	}
+    }
+
+    def @Or
+	precedence 98
+	left x
+	right y
+    {
+	x @Case {
+	   {} @Yield y
+	   else @Yield x
+	}
+    }
+
+    def @True { "*" }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Paragraphs.                                                            #
+    #                                                                         #
+    ###########################################################################
+
+    macro @PP	{ //@ParaGap @ParaIndent @Wide &{0i}	}
+    macro @LP	{ //{@ParaGap}			  	}
+    macro @LLP	{ //{1vx}				}
+    macro @DP	{ //{@DisplayGap}			}
+    macro @LOP	{ //{@ListOuterGap}			}
+    macro @NP	{ //{1.1b}				}
+    macro @CNP	{ // 3.2v @High //0io //{}		}
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Beginning and ending of aligned displays.                              #
+    #                                                                         #
+    ###########################################################################
+
+    def @APlace            { @Galley }
+    def @EndAlignedPlace   { @Galley }
+    def @AlignedPlace      { @Galley }
+
+    def @BAligned into { @APlace&&preceding }
+    {
+	def @AlignedList { @AlignedPlace /1.1b @AlignedList }
+
+	//1.1b @AlignedList
+	//     @EndAlignedPlace
+    }
+
+    macro @BAD @BeginAlignedDisplays { // @APlace | @BAligned }
+    def   @EAD @EndAlignedDisplays force into { @EndAlignedPlace&&preceding } {}
+
+
+    ###########################################################################
+    #                                                                         #
+    #  New code for numbered displays that will cross section boundaries      #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @NumDispCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @NumDispNum right tag
+    {
+	@NumDispCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @NumDispCounterIncrement
+	right tag
+    {
+	@NumDispCounterMarker&&preceding @Tagged tag
+	@NumDispCounterMarker val { @NumDispNum tag }
+	@NumberMarker @Tag { tag } @Value { @NumDispNum tag }
+    }
+
+    def @NN
+    {
+	@NumDispCounterMarker&&preceding @Open { @DisplayNumStyle val }
+    }
+
+    def @Do
+        left x
+        right y
+    {
+        x @Case {
+            { No None } @Yield @Null
+            else        @Yield y
+        }
+    }
+
+    def @BeginDisplayCounter
+	left condition
+	right prefix
+    {
+	condition @Do @NumDispCounterMarker val { prefix @Join 0 }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Galleys that carry displays to their places.                           #
+    #                                                                         #
+    ###########################################################################
+
+    def @DispPlace { @Galley }
+
+    def @Disp into { @DispPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+    def @NDisp into { @DispPlace&&preceding }
+	named @Tag {}
+	right x
+    {
+	@OneRow {
+	   @NumDispCounterIncrement @Tag
+	   @PageMark @Tag
+	   ^//
+	   @OneRow x
+	}
+    }
+
+    def @ADisp into { @AlignedPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+    def @ANDisp into { @AlignedPlace&&preceding }
+	named @Tag {}
+	right x
+    {
+	@OneRow {
+	   @NumDispCounterIncrement @Tag
+	   @PageMark @Tag
+	   ^/
+	   @OneRow x
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Displays and raw displays.                                             #
+    #                                                                         #
+    ###########################################################################
+
+    macro @G  { |@DefaultIndent      }
+    macro @LG { |                    }
+    macro @IG { |@DisplayIndent      }
+    macro @CG { |0.5rt               }
+    macro @RG { |1.0rt               }
+    macro @QR { @DisplayIndent @Wide { |1rt @NN } }
+    macro @DX { @DispPlace           }
+    macro @DY { @Disp                }
+    macro @AX { @APlace              }
+    macro @AY { @ADisp               }
+    macro @NY { @NDisp               }
+    macro @MY { @ANDisp              }
+
+    macro @D	 @Display			{ @DP @G   @DX  |         @DP // @DY }
+    macro @LD	 @LeftDisplay			{ @DP @LG  @DX  |         @DP // @DY }
+    macro @ID	 @IndentedDisplay		{ @DP @IG  @DX  |         @DP // @DY }
+    macro @QD	 @QuotedDisplay			{ @DP @IG  @DX  @IG       @DP // @DY }
+    macro @CD	 @CentredDisplay
+		 @CenteredDisplay		{ @DP @CG  @DX  |         @DP // @DY }
+    macro	 @RightDisplay			{ @DP @RG  @DX  |         @DP // @DY }
+
+
+    macro @AD	 @AlignedDisplay		{ @DP @G   @AX  |         @DP // @AY }
+    macro @LAD	 @LeftAlignedDisplay		{ @DP @LG  @AX  |         @DP // @AY }
+    macro @IAD	 @IndentedAlignedDisplay	{ @DP @IG  @AX  |         @DP // @AY }
+    macro @QAD	 @QuotedAlignedDisplay		{ @DP @IG  @AX  @IG       @DP // @AY }
+    macro @CAD	 @CentredAlignedDisplay
+		 @CenteredAlignedDisplay	{ @DP @CG  @AX  |         @DP // @AY }
+    macro        @RightAlignedDisplay		{ @DP @RG  @AX  |         @DP // @AY }
+
+    macro @ND	 @NumberedDisplay		{ @DP @G   @DX  |1rt @NN  @DP // @NY }
+    macro @LND	 @LeftNumberedDisplay		{ @DP @LG  @DX  |1rt @NN  @DP // @NY }
+    macro @IND	 @IndentedNumberedDisplay	{ @DP @IG  @DX  |1rt @NN  @DP // @NY }
+    macro @QND	 @QuotedNumberedDisplay		{ @DP @IG  @DX  |1rt @QR  @DP // @NY }
+    macro @CND	 @CentredNumberedDisplay
+		 @CenteredNumberedDisplay	{ @DP @CG  @DX  |1rt @NN  @DP // @NY }
+    macro	 @RightNumberedDisplay		{ @DP @RG  @DX  |1rt @NN  @DP // @NY }
+
+    macro @AND	 @AlignedNumberedDisplay	{ @DP @G   @AX  |1rt @NN  @DP // @MY }
+    macro @LAND	 @LeftAlignedNumberedDisplay	{ @DP @LG  @AX  |1rt @NN  @DP // @MY }
+    macro @IAND	 @IndentedAlignedNumberedDisplay{ @DP @IG  @AX  |1rt @NN  @DP // @MY }
+    macro @QAND  @QuotedAlignedNumberedDisplay	{ @DP @IG  @AX  |1rt @QR  @DP // @MY }
+    macro @CAND	 @CentredAlignedNumberedDisplay
+		 @CenteredAlignedNumberedDisplay{ @DP @CG  @AX  |1rt @NN  @DP // @MY }
+    macro	 @RightAlignedNumberedDisplay	{ @DP @RG  @AX  |1rt @NN  @DP // @MY }
+
+
+    macro @RD	 @RawDisplay			{     @G   @DX  |         // @DY }
+    macro @RLD	 @RawLeftDisplay		{     @LG  @DX  |         // @DY }
+    macro @RID	 @RawIndentedDisplay		{     @IG  @DX  |         // @DY }
+    macro @RQD	 @RawQuotedDisplay		{     @IG  @DX  @IG |     // @DY }
+    macro @RCD	 @RawCentredDisplay
+		 @RawCenteredDisplay		{     @CG  @DX  | |       // @DY }
+    macro @RRD	 @RawRightDisplay		{     @RG  @DX  |         // @DY }
+
+
+    macro @RAD	 @RawAlignedDisplay		{     @G   @AX  |         // @AY }
+    macro @RLAD	 @RawLeftAlignedDisplay		{     @LG  @AX  |         // @AY }
+    macro @RIAD	 @RawIndentedAlignedDisplay	{     @IG  @AX  |         // @AY }
+    macro @RQAD	 @RawQuotedAlignedDisplay	{     @IG  @AX  @IG |     // @AY }
+    macro @RCAD	 @RawCentredAlignedDisplay
+		 @RawCenteredAlignedDisplay	{     @CG  @AX  |         // @AY }
+    macro @RRAD  @RawRightAlignedDisplay	{     @RG  @AX  |         // @AY }
+
+    macro @RND	 @RawNumberedDisplay		{     @G   @DX  |1rt @NN  // @NY }
+    macro @RLND	 @RawLeftNumberedDisplay	{     @LG  @DX  |1rt @NN  // @NY }
+    macro @RIND	 @RawIndentedNumberedDisplay	{     @IG  @DX  |1rt @NN  // @NY }
+    macro @RQND	 @RawQuotedNumberedDisplay	{     @IG  @DX  |1rt @QR  // @NY }
+    macro @RCND	 @RawCentredNumberedDisplay
+		 @RawCenteredNumberedDisplay	{     @CG  @DX  |1rt @NN  // @NY }
+    macro @RRND	 @RawRightNumberedDisplay	{     @RG  @DX  |1rt @NN  // @NY }
+
+    macro @RAND	 @RawAlignedNumberedDisplay	{     @G   @AX  |1rt @NN  // @MY }
+    macro @RLAND @RawLeftAlignedNumberedDisplay {     @LG  @AX  |1rt @NN  // @MY }
+    macro @RIAND @RawIndentedAlignedNumberedDisplay { @IG  @AX  |1rt @NN  // @MY }
+    macro @RQAND @RawQuotedAlignedNumberedDisplay {   @IG  @AX  |1rt @QR  // @MY }
+    macro @RCAND @RawCentredAlignedNumberedDisplay
+		 @RawCenteredAlignedNumberedDisplay { @CG  @AX  |1rt @NN  // @MY }
+    macro @RRAND @RawRightAlignedNumberedDisplay{     @RG  @AX  |1rt @NN  // @MY }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Lists and raw lists.                                                   #
+    #                                                                         #
+    ###########################################################################
+
+
+    def @ItemPlace          { @Galley }
+    def @InterruptItemPlace { @Galley }
+    def @NewPageItemPlace   { @Galley }
+    def @TagPlace           { @Galley }
+    def @EndListPlace       { @Galley }
+
+    def @RawList
+	named style right num { num              }
+	named type  right num { num              }
+	named gap             { @ListGap         }
+	named indent          { @ListIndent      }
+	named itemindent      { 0c		 }
+	named rightindent     { @ListRightIndent }
+	named labelwidth      { @ListLabelWidth  }
+	named start           { 1                }
+    {
+        def @MakeList right num
+	{
+	    def @NormalItem
+	    {
+	        |indent
+	        labelwidth @Wide {
+		    # @NumberMarker @Value {style num} {style num} &0io
+		    @NumberMarker @Value {num} {style type num} &0io
+		}
+	        |itemindent  @ItemPlace  |rightindent
+	        //gap  @MakeList @NotRevealed @Next num
+	    }
+
+	    def @InterruptItem
+	    {
+		@InterruptItemPlace
+		//gap  @MakeList @NotRevealed num
+	    }
+
+	    def @NewPageItem
+	    {
+		@NewPageItemPlace
+		//1.1b  @MakeList @NotRevealed num
+	    }
+
+	    @OneOf
+	    {
+		@NormalItem
+		@InterruptItem
+		@NewPageItem
+	    }
+	}
+
+	def @ListGalleyPlace { @Galley }
+
+	def @ListGalley into { @ListGalleyPlace&&preceding }
+	{
+	    @MakeList start // @EndListPlace
+	}
+
+	@ListGalleyPlace
+	//
+	@ListGalley
+    }
+
+    def listitem into { @ItemPlace&&preceding }
+	named @Tag {}
+	right x
+    {
+	   @NumberMarker&&preceding @Tagged @Tag
+	// @PageMark @Tag
+	// x
+    }
+
+    def droplistitem into { @ItemPlace&&preceding }
+	named @Tag {}
+	right x
+    {
+	   @NumberMarker&&preceding @Tagged @Tag
+	// @PageMark @Tag
+	//
+	//1vx x
+    }
+
+    def tagitem into { @ItemPlace&&preceding }
+	named tag {}
+	right x
+    {
+	def sendtag into { @TagPlace&&preceding } { tag }
+
+	sendtag // x
+    }
+
+    def droptagitem into { @ItemPlace&&preceding }
+	named tag {}
+	right x
+    {
+	def sendtag into { @TagPlace&&preceding } { tag }
+
+	sendtag // //1vx x
+    }
+
+    def endlist force into { @EndListPlace&&preceding } {}
+
+    def listnewpage into { @NewPageItemPlace&&preceding } {}
+
+    def listinterruptitem into { @InterruptItemPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+
+    macro @LI   @ListItem		{ // listitem			}
+    macro @LII  @ListInterruptItem	{ // listinterruptitem		}
+    macro @LNP  @ListNewPage		{ // listnewpage		}
+    macro @DLI  @DropListItem		{ // droplistitem		}
+    macro @TI   @TagItem		{ // tagitem tag		}
+    macro @DTI  @DropTagItem		{ // droptagitem tag		}
+    macro @REL  @RawEndList		{ // & endlist // 		}
+    macro @EL   @EndList		{ // & endlist @LOP		}
+
+
+    macro @RLL    @RawLeftList		{ @RawList style {}
+						   labelwidth { 0c }           }
+    macro @RIL    @RawIndentedList	{ @RawList style {}                    }
+    macro @RQL    @RawQuotedList	{ @RawList style {}
+						   rightindent {@DisplayIndent}}
+    macro @RCL    @RawCentredList	{ @RawList style {}
+						   labelwidth {0c}
+						   itemindent {0.5rt}          }
+    macro         @RawCenteredList	{ @RawCentredList                      }
+    macro @RNL    @RawNumberedList      { @RawList style { num.	             } }
+    macro @RPNL   @RawParenNumberedList { @RawList style { (num)	     } }
+    macro @RRL    @RawRomanList	        { @RawList type  { @Roman&&num }
+						   style { num.    } }
+    macro @RPRL   @RawParenRomanList    { @RawList type  { @Roman&&num }
+						   style { (num)   } }
+    macro @RUCRL  @RawUCRomanList       { @RawList type  { @UCRoman&&num }
+						   style { num.  } }
+    macro @RPUCRL @RawParenUCRomanList  { @RawList type  { @UCRoman&&num }
+						   style { (num) } }
+    macro @RAL    @RawAlphaList	        { @RawList type  { @Alpha&&num }
+						   style { num.    } }
+    macro @RPAL   @RawParenAlphaList    { @RawList type  { @Alpha&&num }
+						   style { (num)   } }
+    macro @RUCAL  @RawUCAlphaList       { @RawList type  { @UCAlpha&&num }
+						   style { num.  } }
+    macro @RPUCAL @RawParenUCAlphaList  { @RawList type  { @UCAlpha&&num }
+						   style { (num) } }
+    macro @RBL    @RawBulletList        { @RawList style { @Bullet	     } }
+    macro @RSL    @RawStarList	        { @RawList style { @Star	     } }
+    macro @RDL    @RawDashList	        { @RawList style { --	 	     } }
+    macro @RTL    @RawTaggedList        { @RawList type { @TagPlace         } }
+    macro @RWTL   @RawWideTaggedList    { @RawList type { @TagPlace         }
+					           labelwidth { @WideIndent  } }
+    macro @RVWTL  @RawVeryWideTaggedList{ @RawList type { @TagPlace         }
+					        labelwidth { @VeryWideIndent } }
+
+
+    macro @L     @List			{ @LOP @RawList			}
+    macro @LL    @LeftList		{ @LOP @RawLeftList		}
+    macro @IL    @IndentedList		{ @LOP @RawIndentedList		}
+    macro @QL    @QuotedList		{ @LOP @RawQuotedList		}
+    macro @CL    @CentredList		{ @LOP @RawCentredList		}
+    macro        @CenteredList		{ @LOP @RawCenteredList		}
+    macro @NL    @NumberedList		{ @LOP @RawNumberedList		}
+    macro @PNL   @ParenNumberedList	{ @LOP @RawParenNumberedList	}
+    macro @RL    @RomanList		{ @LOP @RawRomanList		}
+    macro @PRL   @ParenRomanList	{ @LOP @RawParenRomanList	}
+    macro @UCRL  @UCRomanList		{ @LOP @RawUCRomanList		}
+    macro @PUCRL @ParenUCRomanList	{ @LOP @RawParenUCRomanList	}
+    macro @AL    @AlphaList		{ @LOP @RawAlphaList		}
+    macro @PAL   @ParenAlphaList	{ @LOP @RawParenAlphaList	}
+    macro @UCAL  @UCAlphaList		{ @LOP @RawUCAlphaList		}
+    macro @PUCAL @ParenUCAlphaList	{ @LOP @RawParenUCAlphaList	}
+    macro @BL    @BulletList		{ @LOP @RawBulletList		}
+    macro @SL    @StarList		{ @LOP @RawStarList		}
+    macro @DL    @DashList		{ @LOP @RawDashList		}
+    macro @TL    @TaggedList		{ @LOP @RawTaggedList		}
+    macro @WTL   @WideTaggedList	{ @LOP @RawWideTaggedList	}
+    macro @VWTL  @VeryWideTaggedList	{ @LOP @RawVeryWideTaggedList	}
+
+@End @BasicSetup
diff --git a/include/bsf.lpg b/include/bsf.lpg
new file mode 100644
index 0000000..8eb6c02
--- /dev/null
+++ b/include/bsf.lpg
@@ -0,0 +1,140 @@
+%%BeginResource: procset LoutBasicSetup
+
+% width height linethickness louteuro -
+% draw a Euro symbol of this width and height with this line thickness
+% Author: Jeff Kingston, based on code from Andrew Beardsley
+/louteuro {
+  20 dict begin
+    /eurothick exch def
+    /euroheight exch def
+    /eurowidth exch def
+    /eurostrokewidth euroheight 0.8 mul def
+    /eurostep eurothick 60 cos mul 60 sin div def
+    /eurotheta 40 def
+
+    % llx lly width thickness louteurobox -
+    % draw angled box starting at (llx, lly) with given width and thickness
+    /louteurobox
+    {
+      /euroboxthick exch def
+      /euroboxwidth exch def
+      newpath moveto euroboxwidth 0 rlineto
+      eurostep euroboxthick rlineto
+      euroboxwidth neg 0 rlineto closepath fill
+    } def
+
+    % lower cross stroke
+    0 euroheight 2 div eurothick 1.5 mul sub
+    eurostrokewidth eurothick louteurobox
+
+    % upper cross stroke
+    0 euroheight 2 div eurothick 0.5 mul add
+    eurostrokewidth eurostep 2 mul add eurothick louteurobox
+
+    % circular part
+    /eurohctr eurowidth euroheight 2 div eurotheta cos mul sub def
+    /eurovctr euroheight 2 div def
+    newpath
+    eurohctr eurovctr eurovctr eurotheta 350 eurotheta sub arc
+    eurohctr eurovctr eurovctr eurothick sub 365 eurotheta sub eurotheta arcn
+    closepath fill
+  end
+} def
+
+% path for @FullWidthRule symbol
+/LoutRule
+{ 0 0 moveto xsize 0 lineto
+} def
+
+% path for @Box symbol
+/LoutBox
+{ 0 0 moveto xsize 0 lineto
+  xsize ysize lineto 0 ysize lineto
+  closepath
+} def
+
+% path for @CurveBox symbol
+/LoutCurveBox
+{ xmark 0 moveto
+  xsize xmark sub xmark xmark 270 360 arc
+  xsize xmark sub ysize xmark sub xmark 0 90 arc
+  xmark ysize xmark sub xmark 90 180 arc
+  xmark xmark xmark 180 270 arc
+  closepath
+} def
+
+% path for @ShadowBox symbol
+/LoutShadowBox
+{ xmark 2 mul 0 moveto xsize 0 lineto
+  xsize ysize xmark 2 mul sub lineto
+  xsize xmark sub ysize xmark 2 mul sub lineto
+  xsize xmark sub xmark lineto
+  xmark 2 mul xmark lineto
+  closepath
+} def
+
+% set up dictionary containing margin note data: parity LoutMargSet -
+/LoutMargSet
+{ /LoutMargDict 12 dict def
+  LoutMargDict begin
+    /parity exch def
+    /matr matrix currentmatrix def
+    /rightx xsize def
+    /lefty ysize def   % highest allowable point for top of next left note
+    /righty ysize def  % highest allowable point for top of next right note
+    /max { 2 copy gt { pop } { exch pop } ifelse } def
+    /min { 2 copy lt { pop } { exch pop } ifelse } def
+  end
+} def
+
+%translate coordinate system for marginal notes:  type LoutMargShift -
+% where type 0 is left margin, 1 is right margin, 2 is outer, 3 is inner
+/LoutMargShift
+{ LoutMargDict begin
+
+    % y coordinate of top of note, in margin coords, before vertical adjust
+    0 ysize transform matr itransform exch pop
+
+    % decide whether left or right margin based on type and parity
+    exch [ 0 1 parity 1 parity sub ] exch get 0 eq
+    {
+      % left margin: adjust top of note downwards if overlaps previous note
+      lefty min
+
+      % bottom of note is new lefty position and also translate position
+      ysize sub dup /lefty exch def
+
+      % want right edge of note at coordinate zero
+      xsize neg exch
+    }
+    {
+      % right margin: adjust top of note downwards if overlaps previous note
+      righty min
+
+      % bottom of note is new righty position and also translate position
+      ysize sub dup /righty exch def
+
+      % want left edge of note at coordinate rightx
+      rightx exch
+    } ifelse
+
+    % stack now contains coord of bottom left corner in margin coordinates
+    matr setmatrix translate
+  end
+} def
+
+% create LoutPageDict with left, right, foot, top for @Place symbol users
+/LoutPageSet
+{
+  /LoutPageDict 5 dict def
+  LoutPageDict begin
+    /matr matrix currentmatrix def
+    /left 0 def
+    /right xsize def
+    /foot 0 def
+    /top ysize def
+  end
+
+} def
+
+%%EndResource
diff --git a/include/cprint b/include/cprint
new file mode 100644
index 0000000..d7acb06
--- /dev/null
+++ b/include/cprint
@@ -0,0 +1,70 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for C and C++ program printing                            #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { cprintf } line                                           #
+#                                                                             #
+#  This line causes Lout to read the definitions for C printing, and should   #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { cprintf }
+
+
+###############################################################################
+#                                                                             #
+#  The @CPSetup @Use clause                                                   #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @CPSetup
+  # style		{ fixed			} # fixed, varying, or symbol
+
+  # fixedfont		{ Courier		} # font family if fixed
+  # fixedstrings	{ Base			} # string face if fixed
+  # fixedidentifiers	{ Base			} # identifier face if fixed
+  # fixedcomments	{ Base			} # comment face if fixed
+  # fixedkeywords	{ Base			} # keyword face if fixed
+  # fixednumbers	{ Base			} # number face if fixed
+  # fixedoperators	{ Base			} # operator face if fixed
+  # fixedsize		{ -1.0p			} # font size if fixed
+  # fixedline		{ 1.0vx			} # line-space if fixed
+  # fixedtabin		{ 8			} # tab interval if fixed
+  # fixedtabout		{ 8s			} # tab width if fixed
+
+  # varyingfont		{			} # font family if varying
+  # varyingstrings	{ Slope			} # string face if varying
+  # varyingidentifiers	{ Slope			} # identifier face if varying
+  # varyingcomments	{ Base			} # comment face if varying
+  # varyingkeywords	{ Bold			} # keyword face if varying
+  # varyingnumbers	{ Base			} # number face if varying
+  # varyingoperators	{ Base			} # operator face if varying
+  # varyingsize		{ 1.0f			} # font size if varying
+  # varyingline		{ 1.0vx			} # line-space if varying
+  # varyingtabin	{ 8			} # tab interval if varying
+  # varyingtabout	{ 3f			} # tab width if varying
+
+  # symbolfont		{			} # font family if symbol
+  # symbolstrings	{ Slope			} # string face if symbol
+  # symbolidentifiers	{ Slope			} # identifier face if symbol
+  # symbolcomments	{ Base			} # comment face if symbol
+  # symbolkeywords	{ Bold			} # keyword face if symbol
+  # symbolnumbers	{ Base			} # number face if symbol
+  # symboloperators	{ Base			} # operator face if symbol
+  # symbolsize		{ 1.0f			} # font size if symbol
+  # symbolline		{ 1.0vx			} # line-space if symbol
+  # symboltabin		{ 8			} # tab interval if symbol
+  # symboltabout	{ 3f			} # tab width if symbol
+}
diff --git a/include/cprintf b/include/cprintf
new file mode 100644
index 0000000..fca806e
--- /dev/null
+++ b/include/cprintf
@@ -0,0 +1,383 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @CPSetup package for formatting C and C++ programs (Version 1.1)      #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, March 1994.                            #
+#  Version 1.1 by Jeffrey H. Kingston, November 1998 (name change only)       #
+#                                                                             #
+#  This package uses a filtered body parameter to convert C and C++ source    #
+#  code into Lout source.  The filter program is c2lout which is distributed  #
+#  with Basser Lout Version 3.  The list of keywords and tokens is from       #
+#  Stroustrup, 2nd Edition.  See "User's Guide to the Lout Document           #
+#  Formatting System" for user information.                                   #
+#                                                                             #
+###############################################################################
+
+export @CP
+def @CPSetup
+    named style              { fixed     }  # print style
+
+    named fixedfont          { Courier   }  # font family if fixed
+    named fixedstrings       { Base      }  # string face if fixed
+    named fixedidentifiers   { Base      }  # identifier face if fixed
+    named fixedcomments      { Base      }  # comment face if fixed
+    named fixedkeywords      { Base      }  # keyword face if fixed
+    named fixednumbers       { Base      }  # number face if fixed
+    named fixedoperators     { Base      }  # operator face if fixed
+    named fixedsize          { -1.0p     }  # font size if fixed
+    named fixedline          { 1.0vx     }  # line-space if fixed
+    named fixedtabin	     { 8	 }  # tab interval if fixed
+    named fixedtabout	     { 8s	 }  # tab width if fixed
+
+    named varyingfont        {           }  # font family if varying
+    named varyingstrings     { Slope     }  # string face if varying
+    named varyingidentifiers { Slope     }  # identifier face if varying
+    named varyingcomments    { Base      }  # comment face if varying
+    named varyingkeywords    { Bold      }  # keyword face if varying
+    named varyingnumbers     { Base      }  # number face if varying
+    named varyingoperators   { Base      }  # operator face if varying
+    named varyingsize        { 1.0f      }  # font size if varying
+    named varyingline        { 1.0vx     }  # line-space if varying
+    named varyingtabin       { 8	 }  # tab interval if varying
+    named varyingtabout      { 3f	 }  # tab width if varying
+
+    named symbolfont         {           }  # font family if symbol
+    named symbolstrings      { Slope     }  # string face if symbol
+    named symbolidentifiers  { Slope     }  # identifier face if symbol
+    named symbolcomments     { Base      }  # comment face if symbol
+    named symbolkeywords     { Bold      }  # keyword face if symbol
+    named symbolnumbers      { Base      }  # number face if symbol
+    named symboloperators    { Base      }  # operator face if symbol
+    named symbolsize         { 1.0f      }  # font size if symbol
+    named symbolline         { 1.0vx     }  # line-space if symbol
+    named symboltabin        { 8	 }  # tab interval if symbol
+    named symboltabout       { 3f	 }  # tab width if symbol
+
+@Begin
+
+    export
+    
+	"$$" "$>" "`" @L @S @C
+
+	"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+
+	"!" "%" "^" "&" "*" "(" ")" "-" "+" "=" "${" "$}" "|" "~"
+	"[" "]"     ";" "'" ":" "<" ">" "?" "," "."  "/"
+
+	"->" "++" "--" ".*" "->*" "<<" ">>"  "<="  ">=" "==" "!=" "&&"
+	"||" "*=" "/=" "%=" "+="  "-=" "<<=" ">>=" "&=" "^=" "|=" "::"
+
+	asm       continue  float     new       signed    try
+	auto      default   for       operator  sizeof    typedef
+	break     delete    friend    private   static    union
+	case      do        goto      protected struct    unsigned
+	catch     double    if        public    switch    virtual
+	char      else      inline    register  template  void
+	class     enum      int       return    this      volatile
+	const     extern    long      short     throw     while
+
+	@EvaluateCp
+
+    def @CP
+	named style        { style         }  # style
+	named font         { dft           }  # font family
+	named strings      { dft           }  # string font
+	named identifiers  { dft           }  # ident. font
+	named comments     { dft           }  # comment font
+	named keywords     { dft           }  # keyword font
+	named numbers      { dft           }  # number font
+	named operators    { dft           }  # operator font
+	named size         { dft           }  # font size
+	named line         { dft           }  # line-space
+	named tabin        { dft           }  # tab interval
+	named tabout       { dft           }  # tab width
+	body @Body			      # filtered, see below
+    @Begin
+
+	def @Test	# returns x unless x is dft
+	    left x
+	    named iffixed {}
+	    named ifvarying {}
+	    named ifsymbol {}
+	{
+	    x @Case {
+		dft @Yield {
+		    style @Case {
+			fixed   @Yield { iffixed   }
+			varying @Yield { ifvarying }
+			symbol  @Yield { ifsymbol  }
+		    }
+		}
+		else @Yield x
+	    }
+	}
+
+	def @InitTab
+	{
+	  tabin @Test
+	      iffixed   { fixedtabin   }
+	      ifvarying { varyingtabin }
+	      ifsymbol  { symboltabin  }
+	}
+
+	def @InitTabWidth
+	{
+	  tabout @Test
+	      iffixed   { fixedtabout   }
+	      ifvarying { varyingtabout }
+	      ifsymbol  { symboltabout  }
+	}
+
+	def @Filter
+	{
+	    c2lout -r -i{@FilterIn} -o{@FilterOut} -e{@FilterErr}
+	      -t{@InitTab} -T{@InitTabWidth}
+	}
+
+	def @InitFontFamily
+	{
+	  font @Test
+	      iffixed   { fixedfont   }
+	      ifvarying { varyingfont }
+	      ifsymbol  { symbolfont  }
+	}
+
+	def @InitSize
+	{
+	  size @Test
+	      iffixed   { fixedsize   }
+	      ifvarying { varyingsize }
+	      ifsymbol  { symbolsize  }
+	}
+
+	def @InitLine
+	{
+	  line @Test
+	      iffixed   { fixedline   }
+	      ifvarying { varyingline }
+	      ifsymbol  { symbolline  }
+	}
+
+	def @S		# for formatting C strings
+	    right x
+	{
+	    "\"" &
+	    strings @Test
+	      iffixed   { fixedstrings   }
+	      ifvarying { varyingstrings }
+	      ifsymbol  { symbolstrings  }
+	    @Font x
+	    & "\""
+	}
+
+	def "`"
+	{
+	    style @Case {
+		symbol	@Yield { "`" }
+		else	@Yield { "'" }
+	    }
+	}
+
+	def @L		# for formatting C character literals
+	    right x
+	{
+	    ` &
+	    strings @Test
+	      iffixed   { fixedstrings   }
+	      ifvarying { varyingstrings }
+	      ifsymbol  { symbolstrings  }
+	    @Font x
+	    & '
+	}
+
+	def @Ident	# for formatting C identifiers
+	{
+	    identifiers @Test
+	      iffixed   { fixedidentifiers   }
+	      ifvarying { varyingidentifiers }
+	      ifsymbol  { symbolidentifiers  }
+	}
+
+	def @C		# for formatting C comments
+	    right x
+	{
+	    comments @Test
+	      iffixed   { fixedcomments   }
+	      ifvarying { varyingcomments }
+	      ifsymbol  { symbolcomments  }
+	    @Font x
+	}
+
+	def @K		# for formatting C keywords
+	    right x
+	{
+	    keywords @Test
+	      iffixed   { fixedkeywords   }
+	      ifvarying { varyingkeywords }
+	      ifsymbol  { symbolkeywords  }
+	    @Font x
+	}
+
+	def @N		# for formatting C numbers
+	    right x
+	{
+	    numbers @Test
+	      iffixed   { fixednumbers   }
+	      ifvarying { varyingnumbers }
+	      ifsymbol  { symbolnumbers  }
+	    @Font x
+	}
+
+	def @O		# for formatting C operators
+	    right x
+	{
+	    operators @Test
+	      iffixed   { fixedoperators   }
+	      ifvarying { varyingoperators }
+	      ifsymbol  { symboloperators  }
+	    @Font x
+	}
+
+	def @A		# get characters from the Adobe Symbol font
+	    left sym
+	    right x
+	{
+	    style @Case {
+		symbol	@Yield { { Symbol Base } @Font @Char sym }
+		else	@Yield { x			}
+	    }
+	}
+
+	macro "$>" { {} & }
+
+	def "$$" { "#" }
+
+	def "0"		{ @N "0"			}
+	def "1"		{ @N "1"			}
+	def "2"		{ @N "2"			}
+	def "3"		{ @N "3"			}
+	def "4"		{ @N "4"			}
+	def "5"		{ @N "5"			}
+	def "6"		{ @N "6"			}
+	def "7"		{ @N "7"			}
+	def "8"		{ @N "8"			}
+	def "9"		{ @N "9"			}
+
+	def "!"		{ 		  @O "!"	}
+	def "%"		{		  @O "%"	}
+	def "^"		{		  @O "^"	}
+	def "&"		{		  @O "&"	}
+	def "*"		{ asteriskmath @A @O "*"	}
+	def "("		{		  @O "("	}
+	def ")"		{		  @O ")"	}
+	def "-"		{ minus @A	  @O "-"	}
+	def "+"		{ plus  @A	  @O "+"	}
+	def "="		{ equal @A	  @O "="	}
+	def "${"	{		  @O "{"	}
+	def "$}"	{		  @O "}"	}
+	def "|"		{		  @O "|"	}
+	def "~"		{		  @O "~"	}
+	def "["		{		  @O "["	}
+	def "]"		{		  @O "]"	}
+	def ";"		{		  @O ";"	}
+	def "'"		{		  @O "'"	}
+	def ":"		{		  @O ":"	}
+	def "<"		{ less @A	  @O "<"	}
+	def ">"		{ greater @A	  @O ">"	}
+	def "?"		{		  @O "?"	}
+	def ","		{		  @O ","	}
+	def "."		{		  @O "."	}
+	def "/"		{		  @O "/"	}
+	def "->"	{ arrowright @A	  @O "->"	}
+	def "++"	{		     { + }{ + }	}
+	def "--"	{		     { - }{ - }	}
+	def ".*"	{		     { . }{ * } }
+	def "->*"	{		     { ->}{ * }	}
+	def "<<"	{		     { < }{ < }	}
+	def ">>"	{		     { > }{ > }	}
+	def "<="	{ lessequal @A	  @O "<="	}
+	def ">="	{ greaterequal @A @O ">="	}
+	def "=="	{		     { = }{ = } }
+	def "!="	{ notequal @A	  @O "!="	}
+	def "&&"	{		     { & }{ & }	}
+	def "||"	{		     { | }{ | }	}
+	def "*="	{		     { * }{ = }	}
+	def "/="	{		     { / }{ = } }
+	def "%="	{		     { % }{ = } }
+	def "+="	{		     { + }{ = }	}
+	def "-="	{		     { - }{ = }	}
+	def "<<="	{		     { <<}{ = }	}
+	def ">>="	{		     { >>}{ = }	}
+	def "&="	{		     { & }{ = }	}
+	def "^="	{		     { ^ }{ = } }
+	def "|="	{		     { | }{ = }	}
+	def "::"	{		     { : }{ : }	}
+
+	def asm		{ @K "asm"			}
+	def auto	{ @K "auto"			}
+	def break	{ @K "break"			}
+	def case	{ @K "case"			}
+	def catch	{ @K "catch"			}
+	def char	{ @K "char"			}
+	def class	{ @K "class"			}
+	def const	{ @K "const"			}
+
+	def continue	{ @K "continue"			}
+	def default	{ @K "default"			}
+	def delete	{ @K "delete"			}
+	def do		{ @K "do"			}
+	def double	{ @K "double"			}
+	def else	{ @K "else"			}
+	def enum	{ @K "enum"			}
+	def extern 	{ @K "extern"			}
+
+	def float	{ @K "float"			}
+	def for		{ @K "for"			}
+	def friend	{ @K "friend"			}
+	def goto	{ @K "goto"			}
+	def if		{ @K "if"			}
+	def inline	{ @K "inline"			}
+	def int		{ @K "int"			}
+	def long	{ @K "long"			}
+
+	def new		{ @K "new"			}
+	def operator	{ @K "operator"			}
+	def private	{ @K "private"			}
+	def protected	{ @K "protected"		}
+	def public	{ @K "public"			}
+	def register	{ @K "register"			}
+	def return	{ @K "return"			}
+	def short	{ @K "short"			}
+
+	def signed	{ @K "signed"			}
+	def sizeof	{ @K "sizeof"			}
+	def static	{ @K "static"			}
+	def struct	{ @K "struct"			}
+	def switch	{ @K "switch"			}
+	def template	{ @K "template"			}
+	def this	{ @K "this"			}
+	def throw	{ @K "throw"			}
+
+	def try		{ @K "try"			}
+	def typedef	{ @K "typedef"			}
+	def union	{ @K "union"			}
+	def unsigned	{ @K "unsigned"			}
+	def virtual	{ @K "virtual"			}
+	def void	{ @K "void"			}
+	def volatile	{ @K "volatile"			}
+	def while	{ @K "while"			}
+
+	def @EvaluateCp right x
+	{
+	  { @InitFontFamily Base } @Font
+	  { @Ident @InitSize } @Font
+	  { @InitLine lines } @Break x
+	}
+
+	{ @InitFontFamily Base } @Font { @Ident @InitSize } @Font
+	{ @InitLine lines } @Break @Body
+
+    @End @CP
+
+@End @CPSetup
diff --git a/include/diag b/include/diag
new file mode 100644
index 0000000..b4ffdb2
--- /dev/null
+++ b/include/diag
@@ -0,0 +1,193 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for diagram printing                                      #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { diagf } line                                             #
+#                                                                             #
+#  This line causes Lout to read the definitions for diagrams, and should     #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { diagf }
+
+
+###############################################################################
+#                                                                             #
+#  The @DiagSetup @Use clause                                                 #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @DiagSetup
+  # save		{ no			}
+  # maxlabels		{ 200			}
+  # outline		{ box			}
+  # margin		{ 0.6f			}
+  # shadow		{ 0.4f			}
+  # sides		{ 3			}
+  # angle		{ "dup 180 exch div"	}  # 180d / sides
+  # translate		{			}
+  # outlinestyle	{ solid			}
+  # outlinedashlength	{ 0.2f			}
+  # outlinewidth	{ 0.02f			}
+  # paint		{ nopaint		}
+  # font		{			}
+  # break		{			}
+  # format		{ @Body			}
+  # valign		{ ctr			}
+  # vsize		{			}
+  # vindent		{ ctr			}
+  # vstrut		{ no			}
+  # vmargin		{			}
+  # topmargin		{			}
+  # footmargin		{			}
+  # halign		{ ctr			}
+  # hsize              	{			}
+  # hindent		{ ctr			}
+  # hstrut		{ no			}
+  # hmargin		{			}
+  # leftmargin		{			}
+  # rightmargin		{			}
+  # nodelabel		{			}
+  # nodelabelmargin	{ 0.2f			}
+  # nodelabelfont	{ "-2p"			}
+  # nodelabelbreak	{ ragged nohyphen	}
+  # nodelabelformat	{ @Body			}
+  # nodelabelpos	{			}
+  # nodelabelprox	{ outside		}
+  # nodelabelangle	{ horizontal		}
+  # nodelabelctr	{ no			}
+  # nodelabeladjust	{ 0 0			}
+  # alabel		{			}
+  # alabelmargin	{			}
+  # alabelfont		{			}
+  # alabelbreak		{			}
+  # alabelformat	{			}
+  # alabelpos		{ NE			}
+  # alabelprox		{			}
+  # alabelangle		{			}
+  # alabelctr		{ 			}
+  # alabeladjust	{			}
+  # blabel		{			}
+  # blabelmargin	{			}
+  # blabelfont		{			}
+  # blabelbreak		{			}
+  # blabelformat	{			}
+  # blabelpos		{ NW			}
+  # blabelprox		{			}
+  # blabelangle		{			}
+  # blabelctr		{ 			}
+  # blabeladjust	{			}
+  # clabel		{			}
+  # clabelmargin	{			}
+  # clabelfont		{			}
+  # clabelbreak		{			}
+  # clabelformat	{			}
+  # clabelpos		{ SW			}
+  # clabelprox		{			}
+  # clabelangle		{			}
+  # clabelctr		{ 			}
+  # clabeladjust	{			}
+  # dlabel		{			}
+  # dlabelmargin	{			}
+  # dlabelfont		{			}
+  # dlabelbreak		{			}
+  # dlabelformat	{			}
+  # dlabelpos		{ SE			}
+  # dlabelprox		{			}
+  # dlabelangle		{			}
+  # dlabelctr		{ 			}
+  # dlabeladjust	{			}
+  # path		{ line			}
+  # from		{ 0, 0			}
+  # to			{ 1, 1			}
+  # bias		{ 2.0f			}
+  # fbias		{ 2.0f			}
+  # tbias		{ 2.0f			}
+  # radius		{ 1.0f			}
+  # xindent		{ 0.8f			}
+  # zindent		{ 0.8f			}
+  # pathstyle		{ solid			}
+  # pathdashlength	{ 0.2f			}
+  # pathwidth		{ 0.02f			}
+  # pathgap		{ 0.04f			}
+  # arrow		{ no			}
+  # arrowstyle		{ solid			}
+  # arrowwidth		{ 0.45f			}
+  # arrowlength		{ 0.6f			}
+  # linklabel		{			}
+  # linklabelmargin	{ 0.2f			}
+  # linklabelfont	{ "-2p"			}
+  # linklabelbreak	{ ragged nohyphen	}
+  # linklabelformat	{ @Body			}
+  # linklabelpos	{			}
+  # linklabelprox	{ above			}
+  # linklabelangle	{ horizontal		}
+  # linklabelctr	{ no			}
+  # linklabeladjust	{ 0 0			}
+  # xlabel		{			}
+  # xlabelmargin	{			}
+  # xlabelfont		{			}
+  # xlabelbreak		{			}
+  # xlabelformat	{			}
+  # xlabelpos		{ LFROM			}
+  # xlabelprox		{			}
+  # xlabelangle		{			}
+  # xlabelctr		{			}
+  # xlabeladjust	{			}
+  # ylabel		{			}
+  # ylabelmargin	{			}
+  # ylabelfont		{			}
+  # ylabelbreak		{			}
+  # ylabelformat	{			}
+  # ylabelpos		{ LMID			}
+  # ylabelprox		{			}
+  # ylabelangle		{			}
+  # ylabelctr		{ yes			}
+  # ylabeladjust	{			}
+  # zlabel		{			}
+  # zlabelmargin	{			}
+  # zlabelfont		{			}
+  # zlabelbreak		{			}
+  # zlabelformat	{			}
+  # zlabelpos		{ LTO			}
+  # zlabelprox		{			}
+  # zlabelangle		{			}
+  # zlabelctr		{			}
+  # zlabeladjust	{			}
+  # fromlabel		{			}
+  # fromlabelmargin	{ 0f			}
+  # fromlabelfont	{ "-2p"			}
+  # fromlabelbreak	{ ragged nohyphen	}
+  # fromlabelformat	{ @Body			}
+  # fromlabelpos	{ FROM			}
+  # fromlabelprox	{ E			}
+  # fromlabelangle	{ antiparallel		}
+  # fromlabelctr	{ no			}
+  # fromlabeladjust	{ 0 0			}
+  # tolabel		{			}
+  # tolabelmargin	{ 0f			}
+  # tolabelfont		{ "-2p"			}
+  # tolabelbreak	{ ragged nohyphen	}
+  # tolabelformat	{ @Body			}
+  # tolabelpos		{ TO			}
+  # tolabelprox		{ E			}
+  # tolabelangle	{ parallel		}
+  # tolabelctr		{ no			}
+  # tolabeladjust	{ 0 0			}
+  # treehsep		{ 0.5f			}
+  # treevsep		{ 0.5f			}
+  # treehindent		{ ctr			}
+  # treevindent		{ ctr			}
+}
diff --git a/include/diagf b/include/diagf
new file mode 100644
index 0000000..18b888a
--- /dev/null
+++ b/include/diagf
@@ -0,0 +1,3845 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Diag package for drawing diagrams                                    #
+#  Version 1.0 (July 1996)                                                    #
+#  Jeffrey H. Kingston                                                        #
+#                                                                             #
+#  Based on Version 2.0 of the @Fig package (Jeffrey H. Kingston, Dec 1992).  #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { diagf.lpg }
+@SysInclude { diagf.etc }
+
+export @Diag
+def @DiagSetup
+    named save		             	{ no	           	}
+    named maxlabels             	{ 200           	}
+
+    import @Geometry named outline
+	named margin {}
+	named shadow {}
+	named sides {}
+	named angle {}
+					{ box			}
+    named margin			{ 0.6f          	}
+    import @Geometry named shadow	{ 0.4f          	}
+    import @Geometry named sides	{ 3			}
+    import @Geometry named angle	{ "dup 180 exch div"	}
+    named translate			{			}
+    named outlinestyle
+	named solid   { "/ldiagsolid"   }
+	named dashed  { "/ldiagdashed"  }
+	named cdashed { "/ldiagcdashed" }
+	named dotted  { "/ldiagdotted"  }
+	named noline  { "/ldiagnoline"  }
+					{ solid         	}
+    import @Geometry named outlinedashlength	{ 0.2f		}
+    import @Geometry named outlinewidth
+	named thin   { 0.04 ft }
+	named medium { 0.08 ft }
+	named thick  { 0.12 ft }
+					{ thin	         	}
+    named paint                 	{ nopaint       	}
+    named font				{			}
+    named break				{			}
+    named format right @Body    	{ @Body         	}
+
+    named valign			{ ctr           	}
+    named vsize                 	{               	}
+    named vindent			{ ctr           	}
+    named vstrut
+	named no  { 0.0f }
+	named yes { 1.0f }
+					{ no            	}
+    named vmargin               	{               	}
+    named topmargin             	{               	}
+    named footmargin            	{               	}
+
+    named halign			{ ctr           	}
+    named hsize                 	{               	}
+    named hindent			{ ctr           	}
+    named hstrut
+	named no  { 0.0f }
+	named yes { 1.0f }
+					{ no            	}
+    named hmargin               	{               	}
+    named leftmargin            	{               	}
+    named rightmargin           	{               	}
+
+    named nodelabel			{			}
+    named nodelabelmargin		{ 0.2f			}
+    named nodelabelfont			{ -2p			}
+    named nodelabelbreak		{ ragged nohyphen	}
+    named nodelabelformat right @Body	{ @Body			}
+    import @Geometry named nodelabelpos	{ 			}
+    named nodelabelprox			{ outside		}
+    import @Geometry named nodelabelangle  { horizontal		}
+    named nodelabelctr			{ no			}
+    import @Geometry named nodelabeladjust { 0 0		}
+
+    named alabel			{			}
+    named alabelmargin			{ 			}
+    named alabelfont			{ 			}
+    named alabelbreak			{ 			}
+    named alabelformat right @Body	{ 			}
+    import @Geometry named alabelpos	{ NE			}
+    named alabelprox			{ 			}
+    import @Geometry named alabelangle	{ 			}
+    named alabelctr			{ 			}
+    import @Geometry named alabeladjust	{ 			}
+
+    named blabel			{			}
+    named blabelmargin			{ 			}
+    named blabelfont			{ 			}
+    named blabelbreak			{ 			}
+    named blabelformat right @Body	{ 			}
+    import @Geometry named blabelpos	{ NW			}
+    named blabelprox			{ 			}
+    import @Geometry named blabelangle	{ 			}
+    named blabelctr			{ 			}
+    import @Geometry named blabeladjust	{ 			}
+
+    named clabel			{			}
+    named clabelmargin			{ 			}
+    named clabelfont			{ 			}
+    named clabelbreak			{ 			}
+    named clabelformat right @Body	{ 			}
+    import @Geometry named clabelpos	{ SW			}
+    named clabelprox			{ 			}
+    import @Geometry named clabelangle	{ 			}
+    named clabelctr			{ 			}
+    import @Geometry named clabeladjust	{ 			}
+
+    named dlabel			{			}
+    named dlabelmargin			{ 			}
+    named dlabelfont			{ 			}
+    named dlabelbreak			{ 			}
+    named dlabelformat right @Body	{ 			}
+    import @Geometry named dlabelpos	{ SE			}
+    named dlabelprox			{ 			}
+    import @Geometry named dlabelangle	{ 			}
+    named dlabelctr			{ 			}
+    import @Geometry named dlabeladjust	{ 			}
+
+    import @Geometry named path
+	named from {}
+	named to {}
+	named bias {}
+	named fbias {}
+	named tbias {}
+	named radius {}
+	named xindent {}
+	named zindent {}
+	named frompt {}
+	named topt {}
+	named arrow {}
+	named arrowlength {}
+					{ line			}
+    import @Geometry named from		{ 0,0			}
+    import @Geometry named to		{ 1,1			}
+    import @Geometry named bias		{ 2.0f			}
+    import @Geometry named fbias	{ 2.0f			}
+    import @Geometry named tbias	{ 2.0f			}
+    import @Geometry named radius	{ 1.0f			}
+    import @Geometry named xindent	{ 0.8f			}
+    import @Geometry named zindent	{ 0.8f			}
+    import @Geometry named frompt	{ 0 0			}
+    import @Geometry named topt		{ 0 0			}
+    named pathstyle
+	named solid   { "/ldiagsolid"   }
+	named dashed  { "/ldiagdashed"  }
+	named cdashed { "/ldiagcdashed" }
+	named dotted  { "/ldiagdotted"  }
+	named noline  { "/ldiagnoline"  }
+					{ solid         	}
+    import @Geometry named pathdashlength { 0.2f		}
+    import @Geometry named pathwidth
+	named thin   { 0.04 ft }
+	named medium { 0.08 ft }
+	named thick  { 0.12 ft }
+					{ thin	         	}
+    import @Geometry named pathgap
+	named thin   { 0.08 ft }
+	named medium { 0.16 ft }
+	named thick  { 0.24 ft }
+					{ thin	         	}
+    named arrow                 	{ no			}
+    named arrowstyle             	{ solid			}
+    named arrowwidth             	{ 0.3f			}
+    named arrowlength            	{ 0.5f			}
+
+    named linklabel			{			}
+    named linklabelmargin		{ 0.2f			}
+    named linklabelfont			{ -2p			}
+    named linklabelbreak		{ ragged nohyphen	}
+    named linklabelformat right @Body	{ @Body			}
+    import @Geometry named linklabelpos	{ 			}
+    named linklabelprox			{ above			}
+    import @Geometry named linklabelangle  { horizontal		}
+    named linklabelctr			{ no			}
+    import @Geometry named linklabeladjust { 0 0		}
+
+    named xlabel			{			}
+    named xlabelmargin			{ 			}
+    named xlabelfont			{ 			}
+    named xlabelbreak			{ 			}
+    named xlabelformat right @Body	{ 			}
+    import @Geometry named xlabelpos	{ LFROM			}
+    named xlabelprox			{ 			}
+    import @Geometry named xlabelangle	{ 			}
+    named xlabelctr			{			}
+    import @Geometry named xlabeladjust	{ 			}
+
+    named ylabel			{			}
+    named ylabelmargin			{ 			}
+    named ylabelfont			{ 			}
+    named ylabelbreak			{ 			}
+    named ylabelformat right @Body	{ 			}
+    import @Geometry named ylabelpos	{ LMID			}
+    named ylabelprox			{ 			}
+    import @Geometry named ylabelangle	{ 			}
+    named ylabelctr			{ yes			}
+    import @Geometry named ylabeladjust	{ 			}
+
+    named zlabel			{			}
+    named zlabelmargin			{ 			}
+    named zlabelfont			{ 			}
+    named zlabelbreak			{ 			}
+    named zlabelformat right @Body	{ 			}
+    import @Geometry named zlabelpos	{ LTO			}
+    named zlabelprox			{ 			}
+    import @Geometry named zlabelangle	{ 			}
+    named zlabelctr			{			}
+    import @Geometry named zlabeladjust	{ 			}
+
+    named fromlabel			{			}
+    named fromlabelmargin		{ 0f			}
+    named fromlabelfont			{			}
+    named fromlabelbreak		{ ragged nohyphen	}
+    named fromlabelformat right @Body	{ @Body			}
+    import @Geometry named fromlabelpos	{ FROM			}
+    named fromlabelprox			{ W			}
+    import @Geometry named fromlabelangle  { antiparallel	}
+    named fromlabelctr			{ no			}
+    import @Geometry named fromlabeladjust { 0 0		}
+
+    named tolabel			{			}
+    named tolabelmargin			{ 0f			}
+    named tolabelfont			{			}
+    named tolabelbreak			{ ragged nohyphen	}
+    named tolabelformat right @Body	{ @Body			}
+    import @Geometry named tolabelpos	{ TO			}
+    named tolabelprox			{ W			}
+    import @Geometry named tolabelangle	{ parallel		}
+    named tolabelctr			{ no			}
+    import @Geometry named tolabeladjust { 0 0			}
+
+    named treehsep			{ 0.5f			}
+    named treevsep			{ 0.5f			}
+    named treehindent
+	named left  { 0.0rt }
+	named ctr   { 0.5rt }
+	named right { 1.0rt }
+					{ ctr			}
+    named treevindent
+	named top   { 0.0rt }
+	named ctr   { 0.5rt }
+	named foot  { 1.0rt }
+					{ ctr			}
+
+{
+
+    export "::" @ShowPoints @ShowTags @ShowDirections @CatchTags @Transform
+
+	   @Tree @HTree
+
+           @Node
+           @Box @CurveBox @ShadowBox @Square @Diamond @Polygon
+	   @Isosceles @Ellipse @Circle
+	   @ArrowHead @SolidArrowHead @OpenArrowHead @HalfOpenArrowHead
+	   @SolidCurvedArrowHead @OpenCurvedArrowHead @HalfOpenCurvedArrowHead
+	   @CircleArrowHead @BoxArrowHead
+
+	   @Link
+	   @Line @DoubleLine @Arrow @DoubleArrow @Curve @CurveArrow
+	   @ACurve @ACurveArrow @CCurve @CCurveArrow
+	   @Bezier @BezierArrow
+	   @HVLine @HVArrow @VHLine @VHArrow
+	   @HVCurve @HVCurveArrow @VHCurve @VHCurveArrow
+	   @LVRLine @LVRArrow @RVLLine @RVLArrow
+	   @LVRCurve @LVRCurveArrow @RVLCurve @RVLCurveArrow
+	   @DWrapLine @DWrapArrow @UWrapLine @UWrapArrow
+	   @DWrapCurve @DWrapCurveArrow @UWrapCurve @UWrapCurveArrow
+
+    def @Diag
+	named save		             	{ save	           	}
+        named maxlabels             		{ maxlabels     	}
+
+	import @Geometry named outline
+	    named margin {}
+	    named shadow {}
+	    named sides {}
+	    named angle {}
+						{ outline
+						    margin { margin }
+						    shadow { shadow }
+						    sides  { sides  }
+						    angle  { angle  }
+						}
+        named margin                		{ margin        	}
+	import @Geometry named shadow		{ shadow		}
+	import @Geometry named sides		{ sides			}
+	import @Geometry named angle		{ angle			}
+	named translate				{ translate		}
+	named nodetag				{			}
+        named outlinestyle
+	    named solid   { "/ldiagsolid"   }
+	    named dashed  { "/ldiagdashed"  }
+	    named cdashed { "/ldiagcdashed" }
+	    named dotted  { "/ldiagdotted"  }
+	    named noline  { "/ldiagnoline"  }
+						{ outlinestyle     	}
+        import @Geometry named outlinedashlength{ outlinedashlength    	}
+        import @Geometry named outlinewidth
+	    named thin   { 0.04 ft }
+	    named medium { 0.08 ft }
+	    named thick  { 0.12 ft }
+						{ outlinewidth     	}
+        named paint                 		{ paint         	}
+	named font				{ font			}
+	named break				{ break			}
+        named format right @Body    		{ format @Body  	}
+        named valign				{ valign        	}
+        named vsize                 		{ vsize         	}
+        named vindent				{ vindent       	}
+        named vstrut
+		named no  { 0.0f }
+		named yes { 1.0f }
+						{ vstrut	 	}
+        named vmargin               		{ vmargin       	}
+        named topmargin             		{ topmargin     	}
+        named footmargin            		{ footmargin    	}
+        named halign				{ halign        	}
+        named hsize                 		{ hsize         	}
+        named hindent				{ hindent       	}
+        named hstrut
+		named no  { 0.0f }
+		named yes { 1.0f }
+						{ hstrut	 	}
+        named hmargin               		{ hmargin       	}
+        named leftmargin            		{ leftmargin    	}
+        named rightmargin           		{ rightmargin   	}
+
+	import @Geometry named path
+	    named from {}
+	    named to {}
+	    named bias {}
+	    named fbias {}
+	    named tbias {}
+	    named radius {}
+	    named xindent {}
+	    named zindent {}
+	    named frompt {}
+	    named topt {}
+	    named arrow {}
+	    named arrowlength {}
+						{ path
+						    from	{ from }
+						    to		{ to   }
+						    bias	{ bias }
+						    fbias	{ fbias }
+						    tbias	{ tbias }
+						    radius	{ radius }
+						    xindent	{ xindent }
+						    zindent	{ zindent }
+						    frompt	{ frompt }
+						    topt	{ topt }
+						    arrow	{ arrow }
+						    arrowlength	{ arrowlength }
+						}
+	import @Geometry named from		{ from			}
+	import @Geometry named to		{ to			}
+	import @Geometry named bias		{ bias			}
+	import @Geometry named fbias		{ fbias			}
+	import @Geometry named tbias		{ tbias			}
+	import @Geometry named radius		{ radius		}
+	import @Geometry named xindent		{ xindent		}
+	import @Geometry named zindent		{ zindent		}
+	import @Geometry named frompt		{ frompt		}
+	import @Geometry named topt		{ topt			}
+        named pathstyle
+	    named solid   { "/ldiagsolid"   }
+	    named dashed  { "/ldiagdashed"  }
+	    named cdashed { "/ldiagcdashed" }
+	    named dotted  { "/ldiagdotted"  }
+	    named noline  { "/ldiagnoline"  }
+						{ pathstyle     	}
+        import @Geometry named pathdashlength	{ pathdashlength    	}
+        import @Geometry named pathwidth
+	    named thin   { 0.04 ft }
+	    named medium { 0.08 ft }
+	    named thick  { 0.12 ft }
+						{ pathwidth     	}
+        import @Geometry named pathgap
+	    named thin   { 0.08 ft }
+	    named medium { 0.16 ft }
+	    named thick  { 0.24 ft }
+						{ pathgap	     	}
+	named arrow				{ arrow			}
+	named arrowstyle			{ arrowstyle		}
+	named arrowwidth			{ arrowwidth		}
+	named arrowlength			{ arrowlength		}
+
+	named nodelabel				{ nodelabel		}
+	named nodelabelmargin			{ nodelabelmargin	}
+	named nodelabelfont			{ nodelabelfont		}
+	named nodelabelbreak			{ nodelabelbreak	}
+	named nodelabelformat right @Body	{ nodelabelformat @Body	}
+	import @Geometry named nodelabelpos	{ nodelabelpos		}
+	named nodelabelprox			{ nodelabelprox		}
+	import @Geometry named nodelabelangle	{ nodelabelangle	}
+	named nodelabelctr			{ nodelabelctr		}
+	import @Geometry named nodelabeladjust	{ nodelabeladjust	}
+
+        named alabel				{ alabel		}
+        named alabelmargin			{ alabelmargin		}
+        named alabelfont			{ alabelfont		}
+        named alabelbreak			{ alabelbreak		}
+	named alabelformat right @Body		{ alabelformat @Body	}
+        import @Geometry named alabelpos	{ alabelpos		}
+        named alabelprox			{ alabelprox		}
+        import @Geometry named alabelangle	{ alabelangle		}
+	named alabelctr				{ alabelctr		}
+        import @Geometry named alabeladjust	{ alabeladjust		}
+
+        named blabel				{ blabel		}
+        named blabelmargin			{ blabelmargin		}
+        named blabelfont			{ blabelfont		}
+        named blabelbreak			{ blabelbreak		}
+	named blabelformat right @Body		{ blabelformat @Body	}
+        import @Geometry named blabelpos	{ blabelpos		}
+        named blabelprox			{ blabelprox		}
+        import @Geometry named blabelangle	{ blabelangle		}
+	named blabelctr				{ blabelctr		}
+        import @Geometry named blabeladjust	{ blabeladjust		}
+
+        named clabel				{ clabel		}
+        named clabelmargin			{ clabelmargin		}
+        named clabelfont			{ clabelfont		}
+        named clabelbreak			{ clabelbreak		}
+	named clabelformat right @Body		{ clabelformat @Body	}
+        import @Geometry named clabelpos	{ clabelpos		}
+        named clabelprox			{ clabelprox		}
+        import @Geometry named clabelangle	{ clabelangle		}
+	named clabelctr				{ clabelctr		}
+        import @Geometry named clabeladjust	{ clabeladjust		}
+
+        named dlabel				{ dlabel		}
+        named dlabelmargin			{ dlabelmargin		}
+        named dlabelfont			{ dlabelfont		}
+        named dlabelbreak			{ dlabelbreak		}
+	named dlabelformat right @Body		{ dlabelformat @Body	}
+        import @Geometry named dlabelpos	{ dlabelpos		}
+        named dlabelprox			{ dlabelprox		}
+        import @Geometry named dlabelangle	{ dlabelangle		}
+	named dlabelctr				{ dlabelctr		}
+        import @Geometry named dlabeladjust	{ dlabeladjust		}
+
+        named fromlabel				{ fromlabel		}
+        named fromlabelmargin			{ fromlabelmargin	}
+        named fromlabelfont			{ fromlabelfont		}
+        named fromlabelbreak			{ fromlabelbreak	}
+	named fromlabelformat right @Body	{ fromlabelformat @Body	}
+        import @Geometry named fromlabelpos	{ fromlabelpos		}
+        named fromlabelprox			{ fromlabelprox		}
+        import @Geometry named fromlabelangle	{ fromlabelangle	}
+	named fromlabelctr			{ fromlabelctr		}
+        import @Geometry named fromlabeladjust	{ fromlabeladjust	}
+
+	named linklabel				{ linklabel		}
+	named linklabelmargin			{ linklabelmargin	}
+	named linklabelfont			{ linklabelfont		}
+	named linklabelbreak			{ linklabelbreak	}
+	named linklabelformat right @Body	{ linklabelformat @Body	}
+	import @Geometry named linklabelpos	{ linklabelpos		}
+	named linklabelprox			{ linklabelprox		}
+	import @Geometry named linklabelangle	{ linklabelangle	}
+	named linklabelctr			{ linklabelctr		}
+	import @Geometry named linklabeladjust	{ linklabeladjust	}
+
+        named xlabel				{ xlabel		}
+        named xlabelmargin			{ xlabelmargin		}
+        named xlabelfont			{ xlabelfont		}
+        named xlabelbreak			{ xlabelbreak		}
+	named xlabelformat right @Body		{ xlabelformat @Body	}
+        import @Geometry named xlabelpos	{ xlabelpos		}
+        named xlabelprox			{ xlabelprox		}
+        import @Geometry named xlabelangle	{ xlabelangle		}
+	named xlabelctr				{ xlabelctr		}
+        import @Geometry named xlabeladjust	{ xlabeladjust		}
+
+        named ylabel				{ ylabel		}
+        named ylabelmargin			{ ylabelmargin		}
+        named ylabelfont			{ ylabelfont		}
+        named ylabelbreak			{ ylabelbreak		}
+	named ylabelformat right @Body		{ ylabelformat @Body	}
+        import @Geometry named ylabelpos	{ ylabelpos		}
+        named ylabelprox			{ ylabelprox		}
+        import @Geometry named ylabelangle	{ ylabelangle		}
+	named ylabelctr				{ ylabelctr		}
+        import @Geometry named ylabeladjust	{ ylabeladjust		}
+
+        named zlabel				{ zlabel		}
+        named zlabelmargin			{ zlabelmargin		}
+        named zlabelfont			{ zlabelfont		}
+        named zlabelbreak			{ zlabelbreak		}
+	named zlabelformat right @Body		{ zlabelformat @Body	}
+        import @Geometry named zlabelpos	{ zlabelpos		}
+        named zlabelprox			{ zlabelprox		}
+        import @Geometry named zlabelangle	{ zlabelangle		}
+	named zlabelctr				{ zlabelctr		}
+        import @Geometry named zlabeladjust	{ zlabeladjust		}
+
+        named tolabel				{ tolabel		}
+        named tolabelmargin			{ tolabelmargin		}
+        named tolabelfont			{ tolabelfont		}
+        named tolabelbreak			{ tolabelbreak		}
+	named tolabelformat right @Body		{ tolabelformat @Body	}
+        import @Geometry named tolabelpos	{ tolabelpos		}
+        named tolabelprox			{ tolabelprox		}
+        import @Geometry named tolabelangle	{ tolabelangle		}
+	named tolabelctr			{ tolabelctr		}
+        import @Geometry named tolabeladjust	{ tolabeladjust		}
+
+	named treehsep				{ treehsep		}
+	named treevsep				{ treevsep		}
+	named treehindent
+	    named left  { 0.0rt }
+	    named ctr   { 0.5rt }
+	    named right { 1.0rt }
+						{ treehindent		}
+	named treevindent
+	    named top   { 0.0rt }
+	    named ctr   { 0.5rt }
+	    named foot  { 1.0rt }
+						{ treevindent		}
+        body @Body
+    @Begin
+
+        # Like @Graphic, but affects the graphics state of right parameter
+        def @InnerGraphic
+            left ps
+            right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+              { ps gsave // grestore } @Graphic x
+            }
+            PDF @Yield {
+              { ps q // Q } @Graphic x
+            }
+          }
+        }
+
+	def @BoxLabels right x
+	{
+          @BackEnd @Case {
+            PostScript @Yield {
+	        "[ ldiagbox ] pop" @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+	}
+
+	def @IfNonEmpty
+	    left x
+	    right y
+	{
+	    x @Case {
+		""   @Yield @Null
+		else @Yield y
+	    }
+	}
+
+	def @Else
+	    precedence 20
+	    associativity right
+	    left x
+	    right y
+	{
+	    x @Case {
+		""   @Yield y
+		else @Yield x
+	    }
+	}
+
+        def @ShowTags
+	    right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+            {
+	      "() ldiagpushtagdict"
+              // "ldiagshowtags ldiagpopuptagdict"
+	      } @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+        }
+
+        def @ShowPoints
+	    right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+            {
+	      "() ldiagpushtagdict"
+              // "ldiagshowpoints ldiagpopuptagdict"
+	      } @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+        }
+
+        def @ShowDirections
+	    right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+            { "() ldiagpushtagdict"
+              // "ldiagshowangles ldiagpopuptagdict" } @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+        }
+
+        def "::"
+            precedence 33
+	    associativity right
+            left name
+            right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+            { "("name") ldiagpushtagdict"
+              // "ldiagpopuptagdict" } @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+        }
+
+        def @CatchTags
+            precedence 33
+	    associativity right
+            right x
+        {
+          @BackEnd @Case {
+            PostScript @Yield {
+            {
+	       "() ldiagpushtagdict"
+               // "ldiagpoptagdict"
+	      }
+	      @Graphic x
+	      }
+	      PDF @Yield {}
+	    }
+        }
+
+        def @ZeroWidth right x
+        {
+	    @HContract @VContract {
+            ^|0io @HContract @VContract x |0io
+	    }
+        }
+
+        def @ZeroSize right x
+        {
+	    @HContract @VContract {
+            ^/0io ^|0io @HContract @VContract x |0io /0io
+	    }
+        }
+
+	def @FromArrowLength
+	    left arrow
+	    right arrowlength
+	{
+        @BackEnd @Case {
+          PostScript @Yield {
+	    arrow @Case {
+		{ no yes forward }   @Yield 0
+		{ back both }	     @Yield {"("arrowlength") ldiagdecodelength"}
+	    }
+	    }
+	    PDF @Yield {}
+	  }
+	}
+
+	def @ToArrowLength
+	    left arrow
+	    right arrowlength
+	{
+        @BackEnd @Case {
+          PostScript @Yield {
+	    arrow @Case {
+		{ no back }	     @Yield 0
+		{ yes forward both } @Yield {"("arrowlength") ldiagdecodelength"}
+	    }
+	    }
+	    PDF @Yield {}
+	  }
+	}
+
+	def @AddMargins
+	    named mtop {}
+	    named mfoot {}
+	    named mleft {}
+	    named mright {}
+	    right x
+	{
+
+	    @HContract @VContract {
+			 ^|mleft    |mright
+		^/mtop    |      x  |
+		 /mfoot   |         |
+	    }
+	}
+
+        def @Transform
+            precedence 32
+            import @Geometry named translate
+#               named to precedence 10 left x right y { x y "ldiagpsub" }
+                named to precedence 10 left x right y {
+                  @BackEnd @Case {
+                    PostScript @Yield { x y "ldiagpsub" }
+                    PDF @Yield {""}
+                  }
+                }
+            {}
+            import @Geometry named rotate { 0d }
+            named scale    { 1 1 }
+            right x
+        {
+          @BackEnd @Case {
+
+            PostScript @Yield {
+            { rotate "rotate" scale "scale newpath clip" }
+            @InnerGraphic
+            {
+                @ZeroSize x
+            }
+            //
+            # { rotate "rotate" scale "scale" translate "translate" }
+            { translate "translate" rotate "rotate" scale "scale" }
+            @InnerGraphic
+            {
+                @ZeroSize x
+            }
+	      }
+
+	      PDF @Yield { # presume that "rotate", "scale" and "translate" are not matrices
+            { "__cos("rotate") __sin("rotate") __sub(0, __sin("rotate")) __cos("rotate") 0 0 cm"
+              "__pick(1, "scale") 0 0 __pick(2, "scale") 0 0 cm n W" }
+            @InnerGraphic
+            {
+                @ZeroSize x
+            }
+            //
+            # { rotate "rotate" scale "scale" translate "translate" }
+            { "1 0 0 1 "translate" cm"
+              "__cos("rotate") __sin("rotate") __sub(0, __sin("rotate")) __cos("rotate") 0 0 cm"
+              "__pick(1, "scale") 0 0 __pick(2, "scale") 0 0 cm" }
+            @InnerGraphic
+            {
+                @ZeroSize x
+            }
+	      }
+
+	    }
+        }
+
+	def @DoLabel
+	    named which				{}
+	    named labeltag			{ LABEL }
+	    named label				{}
+	    named labelmargin			{}
+	    named labelfont			{}
+	    named labelbreak			{}
+	    named labelformat right @Body	{}
+	    named labelpos			{}
+	    named labelprox			{}
+	    named labelangle			{}
+	    named labelctr			{}
+	    named labeladjust			{}
+	{
+
+	    import @Geometry
+            def alignedangle
+            {
+		labelpos??"ANGLE" quadcase 
+			0	{ labelpos??"ANGLE"		}
+			0-90	{ labelpos??"ANGLE"		}
+			90	{ labelpos??"ANGLE"		}
+			90-180	{ labelpos??"ANGLE" + 180d	}
+			180	{ labelpos??"ANGLE" + 180d	}
+			180-270	{ labelpos??"ANGLE" + 180d	}
+			270	{ labelpos??"ANGLE" + 180d	}
+			270-360	{ labelpos??"ANGLE"		}
+	    }
+
+	    import @Geometry
+            def perpalignedangle
+            {
+		labelpos??"ANGLE" quadcase 
+			0	{ labelpos??"ANGLE" - 90d	}
+			0-90	{ labelpos??"ANGLE" - 90d	}
+			90	{ labelpos??"ANGLE" - 90d	}
+			90-180	{ labelpos??"ANGLE" - 90d	}
+			180	{ labelpos??"ANGLE" + 90d	}
+			180-270	{ labelpos??"ANGLE" + 90d	}
+			270	{ labelpos??"ANGLE" + 90d	}
+			270-360	{ labelpos??"ANGLE" + 90d	}
+		    
+	    }
+
+	    import @Geometry
+            def finalangle
+            {
+                labelangle @Case {
+
+		    "horizontal"	@Yield { 0d				}
+                    "aligned"		@Yield { alignedangle			}
+                    "perpendicular"	@Yield { perpalignedangle		}
+                    "parallel"		@Yield { labelpos??"ANGLE"		}
+                    "antiparallel"	@Yield { labelpos??"ANGLE" + 180d	}
+                    else		@Yield labelangle
+                }
+            }
+
+	    import @Geometry
+	    def @AlignedAboveProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (SE) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield (S)
+		}
+	    }
+
+	    import @Geometry
+	    def @AlignedBelowProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (NE) }
+				180	{ (NE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (NW) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield (N)
+		}
+	    }
+
+	    import @Geometry
+	    def @AlignedLeftProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (NE) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (NW) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (S) }
+				90	{ (S) }
+				90-180	{ (N) }
+				180	{ (S) }
+				180-270	{ (S) }
+				270	{ (S) }
+				270-360	{ (N) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @AlignedRightProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (SE) }
+				180	{ (SE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (N) }
+				90	{ (N) }
+				90-180	{ (S) }
+				180	{ (S) }
+				180-270	{ (N) }
+				270	{ (N) }
+				270-360	{ (S) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @AlignedInsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (NE) }
+				180	{ (NE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (NW) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (S) }
+				90	{ (S) }
+				90-180	{ (N) }
+				180	{ (N) }
+				180-270	{ (N) }
+				270	{ (N) }
+				270-360	{ (S) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @AlignedOutsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (SE) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (N) }
+				0-90	{ (N) }
+				90	{ (N) }
+				90-180	{ (S) }
+				180	{ (S) }
+				180-270	{ (S) }
+				270	{ (S) }
+				270-360	{ (N) }
+			  }
+		}
+	    }
+
+
+	    import @Geometry
+	    def @PerpendicularAboveProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (SW) }
+				180	{ (NE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (NW) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (E) }
+				0-90	{ (E) }
+				90	{ (E) }
+				90-180	{ (W) }
+				180	{ (E) }
+				180-270	{ (E) }
+				270	{ (E) }
+				270-360	{ (W) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @PerpendicularBelowProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (SE) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (NE) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (W) }
+				0-90	{ (W) }
+				90	{ (W) }
+				90-180	{ (E) }
+				180	{ (W) }
+				180-270	{ (W) }
+				270	{ (W) }
+				270-360	{ (E) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @PerpendicularLeftProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (SE) }
+				180	{ (NE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (NE) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield (E)
+		}
+	    }
+
+	    import @Geometry
+	    def @PerpendicularRightProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (SW) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (NW) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield (W)
+		}
+	    }
+
+	    import @Geometry
+	    def @PerpendicularInsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (SE) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (NW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NE) }
+				90	{ (NE) }
+				90-180	{ (NE) }
+				180	{ (SW) }
+				180-270	{ (SW) }
+				270	{ (SW) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (E) }
+				0-90	{ (E) }
+				90	{ (E) }
+				90-180	{ (E) }
+				180	{ (W) }
+				180-270	{ (W) }
+				270	{ (W) }
+				270-360	{ (W) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @PerpendicularOutsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SW) }
+				90	{ (SW) }
+				90-180	{ (SW) }
+				180	{ (NE) }
+				180-270	{ (NE) }
+				270	{ (NE) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (NW) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (SE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (W) }
+				0-90	{ (W) }
+				90	{ (W) }
+				90-180	{ (W) }
+				180	{ (E) }
+				180-270	{ (E) }
+				270	{ (E) }
+				270-360	{ (E) }
+			  }
+		}
+	    }
+
+
+	    import @Geometry
+	    def @OtherAboveProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SE) }
+				90	{ (SW) }
+				90-180	{ (SW) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (NW) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (NW) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (SE) }
+				270	{ (SW) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (SE) }
+				90	{ (W) }
+				90-180	{ (SW) }
+				180	{ (S) }
+				180-270	{ (SE) }
+				270	{ (W) }
+				270-360	{ (SW) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @OtherBelowProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (SW) }
+				90-180	{ (NE) }
+				180	{ (NE) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (NE) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (SW) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (N) }
+				0-90	{ (NW) }
+				90	{ (W) }
+				90-180	{ (NE) }
+				180	{ (N) }
+				180-270	{ (NW) }
+				270	{ (W) }
+				270-360	{ (NE) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @OtherLeftProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (NE) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (NE) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (NE) }
+				90-180	{ (NE) }
+				180	{ (SW) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (SE) }
+				90	{ (E) }
+				90-180	{ (NE) }
+				180	{ (S) }
+				180-270	{ (SE) }
+				270	{ (E) }
+				270-360	{ (NE) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @OtherRightProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (NW) }
+				90	{ (SW) }
+				90-180	{ (SW) }
+				180	{ (SE) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (NW) }
+				270	{ (SW) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (NW) }
+				90	{ (W) }
+				90-180	{ (SW) }
+				180	{ (S) }
+				180-270	{ (NW) }
+				270	{ (W) }
+				270-360	{ (SW) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @OtherInsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (SW) }
+				0-90	{ (SE) }
+				90	{ (SE) }
+				90-180	{ (NE) }
+				180	{ (NE) }
+				180-270	{ (NW) }
+				270	{ (NW) }
+				270-360	{ (SW) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (SE) }
+				0-90	{ (SE) }
+				90	{ (NE) }
+				90-180	{ (NE) }
+				180	{ (NW) }
+				180-270	{ (NW) }
+				270	{ (SW) }
+				270-360	{ (SW) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (S) }
+				0-90	{ (SE) }
+				90	{ (E) }
+				90-180	{ (NE) }
+				180	{ (N) }
+				180-270	{ (NW) }
+				270	{ (W) }
+				270-360	{ (SW) }
+			  }
+		}
+	    }
+
+	    import @Geometry
+	    def @OtherOutsideProximity
+	    {
+		which @Case {
+		  { x f } @Yield { labelpos??ANGLE quadcase
+				0	{ (NW) }
+				0-90	{ (NW) }
+				90	{ (SW) }
+				90-180	{ (SW) }
+				180	{ (SE) }
+				180-270	{ (SE) }
+				270	{ (NE) }
+				270-360	{ (NE) }
+			  }
+		  { z t } @Yield { labelpos??ANGLE quadcase
+				0	{ (NE) }
+				0-90	{ (NW) }
+				90	{ (NW) }
+				90-180	{ (SW) }
+				180	{ (SW) }
+				180-270	{ (SE) }
+				270	{ (SE) }
+				270-360	{ (NE) }
+			  }
+		  else @Yield { labelpos??ANGLE quadcase
+				0	{ (N) }
+				0-90	{ (NW) }
+				90	{ (W) }
+				90-180	{ (SW) }
+				180	{ (S) }
+				180-270	{ (SE) }
+				270	{ (E) }
+				270-360	{ (NE) }
+			  }
+		}
+	    }
+
+
+	    import @Geometry
+	    def @AboveProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedAboveProximity
+		    "perpendicular"	@Yield @PerpendicularAboveProximity
+                    else		@Yield @OtherAboveProximity
+                }
+	    }
+
+	    import @Geometry
+	    def @BelowProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedBelowProximity
+		    "perpendicular"	@Yield @PerpendicularBelowProximity
+                    else		@Yield @OtherBelowProximity
+                }
+	    }
+
+	    import @Geometry
+	    def @LeftProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedLeftProximity
+		    "perpendicular"	@Yield @PerpendicularLeftProximity
+                    else		@Yield @OtherLeftProximity
+                }
+	    }
+
+	    import @Geometry
+	    def @RightProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedRightProximity
+		    "perpendicular"	@Yield @PerpendicularRightProximity
+                    else		@Yield @OtherRightProximity
+                }
+	    }
+
+	    import @Geometry
+	    def @InsideProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedInsideProximity
+		    "perpendicular"	@Yield @PerpendicularInsideProximity
+                    else		@Yield @OtherInsideProximity
+                }
+	    }
+
+	    import @Geometry
+	    def @OutsideProximity
+	    {
+                labelangle @Case {
+                    "aligned"		@Yield @AlignedOutsideProximity
+		    "perpendicular"	@Yield @PerpendicularOutsideProximity
+                    else		@Yield @OtherOutsideProximity
+                }
+	    }
+
+	    import @Geometry
+            def proximity
+            {
+                labelprox @Case {
+                    above   @Yield @AboveProximity
+                    below   @Yield @BelowProximity
+                    left    @Yield @LeftProximity
+                    right   @Yield @RightProximity
+                    inside  @Yield @InsideProximity
+                    outside @Yield @OutsideProximity
+		    else    @Yield { "("labelprox")" }
+                }
+            }
+
+	    import @Geometry
+	    def dorotate
+		left point
+		right angle
+	    {
+		{ {0 0} distance point } atangle { {0 0} angleto point + angle }
+	    }
+
+	    import @Geometry
+	    def translation
+	    {
+		labelctr @Case {
+		    { no No } @Yield {
+			labelpos -- labeltag?!?proximity
+		    }
+		    { yes Yes } @Yield {
+			#P0	:= labelpos
+			#P1	:= labeltag?!?proximity -- P0
+			#P2	:= labeltag??CTR -- P0
+			#TH	:= labelpos??ANGLE
+			#P1A	:= P1 dorotate { 0 - TH }
+			#P2A	:= P2 dorotate { 0 - TH }
+			#PRA	:= { 0 - xcoord P2A 0 - ycoord P1A }
+			#PRA dorotate TH ++ P0
+			XP1	:= labeltag?!?proximity
+			XP2	:= labeltag??CTR
+			XANG	:= labelpos??ANGLE
+			XTH	:= XANG - 90d - { XP1 angleto XP2 }
+			XDIST	:= { XP1 distance XP2 } * sin XTH
+			labelpos -- XP1 ++ XDIST atangle XANG
+		    }
+		}
+	    }
+
+	    @CatchTags @ZeroSize @Transform
+		translate { translation ++ labeladjust }
+		rotate { finalangle }
+		scale { 1 1 }
+	    labeltag:: @BoxLabels @CatchTags @AddMargins
+		mtop { labelmargin }
+		mfoot { labelmargin }
+		mleft { labelmargin }
+		mright { labelmargin }
+	    labelfont @Font labelbreak @Break labelformat label
+	}
+
+
+        def @Node
+            import @Geometry named translate
+#               named to precedence 10 left x right y { x y "ldiagpsub" }
+                named to precedence 10 left x right y {
+                  @BackEnd @Case {
+                    PostScript @Yield { x y "ldiagpsub" }
+                    PDF @Yield {""}
+                  }
+                }
+            {}
+            import @Geometry named rotate	{ 0d			}
+	    import @Geometry named outline
+		named margin {}
+		named shadow {}
+		named sides {}
+		named angle {}
+						{ outline
+						    margin { margin }
+						    shadow { shadow }
+						    sides  { sides  }
+						    angle  { angle  }
+						}
+	    named margin               		{ margin        	}
+	    import @Geometry named shadow	{ shadow		}
+	    import @Geometry named sides	{ sides			}
+	    import @Geometry named angle	{ angle			}
+	    named nodetag			{ nodetag		}
+            named outlinestyle
+		named solid   { "/ldiagsolid"   }
+		named dashed  { "/ldiagdashed"  }
+		named cdashed { "/ldiagcdashed" }
+		named dotted  { "/ldiagdotted"  }
+		named noline  { "/ldiagnoline"  }
+						{ outlinestyle     	}
+            import @Geometry named outlinedashlength { outlinedashlength}
+            import @Geometry named outlinewidth
+		named thin   { 0.04 ft }
+		named medium { 0.08 ft }
+		named thick  { 0.12 ft }
+						{ outlinewidth     	}
+            named paint				{ paint         	}
+	    named font				{ font			}
+	    named break				{ break			}
+            named format right @Body		{ format @Body  	}
+            named valign			{ valign        	}
+            named vsize				{ vsize         	}
+            named vindent			{ vindent       	}
+	    named vstrut
+		named no  { 0.0f }
+		named yes { 1.0f }
+						{ vstrut	 	}
+            named vmargin			{ vmargin       	}
+            named topmargin			{ topmargin     	}
+            named footmargin			{ footmargin    	}
+
+            named halign			{ halign        	}
+            named hsize				{ hsize         	}
+            named hindent			{ hindent       	}
+	    named hstrut
+		named no  { 0.0f }
+		named yes { 1.0f }
+						{ hstrut	 	}
+            named hmargin			{ hmargin       	}
+            named leftmargin			{ leftmargin    	}
+            named rightmargin			{ rightmargin   	}
+
+	    named nodelabel			{ nodelabel		}
+	    named nodelabelmargin		{ nodelabelmargin	}
+	    named nodelabelfont			{ nodelabelfont		}
+	    named nodelabelbreak		{ nodelabelbreak	}
+	    named nodelabelformat right @Body	{ nodelabelformat @Body	}
+	    import @Geometry named nodelabelpos	{ nodelabelpos		}
+	    named nodelabelprox			{ nodelabelprox		}
+	    import @Geometry named nodelabelangle  { nodelabelangle	}
+	    named nodelabelctr			{ nodelabelctr		}
+	    import @Geometry named nodelabeladjust { nodelabeladjust	}
+
+            named alabel			{ alabel		}
+            named alabelmargin			{ alabelmargin		}
+            named alabelfont			{ alabelfont		}
+            named alabelbreak			{ alabelbreak		}
+	    named alabelformat right @Body	{ alabelformat @Body	}
+            import @Geometry named alabelpos	{ alabelpos		}
+            named alabelprox			{ alabelprox		}
+            import @Geometry named alabelangle	{ alabelangle		}
+	    named alabelctr			{ alabelctr		}
+            import @Geometry named alabeladjust	{ alabeladjust		}
+
+            named blabel			{ blabel		}
+            named blabelmargin			{ blabelmargin		}
+            named blabelfont			{ blabelfont		}
+            named blabelbreak			{ blabelbreak		}
+	    named blabelformat right @Body	{ blabelformat @Body	}
+            import @Geometry named blabelpos	{ blabelpos		}
+            named blabelprox			{ blabelprox		}
+            import @Geometry named blabelangle	{ blabelangle		}
+	    named blabelctr			{ blabelctr		}
+            import @Geometry named blabeladjust	{ blabeladjust		}
+
+            named clabel			{ clabel		}
+            named clabelmargin			{ clabelmargin		}
+            named clabelfont			{ clabelfont		}
+            named clabelbreak			{ clabelbreak		}
+	    named clabelformat right @Body	{ clabelformat @Body	}
+            import @Geometry named clabelpos	{ clabelpos		}
+            named clabelprox			{ clabelprox		}
+            import @Geometry named clabelangle	{ clabelangle		}
+	    named clabelctr			{ clabelctr		}
+            import @Geometry named clabeladjust	{ clabeladjust		}
+
+            named dlabel			{ dlabel		}
+            named dlabelmargin			{ dlabelmargin		}
+            named dlabelfont			{ dlabelfont		}
+            named dlabelbreak			{ dlabelbreak		}
+	    named dlabelformat right @Body	{ dlabelformat @Body	}
+            import @Geometry named dlabelpos	{ dlabelpos		}
+            named dlabelprox			{ dlabelprox		}
+            import @Geometry named dlabelangle	{ dlabelangle		}
+	    named dlabelctr			{ dlabelctr		}
+            import @Geometry named dlabeladjust	{ dlabeladjust		}
+
+            right @Body
+        {
+
+            def @LabelPos
+		left x
+		right y
+            {
+		nodelabelpos @Case {
+		    x    @Yield y
+		    else @Yield ""
+		}
+            }
+
+            def @If
+		left cond
+		right x
+            {
+		cond @Case {
+		    { yes Yes } @Yield x
+		    else        @Yield ""
+		}
+            }
+
+
+            def @Strut right x
+            {
+		def vs { 0.5w @VShift { vstrut @High } }
+		def hs {                hstrut @Wide   }
+
+		@HContract @VContract {
+		    @HContract @VContract x | vs / hs |
+		}
+            }
+
+	    def @Indent right x
+	    {
+		x @Case {
+		    { top left   } @Yield 0.0rt
+		    { ctr        } @Yield 0.5rt
+		    { foot right } @Yield 1.0rt
+		    { mctr	     } @Yield 0.5bx
+		    else           @Yield x
+		}
+	    }
+
+            def @VSize right x
+            {
+		vsize @Case {
+		    ""   @Yield x
+		    else @Yield { vsize @High { /{@Indent vindent} x / } }
+		}
+            }
+
+            def @HSize right x
+            {
+		hsize @Case {
+		    ""   @Yield x
+		    else @Yield { hsize @Wide { |{@Indent hindent} x | } }
+		}
+            }
+
+	    def @Align right x
+	    {
+		x @Case {
+		    { top left   } @Yield 0.0w
+		    { ctr        } @Yield 0.5w
+		    { foot right } @Yield 1.0w
+		    { mark       } @Yield "+0i"
+		    else           @Yield x
+		}
+	    }
+
+	    def @ALabel
+	    {
+		@DoLabel
+		    which	{ "a"						}
+		    label	{ alabel	     @Else nodelabel		}
+		    labelmargin	{ alabelmargin	     @Else nodelabelmargin	}
+		    labelfont	{ alabelfont	     @Else nodelabelfont	}
+		    labelbreak	{ alabelbreak	     @Else nodelabelbreak	}
+		    labelformat { alabelformat @Body @Else nodelabelformat @Body}
+		    labelpos	{ alabelpos	     @Else nodelabelpos		}
+		    labelprox	{ alabelprox	     @Else nodelabelprox	}
+		    labelangle	{ alabelangle	     @Else nodelabelangle	}
+		    labelctr	{ alabelctr	     @Else nodelabelctr		}
+		    labeladjust	{ alabeladjust	     @Else nodelabeladjust	}
+	    }
+
+	    def @BLabel
+	    {
+		@DoLabel
+		    which	{ "b"						}
+		    label	{ blabel	     @Else nodelabel		}
+		    labelmargin	{ blabelmargin	     @Else nodelabelmargin	}
+		    labelfont	{ blabelfont	     @Else nodelabelfont	}
+		    labelbreak	{ blabelbreak	     @Else nodelabelbreak	}
+		    labelformat { blabelformat @Body @Else nodelabelformat @Body}
+		    labelpos	{ blabelpos	     @Else nodelabelpos		}
+		    labelprox	{ blabelprox	     @Else nodelabelprox	}
+		    labelangle	{ blabelangle	     @Else nodelabelangle	}
+		    labelctr	{ blabelctr	     @Else nodelabelctr		}
+		    labeladjust	{ blabeladjust	     @Else nodelabeladjust	}
+	    }
+
+	    def @CLabel
+	    {
+		@DoLabel
+		    which	{ "c"						}
+		    label	{ clabel	     @Else nodelabel		}
+		    labelmargin	{ clabelmargin	     @Else nodelabelmargin	}
+		    labelfont	{ clabelfont	     @Else nodelabelfont	}
+		    labelbreak	{ clabelbreak	     @Else nodelabelbreak	}
+		    labelformat { clabelformat @Body @Else nodelabelformat @Body}
+		    labelpos	{ clabelpos	     @Else nodelabelpos		}
+		    labelprox	{ clabelprox	     @Else nodelabelprox	}
+		    labelangle	{ clabelangle	     @Else nodelabelangle	}
+		    labelctr	{ clabelctr	     @Else nodelabelctr		}
+		    labeladjust	{ clabeladjust	     @Else nodelabeladjust	}
+	    }
+
+	    def @DLabel
+	    {
+		@DoLabel
+		    which	{ "d"						}
+		    label	{ dlabel	     @Else nodelabel		}
+		    labelmargin	{ dlabelmargin	     @Else nodelabelmargin	}
+		    labelfont	{ dlabelfont	     @Else nodelabelfont	}
+		    labelbreak	{ dlabelbreak	     @Else nodelabelbreak	}
+		    labelformat { dlabelformat @Body @Else nodelabelformat @Body}
+		    labelpos	{ dlabelpos	     @Else nodelabelpos		}
+		    labelprox	{ dlabelprox	     @Else nodelabelprox	}
+		    labelangle	{ dlabelangle	     @Else nodelabelangle	}
+		    labelctr	{ dlabelctr	     @Else nodelabelctr		}
+		    labeladjust	{ dlabeladjust	     @Else nodelabeladjust	}
+	    }
+
+	    import @Geometry
+	    def @OutLine
+	    {
+	      @BackEnd @Case {
+	        PostScript @Yield {
+		outline @Case {
+		    box		@Yield { "ldiagbox"			}
+		    curvebox	@Yield { "("margin") ldiagcurvebox"	}
+		    shadowbox	@Yield { shadow "ldiagshadow ldiagbox"	}
+		    square	@Yield { "ldiagsquare"			}
+		    diamond	@Yield { "ldiagdiamond"			}
+		    polygon	@Yield { sides angle "ldiagpolygon"	}
+		    isosceles	@Yield { "ldiagisosceles"		}
+		    ellipse	@Yield { "ldiagellipse"			}
+		    circle	@Yield { "ldiagcircle"			}
+		    else	    @Yield {
+				    outline
+					margin { "("margin") ldiagdecodelength" }
+					shadow { shadow }
+					sides  { sides  }
+					angle  { angle  }
+		    }
+		}
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    def @Value
+            {
+              @BackEnd @Case {
+                PostScript @Yield {
+		@HContract @VContract
+		{
+		    {
+			"ldiagnodebegin [" @OutLine "]"
+			outlinedashlength "[" outlinestyle "]"
+			outlinewidth "/ldiag"paint "ldiagnodeend"
+			"(IN) ldiagpushtagdict"
+			//
+			"ldiagpopuptagdict"
+		    }
+		    @Graphic
+		    {
+			{@Align valign} @VShift {@Align halign} @HShift
+			@AddMargins
+			    mtop   { topmargin   @Else vmargin @Else margin }
+			    mfoot  { footmargin  @Else vmargin @Else margin }
+			    mleft  { leftmargin  @Else hmargin @Else margin }
+			    mright { rightmargin @Else hmargin @Else margin }
+			    @HSize @VSize @HContract @VContract
+			    font @Font break @Break format @Strut @Body
+		    }
+		    / {alabel @Else nodelabel} @IfNonEmpty @ALabel
+		    / {blabel @Else nodelabel} @IfNonEmpty @BLabel
+		    / {clabel @Else nodelabel} @IfNonEmpty @CLabel
+		    / {dlabel @Else nodelabel} @IfNonEmpty @DLabel
+		}
+                }
+                PDF @Yield {}
+              }
+            }
+
+	    def @TValue
+	    {
+		nodetag @Case {
+		    ""   @Yield @Value
+		    else @Yield { nodetag:: @Value }
+		}
+	    }
+
+            translate @Case {
+                  "" @Yield @TValue
+                  else @Yield {
+		    @Null & # so that preceding space gets chewed up
+                    @Transform translate { translate } rotate { rotate } @TValue
+                  }
+            }
+        }
+
+	macro @@Node	 { @Node			  }
+        macro @Box	 { @Node outline { box		} }
+        macro @CurveBox	 { @Node outline { curvebox	} }
+	macro @ShadowBox { @Node outline { shadowbox	} }
+        macro @Square	 { @Node outline { square	} }
+        macro @Diamond	 { @Node outline { diamond	} }
+        macro @Polygon	 { @Node outline { polygon	} }
+        macro @Isosceles { @Node outline { isosceles	} }
+        macro @Ellipse	 { @Node outline { ellipse	} }
+        macro @Circle	 { @Node outline { circle	} }
+
+
+	macro @InsulatedNode {
+	    @Node
+		topmargin { 0i }
+		footmargin { 0i }
+		leftmargin { 0i }
+		rightmargin { 0i }
+		alabel {}
+		blabel {}
+		clabel {}
+		dlabel {}
+		hsize {}
+		vsize {}
+		vstrut { no }
+		hstrut { no }
+	}
+
+	def @SolidArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		paint { nochange }
+		outlinestyle { noline }
+		outlinewidth { pathwidth }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    "ldiagsolidarrowhead"
+		    # 0 0 xsize ysize * 0.5 0 ysize
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @OpenArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinewidth { pathwidth }
+		outlinestyle { noline }
+		paint { nochange }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    pathwidth "ldiagopenarrowhead"
+
+		    # PSW := { 0 0 }
+		    # PNW := { 0 ysize }
+		    # PE  := { xsize ysize*0.5 }
+		    # REL := pathwidth atangle { PE angleto PNW + 90d }
+		    # PNA := { 0 ysize*0.5 + pathwidth*0.5 }
+		    # PSA := { 0 ysize*0.5 - pathwidth*0.5 }
+		    # PNI := {
+		    #   PNA PNA ++ { xsize 0 }
+		    #   PNW ++ REL PE ++ REL ldiaglineintersect
+		    # }
+		    # PSI := PNI -- { 0 pathwidth }
+		    #
+		    # PSW PE PNW PNI PNA PSA PSI PSW
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @HalfOpenArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		paint { nochange }
+		outlinestyle { noline }
+		outlinewidth { pathwidth }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    pathwidth "ldiaghalfopenarrowhead"
+
+		    # 0 0
+		    # xsize ysize * 0.5
+		    # 0 ysize
+		    # xsize*0.3 ysize*0.5 + pathwidth*0.5
+		    # 0         ysize*0.5 + pathwidth*0.5
+		    # 0         ysize*0.5 - pathwidth*0.5
+		    # xsize*0.3 ysize*0.5 - pathwidth*0.5
+		    # 0 0
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @SolidCurvedArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinestyle { noline }
+		paint { nochange }
+		outlinewidth { pathwidth }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    "ldiagsolidcurvedarrowhead"
+		    # 0 0
+		    # [0 0 xsize ysize * 0.5 "ldiaglinebetween"
+		    #  xsize 0 xsize ysize "ldiaglineintersect" clockwise]
+		    # xsize ysize * 0.5
+		    # [xsize ysize * 0.5 0 ysize "ldiaglinebetween"
+		    #  xsize 0 xsize ysize "ldiaglineintersect" clockwise]
+		    # 0 ysize
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @OpenCurvedArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinestyle { noline }
+		paint { nochange }
+		outlinewidth { pathwidth }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    pathwidth "ldiagopencurvedarrowhead"
+		    # LR:= { 0 0 xsize ysize * 0.5 "ldiaglinebetween"
+		    #    xsize 0 xsize ysize "ldiaglineintersect" }
+		    # UR:= { xsize ysize * 0.5 0 ysize "ldiaglinebetween"
+		    #      xsize 0 xsize ysize "ldiaglineintersect" }
+		    # PW2  := pathwidth * 0.5
+		    # UMID := {
+		    # 0 ysize * 0.5 + PW2  xsize ysize * 0.5 + PW2
+		    # {0 ysize} ++ 1f atangle { UR angleto {0 ysize} + 90d }
+		    # { 0 ysize } ldiaglineintersect
+		    # }
+		    # LMID := UMID -- { 0 pathwidth }
+		    # 0 0
+		    # [LR clockwise]
+		    # xsize ysize * 0.5
+		    # [UR clockwise]
+		    # 0 ysize
+		    # UMID
+		    # 0 ysize * 0.5 + PW2
+		    # 0 ysize * 0.5 - PW2
+		    # LMID
+		    # 0 0
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @HalfOpenCurvedArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinestyle { noline }
+		paint { nochange }
+		outlinewidth { pathwidth }
+		outline {
+		  @BackEnd @Case {
+		    PostScript @Yield {
+		    pathwidth "ldiaghalfopencurvedarrowhead"
+		    # LR:= { 0 0 xsize ysize * 0.5 "ldiaglinebetween"
+		    #      xsize 0 xsize ysize "ldiaglineintersect" }
+		    # UR:= { xsize ysize * 0.5 0 ysize "ldiaglinebetween"
+		    #      xsize 0 xsize ysize "ldiaglineintersect" }
+		    # BR:= { 0 0 LR 0 ysize UR "ldiaglineintersect" }
+		    # BRAD := { 0 0 } distance BR
+		    # PW2  := pathwidth * 0.5
+		    # XDIST := sqrt { BRAD*BRAD - PW2*PW2 }
+		    # UMID := BR ++ { XDIST PW2 }
+		    # LMID := BR ++ { XDIST 0 - PW2 }
+		    # 0 0
+		    # [LR clockwise]
+		    # xsize ysize * 0.5
+		    # [UR clockwise]
+		    # 0 ysize
+		    # [BR clockwise ]
+		    # UMID
+		    # 0 ysize * 0.5 + PW2
+		    # 0 ysize * 0.5 - PW2
+		    # LMID
+		    # [BR clockwise ]
+		    # 0 0
+		    }
+		    PDF @Yield {}
+		  }
+		}
+	    {
+		length @Wide width @High
+	    }
+	}
+
+	def @CircleArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinestyle { noline }
+		paint { nochange }
+		outlinewidth { pathwidth }
+		outline { circle }
+	    { length @Wide length @High }
+	}
+
+	def @BoxArrowHead
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    @InsulatedNode
+		outlinestyle { noline }
+		paint { nochange }
+		outlinewidth { pathwidth }
+		outline { box }
+	    { length @Wide width @High }
+	}
+
+	def @ArrowHead
+	    named style { arrowstyle }
+	    named width { arrowwidth }
+	    named length { arrowlength }
+	    named pathwidth { pathwidth }
+	{
+	    style @Case {
+		solid          @Yield @SolidArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		halfopen       @Yield @HalfOpenArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		open           @Yield @OpenArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		curvedsolid    @Yield @SolidCurvedArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		curvedhalfopen @Yield @HalfOpenCurvedArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		curvedopen     @Yield @OpenCurvedArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		circle         @Yield @CircleArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+		box            @Yield @BoxArrowHead
+				  width { width } length { length }
+				  pathwidth { pathwidth }
+	    }
+	}
+
+        def @Link
+            import @Geometry named path
+                named from {}
+                named to {}
+                named bias {}
+                named fbias {}
+                named tbias {}
+                named radius {}
+                named xindent {}
+                named zindent {}
+                named frompt {}
+                named topt {}
+                named arrow {}
+                named arrowlength {}
+            					{ path
+						    from { from }
+						    to { to }
+						    bias { bias }
+						    fbias { fbias }
+						    tbias { tbias }
+						    radius { radius }
+						    xindent { xindent }
+						    zindent { zindent }
+						    frompt { frompt }
+						    topt { topt }
+						    arrow { arrow }
+						    arrowlength { arrowlength }
+						}
+            import @Geometry named from		{ from			}
+            import @Geometry named to		{ to			}
+            import @Geometry named bias		{ bias			}
+            import @Geometry named fbias	{ fbias			}
+            import @Geometry named tbias	{ tbias			}
+            import @Geometry named radius	{ radius		}
+            import @Geometry named xindent	{ xindent		}
+            import @Geometry named zindent	{ zindent		}
+            import @Geometry named frompt	{ frompt		}
+            import @Geometry named topt		{ topt		}
+            named pathstyle
+		named solid   { "/ldiagsolid"   }
+		named dashed  { "/ldiagdashed"  }
+		named cdashed { "/ldiagcdashed" }
+		named dotted  { "/ldiagdotted"  }
+		named noline  { "/ldiagnoline"  }
+						{ pathstyle		}
+            import @Geometry named pathdashlength { pathdashlength	}
+            import @Geometry named pathwidth
+		named thin   { 0.04 ft }
+		named medium { 0.08 ft }
+		named thick  { 0.12 ft }
+						{ pathwidth		}
+            import @Geometry named pathgap
+		named thin   { 0.08 ft }
+		named medium { 0.16 ft }
+		named thick  { 0.24 ft }
+						{ pathgap		}
+
+            named arrow				{ arrow			}
+            named arrowstyle			{ arrowstyle		}
+            named arrowwidth			{ arrowwidth		}
+            named arrowlength			{ arrowlength		}
+
+	    named linklabel			{ linklabel		}
+	    named linklabelmargin		{ linklabelmargin	}
+	    named linklabelfont			{ linklabelfont		}
+	    named linklabelbreak		{ linklabelbreak	}
+	    named linklabelformat right @Body	{ linklabelformat @Body	}
+	    import @Geometry named linklabelpos	{ linklabelpos		}
+	    named linklabelprox			{ linklabelprox		}
+	    import @Geometry named linklabelangle  { linklabelangle	}
+	    named linklabelctr			{ linklabelctr		}
+	    import @Geometry named linklabeladjust { linklabeladjust	}
+
+            named xlabel			{ xlabel		}
+            named xlabelmargin	        	{ xlabelmargin		}
+            named xlabelfont			{ xlabelfont		}
+            named xlabelbreak			{ xlabelbreak		}
+	    named xlabelformat right @Body	{ xlabelformat @Body	}
+            import @Geometry named xlabelpos	{ xlabelpos		}
+            named xlabelprox			{ xlabelprox		}
+            import @Geometry named xlabelangle	{ xlabelangle		}
+	    named xlabelctr			{ xlabelctr		}
+            import @Geometry named xlabeladjust	{ xlabeladjust		}
+
+            named ylabel			{ ylabel		}
+            named ylabelmargin			{ ylabelmargin		}
+            named ylabelfont			{ ylabelfont		}
+            named ylabelbreak			{ ylabelbreak		}
+	    named ylabelformat right @Body	{ ylabelformat @Body	}
+            import @Geometry named ylabelpos	{ ylabelpos		}
+            named ylabelprox			{ ylabelprox		}
+            import @Geometry named ylabelangle	{ ylabelangle		}
+	    named ylabelctr			{ ylabelctr		}
+            import @Geometry named ylabeladjust	{ ylabeladjust		}
+
+            named zlabel			{ zlabel		}
+            named zlabelmargin			{ zlabelmargin		}
+            named zlabelfont			{ zlabelfont		}
+            named zlabelbreak			{ zlabelbreak		}
+	    named zlabelformat right @Body	{ zlabelformat @Body	}
+            import @Geometry named zlabelpos	{ zlabelpos		}
+            named zlabelprox			{ zlabelprox		}
+            import @Geometry named zlabelangle	{ zlabelangle		}
+	    named zlabelctr			{ zlabelctr		}
+            import @Geometry named zlabeladjust	{ zlabeladjust		}
+
+            named fromlabel			{ fromlabel		}
+            named fromlabelmargin		{ fromlabelmargin	}
+            named fromlabelfont			{ fromlabelfont		}
+            named fromlabelbreak		{ fromlabelbreak	}
+	    named fromlabelformat right @Body	{ fromlabelformat @Body	}
+            import @Geometry named fromlabelpos	{ fromlabelpos		}
+            named fromlabelprox			{ fromlabelprox		}
+            import @Geometry named fromlabelangle  { fromlabelangle	}
+	    named fromlabelctr			{ fromlabelctr		}
+            import @Geometry named fromlabeladjust { fromlabeladjust	}
+
+            named tolabel			{ tolabel		}
+            named tolabelmargin			{ tolabelmargin		}
+            named tolabelfont			{ tolabelfont		}
+            named tolabelbreak			{ tolabelbreak		}
+	    named tolabelformat right @Body	{ tolabelformat @Body	}
+            import @Geometry named tolabelpos	{ tolabelpos		}
+            named tolabelprox			{ tolabelprox		}
+            import @Geometry named tolabelangle	{ tolabelangle		}
+	    named tolabelctr			{ tolabelctr		}
+            import @Geometry named tolabeladjust{ tolabeladjust		}
+
+        {
+	    def @XLabel
+	    {
+		@DoLabel
+		    which	{ "x"						}
+		    label	{ xlabel	     @Else linklabel		}
+		    labelmargin	{ xlabelmargin	     @Else linklabelmargin	}
+		    labelfont	{ xlabelfont	     @Else linklabelfont	}
+		    labelbreak	{ xlabelbreak	     @Else linklabelbreak	}
+		    labelformat { xlabelformat @Body @Else linklabelformat @Body}
+		    labelpos	{ xlabelpos	     @Else linklabelpos		}
+		    labelprox	{ xlabelprox	     @Else linklabelprox	}
+		    labelangle	{ xlabelangle	     @Else linklabelangle	}
+		    labelctr	{ xlabelctr	     @Else linklabelctr		}
+		    labeladjust	{ xlabeladjust	     @Else linklabeladjust	}
+	    }
+
+	    def @YLabel
+	    {
+		@DoLabel
+		    which	{ "y"						}
+		    label	{ ylabel	     @Else linklabel		}
+		    labelmargin	{ ylabelmargin	     @Else linklabelmargin	}
+		    labelfont	{ ylabelfont	     @Else linklabelfont	}
+		    labelbreak	{ ylabelbreak	     @Else linklabelbreak	}
+		    labelformat { ylabelformat @Body @Else linklabelformat @Body}
+		    labelpos	{ ylabelpos	     @Else linklabelpos		}
+		    labelprox	{ ylabelprox	     @Else linklabelprox	}
+		    labelangle	{ ylabelangle	     @Else linklabelangle	}
+		    labelctr	{ ylabelctr	     @Else linklabelctr		}
+		    labeladjust	{ ylabeladjust	     @Else linklabeladjust	}
+	    }
+
+	    def @ZLabel
+	    {
+		@DoLabel
+		    which	{ "z"						}
+		    label	{ zlabel	     @Else linklabel		}
+		    labelmargin	{ zlabelmargin	     @Else linklabelmargin	}
+		    labelfont	{ zlabelfont	     @Else linklabelfont	}
+		    labelbreak	{ zlabelbreak	     @Else linklabelbreak	}
+		    labelformat { zlabelformat @Body @Else linklabelformat @Body}
+		    labelpos	{ zlabelpos	     @Else linklabelpos		}
+		    labelprox	{ zlabelprox	     @Else linklabelprox	}
+		    labelangle	{ zlabelangle	     @Else linklabelangle	}
+		    labelctr	{ zlabelctr	     @Else linklabelctr		}
+		    labeladjust	{ zlabeladjust	     @Else linklabeladjust	}
+	    }
+
+	    def @FromArrow
+	    {
+		arrow @Case {
+		    { back both } @Yield {
+			@ArrowHead
+			    style { arrowstyle }
+			    width { arrowwidth }
+			    length { arrowlength }
+			    pathwidth { pathwidth }
+		    }
+		    else @Yield ""
+		}
+	    }
+
+	    def @ToArrow
+	    {
+		arrow @Case {
+		    { yes forward both } @Yield {
+			@ArrowHead
+			    style { arrowstyle }
+			    width { arrowwidth }
+			    length { arrowlength }
+			    pathwidth { pathwidth }
+		    }
+		    else @Yield ""
+		}
+	    }
+
+	    import @Geometry
+	    def @LinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	       {arrow @FromArrowLength arrowlength}
+	       {arrow @ToArrowLength arrowlength}
+	       "{" from "}" "{" to "}"
+	       xindent zindent "ldiaglinepath"
+               # FROM	:< {from??CTR angleto to??CTR}
+               # FROM	:: from boundaryatangle FROM@ANGLE
+               # 	++ {arrow @FromArrowLength arrowlength}atangle FROM@ANGLE
+               # TO  	:< FROM@ANGLE
+               # TO  	:: to boundaryatangle { TO@ANGLE - 180d }
+               # ++ {arrow @ToArrowLength arrowlength} atangle {TO@ANGLE - 180d}
+               # 		
+               # LMID	:: FROM ** 0.5 ++ TO ** 0.5
+               # LMID	:< FROM@ANGLE
+               # XINDENT	:= xindent min { FROM distance LMID }
+               # LFROM	:: FROM ++ XINDENT atangle FROM@ANGLE
+               # LFROM	:< FROM@ANGLE
+               # ZINDENT	:= zindent min { TO distance LMID }
+               # LTO 	:: TO -- ZINDENT atangle FROM@ANGLE
+               # LTO 	:< FROM@ANGLE
+	       #
+               # if cond { direct }
+               # then { FROM TO }
+               # else { FROM LFROM LMID LTO TO }
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @DoubleLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	       {arrow @FromArrowLength arrowlength}
+	       {arrow @ToArrowLength arrowlength}
+	       "{" from "}" "{" to "}"
+	       xindent zindent pathgap "ldiagdoublelinepath"
+               # FROM	:< {from??CTR angleto to??CTR}
+               # FROM	:: from boundaryatangle FROM@ANGLE
+               # 	++ {arrow @FromArrowLength arrowlength}atangle FROM@ANGLE
+               # TO  	:< FROM@ANGLE
+               # TO  	:: to boundaryatangle { TO@ANGLE - 180d }
+               # ++ {arrow @ToArrowLength arrowlength} atangle {TO@ANGLE - 180d}
+               # 		
+               # LMID	:: FROM ** 0.5 ++ TO ** 0.5
+               # LMID	:< FROM@ANGLE
+               # XINDENT	:= xindent min { FROM distance LMID }
+               # LFROM	:: FROM ++ XINDENT atangle FROM@ANGLE
+               # LFROM	:< FROM@ANGLE
+               # ZINDENT	:= zindent min { TO distance LMID }
+               # LTO 	:: TO -- ZINDENT atangle FROM@ANGLE
+               # LTO 	:< FROM@ANGLE
+	       #
+               # if cond { direct }
+               # then { FROM TO }
+               # else { FROM LFROM LMID LTO TO }
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @ACurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	       {arrow @FromArrowLength arrowlength}
+	       {arrow @ToArrowLength arrowlength}
+	       "{" from "}" "{" to "}"
+	       xindent zindent bias "ldiagacurvepath"
+               #  #B1	:= bias max 0.02f
+               #  #B2	:= { from??CTR distance to??CTR } * 0.5
+               #  #BIAS    := B1 min B2
+	       #  BIAS  := bias max 0.02f
+               #  XMID	:= from??CTR ** 0.5 ++ to??CTR ** 0.5
+               #  XTOP	:= XMID ++ BIAS atangle {from??CTR angleto to??CTR - 90d}
+               #  CTR  	:= { from??CTR XTOP ldiaglinebetween
+               #  	     to??CTR   XTOP ldiaglinebetween ldiaglineintersect }
+               #  FROM	:: aabout
+               #  		circum { from }
+               #  		extra  { arrow @FromArrowLength arrowlength }
+               #  		centre { CTR }
+	       #  FROM 	:< if cond { from??CTR distance FROM > 0 }
+               #  	      then { from??CTR angleto FROM }
+	       #  	      else { CTR angleto FROM + 90d }
+               #  TO	:: cabout
+               #  		circum { to }
+               #  		extra  { arrow @ToArrowLength arrowlength }
+               #  		centre { CTR }
+               #  TO   	:< if cond { TO distance to??CTR > 0 }
+               #  	      then { TO angleto to??CTR }
+               #  	      else { CTR angleto TO + 90d }
+               # 
+               #  RADIUS	:= CTR distance FROM
+               #  LMID 	:: CTR ++ RADIUS atangle {
+               #   CTR angleto FROM +
+	       #   { {360d + {CTR angleto TO} - {CTR angleto FROM}} mod 360 } / 2
+	       #   }
+               #  LMID 	:< CTR angleto LMID  + 90d
+               #
+               #  XINDENT	:= xindent min { FROM distance LMID }
+               #  LFROM	:: CTR ++ RADIUS atangle {
+               #  	   CTR angleto { FROM ++ XINDENT atangle FROM@ANGLE } }
+               #  LFROM	:< CTR angleto LFROM + 90d
+               #  ZINDENT	:= zindent min { TO distance LMID }
+               #  LTO  	:: CTR ++ RADIUS atangle {
+               #  	   CTR angleto { TO ++ ZINDENT atangle {TO@ANGLE+180d}}}
+               #  LTO  	:< CTR angleto LTO   + 90d
+               #
+               #  if cond { direct }
+	       #  then { FROM [CTR] TO }
+               #  else { FROM [CTR] LFROM [CTR] LMID [CTR] LTO [CTR] TO }
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @CCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	       {arrow @FromArrowLength arrowlength}
+	       {arrow @ToArrowLength arrowlength}
+	       "{" from "}" "{" to "}"
+	       xindent zindent bias "ldiagccurvepath"
+              #  #B1     := bias max 0.02f
+              #  #B2     := { from??CTR distance to??CTR } * 0.5
+              #  #BIAS   := B1 min B2
+              #  BIAS   := bias max 0.02f
+              #  XMID   := from??CTR ** 0.5 ++ to??CTR ** 0.5
+              #  XTOP   := XMID ++ BIAS atangle {from??CTR angleto to??CTR + 90d}
+              #  CTR    := { from??CTR XTOP ldiaglinebetween
+              #              to??CTR   XTOP ldiaglinebetween ldiaglineintersect }
+              #  FROM   :: cabout
+              #                  circum { from }
+              #                  extra  { arrow @FromArrowLength arrowlength }
+              #                  centre { CTR }
+              #  FROM   :< if cond { from??CTR distance FROM > 0 }
+              #               then { from??CTR angleto FROM }
+              #               else { CTR angleto FROM - 90d }
+              #  TO     :: aabout
+              #                 circum { to }
+              #                 extra  { arrow @ToArrowLength arrowlength }
+              #                 centre { CTR }
+              #  TO     :< if cond { TO distance to??CTR > 0 }
+              #               then { TO angleto to??CTR }
+              #               else { CTR angleto TO - 90d }
+              #
+              #  RADIUS  := CTR distance FROM
+              #  LMID    :: CTR ++ RADIUS atangle {
+              #   CTR angleto TO +
+              #   { {360d + {CTR angleto FROM} - {CTR angleto TO} } mod 360 } / 2
+              #   }
+              #  LMID    :< CTR angleto LMID  - 90d
+              #
+              #  XINDENT := xindent min { FROM distance LMID }
+              #  LFROM   :: CTR ++ RADIUS atangle {
+              #             CTR angleto { FROM ++ XINDENT atangle FROM@ANGLE } }
+              #  LFROM   :< CTR angleto LFROM - 90d
+              #  ZINDENT := zindent min { TO distance LMID }
+              #  LTO     :: CTR ++ RADIUS atangle {
+              #             CTR angleto { TO ++ ZINDENT atangle {TO@ANGLE+180d}}}
+              #  LTO     :< CTR angleto LTO   - 90d
+              #
+              #  if cond { direct }
+              #  then { FROM [CTR clockwise] TO }
+              #  else { FROM [CTR clockwise] LFROM [CTR clockwise]
+              #         LMID [CTR clockwise] LTO   [CTR clockwise] TO }
+		  }
+		  PDF @Yield {}
+		}
+          }
+
+	    import @Geometry
+	    def @BezierPath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	       {arrow @FromArrowLength arrowlength}
+	       {arrow @ToArrowLength arrowlength}
+	       "{" from "}" "{" to "}"
+	       xindent zindent [ frompt ] [ topt ] "ldiagbezierpath"
+              # FROM      :< from??CTR angleto frompt
+              # FROM      :: from boundaryatangle FROM@ANGLE
+              # ++ {arrow @FromArrowLength arrowlength} atangle FROM@ANGLE
+              # TO        :< topt angleto to??CTR
+              # TO        :: to boundaryatangle { TO@ANGLE + 180d }
+              # ++ {arrow @ToArrowLength arrowlength} atangle { TO@ANGLE + 180d }
+              # LFROM     :: FROM ++ { xindent atangle FROM@ANGLE }
+              # LFROM     :< FROM@ANGLE
+              # LTO       :: TO ++ zindent atangle { TO@ANGLE + 180d }
+              # LTO       :< TO@ANGLE
+              # LMID       :: { FROM ++ TO ++ frompt ++ topt } ** 0.25
+              # FROM [frompt topt] TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @VHLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent "ldiagvhlinepath"
+              # CTR     := { {xcoord from??CTR} {ycoord to??CTR} }
+              # FANG    := from??CTR angleto CTR
+              # TANG    := to??CTR angleto CTR
+              # FROM    :: from boundaryatangle FANG
+              # ++ {arrow @FromArrowLength arrowlength} atangle FANG
+              # FROM    :< FANG
+              # TO      :: to boundaryatangle TANG
+              # ++ {arrow @ToArrowLength arrowlength} atangle TANG
+              # TO      :< TANG + 180d
+              # FDIST   := FROM distance CTR
+              # TDIST   := TO distance CTR
+              # XINDENT := xindent min FDIST
+              # ZINDENT := zindent min TDIST
+              # LFROM   :: FROM ++ XINDENT atangle FANG
+              # LFROM   :< FROM@ANGLE
+              # LTO     :: TO ++ ZINDENT atangle TANG
+              # LTO     :< TO@ANGLE
+              # LMID    :: CTR 
+              # LMID    :< {1f atangle {FANG + 180d}} angleto
+              #            {1f atangle {TANG + 180d}}
+              # FROM LFROM LMID LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @VHCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent radius "ldiagvhcurvepath"
+              # CTR     := { {xcoord from??CTR} {ycoord to??CTR} }
+              # FANG    := from??CTR angleto CTR
+              # TANG    := to??CTR angleto CTR
+              # FROM    :: from boundaryatangle FANG
+              # ++ {arrow @FromArrowLength arrowlength} atangle FANG
+              # FROM    :< FANG
+              # TO      :: to boundaryatangle TANG
+              # ++ {arrow @ToArrowLength arrowlength} atangle TANG
+              # TO      :< TANG + 180d
+              # FDIST   := FROM distance CTR
+              # TDIST   := TO distance CTR
+              # RADIUS  := radius min FDIST min TDIST 
+              # XINDENT := xindent min { FDIST - RADIUS }
+              # ZINDENT := zindent min { TDIST - RADIUS }
+              # LFROM   :: FROM ++ XINDENT atangle FANG
+              # LFROM   :< FROM@ANGLE
+              # LTO     :: TO ++ ZINDENT atangle TANG
+              # LTO     :< TO@ANGLE
+              # FCTR    := CTR ++ RADIUS atangle { FROM@ANGLE + 180d }
+              # TCTR    := CTR ++ RADIUS atangle { TO@ANGLE          }
+              # XCTR    := CTR ++ RADIUS atangle { FROM@ANGLE + 180d }
+              #                ++ RADIUS atangle { TO@ANGLE }
+              # LMID    :: XCTR ++ RADIUS atangle { XCTR angleto CTR }
+              # LMID    :< FCTR angleto TCTR
+              # FROM LFROM FCTR
+              #     { FCTR angleto TCTR } quadcase
+              #       0        {   }
+              #       0-90     { [XCTR clockwise] }
+              #       90       {   }
+              #       90-180   { [XCTR] }
+              #       180      {   }
+              #       180-270  { [XCTR clockwise] }
+              #       270      {   }
+              #       270-360  { [XCTR] }
+              # TCTR LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @HVLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent "ldiaghvlinepath"
+              # CTR     := { {xcoord to??CTR} {ycoord from??CTR} }
+              # FANG    := from??CTR angleto CTR
+              # TANG    := to??CTR angleto CTR
+              # FROM    :: from boundaryatangle FANG
+              # ++ {arrow @FromArrowLength arrowlength} atangle FANG
+              # FROM    :< FANG
+              # TO      :: to boundaryatangle TANG
+              # ++ {arrow @ToArrowLength arrowlength} atangle TANG
+              # TO      :< TANG + 180d
+              # FDIST   := FROM distance CTR
+              # TDIST   := TO distance CTR
+              # XINDENT := xindent min FDIST
+              # ZINDENT := zindent min TDIST
+              # LFROM   :: FROM ++ XINDENT atangle FANG
+              # LFROM   :< FROM@ANGLE
+              # LTO     :: TO ++ ZINDENT atangle TANG
+              # LTO     :< TO@ANGLE
+              # LMID    :: CTR 
+              # LMID    :< {1f atangle {FANG + 180d}} angleto
+              #            {1f atangle {TANG + 180d}}
+              # FROM LFROM LMID LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @HVCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent radius "ldiaghvcurvepath"
+              # CTR     := { {xcoord to??CTR} {ycoord from??CTR} }
+              # FANG    := from??CTR angleto CTR
+              # TANG    := to??CTR angleto CTR
+              # FROM    :: from boundaryatangle FANG
+              # ++ {arrow @FromArrowLength arrowlength} atangle FANG
+              # FROM    :< FANG
+              # TO      :: to boundaryatangle TANG
+              # ++ {arrow @ToArrowLength arrowlength} atangle TANG
+              # TO      :< TANG + 180d
+              # FDIST   := FROM distance CTR
+              # TDIST   := TO distance CTR
+              # RADIUS  := radius min FDIST min TDIST 
+              # XINDENT := xindent min { FDIST - RADIUS }
+              # ZINDENT := zindent min { TDIST - RADIUS }
+              # LFROM   :: FROM ++ XINDENT atangle FANG
+              # LFROM   :< FROM@ANGLE
+              # LTO     :: TO ++ ZINDENT atangle TANG
+              # LTO     :< TO@ANGLE
+              # FCTR    := CTR ++ RADIUS atangle { FROM@ANGLE + 180d }
+              # TCTR    := CTR ++ RADIUS atangle { TO@ANGLE          }
+              # XCTR    := CTR ++ RADIUS atangle { FROM@ANGLE + 180d }
+              #                ++ RADIUS atangle { TO@ANGLE }
+              # LMID    :: XCTR ++ RADIUS atangle { XCTR angleto CTR }
+              # LMID    :< FCTR angleto TCTR
+              # FROM LFROM FCTR
+              #     { FCTR angleto TCTR } quadcase
+              #       0        {   }
+              #       0-90     { [XCTR] }
+              #       90       {   }
+              #       90-180   { [XCTR clockwise] }
+              #       180      {   }
+              #       180-270  { [XCTR] }
+              #       270      {   }
+              #       270-360  { [XCTR clockwise] }
+              # TCTR LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @LVRLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias "ldiaglvrlinepath"
+              # FROM    :: from boundaryatangle 180d
+              # ++ {arrow @FromArrowLength arrowlength} atangle 180d
+              # FROM    :< 180d
+              # TO      :: to boundaryatangle 180d
+              # ++ {arrow @ToArrowLength arrowlength} atangle 180d
+              # TO      :< 0d
+              # XLEFT   := {{xcoord FROM} min {xcoord TO}} - bias
+              # P1      :: { XLEFT ycoord FROM }
+              # P2      :: { XLEFT ycoord TO   }
+              # VERT    := P1 angleto P2
+              # P1      :< P1 angleto {P1++{1f atangle 180d}++{1f atangle VERT}}
+              # P2      :< P2 angleto {P2++{1f atangle 0d}  ++{1f atangle VERT}}
+              # LMID    :: P1 ** 0.5 ++ P2 ** 0.5
+              # LMID    :< VERT
+              # XINDENT := xindent min {FROM distance P1}
+              # ZINDENT := zindent min {P2   distance TO}
+              # LFROM   :: FROM -- { XINDENT 0 }
+              # LFROM   :< 180d
+              # LTO     :: TO -- { ZINDENT 0 }
+              # LTO     :< 0d
+              # FROM LFROM P1 LMID P2 LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @LVRCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias radius "ldiaglvrcurvepath"
+              # FROM    :: from boundaryatangle 180d
+              # ++ {arrow @FromArrowLength arrowlength} atangle 180d
+              # FROM    :< 180d
+              # TO      :: to boundaryatangle 180d
+              # ++ {arrow @ToArrowLength arrowlength} atangle 180d
+              # TO      :< 0d
+              # XLEFT   := {{xcoord FROM} min {xcoord TO}} - bias
+              # XP1     := { XLEFT ycoord FROM }
+              # XP2     := { XLEFT ycoord TO   }
+              # VERT    := XP1 angleto XP2
+              # LMID    :: XP1 ** 0.5 ++ XP2 ** 0.5
+              # LMID    :< VERT
+              # XINDENT := xindent min {FROM distance XP1}
+              # ZINDENT := zindent min {XP2   distance TO}
+              # LFROM   :: FROM -- { XINDENT 0 }
+              # LFROM   :< 180d
+              # LTO     :: TO -- { ZINDENT 0 }
+              # LTO     :< 0d
+              # RADIUS  := radius min { { XP1 distance XP2 } / 2 }
+              # XP1PRE  := XP1 ++ { RADIUS atangle 0d }
+              # XP1POST := XP1 ++ { RADIUS atangle VERT }
+              # XP1CTR  := XP1PRE ++ { RADIUS atangle VERT }
+              # P1      :: XP1CTR ++ { RADIUS atangle { XP1CTR angleto XP1 } }
+              # P1      :< XP1PRE angleto XP1POST
+              # XP2PRE  := XP2 -- { RADIUS atangle VERT }
+              # XP2POST := XP2 ++ { RADIUS atangle 0d }
+              # XP2CTR  := XP2PRE ++ { RADIUS atangle 0d }
+              # P2      :: XP2CTR ++ { RADIUS atangle { XP2CTR angleto XP2 } }
+              # P2      :< XP2PRE angleto XP2POST
+              # FROM LFROM XP1PRE
+              #   {round VERT} quadcase
+              #     90 { [XP1CTR clockwise] P1 [XP1CTR clockwise] }
+              #     270 { [XP1CTR] P1 [XP1CTR] }
+              # XP1POST LMID XP2PRE
+              #   {round VERT} quadcase
+              #     90 { [XP2CTR clockwise] P2 [XP2CTR clockwise] }
+              #     270 { [XP2CTR] P2 [XP2CTR] }
+              # XP2POST LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @RVLLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias "ldiagrvllinepath"
+              # FROM    :: from boundaryatangle 0d
+              # ++ {arrow @FromArrowLength arrowlength} atangle 0d
+              # FROM    :< 0d
+              # TO      :: to boundaryatangle 0d
+              # ++ {arrow @ToArrowLength arrowlength} atangle 0d
+              # TO      :< 180d
+              # XRIGHT  := {{xcoord FROM} max {xcoord TO}} + bias
+              # P1      :: { XRIGHT ycoord FROM }
+              # P2      :: { XRIGHT ycoord TO   }
+              # VERT    := P1 angleto P2
+              # P1      :< P1 angleto {P1++{1f atangle 0d}  ++{1f atangle VERT}}
+              # P2      :< P2 angleto {P2++{1f atangle 180d}++{1f atangle VERT}}
+              # LMID    :: P1 ** 0.5 ++ P2 ** 0.5
+              # LMID    :< VERT
+              # XINDENT := xindent min {FROM distance P1}
+              # ZINDENT := zindent min {P2   distance TO}
+              # LFROM   :: FROM ++ { XINDENT 0 }
+              # LFROM   :< 0d
+              # LTO     :: TO ++ { ZINDENT 0 }
+              # LTO     :< 180d
+              # FROM LFROM P1 LMID P2 LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @RVLCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias radius "ldiagrvlcurvepath"
+              # FROM    :: from boundaryatangle 0d
+              # ++ {arrow @FromArrowLength arrowlength} atangle 0d
+              # FROM    :< 0d
+              # TO      :: to boundaryatangle 0d
+              # ++ {arrow @ToArrowLength arrowlength} atangle 0d
+              # TO      :< 180d
+              # XRIGHT  := {{xcoord FROM} max {xcoord TO}} + bias
+              # XP1     := { XRIGHT ycoord FROM }
+              # XP2     := { XRIGHT ycoord TO   }
+              # VERT    := XP1 angleto XP2
+              # LMID    :: XP1 ** 0.5 ++ XP2 ** 0.5
+              # LMID    :< VERT
+              # XINDENT := xindent min {FROM distance XP1}
+              # ZINDENT := zindent min {XP2   distance TO}
+              # LFROM   :: FROM ++ { XINDENT 0 }
+              # LFROM   :< 0d
+              # LTO     :: TO ++ { ZINDENT 0 }
+              # LTO     :< 180d
+              # RADIUS  := radius min { { XP1 distance XP2 } * 0.5 }
+              # XP1PRE  := XP1 ++ { RADIUS atangle 180d }
+              # XP1POST := XP1 ++ { RADIUS atangle VERT }
+              # XP1CTR  := XP1PRE ++ { RADIUS atangle VERT }
+              # P1      :: XP1CTR ++ { RADIUS atangle { XP1CTR angleto XP1 } }
+              # P1      :< XP1PRE angleto XP1POST
+              # XP2PRE  := XP2 -- { RADIUS atangle VERT }
+              # XP2POST := XP2 ++ { RADIUS atangle 180d }
+              # XP2CTR  := XP2PRE ++ { RADIUS atangle 180d }
+              # P2      :: XP2CTR ++ { RADIUS atangle { XP2CTR angleto XP2 } }
+              # P2      :< XP2PRE angleto XP2POST
+              # FROM LFROM XP1PRE
+              #   {round VERT} quadcase
+              #     90 { [XP1CTR] P1 [XP1CTR] }
+              #     270 { [XP1CTR clockwise] P1 [XP1CTR clockwise] }
+              # XP1POST LMID XP2PRE
+              #   {round VERT} quadcase
+              #     90 { [XP2CTR] P2 [XP2CTR] }
+              #     270 { [XP2CTR clockwise] P2 [XP2CTR clockwise] }
+              # XP2POST LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @DWrapLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias fbias tbias "ldiagdwraplinepath"
+              # DIRN	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { 180d } else { 0d }
+              # FROM	:: from boundaryatangle DIRN
+              # ++ {arrow @FromArrowLength arrowlength} atangle DIRN
+              # FROM	:< DIRN
+              # TO	:: to boundaryatangle { DIRN + 180d }
+              # ++ {arrow @ToArrowLength arrowlength} atangle { DIRN + 180d }
+              # TO	:< DIRN
+              # P1	:: FROM ++ {fbias max 0} atangle DIRN
+              # P1	:< if cond { DIRN = 180d } then { 225d } else { -45d }
+              # P4	:: TO ++ {tbias max 0} atangle { DIRN + 180d }
+              # P4	:< if cond { DIRN = 180d } then { 135d } else { 45d }
+              # YC	:= ycoord { from boundaryatangle 270d } min
+              # 	   ycoord { to   boundaryatangle 270d }
+              # 	   - { bias max 0 }
+              # P2	:: { xcoord P1 YC }
+              # P2	:< P4@ANGLE - 180d
+              # P3	:: { xcoord P4 YC }
+              # P3	:< P1@ANGLE - 180d
+              # XINDENT	:= xindent min { FROM distance P1 }
+              # LFROM	:: FROM ++ XINDENT atangle DIRN
+              # LFROM	:< FROM@ANGLE
+              # ZINDENT	:= zindent min { TO distance P4 }
+              # LTO	:: TO ++ ZINDENT atangle { DIRN + 180d }
+              # LTO	:< TO@ANGLE
+              # LMID	:: P2 ** 0.5 ++ P3 ** 0.5
+              # LMID	:< DIRN - 180d
+              # FROM P1 P2 P3 P4 TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @DWrapCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias fbias tbias radius "ldiagdwrapcurvepath"
+              # DIRN	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { 180d } else { 0d }
+              # CLOCK	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { anticlockwise } else { clockwise }
+              # FROM	:: from boundaryatangle DIRN
+              # ++ {arrow @FromArrowLength arrowlength} atangle DIRN
+              # FROM	:< DIRN
+              # TO	:: to boundaryatangle { DIRN + 180d }
+              # ++ {arrow @ToArrowLength arrowlength} atangle { DIRN + 180d }
+              # TO	:< DIRN
+              #
+              # XP1	:= FROM ++ {fbias max 0} atangle DIRN
+              # XP4	:= TO ++ {tbias max 0} atangle { DIRN + 180d }
+              # YC	:= ycoord { from boundaryatangle 270d } min
+              # 	   ycoord { to   boundaryatangle 270d }
+              # 	   - { bias max 0 }
+              # XP2	:= { xcoord XP1 YC }
+              # XP3	:= { xcoord XP4 YC }
+              #
+              # RP1	:= radius min { XP1 distance FROM } min
+              # 	   { { XP1 distance XP2 } / 2 }
+              # XP1PRE	:= XP1 ++ RP1 atangle { XP1 angleto FROM }
+              # XP1POST := XP1 ++ RP1 atangle { XP1 angleto XP2  }
+              # XP1CTR  := XP1PRE ++ RP1 atangle { XP1 angleto XP2  }
+              # P1	:: XP1CTR ++ RP1 atangle { XP1CTR angleto XP1 }
+              # P1	:< XP1CTR angleto P1 + DIRN - 90d
+              #
+              # RP2	:= radius min { { XP1 distance XP2 } / 2 }
+              # 	     min { { XP2 distance XP3 } / 2 }
+              # XP2PRE	:= XP2 ++ RP2 atangle { XP2 angleto XP1 }
+              # XP2POST	:= XP2 ++ RP2 atangle { XP2 angleto XP3 }
+              # XP2CTR	:= XP2PRE ++ RP2 atangle { XP2 angleto XP3 }
+              # P2	:: XP2CTR ++ RP2 atangle { XP2CTR angleto XP2 }
+              # P2	:< XP2CTR angleto P2 + DIRN - 90d
+              #
+              # RP3	:= radius min { { XP2 distance XP3 } / 2 }
+              # 	     min { { XP3 distance XP4 } / 2 }
+              # XP3PRE	:= XP3 ++ RP3 atangle { XP3 angleto XP2 }
+              # XP3POST	:= XP3 ++ RP3 atangle { XP3 angleto XP4 }
+              # XP3CTR	:= XP3PRE ++ RP3 atangle { XP3 angleto XP4 }
+              # P3	:: XP3CTR ++ RP3 atangle { XP3CTR angleto XP3 }
+              # P3	:< XP3CTR angleto P3 + DIRN - 90d
+              #
+              # RP4	:= radius min { { XP4 distance XP3 } / 2 }
+              # 	     min { XP4 distance TO }
+              # XP4PRE	:= XP4 ++ RP4 atangle { XP4 angleto XP3 }
+              # XP4POST := XP4 ++ RP4 atangle { XP4 angleto TO  }
+              # XP4CTR  := XP4PRE ++ RP4 atangle { XP4 angleto TO  }
+              # P4	:: XP4CTR ++ RP4 atangle { XP4CTR angleto XP4 }
+              # P4	:< XP4CTR angleto P4 + DIRN - 90d
+              #
+              # XINDENT	:= xindent min { FROM distance XP1PRE }
+              # LFROM	:: FROM ++ XINDENT atangle DIRN
+              # LFROM	:< FROM@ANGLE
+              #
+              # LMID	:: XP2 ** 0.5 ++ XP3 ** 0.5
+              # LMID	:< DIRN - 180d
+              #
+              # ZINDENT	:= zindent min { TO distance XP4POST }
+              # LTO	:: TO ++ ZINDENT atangle { DIRN + 180d }
+              # LTO	:< TO@ANGLE
+              #
+              # FROM LFROM
+              # XP1PRE [XP1CTR CLOCK] XP1POST
+              # XP2PRE [XP2CTR CLOCK] XP2POST
+              # LMID
+              # XP3PRE [XP3CTR CLOCK] XP3POST
+              # XP4PRE [XP4CTR CLOCK] XP4POST
+              # LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @UWrapLinePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias fbias tbias "ldiaguwraplinepath"
+              # DIRN	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { 180d } else { 0d }
+              # FROM	:: from boundaryatangle DIRN
+              # ++ {arrow @FromArrowLength arrowlength} atangle DIRN
+              # FROM	:< DIRN
+              # TO	:: to boundaryatangle { DIRN + 180d }
+              # ++ {arrow @ToArrowLength arrowlength} atangle { DIRN + 180d }
+              # TO	:< DIRN
+              # P1	:: FROM ++ {fbias max 0} atangle DIRN
+              # P1	:< if cond { DIRN = 180d } then { 135d } else { 45d }
+              # P4	:: TO ++ {tbias max 0} atangle { DIRN + 180d }
+              # P4	:< if cond { DIRN = 180d } then { 225d } else { -45d }
+              # YC	:= ycoord { from boundaryatangle 90d } max
+              # 	   ycoord { to   boundaryatangle 90d }
+              # 	   + { bias max 0 }
+              # P2	:: { xcoord P1 YC }
+              # P2	:< P4@ANGLE - 180d
+              # P3	:: { xcoord P4 YC }
+              # P3	:< P1@ANGLE - 180d
+              # XINDENT	:= xindent min { FROM distance P1 }
+              # LFROM	:: FROM ++ XINDENT atangle DIRN
+              # LFROM	:< FROM@ANGLE
+              # ZINDENT	:= zindent min { TO distance P4 }
+              # LTO	:: TO ++ ZINDENT atangle { DIRN + 180d }
+              # LTO	:< TO@ANGLE
+              # LMID	:: P2 ** 0.5 ++ P3 ** 0.5
+              # LMID	:< DIRN - 180d
+              # FROM P1 P2 P3 P4 TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @UWrapCurvePath
+	    {
+		@BackEnd @Case {
+		  PostScript @Yield {
+	      {arrow @FromArrowLength arrowlength}
+	      {arrow @ToArrowLength arrowlength}
+	      "{" from "}" "{" to "}"
+	      xindent zindent bias fbias tbias radius "ldiaguwrapcurvepath"
+              # DIRN	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { 180d } else { 0d }
+              # CLOCK	:= if cond { xcoord from??CTR < xcoord to??CTR }
+              # 	      then { clockwise } else { anticlockwise }
+              # FROM	:: from boundaryatangle DIRN
+              # ++ {arrow @FromArrowLength arrowlength} atangle DIRN
+              # FROM	:< DIRN
+              # TO	:: to boundaryatangle { DIRN + 180d }
+              # ++ {arrow @ToArrowLength arrowlength} atangle { DIRN + 180d }
+              # TO	:< DIRN
+              #
+              # XP1	:= FROM ++ {fbias max 0} atangle DIRN
+              # XP4	:= TO ++ {tbias max 0} atangle { DIRN + 180d }
+              # YC	:= ycoord { from boundaryatangle 90d } max
+              # 	   ycoord { to   boundaryatangle 90d }
+              # 	   + { bias max 0 }
+              # XP2	:= { xcoord XP1 YC }
+              # XP3	:= { xcoord XP4 YC }
+              #
+              # RP1	:= radius min { XP1 distance FROM } min
+              # 	   { { XP1 distance XP2 } / 2 }
+              # XP1PRE	:= XP1 ++ RP1 atangle { XP1 angleto FROM }
+              # XP1POST := XP1 ++ RP1 atangle { XP1 angleto XP2  }
+              # XP1CTR  := XP1PRE ++ RP1 atangle { XP1 angleto XP2  }
+              # P1	:: XP1CTR ++ RP1 atangle { XP1CTR angleto XP1 }
+              # P1	:< XP1CTR angleto P1 + DIRN + 90d
+              #
+              # RP2	:= radius min { { XP1 distance XP2 } / 2 }
+              # 	     min { { XP2 distance XP3 } / 2 }
+              # XP2PRE	:= XP2 ++ RP2 atangle { XP2 angleto XP1 }
+              # XP2POST	:= XP2 ++ RP2 atangle { XP2 angleto XP3 }
+              # XP2CTR	:= XP2PRE ++ RP2 atangle { XP2 angleto XP3 }
+              # P2	:: XP2CTR ++ RP2 atangle { XP2CTR angleto XP2 }
+              # P2	:< XP2CTR angleto P2 + DIRN + 90d
+              #
+              # RP3	:= radius min { { XP2 distance XP3 } / 2 }
+              # 	     min { { XP3 distance XP4 } / 2 }
+              # XP3PRE	:= XP3 ++ RP3 atangle { XP3 angleto XP2 }
+              # XP3POST	:= XP3 ++ RP3 atangle { XP3 angleto XP4 }
+              # XP3CTR	:= XP3PRE ++ RP3 atangle { XP3 angleto XP4 }
+              # P3	:: XP3CTR ++ RP3 atangle { XP3CTR angleto XP3 }
+              # P3	:< XP3CTR angleto P3 + DIRN + 90d
+              #
+              # RP4	:= radius min { { XP4 distance XP3 } / 2 }
+              # 	     min { XP4 distance TO }
+              # XP4PRE	:= XP4 ++ RP4 atangle { XP4 angleto XP3 }
+              # XP4POST := XP4 ++ RP4 atangle { XP4 angleto TO  }
+              # XP4CTR  := XP4PRE ++ RP4 atangle { XP4 angleto TO  }
+              # P4	:: XP4CTR ++ RP4 atangle { XP4CTR angleto XP4 }
+              # P4	:< XP4CTR angleto P4 + DIRN + 90d
+              #
+              # XINDENT	:= xindent min { FROM distance XP1PRE }
+              # LFROM	:: FROM ++ XINDENT atangle DIRN
+              # LFROM	:< FROM@ANGLE
+              #
+              # LMID	:: XP2 ** 0.5 ++ XP3 ** 0.5
+              # LMID	:< DIRN - 180d
+              #
+              # ZINDENT	:= zindent min { TO distance XP4POST }
+              # LTO	:: TO ++ ZINDENT atangle { DIRN + 180d }
+              # LTO	:< TO@ANGLE
+              #
+              # FROM LFROM
+              # XP1PRE [XP1CTR CLOCK] XP1POST
+              # XP2PRE [XP2CTR CLOCK] XP2POST
+              # LMID
+              # XP3PRE [XP3CTR CLOCK] XP3POST
+              # XP4PRE [XP4CTR CLOCK] XP4POST
+              # LTO TO
+		  }
+		  PDF @Yield {}
+		}
+	    }
+
+	    import @Geometry
+	    def @Path
+	    {
+		path @Case {
+		    line			@Yield @LinePath
+		    doubleline			@Yield @DoubleLinePath
+		    { acurve curve }		@Yield @ACurvePath
+		    ccurve			@Yield @CCurvePath
+		    bezier			@Yield @BezierPath
+		    vhline			@Yield @VHLinePath
+		    vhcurve			@Yield @VHCurvePath
+		    hvline			@Yield @HVLinePath
+		    hvcurve			@Yield @HVCurvePath
+		    lvrline			@Yield @LVRLinePath
+		    lvrcurve			@Yield @LVRCurvePath
+		    rvlline			@Yield @RVLLinePath
+		    rvlcurve			@Yield @RVLCurvePath
+		    dwrapline			@Yield @DWrapLinePath
+		    dwrapcurve			@Yield @DWrapCurvePath
+		    uwrapline			@Yield @UWrapLinePath
+		    uwrapcurve			@Yield @UWrapCurvePath
+		    else			@Yield {
+			path
+			    from { from }
+			    to { to }
+			    bias { bias }
+			    fbias { fbias }
+			    tbias { tbias }
+			    radius { radius }
+			    xindent { xindent }
+			    zindent { zindent }
+			    frompt { frompt }
+			    topt { topt }
+			    arrow { arrow }
+			    arrowlength { arrowlength }
+		    }
+		}
+	    }
+
+	    def @FromLabel
+	    {
+		@DoLabel
+		    which	{ "f"				}
+		    label	{ fromlabel @Else @FromArrow	}
+		    labelmargin	{ fromlabelmargin		}
+		    labelfont	{ fromlabelfont			}
+		    labelbreak	{ fromlabelbreak		}
+		    labelformat { fromlabelformat @Body		}
+		    labelpos	{ fromlabelpos			}
+		    labelprox	{ fromlabelprox			}
+		    labelangle	{ fromlabelangle		}
+		    labelctr	{ fromlabelctr			}
+		    labeladjust	{ fromlabeladjust		}
+	    }
+
+	    def @ToLabel
+	    {
+		@DoLabel
+		    which	{ "t"				}
+		    label	{ tolabel @Else @ToArrow	}
+		    labelmargin	{ tolabelmargin			}
+		    labelfont	{ tolabelfont			}
+		    labelbreak	{ tolabelbreak			}
+		    labelformat { tolabelformat @Body		}
+		    labelpos	{ tolabelpos			}
+		    labelprox	{ tolabelprox			}
+		    labelangle	{ tolabelangle			}
+		    labelctr	{ tolabelctr			}
+		    labeladjust	{ tolabeladjust			}
+	    }
+
+	    def @Direct
+	    {
+		pathstyle @Case {
+		    { "/ldiagsolid" "/ldiagdashed" "/ldiagcdashed"
+		      "/ldiagdotted" "/ldiagnoline" } @Yield 1
+		    else @Yield 0
+		}
+	    }
+
+	  @BackEnd @Case {
+	    PostScript @Yield {
+
+	    @Null & # so that preceding space gets chewed up
+            {
+	      @Direct "ldiaglinkbegin [" @Path "]" pathdashlength
+	      "[" pathstyle "]" pathwidth "ldiaglinkend"
+            }
+            @Graphic
+            {
+		/ { fromlabel @Else @FromArrow}	@IfNonEmpty @FromLabel
+		/ { xlabel @Else linklabel }	@IfNonEmpty @XLabel
+		/ { ylabel @Else linklabel }	@IfNonEmpty @YLabel
+		/ { zlabel @Else linklabel }	@IfNonEmpty @ZLabel
+		/ { tolabel @Else @ToArrow }	@IfNonEmpty @ToLabel
+	    }
+
+	    }
+	    PDF @Yield {}
+	  }
+	}
+
+
+        def @ObjectLink
+	    precedence 90
+	    associativity left
+	    left x
+	    named treehsep { treehsep }
+	    named treevsep { treevsep }
+	    named format
+		named x {}
+		named y {}
+		named insinuatelink {}
+		named treehsep {}
+		named treevsep {}
+	    { x | y | insinuatelink }
+            import @Geometry named path
+                named from {}
+                named to {}
+                named bias {}
+                named fbias {}
+                named tbias {}
+                named radius {}
+                named xindent {}
+                named zindent {}
+                named frompt {}
+                named topt {}
+                named arrow {}
+                named arrowlength {}
+            					{ path
+						    from { from }
+						    to { to }
+						    bias { bias }
+						    fbias { fbias }
+						    tbias { tbias }
+						    radius { radius }
+						    xindent { xindent }
+						    zindent { zindent }
+						    frompt { frompt }
+						    topt { topt }
+						    arrow { arrow }
+						    arrowlength { arrowlength }
+						}
+            import @Geometry named basefrom	{ 			}
+            import @Geometry named baseto	{ 			}
+            import @Geometry named from		{ 			}
+            import @Geometry named to		{ 			}
+            import @Geometry named bias		{ bias			}
+            import @Geometry named fbias	{ fbias			}
+            import @Geometry named tbias	{ tbias			}
+            import @Geometry named radius	{ radius		}
+            import @Geometry named xindent	{ xindent		}
+            import @Geometry named zindent	{ zindent		}
+            import @Geometry named frompt	{ frompt		}
+            import @Geometry named topt		{ topt			}
+            named pathstyle
+		named solid   { "/ldiagsolid"   }
+		named dashed  { "/ldiagdashed"  }
+		named cdashed { "/ldiagcdashed" }
+		named dotted  { "/ldiagdotted"  }
+		named noline  { "/ldiagnoline"  }
+						{ pathstyle		}
+            import @Geometry named pathdashlength { pathdashlength	}
+            import @Geometry named pathwidth
+		named thin   { 0.04 ft }
+		named medium { 0.08 ft }
+		named thick  { 0.12 ft }
+						{ pathwidth		}
+            import @Geometry named pathgap
+		named thin   { 0.08 ft }
+		named medium { 0.16 ft }
+		named thick  { 0.24 ft }
+						{ pathgap		}
+
+            named arrow				{ arrow			}
+            named arrowstyle			{ arrowstyle		}
+            named arrowwidth			{ arrowwidth		}
+            named arrowlength			{ arrowlength		}
+
+	    named linklabel			{ linklabel		}
+	    named linklabelmargin		{ linklabelmargin	}
+	    named linklabelfont			{ linklabelfont		}
+	    named linklabelbreak		{ linklabelbreak	}
+	    named linklabelformat right @Body	{ linklabelformat @Body	}
+	    import @Geometry named linklabelpos	{ linklabelpos		}
+	    named linklabelprox			{ linklabelprox		}
+	    import @Geometry named linklabelangle  { linklabelangle	}
+	    named linklabelctr			{ linklabelctr		}
+	    import @Geometry named linklabeladjust { linklabeladjust	}
+
+            named xlabel			{ xlabel		}
+            named xlabelmargin	        	{ xlabelmargin		}
+            named xlabelfont			{ xlabelfont		}
+            named xlabelbreak			{ xlabelbreak		}
+	    named xlabelformat right @Body	{ xlabelformat @Body	}
+            import @Geometry named xlabelpos	{ xlabelpos		}
+            named xlabelprox			{ xlabelprox		}
+            import @Geometry named xlabelangle	{ xlabelangle		}
+	    named xlabelctr			{ xlabelctr		}
+            import @Geometry named xlabeladjust	{ xlabeladjust		}
+
+            named ylabel			{ ylabel		}
+            named ylabelmargin			{ ylabelmargin		}
+            named ylabelfont			{ ylabelfont		}
+            named ylabelbreak			{ ylabelbreak		}
+	    named ylabelformat right @Body	{ ylabelformat @Body	}
+            import @Geometry named ylabelpos	{ ylabelpos		}
+            named ylabelprox			{ ylabelprox		}
+            import @Geometry named ylabelangle	{ ylabelangle		}
+	    named ylabelctr			{ ylabelctr		}
+            import @Geometry named ylabeladjust	{ ylabeladjust		}
+
+            named zlabel			{ zlabel		}
+            named zlabelmargin			{ zlabelmargin		}
+            named zlabelfont			{ zlabelfont		}
+            named zlabelbreak			{ zlabelbreak		}
+	    named zlabelformat right @Body	{ zlabelformat @Body	}
+            import @Geometry named zlabelpos	{ zlabelpos		}
+            named zlabelprox			{ zlabelprox		}
+            import @Geometry named zlabelangle	{ zlabelangle		}
+	    named zlabelctr			{ zlabelctr		}
+            import @Geometry named zlabeladjust	{ zlabeladjust		}
+
+            named fromlabel			{ fromlabel		}
+            named fromlabelmargin		{ fromlabelmargin	}
+            named fromlabelfont			{ fromlabelfont		}
+            named fromlabelbreak		{ fromlabelbreak	}
+	    named fromlabelformat right @Body	{ fromlabelformat @Body	}
+            import @Geometry named fromlabelpos	{ fromlabelpos		}
+            named fromlabelprox			{ fromlabelprox		}
+            import @Geometry named fromlabelangle  { fromlabelangle	}
+	    named fromlabelctr			{ fromlabelctr		}
+            import @Geometry named fromlabeladjust { fromlabeladjust	}
+
+            named tolabel			{ tolabel		}
+            named tolabelmargin			{ tolabelmargin		}
+            named tolabelfont			{ tolabelfont		}
+            named tolabelbreak			{ tolabelbreak		}
+	    named tolabelformat right @Body	{ tolabelformat @Body	}
+            import @Geometry named tolabelpos	{ tolabelpos		}
+            named tolabelprox			{ tolabelprox		}
+            import @Geometry named tolabelangle	{ tolabelangle		}
+	    named tolabelctr			{ tolabelctr		}
+            import @Geometry named tolabeladjust{ tolabeladjust		}
+	    right y
+
+        {
+	    def @From
+	    {
+		from @Case {
+		    ""   @Yield basefrom
+		    else @Yield { basefrom"@"from }
+		}
+	    }
+
+	    def @To
+	    {
+		to @Case {
+		    ""   @Yield baseto
+		    else @Yield { baseto"@"to }
+		}
+	    }
+
+	    format
+		x { x }
+		y { y }
+		treehsep { treehsep }
+		treevsep { treevsep }
+		insinuatelink {
+		    @Link
+			from		{ @From			}
+			to		{ @To			}
+			bias		{ bias			}
+			fbias		{ fbias			}
+			tbias		{ tbias			}
+			radius		{ radius		}
+			xindent		{ xindent		}
+			zindent		{ zindent		}
+			frompt		{ frompt		}
+			topt		{ topt			}
+			path		{ path
+						from { @From }
+						to { @To }
+						bias { bias }
+						fbias { fbias }
+						tbias { tbias }
+						radius { radius }
+						xindent { xindent }
+						zindent { zindent }
+						frompt { frompt }
+						topt { topt }
+						arrow { arrow }
+						arrowlength { arrowlength }
+					}
+			pathstyle	{ pathstyle		}
+			pathdashlength	{ pathdashlength	}
+			pathwidth	{ pathwidth		}
+			pathgap 	{ pathgap		}
+			arrow		{ arrow			}
+			arrowstyle	{ arrowstyle		}
+			arrowwidth	{ arrowwidth		}
+			arrowlength	{ arrowlength		}
+
+			linklabel	{ linklabel		}
+			linklabelmargin	{ linklabelmargin	}
+			linklabelfont	{ linklabelfont		}
+			linklabelbreak	{ linklabelbreak	}
+			linklabelformat	{ linklabelformat @Body	}
+			linklabelpos	{ linklabelpos		}
+			linklabelprox	{ linklabelprox		}
+			linklabelangle	{ linklabelangle	}
+			linklabelctr	{ linklabelctr		}
+			linklabeladjust	{ linklabeladjust	}
+
+			xlabel		{ xlabel		}
+			xlabelmargin	{ xlabelmargin		}
+			xlabelfont	{ xlabelfont		}
+			xlabelbreak	{ xlabelbreak		}
+			xlabelformat	{ xlabelformat @Body	}
+			xlabelpos	{ xlabelpos		}
+			xlabelprox	{ xlabelprox		}
+			xlabelangle	{ xlabelangle		}
+			xlabelctr	{ xlabelctr		}
+			xlabeladjust	{ xlabeladjust		}
+
+			ylabel		{ ylabel		}
+			ylabelmargin	{ ylabelmargin		}
+			ylabelfont	{ ylabelfont		}
+			ylabelbreak	{ ylabelbreak		}
+			ylabelformat	{ ylabelformat @Body	}
+			ylabelpos	{ ylabelpos		}
+			ylabelprox	{ ylabelprox		}
+			ylabelangle	{ ylabelangle		}
+			ylabelctr	{ ylabelctr		}
+			ylabeladjust	{ ylabeladjust		}
+
+			zlabel		{ zlabel		}
+			zlabelmargin	{ zlabelmargin		}
+			zlabelfont	{ zlabelfont		}
+			zlabelbreak	{ zlabelbreak		}
+			zlabelformat	{ zlabelformat @Body	}
+			zlabelpos	{ zlabelpos		}
+			zlabelprox	{ zlabelprox		}
+			zlabelangle	{ zlabelangle		}
+			zlabelctr	{ zlabelctr		}
+			zlabeladjust	{ zlabeladjust		}
+
+			fromlabel	{ fromlabel		}
+			fromlabelmargin	{ fromlabelmargin	}
+			fromlabelfont	{ fromlabelfont		}
+			fromlabelbreak	{ fromlabelbreak	}
+			fromlabelformat	{ fromlabelformat @Body	}
+			fromlabelpos	{ fromlabelpos		}
+			fromlabelprox	{ fromlabelprox		}
+			fromlabelangle	{ fromlabelangle	}
+			fromlabelctr	{ fromlabelctr		}
+			fromlabeladjust	{ fromlabeladjust	}
+
+			tolabel		{ tolabel		}
+			tolabelmargin	{ tolabelmargin		}
+			tolabelfont	{ tolabelfont		}
+			tolabelbreak	{ tolabelbreak		}
+			tolabelformat	{ tolabelformat @Body	}
+			tolabelpos	{ tolabelpos		}
+			tolabelprox	{ tolabelprox		}
+			tolabelangle	{ tolabelangle		}
+			tolabelctr	{ tolabelctr		}
+			tolabeladjust	{ tolabeladjust		}
+	    }
+        }
+
+	macro @Line		{ @Link path { line     }		}
+	macro @DoubleLine	{ @Link path { doubleline }		}
+	macro @Arrow		{ @Link path { line     } arrow { yes }	}
+	macro @DoubleArrow	{ @Link path {doubleline} arrow { yes }	}
+	macro @Curve		{ @Link path { curve	}		}
+	macro @CurveArrow	{ @Link path { curve	} arrow { yes }	}
+	macro @ACurve		{ @Link path { acurve	}		}
+	macro @ACurveArrow	{ @Link path { acurve	} arrow { yes }	}
+	macro @CCurve		{ @Link path { ccurve	}		}
+	macro @CCurveArrow	{ @Link path { ccurve	} arrow { yes }	}
+
+	macro @Bezier		{ @Link path { bezier	}		}
+	macro @BezierArrow	{ @Link path { bezier	} arrow { yes }	}
+
+	macro @HVLine		{ @Link path { hvline   }		}
+	macro @HVArrow		{ @Link path { hvline   } arrow { yes }	}
+	macro @VHLine		{ @Link path { vhline   }		}
+	macro @VHArrow		{ @Link path { vhline   } arrow { yes }	}
+	macro @HVCurve		{ @Link path { hvcurve  }		}
+	macro @HVCurveArrow	{ @Link path { hvcurve  } arrow { yes }	}
+	macro @VHCurve		{ @Link path { vhcurve  }		}
+	macro @VHCurveArrow	{ @Link path { vhcurve  } arrow { yes }	}
+
+	macro @LVRLine		{ @Link path { lvrline  }		}
+	macro @LVRArrow		{ @Link path { lvrline  } arrow { yes }	}
+	macro @RVLLine		{ @Link path { rvlline  }		}
+	macro @RVLArrow		{ @Link path { rvlline  } arrow { yes }	}
+	macro @LVRCurve		{ @Link path { lvrcurve }		}
+	macro @LVRCurveArrow	{ @Link path { lvrcurve } arrow { yes }	}
+	macro @RVLCurve		{ @Link path { rvlcurve }		}
+	macro @RVLCurveArrow	{ @Link path { rvlcurve } arrow { yes }	}
+
+	macro @DWrapLine	{ @Link path { dwrapline}		}
+	macro @DWrapArrow	{ @Link path { dwrapline} arrow { yes }	}
+	macro @UWrapLine	{ @Link path { uwrapline}		}
+	macro @UWrapArrow	{ @Link path { uwrapline} arrow { yes }	}
+	macro @DWrapCurve	{ @Link path {dwrapcurve}		}
+	macro @DWrapCurveArrow	{ @Link path {dwrapcurve} arrow { yes }	}
+	macro @UWrapCurve	{ @Link path {uwrapcurve}		}
+	macro @UWrapCurveArrow	{ @Link path {uwrapcurve} arrow { yes }	}
+
+	export
+
+	    @Node @Box @CurveBox @ShadowBox @Square @Diamond
+	    @Polygon @Isosceles @Ellipse @Circle
+	    @LeftSub @ZeroWidthLeftSub @RightSub @ZeroWidthRightSub
+	    @FirstSub @NextSub @StubSub
+
+	def @Tree
+	    named treehindent
+		named left  { 0.0rt }
+		named ctr   { 0.5rt }
+		named right { 1.0rt }
+						{ treehindent		}
+	    body x
+	{
+
+	    macro @TNode	{ @@Node nodetag { T 		} }
+            macro @Node		{ @TNode                          }
+            macro @Box		{ @TNode outline { box		} }
+            macro @CurveBox	{ @TNode outline { curvebox	} }
+	    macro @ShadowBox	{ @TNode outline { shadowbox	} }
+            macro @Square	{ @TNode outline { square	} }
+            macro @Diamond	{ @TNode outline { diamond	} }
+            macro @Polygon	{ @TNode outline { polygon	} }
+            macro @Isosceles	{ @TNode outline { isosceles	} }
+            macro @Ellipse	{ @TNode outline { ellipse	} }
+            macro @Circle	{ @TNode outline { circle	} }
+
+	    def fixroot
+		precedence 90
+		left root
+	    {
+		|treehindent root
+	    }
+
+	    macro @LeftSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { L@T }
+		    format { { /treevsep {L::y} } |treehsep x | insinuatelink }
+	    }
+
+	    macro @ZeroWidthLeftSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { L@T }
+		    format { { /treevsep @ZeroWidth { {L::y} ^|treehsep } } |
+			x | insinuatelink }
+	    }
+
+	    macro @FirstSub
+	    {
+		fixroot //
+		@ObjectLink
+		    basefrom { T }
+		    baseto { S@T }
+		    format { //treevsep {S::y} | insinuatelink | }
+	    }
+
+	    macro @NextSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { S@T }
+		    format { x |treehsep { / {S::y} | insinuatelink | } }
+	    }
+
+	    macro @RightSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { R@T }
+		    format { x |treehsep  { /treevsep {R::y} } | insinuatelink }
+	    }
+
+	    macro @ZeroWidthRightSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { R@T }
+		    format { x | { /treevsep @ZeroWidth { |treehsep {R::y} } }
+			| insinuatelink }
+	    }
+
+	    macro @StubSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { T }
+		    format { @VContract { |0.5rt x | // |0.5rt
+		      S:: @BoxLabels @CatchTags y | } | insinuatelink }
+		    # path { from S@T@SW S@T@SE to }
+		    path {
+			P1::	S@SW
+			P2::	S@SE
+			FROM::	from boundaryatangle { from??CTR angleto P1 }
+			TO::	to   boundaryatangle { to??CTR   angleto P2 }
+			FROM P1 P2 TO
+		    }
+	    }
+
+	    @HContract @VContract x
+	}
+
+	export
+
+	    @Node @Box @CurveBox @ShadowBox @Square @Diamond
+	    @Polygon @Isosceles @Ellipse @Circle
+	    @LeftSub @ZeroWidthLeftSub @RightSub @ZeroWidthRightSub
+	    @FirstSub @NextSub @StubSub
+
+	def @HTree
+	    named treevindent
+		named top   { 0.0rt }
+		named ctr   { 0.5rt }
+		named foot  { 1.0rt }
+						{ treevindent		}
+	    body x
+	{
+
+	    macro @TNode	{ @@Node nodetag { T 		} }
+	    macro @Node		{ @TNode                          }
+            macro @Box		{ @TNode outline { box		} }
+            macro @CurveBox	{ @TNode outline { curvebox	} }
+	    macro @ShadowBox	{ @TNode outline { shadowbox	} }
+            macro @Square	{ @TNode outline { square	} }
+            macro @Diamond	{ @TNode outline { diamond	} }
+            macro @Polygon	{ @TNode outline { polygon	} }
+            macro @Isosceles	{ @TNode outline { isosceles	} }
+            macro @Ellipse	{ @TNode outline { ellipse	} }
+            macro @Circle	{ @TNode outline { circle	} }
+
+	    def fixroot
+		precedence 90
+		left root
+	    {
+		/treevindent root
+	    }
+
+	    macro @LeftSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { L@T }
+		    format { { |treehsep {L::y} } /treevsep x / insinuatelink }
+	    }
+
+	    macro @ZeroWidthLeftSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { L@T }
+		    format { { |treehsep @ZeroWidth { {L::y} ^/treevsep } } /
+			x / insinuatelink }
+	    }
+
+	    macro @FirstSub
+	    {
+		fixroot ||
+		@ObjectLink
+		    basefrom { T }
+		    baseto { S@T }
+		    format { ||treehsep { {S::y} / insinuatelink / } }
+	    }
+
+	    macro @NextSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { S@T }
+		    format { x /treevsep { | {S::y} { / insinuatelink / } } }
+	    }
+
+	    macro @RightSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { R@T }
+		    format { x /treevsep  { |treehsep {R::y} } / insinuatelink }
+	    }
+
+	    macro @ZeroWidthRightSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { R@T }
+		    format { x / { |treehsep @ZeroWidth { /treevsep {R::y} } }
+			/ insinuatelink }
+	    }
+
+	    macro @StubSub
+	    {
+		@ObjectLink
+		    basefrom { T }
+		    baseto { T }
+		    format { @VContract { { /0.5rt x / } || { /0.5rt
+		      S:: @BoxLabels @CatchTags y / } } / insinuatelink }
+		    # path { from S@T@SW S@T@SE to }
+		    path {
+			P1::	S@NE
+			P2::	S@SE
+			FROM::	from boundaryatangle { from??CTR angleto P1 }
+			TO::	to   boundaryatangle { to??CTR   angleto P2 }
+			FROM P1 P2 TO
+		    }
+	    }
+
+	    @HContract @VContract x
+	}
+
+	@BackEnd @Case {
+	  PostScript @Yield {
+        {
+	  save @Case { { yes Yes } @Yield "grestore save gsave" else @Yield {} }
+	  maxlabels "ldiagbegin"
+          //
+	  "ldiagend"
+	  save @Case { { yes Yes } @Yield "restore" else @Yield {} }
+        } @Graphic @Body
+	  }
+	  PDF @Yield {}
+	}
+
+    @End @Diag
+}
diff --git a/include/diagf.etc b/include/diagf.etc
new file mode 100644
index 0000000..c92a145
--- /dev/null
+++ b/include/diagf.etc
@@ -0,0 +1,627 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Geometry package for algebra and geometry in PostScript              #
+#  Version 1.0 (June 1996)                                                    #
+#  Jeffrey H. Kingston                                                        #
+#                                                                             #
+###############################################################################
+
+export
+
+    i c p m s v f d "-0" "-1" "-2" "-3" "-4" "-5" "-6" "-7" "-8" "-9" "-."
+    pi e sqrt abs ceiling floor truncate round cos sin atan
+    exp log rand max min "*" "/" idiv mod "+" "-"
+    xcoord ycoord distance angleto ":=" ":==" "::" ":<" prev "??" "?!?"
+    boundaryatangle atangle
+    "**" "++" "--" anglefix anydebug ","
+    "=" "!=" "==" "!==" "<" "<=" ">" ">=" not and xor or
+    if quadcase signcase xloop yloop zloop
+    cabout aabout
+
+def @Geometry
+{
+    def i
+	precedence 100
+	left x
+    {
+	x "in"
+    }
+
+    def c
+	precedence 100
+	left x
+    {
+	x "cm"
+    }
+
+    def p
+	precedence 100
+	left x
+    {
+	x "pt"
+    }
+
+    def m
+	precedence 100
+	left x
+    {
+	x "em"
+    }
+
+    def s
+	precedence 100
+	left x
+    {
+	x "sp"
+    }
+
+    def v
+	precedence 100
+	left x
+    {
+	x "vs"
+    }
+
+    def f
+	precedence 100
+	left x
+    {
+	x "ft"
+    }
+
+    def d
+	precedence 100
+	left x
+    {
+	x "dg"
+    }
+
+    def pi
+    {
+	"ldiagpi"
+    }
+
+    def e
+    {
+	"ldiage"
+    }
+
+    def sqrt
+	precedence 99
+	right y
+    {
+	y "sqrt"
+    }
+
+    def abs
+	precedence 99
+	right y
+    {
+	y "abs"
+    }
+
+    def anglefix
+	precedence 99
+	right y
+    {
+	y "ldiagfixangle"
+    }
+
+    def ceiling
+	precedence 99
+	right y
+    {
+	y "ceiling"
+    }
+
+    def floor
+	precedence 99
+	right y
+    {
+	y "floor"
+    }
+
+    def truncate
+	precedence 99
+	right y
+    {
+	y "truncate"
+    }
+
+    def round
+	precedence 99
+	right y
+    {
+	y "round"
+    }
+
+    def cos
+	precedence 99
+	right y
+    {
+	y "cos"
+    }
+
+    def sin
+	precedence 99
+	right y
+    {
+	y "sin"
+    }
+
+    def xcoord
+	precedence 99
+	right y
+    {
+	y "pop"
+    }
+
+    def ycoord
+	precedence 99
+	right y
+    {
+	y "exch pop"
+    }
+
+    def distance
+	precedence 98
+	left x
+	right y
+    {
+	x y "ldiagdistance"
+    }
+
+    def angleto
+	precedence 98
+	left x
+	right y
+    {
+	x y "ldiagangleto"
+    }
+
+    def atan
+	precedence 98
+	left x
+	right y
+    {
+	x y "atan"
+    }
+
+    def exp
+	precedence 98
+	left x
+	right y
+    {
+	x y "exp"
+    }
+
+    def log
+	precedence 98
+	left x
+	right y
+    {
+	x y "ldiaglog"
+    }
+
+    def rand
+	precedence 98
+	left x
+	right y
+    {
+	x y "dorand"
+    }
+
+    def max
+	precedence 98
+	left x
+	right y
+    {
+	x y "ldiagmax"
+    }
+
+    def min
+	precedence 98
+	left x
+	right y
+    {
+	x y "ldiagmin"
+    }
+
+    def "*"
+	precedence 97
+	left x
+	right y
+    {
+	x y "mul"
+    }
+
+    def "/"
+	precedence 96
+	associativity left
+	left x
+	right y
+    {
+	x y "div"
+    }
+
+    def idiv
+	precedence 96
+	associativity left
+	left x
+	right y
+    {
+	x y "idiv"
+    }
+
+    def mod
+	precedence 96
+	left x
+	right y
+    {
+	x "cvi" y "cvi mod"
+    }
+
+    def "+"
+	precedence 95
+	associativity left
+	left x
+	right y
+    {
+	x @Case {
+	    ""   @Yield y
+	    else @Yield { x y "add" }
+	}
+    }
+
+    def "-"
+	precedence 95
+	associativity left
+	left x
+	right y
+    {
+	x @Case {
+	    ""   @Yield { y "neg" }
+	    else @Yield { x y "sub" }
+	}
+    }
+
+    def "-0" { "-0" }
+    def "-1" { "-1" }
+    def "-2" { "-2" }
+    def "-3" { "-3" }
+    def "-4" { "-4" }
+    def "-5" { "-5" }
+    def "-6" { "-6" }
+    def "-7" { "-7" }
+    def "-8" { "-8" }
+    def "-9" { "-9" }
+    def "-." { "-." }
+
+    def prev
+    {
+	"ldiagprevious"
+    }
+
+    def "??"
+	precedence 99
+	left x
+	right y
+    {
+	"{" x "} ("y") ldiagdolabel"
+    }
+
+    def "?!?"
+	precedence 99
+	left x
+	right y
+    {
+	"{" x "} "y" ldiagdolabel"
+    }
+
+    def boundaryatangle
+	precedence 89
+	left x
+	right y
+    {
+	x??"CTR" y x??"CIRCUM" "ldiagpadd"
+    }
+
+    def atangle
+	precedence 89
+	left x
+	right y
+    {
+	0 0 x y "ldiagatangle"
+    }
+
+    def "**"
+	precedence 88
+	left x
+	right y
+    {
+	x y "ldiagpmul"
+    }
+
+    def "++"
+	precedence 87
+	associativity left
+	left x
+	right y
+    {
+	x y "ldiagpadd"
+    }
+
+    def "--"
+	precedence 87
+	associativity left
+	left x
+	right y
+    {
+	y x "ldiagpsub"
+    }
+
+    def "="
+	precedence 79
+	left x
+	right y
+    {
+	x y "eq"
+    }
+
+    def "!="
+	precedence 79
+	left x
+	right y
+    {
+	x y "ne"
+    }
+
+    def "=="
+	precedence 79
+	left x
+	right y
+    {
+	x y "ldiagangleeq"
+    }
+
+    def "!=="
+	precedence 79
+	left x
+	right y
+    {
+	x y "ldiaganglene"
+    }
+
+    def "<"
+	precedence 79
+	left x
+	right y
+    {
+	x y "lt"
+    }
+
+    def "<="
+	precedence 79
+	left x
+	right y
+    {
+	x y "le"
+    }
+
+    def ">"
+	precedence 79
+	left x
+	right y
+    {
+	x y "gt"
+    }
+
+    def ">="
+	precedence 79
+	left x
+	right y
+    {
+	x y "ge"
+    }
+
+    def not
+	precedence 78
+	right y
+    {
+	y "not"
+    }
+
+    def and
+	precedence 77
+	left x
+	right y
+    {
+	x y "and"
+    }
+
+    def xor
+	precedence 76
+	left x
+	right y
+    {
+	x y "xor"
+    }
+
+    def or
+	precedence 76
+	left x
+	right y
+    {
+	x y "or"
+    }
+
+    def ","
+	precedence 70
+	left x
+	right y
+    {
+	OOO ++ { OOX -- OOO }**x ++ { OOY -- OOO }**y
+    }
+
+    def ":="
+	precedence 20
+	left x
+	right y
+    {
+	"/"x "[" y "] cvx def"
+    }
+
+    def ":=="
+	precedence 20
+	left x
+	right y
+    {
+	"/"x "[" y "counttomark 2 add (assigning) exch ldiagdebugprint ] cvx def"
+    }
+
+    def "::"
+	precedence 20
+	left x
+	right y
+    {
+	y "/"x "ldiagpointdef"
+    }
+
+    def ":<"
+	precedence 20
+	left x
+	right y
+    {
+	y "/"x"@ANGLE ldiagangledef"
+    }
+
+    def if
+	named cond {}
+	named then {}
+	named else {}
+    {
+	cond "{" then "} {" else "} ifelse"
+    }
+
+    def quadcase
+	precedence 10
+	left angle
+	named "0"	{}
+	named "0-90"	{}
+	named "90"	{}
+	named "90-180"	{}
+	named "180"	{}
+	named "180-270"	{}
+	named "270"	{}
+	named "270-360"	{}
+    {
+	"{" 0-90 "} {" 270 "} {" 180 "} {" 90 "}"
+	"{" 0 "} {" 270-360 "} {" 180-270 "} {" 90-180 "}" angle "ldiagquadcase"
+    }
+
+    def signcase
+	precedence 10
+	left number
+	named neg {}
+	named zero {}
+	named pos {}
+    {
+	"{" neg "} {" zero "} {" pos "}" number "ldiagsigncase"
+    }
+
+    def xloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named x { "xval" } {}
+    {
+	from by to "{ /xval exch def" do "} for"
+    }
+
+    def yloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named y { "yval" } {}
+    {
+	from by to "{ /yval exch def" do "} for"
+    }
+
+    def zloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named z { "zval" } {}
+    {
+	from by to "{ /zval exch def" do "} for"
+    }
+
+    def anydebug
+	right tag
+    {
+	"[" tag "counttomark ("tag") exch ldiagdebugprint cleartomark"
+    }
+
+    def aabout
+	named circum {}
+	named extra {}
+	named centre {}
+    {
+	"{" circum "} cvlit" extra "[" centre "] cvx ldiagaabout"
+	# ZXCTR	:= centre
+	# ZFCTR	:= circum??CTR
+	# ZAREF	:= ZFCTR angleto ZXCTR
+	# ZAMIN	:= 0d
+	# ZPMIN	:= circum boundaryatangle { ZAREF - ZAMIN }
+	# 		 ++ extra atangle { ZAREF - ZAMIN }
+	# ZAMAX	:= 90d
+	# ZPMAX	:= circum boundaryatangle { ZAREF - ZAMAX }
+	# 		 ++ extra atangle { ZAREF - ZAMAX }
+	# xloop from { 1 } to { 12 } by { 1 } do {
+	#   ZAMID	:= { ZAMIN + ZAMAX } * 0.5
+	#   ZPMID	:= circum boundaryatangle { ZAREF - ZAMID }
+	# 		 ++ extra atangle { ZAREF - ZAMID }
+	#   if cond { {ZPMID distance ZXCTR} > {ZFCTR distance ZXCTR} } then {
+	#     ZAMAX := ZAMID
+	#     ZPMAX := ZPMID
+	#   }
+	#   else {
+	#     ZAMIN := ZAMID
+	#     ZPMIN := ZPMID
+	#   }
+	# }
+	# ZPMID
+    }
+
+    def cabout
+	named circum {}
+	named extra {}
+	named centre {}
+    {
+       "{" circum "} cvlit" extra "[" centre "] cvx ldiagcabout"
+       # ZXCTR	:= centre
+       # ZFCTR	:= circum??CTR
+       # ZAREF	:= ZFCTR angleto ZXCTR
+       # ZAMIN	:= 0d
+       # ZPMIN	:= circum boundaryatangle { ZAREF + ZAMIN }
+       # 		 ++ extra atangle { ZAREF + ZAMIN }
+       # ZAMAX	:= 90d
+       # ZPMAX	:= circum boundaryatangle { ZAREF + ZAMAX }
+       # 		 ++ extra atangle { ZAREF + ZAMAX }
+       # xloop from { 1 } to { 12 } by { 1 } do {
+       #   ZAMID	:= { ZAMIN + ZAMAX } * 0.5
+       #   ZPMID	:= circum boundaryatangle { ZAREF + ZAMID }
+       # 		 ++ extra atangle { ZAREF + ZAMID }
+       #   if cond { {ZPMID distance ZXCTR} > {ZFCTR distance ZXCTR} } then {
+       #     ZAMAX := ZAMID
+       #     ZPMAX := ZPMID
+       #   }
+       #   else {
+       #     ZAMIN := ZAMID
+       #     ZPMIN := ZPMID
+       #   }
+       # }
+       # ZPMID
+    }
+}
diff --git a/include/diagf.lpg b/include/diagf.lpg
new file mode 100644
index 0000000..8b76f58
--- /dev/null
+++ b/include/diagf.lpg
@@ -0,0 +1,2706 @@
+%%BeginResource: procset LoutFigPrependGraphic
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                    %
+%  PostScript @SysPrependGraphic file for @Diag Jeffrey H. Kingston  %
+%  Version 2.0 (includes CIRCUM label)                September 1996 %
+%                                                                    %
+%  To assist in avoiding name clashes, the names of all symbols      %
+%  defined here begin with "ldiag".  However, this is not feasible   %
+%  with user-defined labels and some labels used by users.           %
+%                                                                    %
+%  <point>      is two numbers, a point.                             %
+%  <length>     is one number, a length                              %
+%  <angle>      is one number, an angle in degrees                   %
+%  <dashlength> is one number, the preferred length of a dash        %
+%                                                                    %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+errordict begin
+   /handleerror
+   {
+      {  /Times-Roman findfont 8 pt scalefont setfont
+	 0 setgray 4 pt 4 pt moveto
+	 $error /errorname get
+	 dup ldiagdict exch known
+	 { ldiagdict exch get }
+	 { 50 string cvs } ifelse
+	 show
+	 (  Command: ) show
+	 $error /command get 50 string cvs show
+      } stopped {} if
+      showpage stop
+   } def
+end
+
+% begin diagram: <maxlabels> ldiagbegin -
+% must be defined outside ldiagdict since it loads it
+/ldiagbegin
+{ xsize 0 0 ysize ldiagdict begin
+  5 -1 roll /ldiagmaxlabels exch def
+  (@Diag) ldiagpushtagdict
+  /OOY ldiagpointdef /OOX ldiagpointdef 0 0 /OOO ldiagpointdef
+} def
+
+% end diagram: - ldiagend -
+/ldiagend
+{ ldiagpoptagdict end
+} def
+
+% concat strings: <string> <string> ldiagconcat <string>
+% must be defined outside ldiagdict since used in ldiagpromotelabels
+/ldiagconcat
+{ 2 copy length exch length add string
+  dup 0 4 index putinterval
+  dup 3 index length 3 index putinterval
+  3 1 roll pop pop
+} def
+
+/ldiagdebugposy 432 def
+/ldiagdebugposx 72 def
+
+% <string> <int> ldiagdebugprint -
+% must be defined outside ldiagdict since used in arbitrary places
+% print count or <int> stack entries, which ever is the smaller
+/ldiagdebugprint
+{
+  exch
+  gsave
+  initgraphics
+  ldiagdebugposy 72 lt
+  { /ldiagdebugposx ldiagdebugposx 144 add store
+    /ldiagdebugposy 432 store
+  }
+  {
+    /ldiagdebugposy ldiagdebugposy 12 sub store
+  } ifelse
+  ldiagdebugposx ldiagdebugposy moveto
+  /Times-Roman findfont 10 scalefont setfont
+  0 setgray show
+  count 1 sub 2 copy lt { pop } { exch pop } ifelse 1 sub
+  0 exch 1 exch
+  {
+    /ldiagdebugposy ldiagdebugposy 12 sub store
+    ldiagdebugposx 12 add ldiagdebugposy moveto
+    index 50 string cvs show
+  } for
+  grestore
+} def
+
+/ldiagdict 200 dict def
+ldiagdict begin
+
+% error messages
+/dictfull (dictfull error:  too many labels?) def
+/dictstackoverflow (dictstackoverflow error:  labels nested too deeply?) def
+/execstackoverflow (execstackoverflow error:  figure nested too deeply?) def
+/limitcheck (limitcheck error:  figure nested too deeply or too large?) def
+/syntaxerror (syntaxerror error:  syntax error in text of figure?) def
+/typecheck (typecheck error:  syntax error in text of figure?) def
+/undefined (undefined error:  unknown or misspelt label?) def
+/VMError (VMError error:  run out of memory?) def
+
+% push pi onto stack:  - ldiagpi <num>
+/ldiagpi 3.14159 def
+
+% push e onto stack:  - ldiage <num>
+/ldiage 2.71828 def
+
+% arc directions
+/clockwise     false def
+/anticlockwise true  def
+
+% test equality between two angles:  <angle> <angle> ldiagangleeq <bool>
+/ldiagangleeq { ldiagfixangle exch ldiagfixangle eq } def
+
+% test inequality between two angles:  <angle> <angle> ldiaganglene <bool>
+/ldiaganglene { ldiagangleeq not } def
+
+% maximum of two numbers:  <num> <num> ldiagmax <num>
+/ldiagmax { 2 copy gt { pop } { exch pop } ifelse } def
+
+% minimum of two numbers:  <num> <num> ldiagmin <num>
+/ldiagmin { 2 copy lt { pop } { exch pop } ifelse } def
+
+% add two points:  <point> <point> ldiagpadd <point>
+/ldiagpadd
+{
+  % (Entering padd) 4 ldiagdebugprint
+  exch 3 1 roll add 3 1 roll add exch
+  % (Leaving padd) 2 ldiagdebugprint
+} def
+
+% subtract first point from second:  <point> <point> ldiagpsub <point>
+/ldiagpsub { 3 2 roll sub 3 1 roll exch sub exch } def
+
+% max two points:  <point> <point> ldiagpmax <point>
+/ldiagpmax { exch 3 1 roll ldiagmax 3 1 roll ldiagmax exch } def
+
+% min two points:  <point> <point> ldiagpmin <point>
+/ldiagpmin { exch 3 1 roll ldiagmin 3 1 roll ldiagmin exch } def
+
+% scalar multiplication: <point> <num> ldiagpmul <point>
+/ldiagpmul { dup 3 1 roll mul 3 1 roll mul exch } def
+
+% point at angle and distance:  <point> <length> <angle> ldiagatangle <point>
+/ldiagatangle { 2 copy cos mul 3 1 roll sin mul ldiagpadd } def
+
+% angle from one point to another:  <point> <point> ldiagangleto <angle>
+/ldiagangleto { ldiagpsub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
+
+% distance between two points:  <point> <point> ldiagdistance <length>
+/ldiagdistance { ldiagpsub dup mul exch dup mul add sqrt } def
+
+% stroke a solid line:  <length> <dashlength> ldiagsolid -
+/ldiagsolid
+{  pop pop [] 0 setdash 1 setlinecap stroke
+} def
+
+% stroke a dashed line:   <length> <dashlength> ldiagdashed -
+/ldiagdashed
+{  2 copy div 2 le 1 index 0 le or
+   {  exch pop 1 pt ldiagmax [ exch dup ] 0 setdash }
+   {  dup [ exch 4 2 roll 2 copy div
+      1 sub 2 div ceiling dup 4 1 roll
+      1 add mul sub exch div ] 0 setdash
+   } ifelse 0 setlinecap stroke
+} def
+
+% stroke a cdashed line:  <length> <dashlength> ldiagcdashed -
+/ldiagcdashed
+{  % (Entering ldiagcdashed) 2 ldiagdebugprint
+   2 copy le 1 index 0 le or
+   { exch pop 1 pt ldiagmax [ exch dup ] dup 0 get 2 div setdash }
+   { dup [ 4 2 roll exch 2 copy exch div
+     2 div ceiling div 1 index sub
+     ] exch 2 div setdash
+   } ifelse 0 setlinecap stroke
+   % (Leaving ldiagcdashed) 0 ldiagdebugprint
+} def
+
+% stroke a dotted line:  <length> <dashlength> ldiagdotted -
+/ldiagdotted
+{  2 copy le 1 index 0 le or
+   { exch pop 1 pt ldiagmax [ exch 0 exch ] 0 setdash }
+   { 1 index exch div ceiling div
+     [ 0 3 2 roll ] 0 setdash
+   } ifelse 1 setlinecap stroke
+} def
+
+% stroke a noline line:  <length> <dashlength> ldiagnoline -
+/ldiagnoline
+{ pop pop
+} def
+
+% painting (i.e. filling): - ldiagwhite - (etc.)
+/ldiagnopaint		{			       } def
+/ldiagnochange		{ 			  fill } def
+/ldiagdarkblue		{ 0.0 0.0 0.5 setrgbcolor fill } def
+/ldiagblue		{ 0.0 0.0 1.0 setrgbcolor fill } def
+/ldiaglightblue		{ 0.5 0.5 1.0 setrgbcolor fill } def
+/ldiagdarkgreen		{ 0.0 0.5 0.0 setrgbcolor fill } def
+/ldiaggreen		{ 0.0 1.0 0.0 setrgbcolor fill } def
+/ldiaglightgreen	{ 0.5 1.0 0.5 setrgbcolor fill } def
+/ldiagdarkred		{ 0.5 0.0 0.0 setrgbcolor fill } def
+/ldiagred		{ 1.0 0.0 0.0 setrgbcolor fill } def
+/ldiaglightred		{ 1.0 0.5 0.5 setrgbcolor fill } def
+/ldiagdarkcyan		{ 0.0 0.5 0.5 setrgbcolor fill } def
+/ldiagcyan		{ 0.0 1.0 1.0 setrgbcolor fill } def
+/ldiaglightcyan		{ 0.5 1.0 1.0 setrgbcolor fill } def
+/ldiagdarkmagenta	{ 0.5 0.0 0.5 setrgbcolor fill } def
+/ldiagmagenta		{ 1.0 0.0 1.0 setrgbcolor fill } def
+/ldiaglightmagenta	{ 1.0 0.5 1.0 setrgbcolor fill } def
+/ldiagdarkyellow	{ 0.5 0.5 0.0 setrgbcolor fill } def
+/ldiagyellow		{ 1.0 1.0 0.0 setrgbcolor fill } def
+/ldiaglightyellow	{ 1.0 1.0 0.5 setrgbcolor fill } def
+/ldiagdarkgray		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/ldiaggray		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/ldiaglightgray		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/ldiagdarkgrey		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/ldiaggrey		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/ldiaglightgrey		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/ldiagblack		{ 0.0 0.0 0.0 setrgbcolor fill } def
+/ldiagwhite		{ 1.0 1.0 1.0 setrgbcolor fill } def
+
+% shape and labels of the @Box symbol
+/ldiagbox
+{
+   0     0         /SW  ldiagpointdef
+   xsize 0         /SE  ldiagpointdef
+   xsize ysize     /NE  ldiagpointdef
+   0     ysize     /NW  ldiagpointdef
+   SE 0.5 ldiagpmul /S   ldiagpointdef
+   NW 0.5 ldiagpmul /W   ldiagpointdef
+   W SE ldiagpadd   /E   ldiagpointdef
+   S NW ldiagpadd   /N   ldiagpointdef
+   NE 0.5 ldiagpmul /CTR ldiagpointdef
+
+     0 dg /S@ANGLE  ldiagangledef
+    45 dg /SE@ANGLE ldiagangledef
+    90 dg /E@ANGLE  ldiagangledef
+   135 dg /NE@ANGLE ldiagangledef
+   180 dg /N@ANGLE  ldiagangledef
+   225 dg /NW@ANGLE ldiagangledef
+   270 dg /W@ANGLE  ldiagangledef
+   315 dg /SW@ANGLE ldiagangledef
+
+   [ CTR NE ldiagpsub /ldiagboxcircum cvx ] ldiagcircumdef
+   SW SE NE NW SW
+} def
+
+% shape and labels of the @CurveBox symbol
+% <margin> ldiagcurvebox <shape>
+/ldiagcurvebox
+{  
+
+   % (Entering ldiagcurvebox) 1 ldiagdebugprint
+   ldiagdecodelength /cbmgn exch def
+
+   xsize 0.5 mul	ysize 0.5 mul	/CTR ldiagpointdef
+   xsize 0.5 mul	0		/S   ldiagpointdef
+   xsize		ysize 0.5 mul	/E   ldiagpointdef
+   xsize 0.5 mul	ysize		/N   ldiagpointdef
+   0			ysize 0.5 mul	/W   ldiagpointdef
+
+   cbmgn 0.293 mul		cbmgn 0.293 mul		  /SW  ldiagpointdef
+   xsize cbmgn 0.293 mul sub	cbmgn 0.293 mul		  /SE  ldiagpointdef
+   xsize cbmgn 0.293 mul sub	ysize cbmgn 0.293 mul sub /NE  ldiagpointdef
+   cbmgn 0.293 mul		ysize cbmgn 0.293 mul sub /NW  ldiagpointdef
+
+     0 dg /S@ANGLE  ldiagangledef
+    45 dg /SE@ANGLE ldiagangledef
+    90 dg /E@ANGLE  ldiagangledef
+   135 dg /NE@ANGLE ldiagangledef
+   180 dg /N@ANGLE  ldiagangledef
+   225 dg /NW@ANGLE ldiagangledef
+   270 dg /W@ANGLE  ldiagangledef
+   315 dg /SW@ANGLE ldiagangledef
+
+   [ xsize ysize 0.5 ldiagpmul cbmgn /ldiagcurveboxcircum cvx ] ldiagcircumdef
+
+   cbmgn		0
+   xsize cbmgn sub	0
+   [ xsize cbmgn sub	cbmgn		]
+   xsize		cbmgn
+   xsize		ysize cbmgn sub
+   [ xsize cbmgn sub	ysize cbmgn sub	]
+   xsize cbmgn sub	ysize
+   cbmgn		ysize
+   [ cbmgn		ysize cbmgn sub	]
+   0			ysize cbmgn sub
+   0			cbmgn
+   [ cbmgn		cbmgn		]
+   cbmgn		0
+
+   % (Leaving ldiagcurvebox) 0 ldiagdebugprint
+} def
+
+% shadow of the @ShadowBox symbol
+% its shape and labels are done, somewhat inaccurately, with ldiagbox
+% <shadowmargin> ldiagshadow -
+/ldiagshadow
+{ 
+  /lfshm exch def
+  
+  lfshm 0 moveto
+  0 lfshm neg rlineto
+  xsize 0 rlineto
+  0 ysize rlineto
+  lfshm neg 0 rlineto
+  xsize 0 lineto
+  closepath fill
+
+} def
+
+% shape and labels of the @Square symbol
+/ldiagsquare
+{
+   xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
+   CTR xsize xsize ysize ysize ldiagpmax 0.5 ldiagpmul ldiagpadd /NE ldiagpointdef
+   CTR 0 0 CTR NE ldiagdistance 135 ldiagatangle ldiagpadd /NW ldiagpointdef
+   CTR 0 0 CTR NE ldiagdistance 225 ldiagatangle ldiagpadd /SW ldiagpointdef
+   CTR 0 0 CTR NE ldiagdistance 315 ldiagatangle ldiagpadd /SE ldiagpointdef
+   SW 0.5 ldiagpmul SE 0.5 ldiagpmul ldiagpadd /S ldiagpointdef
+   NW 0.5 ldiagpmul NE 0.5 ldiagpmul ldiagpadd /N ldiagpointdef
+   SW 0.5 ldiagpmul NW 0.5 ldiagpmul ldiagpadd /W ldiagpointdef
+   SE 0.5 ldiagpmul NE 0.5 ldiagpmul ldiagpadd /E ldiagpointdef
+
+     0 dg /S@ANGLE  ldiagangledef
+    45 dg /SE@ANGLE ldiagangledef
+    90 dg /E@ANGLE  ldiagangledef
+   135 dg /NE@ANGLE ldiagangledef
+   180 dg /N@ANGLE  ldiagangledef
+   225 dg /NW@ANGLE ldiagangledef
+   270 dg /W@ANGLE  ldiagangledef
+   315 dg /SW@ANGLE ldiagangledef
+
+   [ CTR NE ldiagpsub /ldiagboxcircum cvx ] ldiagcircumdef
+   SW SE NE NW SW
+} def
+
+% shape and labels of the @Diamond symbol
+/ldiagdiamond
+{
+   xsize 0 0.5 ldiagpmul /S   ldiagpointdef
+   0 ysize 0.5 ldiagpmul /W   ldiagpointdef
+   S W         ldiagpadd /CTR ldiagpointdef
+   CTR W       ldiagpadd /N   ldiagpointdef
+   CTR S       ldiagpadd /E   ldiagpointdef
+   E N ldiagpadd 0.5 ldiagpmul /NE ldiagpointdef
+   N W ldiagpadd 0.5 ldiagpmul /NW ldiagpointdef
+   S W ldiagpadd 0.5 ldiagpmul /SW ldiagpointdef
+   S E ldiagpadd 0.5 ldiagpmul /SE ldiagpointdef
+
+     0 dg        /S@ANGLE  ldiagangledef
+    90 dg        /E@ANGLE  ldiagangledef
+   180 dg        /N@ANGLE  ldiagangledef
+   270 dg        /W@ANGLE  ldiagangledef
+   S E ldiagangleto /SE@ANGLE ldiagangledef
+   E N ldiagangleto /NE@ANGLE ldiagangledef
+   N W ldiagangleto /NW@ANGLE ldiagangledef
+   W S ldiagangleto /SW@ANGLE ldiagangledef
+
+   [ xsize ysize 0.5 ldiagpmul /ldiagdiamondcircum cvx ] ldiagcircumdef
+   S E N W S
+} def
+
+% shape and labels of the @Ellipse symbol
+/ldiagellipse
+{
+   xsize 0 0.5 ldiagpmul /S   ldiagpointdef
+   0 ysize 0.5 ldiagpmul /W   ldiagpointdef
+   S W         ldiagpadd /CTR ldiagpointdef
+   CTR W       ldiagpadd /N   ldiagpointdef
+   CTR S       ldiagpadd /E   ldiagpointdef
+   CTR xsize 0 0.3536 ldiagpmul ldiagpadd 0 ysize 0.3536 ldiagpmul ldiagpadd /NE ldiagpointdef
+   0 ysize 0.3536 ldiagpmul CTR xsize 0 0.3536 ldiagpmul ldiagpadd ldiagpsub /SE ldiagpointdef
+   xsize 0 0.3536 ldiagpmul CTR ldiagpsub 0 ysize 0.3536 ldiagpmul ldiagpadd /NW ldiagpointdef
+   0 ysize 0.3536 ldiagpmul xsize 0 0.3536 ldiagpmul CTR ldiagpsub ldiagpsub /SW ldiagpointdef
+   [ xsize ysize 0.5 ldiagpmul /ldiagellipsecircum cvx ] ldiagcircumdef
+
+     0 dg /S@ANGLE  ldiagangledef
+    90 dg /E@ANGLE  ldiagangledef
+   180 dg /N@ANGLE  ldiagangledef
+   270 dg /W@ANGLE  ldiagangledef
+
+   S E ldiagangleto /SE@ANGLE ldiagangledef
+   E N ldiagangleto /NE@ANGLE ldiagangledef
+   N W ldiagangleto /NW@ANGLE ldiagangledef
+   W S ldiagangleto /SW@ANGLE ldiagangledef
+
+   S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+} def
+
+% shape and labels of the @Circle symbol
+/ldiagcircle
+{
+   xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
+   CTR xsize 0 ysize 0 ldiagpmax 0.5 ldiagpmul ldiagpadd /E ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 45 ldiagatangle ldiagpadd /NE ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 90 ldiagatangle ldiagpadd /N ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 135 ldiagatangle ldiagpadd /NW ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 180 ldiagatangle ldiagpadd /W ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 225 ldiagatangle ldiagpadd /SW ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 270 ldiagatangle ldiagpadd /S ldiagpointdef
+   CTR 0 0 CTR E ldiagdistance 315 ldiagatangle ldiagpadd /SE ldiagpointdef
+   [ S E ldiagpsub /ldiagellipsecircum cvx ] ldiagcircumdef
+
+     0 dg /S@ANGLE  ldiagangledef
+    45 dg /SE@ANGLE ldiagangledef
+    90 dg /E@ANGLE  ldiagangledef
+   135 dg /NE@ANGLE ldiagangledef
+   180 dg /N@ANGLE  ldiagangledef
+   225 dg /NW@ANGLE ldiagangledef
+   270 dg /W@ANGLE  ldiagangledef
+   315 dg /SW@ANGLE ldiagangledef
+
+   S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+} def
+
+% shape and labels of the @VLine and @VArrow symbols
+/ldiagvline
+{
+   xmark ysize ldiagprevious /FROM ldiagpointdef
+   xmark 0 ldiagprevious /TO ldiagpointdef
+} def
+
+% points of a polygon around base with given no of sides, vert init angle:
+% <sides> <angle> ldiagpolygon <point> ... <point>
+/ldiagpolygon
+{  exch round cvi exch
+   xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
+   90 sub CTR 2 copy ldiagmax 5 3 roll
+   [ 4 copy pop /ldiagpolycircum cvx ] ldiagcircumdef
+   exch dup 360 exch div exch
+   1 1  3 2 roll
+   {  4 string cvs (P) exch ldiagconcat
+      3 copy exch pop (@ANGLE) ldiagconcat cvn exch 90 add exch ldiagangledef
+      cvn 6 copy pop pop ldiagatangle 2 copy 10 2 roll
+      3 2 roll ldiagpointdef
+      dup 3 1 roll add exch
+   }  for
+   pop ldiagatangle
+} def
+
+% shape and labels of the @Isosceles triangle symbol
+/ldiagisosceles
+{
+   xsize ysize 0.5 ldiagpmul /CTR ldiagpointdef
+   0     0                   /SW  ldiagpointdef
+   xsize 0                   /SE  ldiagpointdef
+   xsize 0.5 mul ysize       /N   ldiagpointdef
+   xsize 0.5 mul 0           /S   ldiagpointdef
+   SE 0.5 ldiagpmul N 0.5 ldiagpmul ldiagpadd /NE ldiagpointdef
+   SW 0.5 ldiagpmul N 0.5 ldiagpmul ldiagpadd /NW ldiagpointdef
+
+   [ xsize ysize /ldiagisoscelescircum cvx ] ldiagcircumdef
+
+     0 dg              /SW@ANGLE ldiagangledef
+     0 dg              /SE@ANGLE ldiagangledef
+   180 dg              /N@ANGLE  ldiagangledef
+     0 dg              /S@ANGLE  ldiagangledef
+     SE N ldiagangleto /NE@ANGLE ldiagangledef
+     N SW ldiagangleto /NW@ANGLE ldiagangledef
+
+   SW SE N SW
+} def
+
+% next array element:  <array> <index> ldiaggetnext <array> <index> <any> true
+%                                               or <array> <index> false
+/ldiaggetnext
+{  2 copy exch length ge
+   { false }
+   { 2 copy get exch 1 add exch true } ifelse
+} def
+
+% check whether thing is number:  <any> ldiagisnumbertype <any> <bool>
+/ldiagisnumbertype
+{  dup type dup
+   /integertype eq exch /realtype eq or
+} def
+
+% check whether thing is an array:  <any> ldiagisarraytype <any> <bool>
+/ldiagisarraytype { dup type /arraytype eq } def
+
+% check whether thing is an array:  <any> ldiagisnametype <any> <bool>
+/ldiagisnametype { dup type /nametype eq } def
+
+% get next item:  <array> <index> ldiaggetnextitem <array> <index> 0
+%                                              or <array> <index> <array> 1
+%                                              or <array> <index> <point> 2
+/ldiaggetnextitem
+{   ldiaggetnext
+    {	ldiagisarraytype
+	{   1
+	}
+	{   ldiagisnumbertype
+	    {	3 1 roll
+		ldiaggetnext
+		{   ldiagisnumbertype
+		    {	4 3 roll exch  2
+		    }
+		    {	pop 3 2 roll pop  0
+		    } ifelse
+		}
+		{   3 2 roll pop  0
+		} ifelse
+	    }
+	    {	pop 0
+	    } ifelse
+	} ifelse
+    }
+    {	0
+    } ifelse
+} def
+
+% approximate equality: num1 num2  approxeq  <boolean>
+/approxeq
+{ dup 0 eq
+  { pop 0 eq
+  }
+  { dup 3 1 roll sub exch div abs 0.001 lt
+  } ifelse
+} def
+
+% set arc path:  bool x1 y1  x2 y2  x0 y0  ldiagsetarc  <angle> <angle> <dist>
+% the path goes from x1 y1 to x2 y2 about centre x0 y0,
+% anticlockwise if bool is true else clockwise.
+% The orientations of backwards pointing and forwards pointing
+% arrowheads are returned in the two angles, and
+% the length of the arc is returned in <dist>.
+/ldiagsetarc
+{
+  % (Entering ldiagsetarc) 7 ldiagdebugprint
+  20 dict begin
+     matrix currentmatrix 8 1 roll
+     2 copy translate 2 copy 8 2 roll
+     4 2 roll ldiagpsub 6 2 roll ldiagpsub
+     dup /y1 exch def dup mul /y1s exch def
+     dup /x1 exch def dup mul /x1s exch def
+     dup /y2 exch def dup mul /y2s exch def
+     dup /x2 exch def dup mul /x2s exch def
+     /dist1 0 0 x1 y1 ldiagdistance def
+     /dist2 0 0 x2 y2 ldiagdistance def
+
+     y1s y2s approxeq
+     {	-1
+     }
+     {	y1s x2s mul y2s x1s mul sub y1s y2s sub div
+     } ifelse
+     /da exch def
+
+     x1s x2s approxeq
+     {	-1
+     }
+     {	x1s y2s mul x2s y1s mul sub x1s x2s sub div
+     } ifelse
+     /db exch def
+
+     da 0 gt db 0 gt and
+     {
+	% (  case 1, ellipse) 0 ldiagdebugprint
+	/LMax da sqrt db sqrt ldiagmax def
+	/scalex da sqrt LMax div def
+	/scaley db sqrt LMax div def
+	scalex scaley scale
+	0 0 LMax
+	0 0 x1 scalex mul y1 scaley mul ldiagangleto
+	0 0 x2 scalex mul y2 scaley mul ldiagangleto
+	2 copy eq { 360 add } if
+	2 copy 8 2 roll
+	5 index { arc } { arcn } ifelse
+	2 index 1 index
+	{ 90 sub } { 90 add } ifelse
+	dup sin scaley mul exch cos scalex mul atan
+	2 index 2 index
+	{ 90 add } { 90 sub } ifelse
+	dup sin scaley mul exch cos scalex mul atan
+	5 2 roll  % res1 res2 ang1 ang2 anticlockwise
+	{ exch sub } { sub } ifelse
+	dup 0 le { 360 add } if  ldiagpi mul LMax mul 180 div
+     }
+     {
+	dist1 dist2 approxeq
+	% x1 y1 dist1 (  x1 y1, d) 3 ldiagdebugprint pop pop pop
+	% x2 y2 dist2 (  x2 y2, d) 3 ldiagdebugprint pop pop pop
+	{
+		% (  case 2, circle) 0 ldiagdebugprint
+		0 0
+		dist1
+		0 0 x1 y1 ldiagangleto
+		0 0 x2 y2 ldiagangleto
+		2 copy eq { 360 add } if
+		2 copy 8 2 roll
+		5 index { arc } { arcn } ifelse
+		2 index 1 index
+		{ 90 sub } { 90 add } ifelse
+		2 index 2 index
+		{ 90 add } { 90 sub } ifelse
+		5 2 roll % res1 res2 ang1 ang2 clockwise
+		{ exch sub } { sub } ifelse
+		dup 0 le { 360 add } if
+		ldiagpi mul dist1 mul 180 div
+	}
+	{
+		% (  case 3, line) 0 ldiagdebugprint
+		x2 y2 lineto pop
+		x2 y2 x1 y1 ldiagangleto
+		x1 y1 x2 y2 ldiagangleto
+		x1 y1 x2 y2 ldiagdistance
+	} ifelse
+     } ifelse
+     4 -1 roll setmatrix
+     end
+  % (Leaving ldiagsetarc) 3 ldiagdebugprint
+} def
+
+% ldiagsetcurve: set up a Bezier curve from x0 y0 to x3 y3
+% and return arrowhead angles and length of curve (actually 0)
+% x0 y0 x1 y1 x2 y2 x3 y3 ldiagsetcurve <angle> <angle> <length>
+/ldiagsetcurve
+{ 8 copy curveto pop pop
+  ldiagangleto
+  5 1 roll
+  4 2 roll ldiagangleto
+  exch
+  0
+} def
+
+% ldiagsetpath: convert a Diag path into a PostScript path
+% [ shape ] ldiagsetpath 
+/ldiagsetpath
+{
+  10 dict begin
+    0 newpath
+    /prevseen false def
+    /curveseen false def
+    { ldiaggetnextitem
+      dup 0 eq { pop exit }
+      { 1 eq
+        { /curveseen true def
+	  /curve exch def
+	  curve length 0 eq { /curveseen false def } if
+        }
+        { /ycurr exch def
+	  /xcurr exch def
+	  prevseen
+	  { curveseen
+	    { curve length 4 eq
+	      { xprev yprev
+		curve 0 get curve 1 get
+		curve 2 get curve 3 get
+		xcurr ycurr
+		ldiagsetcurve pop pop pop
+	      }
+	      { xprev yprev xcurr ycurr
+	        curve length 1 ge { curve 0 get } { 0 } ifelse
+	        curve length 2 ge { curve 1 get } { 0 } ifelse
+	        curve length 3 ge { curve 2 get } { true } ifelse
+	        7 1 roll
+	        ldiagsetarc pop pop pop
+	      } ifelse
+	    }
+	    { xcurr ycurr lineto
+	    } ifelse
+	  }
+	  { xcurr ycurr moveto
+	  } ifelse
+	  /xprev xcurr def
+	  /yprev ycurr def
+	  /prevseen true def
+	  /curveseen false def
+        } ifelse
+      } ifelse
+    } loop pop pop
+  end
+} def
+
+% ldiagpaintpath: paint a path of the given shape
+% /paint [ shape ] ldiagpaintpath -
+/ldiagpaintpath
+{
+  ldiagsetpath cvx exec
+} def
+
+% stroke a path of the given shape in the given linestyle and dash length.
+% Return the origin and angle of the backward and forward arrow heads.
+% dashlength /linestyle [shape] ldiagdopath  [<point> <angle>] [<point> <angle>] 
+/ldiagdopath
+{
+  10 dict begin
+    0
+    /prevseen  false def
+    /curveseen false def
+    /backarrow []    def
+    /fwdarrow  []    def
+    {
+	ldiaggetnextitem
+	dup 0 eq { pop exit }
+	{
+	    1 eq
+	    {	/curveseen true def
+		/curve exch def
+		curve length 0 eq { /prevseen false def } if
+	    }
+	    {	/ycurr exch def
+		/xcurr exch def
+		prevseen
+		{   newpath xprev yprev moveto
+		    curveseen
+		    {	curve length 4 eq
+			{   xprev yprev
+			    curve 0 get curve 1 get
+			    curve 2 get curve 3 get
+			    xcurr ycurr ldiagsetcurve
+			}
+			{   xprev yprev xcurr ycurr
+			    curve length 1 ge { curve 0 get } { 0 } ifelse
+			    curve length 2 ge { curve 1 get } { 0 } ifelse
+			    curve length 3 ge { curve 2 get } { true } ifelse
+			    7 1 roll
+			    ldiagsetarc
+			} ifelse
+		    }
+		    {	xcurr ycurr lineto
+			xcurr ycurr xprev yprev ldiagangleto dup 180 sub
+			xprev yprev xcurr ycurr ldiagdistance
+		    } ifelse
+		    6 index 6 index cvx exec
+		    [ xprev yprev 5 -1 roll ]
+		    backarrow length 0 eq
+		    { /backarrow exch def }
+		    { pop } ifelse
+		    [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
+		} if
+		/xprev xcurr def
+		/yprev ycurr def
+		/prevseen true def
+		/curveseen false def
+	    } ifelse
+	} ifelse
+    } loop
+    pop pop pop pop
+    backarrow length 0 eq { [ 0 0 0 ] } { backarrow } ifelse
+    fwdarrow  length 0 eq { [ 0 0 0 ] } { fwdarrow  } ifelse
+  end
+} def
+
+
+% stroke a path of the given shape in the given linestyle and dash length.
+% dashlength [ /linestyle ] [shape] ldiagdosegpath  -
+/ldiagdosegpath
+{
+  12 dict begin
+    1 index /seg exch def
+    1 index length /seglength exch def
+    0 /segcount exch def
+    0
+    /prevseen  false def
+    /curveseen false def
+    /backarrow []    def
+    /fwdarrow  []    def
+    {
+	ldiaggetnextitem
+	dup 0 eq { pop exit }
+	{
+	    1 eq
+	    {	/curveseen true def
+		/curve exch def
+		curve length 0 eq { /prevseen false def } if
+	    }
+	    {	/ycurr exch def
+		/xcurr exch def
+		prevseen
+		{   newpath xprev yprev moveto
+		    curveseen
+		    {	curve length 4 eq
+			{   xprev yprev
+			    curve 0 get curve 1 get
+			    curve 2 get curve 3 get
+			    xcurr ycurr ldiagsetcurve
+			}
+			{   xprev yprev xcurr ycurr
+			    curve length 1 ge { curve 0 get } { 0 } ifelse
+			    curve length 2 ge { curve 1 get } { 0 } ifelse
+			    curve length 3 ge { curve 2 get } { true } ifelse
+			    7 1 roll
+			    ldiagsetarc
+			} ifelse
+		    }
+		    {	xcurr ycurr lineto
+			xcurr ycurr xprev yprev ldiagangleto dup 180 sub
+			xprev yprev xcurr ycurr ldiagdistance
+		    } ifelse
+		    6 index seg segcount seglength mod get cvx exec
+		    /segcount segcount 1 add def
+		    [ xprev yprev 5 -1 roll ]
+		    backarrow length 0 eq
+		    { /backarrow exch def }
+		    { pop } ifelse
+		    [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
+		} if
+		/xprev xcurr def
+		/yprev ycurr def
+		/prevseen true def
+		/curveseen false def
+	    } ifelse
+	} ifelse
+    } loop
+    pop pop pop pop
+  end
+} def
+
+% ldiagnodebegin: start of node parameters
+% ldiagnodebegin -
+/ldiagnodebegin
+{ % (Entering ldiagnodebegin) 0 ldiagdebugprint
+  ldiagmaxlabels dict begin 
+} def
+
+% ldiagnodeend: end of node parameters (so do the node)
+% <outline> <dashlength> <style> <linewidth> <paint> ldiagnodeend -
+/ldiagnodeend
+{
+  % (Entering ldiagnodeend) 0 ldiagdebugprint
+  end % matches begin in ldiagnodebegin
+  4 index gsave ldiagpaintpath grestore
+  3 index ldiagsetpath clip newpath
+  2 mul setlinewidth
+  3 -1 roll ldiagdosegpath
+  % (Leaving ldiagnodeend) 0 ldiagdebugprint
+} def
+
+% ldiaglinkbegin: start of link parameters
+% <direct> ldiaglinkbegin -
+/ldiaglinkbegin
+{ ldiagmaxlabels dict begin 
+  1 eq /direct exch def
+} def
+
+% ldiaglinkend: end of link parameters (so do the link)
+% <outline> <dashlength> <style> <linewidth> ldiaglinkend -
+/ldiaglinkend
+{
+  end % matches begin in ldiaglinkbegin
+  setlinewidth
+  3 -1 roll ldiagdosegpath
+} def
+
+% ldiagdoarrow: draw an arrow head of given form
+% dashlength /lstyle /pstyle hfrac height width [ <point> <angle> ] ldiagdoarrow -
+/ldiagdoarrow
+{  matrix currentmatrix 8 1 roll
+   dup 0 get 1 index 1 get translate
+   2 get rotate
+   [ 2 index neg 2 index 0 0
+     3 index 3 index neg
+     1 index 10 index mul 0
+     7 index 7 index ]
+   4 1 roll pop pop pop
+   dup 3 1 roll
+   gsave ldiagpaintpath grestore ldiagdopath pop pop
+   setmatrix
+} def
+
+% arrow head styles
+/ldiagopen     0.0 def
+/ldiaghalfopen 0.5 def
+/ldiagclosed   1.0 def
+
+% stroke no arrows, forward, back, and both
+/ldiagnoarrow { pop pop pop pop pop pop pop pop                        } def
+/ldiagforward { 7 -1 roll ldiagdoarrow pop                              } def
+/ldiagback    { 8 -2 roll pop ldiagdoarrow                              } def
+/ldiagboth    { 8 -1 roll 7 copy ldiagdoarrow pop 7 -1 roll ldiagdoarrow } def
+
+% ldiagprevious: return previous point on path
+/ldiagprevious
+{ ldiagisnumbertype
+  { 2 copy }
+  { ldiagisarraytype
+    { 2 index 2 index }
+    { 0 0 }
+    ifelse
+  } ifelse
+} def
+
+% Tag dictionary operators
+%
+% Diag's tag dictionaries are kept on the same stack as other dictionaries,
+% since there is nowhere else to put them.  However, they are managed like
+% a separate stack using the following operators:
+%
+%  <tag>  ldiagpushtagdict  -      Push a new, empty tag dictionary
+%         ldiagtoptagdict   dict   Find the top tag dictionary
+%         ldiagpoptagdict   -      Pop and destroy the top tag dictionary
+%         ldiagpopuptagdict -      Pop top tag dict and promote its entries
+%         ldiagdebugtagdict -      Debug print of dictionary stack
+%
+% They are distinguished from other dictionaries by containing /ldiagtagdict,
+% whose value is the <tag> which is used by ldiagpopuptagdict,
+% and they are hopefully never the target of any non-tag definition because
+% they are never the top dictionary, since push places the new dict second.
+
+/ldiagpushtagdict
+{ ldiagmaxlabels dict dup
+  currentdict end exch begin begin
+  exch /ldiagtagdict exch put
+} def
+
+/ldiagtoptagdict
+{ /ldiagtagdict where not
+  { (Diag internal error: no tag dictionary) show stop
+  } if
+} def
+
+/ldiagpoptagdict
+{
+  % (Entering poptagdict) 0 ldiagdebugprint
+  % ldiagdebugtagdict
+  mark
+  { currentdict end
+    dup /ldiagtagdict known
+    { exit
+    } if
+  } loop
+  pop
+  counttomark
+  { begin
+  } repeat
+  pop
+  % (Leaving poptagdict) 0 ldiagdebugprint
+  % ldiagdebugtagdict
+} def
+
+% promote labels from top tag dictionary to second top tag dictionary
+% each prefixed by <string>@ if <string> (value of /ldiagtagdict) is not empty
+% - ldiagpopuptagdict -
+/ldiagpopuptagdict
+{
+  ldiagtagdict
+  % (Entering ldiagpopuptagdict) 1 ldiagdebugprint
+  % ldiagdebugtagdict
+  ldiagtoptagdict ldiagpoptagdict ldiagtoptagdict exch
+  { exch 50 string cvs 3 index
+    dup length 0 ne
+    { (@) ldiagconcat
+    } if
+    exch ldiagconcat cvn exch 2 index 3 1 roll put
+  } forall
+  pop pop
+  % (Leaving ldiagpopuptagdict) 0 ldiagdebugprint
+  % ldiagdebugtagdict
+} def
+
+% debug tag dictionary stack
+/ldiagdebugtagdict
+{ (Entering ldiagdebugtagdict) 0 ldiagdebugprint
+  30 array dictstack
+  { dup /ldiagtagdict known
+    { dup /ldiagtagdict get 0 ldiagdebugprint
+      { pop 50 string cvs (   ) exch ldiagconcat
+	dup 0 ldiagdebugprint
+	pop
+      }
+      forall
+    }
+    { pop (other) 0 ldiagdebugprint
+    } ifelse
+  } forall
+  (Leaving ldiagdebugtagdict) 0 ldiagdebugprint
+} def
+
+% label a point in top tag dictionary:  <point> /name ldiagpointdef -
+/ldiagpointdef
+{
+  % (Entering ldiagpointdef) 3 ldiagdebugprint
+  [ 4 2 roll transform /itransform cvx ] cvx
+  ldiagtoptagdict 3 1 roll put
+  % (Leaving ldiagpointdef) 0 ldiagdebugprint
+} def
+
+% label an angle in top tag dictionary:  <angle> /name ldiagangledef -
+/ldiagangledef
+{
+  % (Entering ldiagangledef) 2 ldiagdebugprint
+  exch ldiagfixangle ldiagtoptagdict 3 1 roll put
+  % (Leaving ldiagangledef) 0 ldiagdebugprint
+} def
+
+% add CIRCUM operator with this body:  <array> ldiagcircumdef -
+/ldiagcircumdef
+{   % (Entering ldiagcircumdef) 1 ldiagdebugprint
+    /CIRCUM exch cvx
+    ldiagtoptagdict 3 1 roll put
+    % currentdict end
+    % 3 1 roll
+    % def
+    % begin
+    % (Leaving ldiagcircumdef) 0 ldiagdebugprint
+} def
+
+% show points (except CIRCUM and ANGLE): - ldiagshowpoints -
+/ldiagshowpoints
+{
+  % (Entering ldiagshowpoints) 0 ldiagdebugprint
+  ldiagtoptagdict
+  { 1 index 50 string cvs
+    (ldiagdebugpos) search
+    { pop pop pop pop pop }
+    {
+      (CIRCUM) search % if CIRCUM in key
+      { pop pop pop pop pop }
+      { 
+        (ANGLE) search % if ANGLE in key
+        {
+          pop pop pop pop pop
+        }
+        {
+          (ldiagtagdict) search
+          {
+            pop pop pop pop pop
+          }
+          {
+	    pop cvx exec
+	    newpath 2.0 pt 0 360 arc 0 setgray fill pop
+          } ifelse
+        } ifelse
+      } ifelse
+    } ifelse
+  } forall
+  % (Leaving ldiagshowpoints) 0 ldiagdebugprint
+} def
+
+
+/ldiagshowtags
+{
+  % (Entering ldiagshowtags) 0 ldiagdebugprint
+  ldiagtoptagdict
+  { 1 index 50 string cvs
+    % dup 0 ldiagdebugprint
+    (ldiagdebugpos) search
+    { pop pop pop pop pop }
+    {
+      (CIRCUM) search % if CIRCUM in key
+      { pop pop pop pop pop }
+      { 
+        (ANGLE) search % if ANGLE in key
+        {
+          pop pop pop pop pop
+        }
+        {
+          (ldiagtagdict) search
+          {
+            pop pop pop pop pop
+          }
+          {
+	    pop cvx exec 2 copy
+	    gsave
+	    newpath 2.0 pt 0 360 arc 0 setgray fill
+            /Times-Roman findfont 8 pt scalefont setfont
+            translate 40 rotate 0.2 cm 0.1 cm moveto 20 string cvs show
+	    grestore
+          } ifelse
+        } ifelse
+      } ifelse
+    } ifelse
+  } forall
+  % (Leaving ldiagshowtags) 0 ldiagdebugprint
+} def
+
+
+% show angles: - ldiagshowangles -
+/ldiagshowangles
+{
+  % (Entering ldiagshowangles) 0 ldiagdebugprint
+  ldiagtoptagdict
+  { 1 index 20 string cvs
+    % dup 0 ldiagdebugprint
+    (ldiagdebugpos) search
+    { pop pop pop pop pop }
+    {
+      (ldiagtagdict) search
+      {
+        pop pop pop pop pop
+      }
+      {
+        (CIRCUM) search % if CIRCUM in key
+        { pop pop pop pop pop }
+        { 
+          (@ANGLE) search % if ANGLE in key, draw the angle at the point
+          {
+            % (showing ANGLE) 5 ldiagdebugprint
+            gsave exch pop exch pop cvx
+            % (about to execute) 1 ldiagdebugprint
+            exec translate rotate 0.8 0.8 scale pop
+            newpath 0 0 2.0 pt 0 360 arc 0 setgray fill
+            newpath 4 pt 0 moveto 9 pt 0 lineto
+            9 pt 1.5 pt lineto 11 pt 0 lineto 9 pt -1.5 pt lineto
+            9 pt 0 lineto [] 0 setdash 4 pt setlinewidth 0 setlinejoin
+	    stroke grestore
+            % (finished ANGLE) 5 ldiagdebugprint
+          }
+          {
+            % else must be a point, we aren't showing those
+            pop pop pop
+          } ifelse
+        } ifelse
+      } ifelse
+    } ifelse
+  } forall
+  % (Leaving ldiagshowangles) 0 ldiagdebugprint
+} def
+
+% fix an angle to 0 <= res < 360:  <angle> ldiagfixangle <angle>
+/ldiagfixangle
+{
+  % (Entering ldiagfixangle) 1 ldiagdebugprint
+  { dup 0 ge { exit } if
+    360 add
+  } loop
+  { dup 360 lt { exit } if
+    360 sub
+  } loop
+  % (Leaving ldiagfixangle) 1 ldiagdebugprint
+} def
+
+% find point on circumference of box:  alpha a b ldiagboxcircum x y
+/ldiagboxcircum
+{
+  % (Entering ldiagboxcircum) 3 ldiagdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    ldiagfixangle /alpha exch def
+    0 0 a b ldiagangleto /theta exch def
+
+    % if alpha <= theta, return (a, a*tan(alpha))
+    alpha theta le
+    { a  a alpha sin mul alpha cos div }
+    {
+      % else if alpha <= 180 - theta, return (b*cot(alpha), b)
+      alpha 180 theta sub le
+      { b alpha cos mul alpha sin div  b }
+      {
+        % else if alpha <= 180 + theta, return (-a, -a*tan(alpha))
+        alpha 180 theta add le
+        { a neg  a neg alpha sin mul alpha cos div }
+        {
+	  % else if alpha <= 360 - theta, return (-b*cot(alpha), -b)
+	  alpha 360 theta sub le
+          { b neg alpha cos mul alpha sin div  b neg }
+	  {
+	    % else 360 - theta <= alpha, return (a, a*tan(alpha))
+	    a  a alpha sin mul alpha cos div
+	  } ifelse
+        } ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving ldiagboxcircum) 2 ldiagdebugprint
+} def
+
+% find quadratic roots (assume a != 0): a b c ldiagqroots x1 x2 2
+%                                                     or    x2 1
+%                                                     or       0
+/ldiagqroots
+{
+  4 dict begin
+    /c exch def
+    /b exch def
+    /a exch def
+    /disc b b mul 4 a c mul mul sub def
+    disc 0 lt
+    { 0
+    }
+    { disc 0 eq
+      { b neg 2 a mul div
+	1
+      }
+      { b neg disc sqrt add 2 a mul div
+        b neg disc sqrt sub 2 a mul div
+	2
+      }
+      ifelse
+    }
+    ifelse
+  end
+} def
+
+% work our which quadrant: <angle> ldiagquadrant <0-3>
+/ldiagquadrant
+{ dup 90 lt
+  { pop 0
+  }
+  { dup 180 lt
+    { pop 1
+    }
+    { 270 lt
+      { 2
+      }
+      { 3
+      } ifelse
+    } ifelse
+  } ifelse
+} def
+
+% find curvebox circum, assuming upper right quadrant: alpha a b xmk ldiagcb x y
+/ldiagcb
+{
+  6 dict begin
+    /xmk exch def
+    /b exch def
+    /a exch def
+    /alpha exch def
+    /theta1 0 0 a b xmk sub ldiagangleto def
+    /theta2 0 0 a xmk sub b ldiagangleto def
+    alpha theta1 le
+    { % if alpha <= theta1, return (a, a*tan(alpha))
+      a  a alpha sin mul alpha cos div
+    }
+    { alpha theta2 ge
+      { % else if alpha > theta2, return (b*cot(alpha), b)
+	b alpha cos mul alpha sin div  b
+      }
+      {
+	% else, return the intersection of line and circle
+	a xmk sub b xmk sub xmk  0 0 alpha ldiagcircleintersect
+	dup 0 eq
+	{ % should never happen, just return any reasonable point
+	  pop
+	  a b 0.5 ldiagpmul
+	}
+	{ 1 eq
+	  { % should never happen, just return the point on top of stack
+	  }
+	  { % the usual case, two points on stack, return the larger
+	    ldiagpmax
+	  } ifelse
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+} def
+
+% find point on circumference of curvebox: alpha a b xmk ldiagcurveboxcircum x y
+/ldiagcurveboxcircum
+{
+  % (Entering ldiagcurveboxcircum) 4 ldiagdebugprint
+  5 dict begin
+    /xmk exch def
+    /b exch def
+    /a exch def
+    ldiagfixangle /alpha exch def
+
+    % work out which quadrant we are in, and reflect accordingly
+    /quad alpha ldiagquadrant def
+    quad 0 eq
+    { alpha a b xmk ldiagcb
+    }
+    { quad 1 eq
+      { 180 alpha sub a b xmk ldiagcb exch neg exch
+      }
+      { quad 2 eq
+	{ alpha 180 sub a b xmk ldiagcb neg exch neg exch
+	}
+	{ 360 alpha sub a b xmk ldiagcb neg
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving ldiagcurveboxcircum) 2 ldiagdebugprint
+} def
+
+% find point on circumference of diamond:  alpha a b ldiagdiamondcircum x y
+/ldiagdiamondcircum
+{
+  % (Entering ldiagdiamondcircum) 3 ldiagdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    ldiagfixangle /alpha exch def
+    b alpha cos abs mul  a alpha sin abs mul  add  /denom exch def
+    a b mul alpha cos mul denom div
+    a b mul alpha sin mul denom div
+  end
+  % (Leaving ldiagdiamondcircum) 2 ldiagdebugprint
+} def
+
+% find point on circumference of ellipse:  alpha a b ldiagellipsecircum x y
+/ldiagellipsecircum
+{
+  % (Entering ldiagellipsecircum) 3 ldiagdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    ldiagfixangle /alpha exch def
+    b alpha cos mul dup mul  a alpha sin mul dup mul  add sqrt /denom exch def
+    a b mul alpha cos mul denom div
+    a b mul alpha sin mul denom div
+  end
+  % (Leaving ldiagellipsecircum) 2 ldiagdebugprint
+} def
+
+% find point on circumference of isosceles:  alpha a b ldiagisoscelescircum x y
+/ldiagisoscelescircum
+{
+  % (Entering ldiagisoscelescircum) 3 ldiagdebugprint
+  7 dict begin
+    /b exch def
+    /a exch def
+    /alpha exch ldiagfixangle def
+    /theta1 90 def
+    /theta2 a b 0.5 ldiagpmul 0 0 ldiagangleto def
+    /theta3 a b 0.5 ldiagpmul a 0 ldiagangleto def
+    alpha theta1 ge alpha theta2 le and
+    { 0 0 a 2 div b
+    }
+    { alpha theta2 ge alpha theta3 le and
+      { 0 0 a 0
+      }
+      { a 0 a 2 div b
+      } ifelse
+    } ifelse
+    a 2 div b 2 div 2 copy 1 ft alpha ldiagatangle ldiaglineintersect
+    a 2 div b 2 div 4 2 roll ldiagpsub
+  end
+  % (Leaving ldiagisoscelescircum) 2 ldiagdebugprint
+} def
+
+% find point of intersection of two lines each defined by two points
+% x1 y1 x2 y2  x3 y3 x4 y4  ldiaglineintersect x y
+/ldiaglineintersect
+{
+  % (Entering ldiaglineintersect) 8 ldiagdebugprint
+  13 dict begin
+    /y4 exch def
+    /x4 exch def
+    /y3 exch def
+    /x3 exch def
+    /y2 exch def
+    /x2 exch def
+    /y1 exch def
+    /x1 exch def
+    x2 x1 sub /x21 exch def
+    x4 x3 sub /x43 exch def
+    y2 y1 sub /y21 exch def
+    y4 y3 sub /y43 exch def
+    y21 x43 mul y43 x21 mul sub /det exch def
+  
+    % calculate x 
+    y21 x43 mul x1 mul
+    y43 x21 mul x3 mul sub
+    y3 y1 sub x21 mul x43 mul add
+    det div
+
+    % calculate y
+    x21 y43 mul y1 mul
+    x43 y21 mul y3 mul sub
+    x3 x1 sub y21 mul y43 mul add
+    det neg div
+
+  end
+  % (Leaving ldiaglineintersect) 2 ldiagdebugprint
+} def
+
+% find point on circumference of polygon
+% alpha radius num theta ldiagpolycircum x y
+/ldiagpolycircum
+{
+  % (Entering ldiagpolycircum) 4 ldiagdebugprint
+  13 dict begin
+    /theta exch def
+    /num exch def
+    /radius exch def
+    /alpha exch def
+
+    % calculate delta, the angle from theta to alpha
+    alpha theta sub ldiagfixangle
+
+    % calculate the angle which is the multiple of 360/num closest to delta
+    360 num div div truncate 360 num div mul theta add /anglea exch def
+
+    % calculate the next multiple of 360/num after anglea
+    anglea 360 num div add /angleb exch def
+
+    % intersect the line through these two points with the alpha line
+    anglea cos anglea sin  angleb cos angleb sin
+    0 0  alpha cos 2 mul alpha sin 2 mul
+    ldiaglineintersect radius ldiagpmul
+
+  end
+  % (Leaving ldiagpolycircum) 2 ldiagdebugprint
+} def
+
+% find point of intersection of a line and a circle
+% x0 y0 r  x1 y1 theta  ldiagcircleintersect xa ya xb yb 2
+%                                        or       xb yb 1
+%                                        or             0
+/ldiagcircleintersect
+{
+  % (Entering ldiagcircleintersect) 6 ldiagdebugprint
+  15 dict begin
+    /theta exch def
+    /y1    exch def
+    /x1    exch def
+    /r     exch def
+    /y0    exch def
+    /x0    exch def
+
+    % if sin(theta) = 0 then line is horizontal and y must be y1
+    theta sin abs 0.00001 lt
+    { 
+      /a 1 def
+      /b -2 x0 mul def
+      /c x0 dup mul y1 y0 sub dup mul add r dup mul sub def
+      a b c ldiagqroots dup
+      0 eq
+      { pop
+	0
+      }
+      { 1 eq
+	{ y1 1
+	}
+	{ y1 exch y1 2
+	} ifelse
+      } ifelse
+    }
+    {
+      /ct theta cos theta sin div def
+      /a ct ct mul 1 add def
+      /b ct x1 x0 sub mul y1 add y0 sub 2 mul def
+      /c x1 x0 sub dup mul y1 y0 sub dup mul add r dup mul sub def
+      a b c ldiagqroots dup
+      0 eq
+      { pop
+	0
+      }
+      { 1 eq
+	{ y1 add /yb exch def
+	  yb y1 sub ct mul x1 add /xb exch def
+	  xb yb 1
+	}
+	{ y1 add /ya exch def
+	  ya y1 sub ct mul x1 add /xa exch def
+	  y1 add /yb exch def
+	  yb y1 sub ct mul x1 add /xb exch def
+	  xa ya xb yb 2
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving ldiagcircleintersect) 1 ldiagdebugprint
+} def
+
+% find line which is the perpendicular bisector of two points, defined
+% by two points
+% x1 y1 x2 y2 ldiaglinebetween x3 y3 x4 y4
+/ldiaglinebetween
+{ % (Entering ldiaglinebetween) 4 ldiagdebugprint
+  /y2 exch def /x2 exch def
+  /y1 exch def /x1 exch def
+
+  % let x3, y3 be the point halfway between the two points
+  x1 y1 x2 y2 ldiagpadd 0.5 ldiagpmul
+  /y3 exch def /x3 exch def
+
+  % find a point perpendicular to x3, y3
+  x3 y3 50 x1 y1 x2 y2 ldiagangleto 90 dg add ldiagatangle
+
+  % plus x3 y3 gives the two points
+  x3 y3
+
+  % (Leaving ldiaglinebetween) 4 ldiagdebugprint
+} def
+
+% find <proc>@<string>:  <proc> <string> ldiagfindlabel <any> true
+%                                                      <proc> <string> false
+/ldiagfindlabel
+{
+  % (Entering ldiagfindlabel) 2 ldiagdebugprint
+  exch dup length 1 ne
+  { exch false
+    % (Leaving ldiagfindabel (length not 1)) 3 ldiagdebugprint
+  }
+  { dup 0 get type /nametype ne
+    { exch false
+      % (Leaving ldiagfindabel (not a name)) 3 ldiagdebugprint
+    }
+    { dup 0 get 50 string cvs (@) ldiagconcat 2 index ldiagconcat dup where
+      { exch get exch pop exch pop cvx exec true
+	% (Leaving ldiagfindlabel with success) 100 ldiagdebugprint
+      }
+      {
+	pop exch false
+	% (Leaving ldiagfindabel (concat not sensible)) 3 ldiagdebugprint
+      } ifelse
+    } ifelse
+  } ifelse
+} bind def
+
+% execute <proc>@<string> or else default:  <proc> <string> ldiagdolabel <various>
+/ldiagdolabel
+{
+  % (Entering ldiagdolabel) 2 ldiagdebugprint
+  ldiagfindlabel not
+  {
+    dup (CIRCUM) eq
+    { pop pop pop 0 0
+    }
+    {
+      dup (ANGLE) eq
+      { pop pop 0
+      }
+      { pop cvx exec
+      } ifelse
+    } ifelse
+  } if
+  % (Leaving ldiagdolabel) 2 ldiagdebugprint
+} bind def
+
+% execute a proc depending on whether number is negative, zero, or positive
+% procneg proczero procpos number ldiagsigncase <anything>
+/ldiagsigncase
+{
+  % (Entering ldiagsigncase) 4 ldiagdebugprint
+  dup 0 lt
+  { pop pop pop exec
+  }
+  { 0 gt
+    { exch pop exch pop exec
+    }
+    { pop exch pop exec
+    } ifelse
+  } ifelse
+  % (Leaving ldiagsigncase) 0 ldiagdebugprint
+} bind def
+
+% execute proci if angle is in ith quadrant
+% proc45 proc270 proc180 proc90 proc0 proc315 proc225 proc135 angle ldiagquadcase <anything>
+/ldiagquadcase
+{
+  % (Entering ldiagquadcase) 9 ldiagdebugprint
+  round ldiagfixangle cvi dup 90 mod 0 eq
+  { 90 idiv 4 add } { 90 idiv } ifelse
+  8 exch roll pop pop pop pop pop pop pop exec
+  % (Leaving ldiagquadcase) 0 ldiagdebugprint
+} bind def
+
+% decode Lout length into PostScript length
+% <string> ldiagdecodelength <number>
+/ldiagdecodelength
+{
+  % (Entering ldiagdecodelength) 1 ldiagdebugprint
+  (f) search
+  { exch pop exch pop cvr ft
+  }
+  { (c) search
+    { exch pop exch pop cvr cm
+    }
+    { (p) search
+      { exch pop exch pop cvr pt
+      }
+      { (m) search
+	{ exch pop exch pop cvr em
+	}
+	{ (s) search
+	  { exch pop exch pop cvr sp
+	  }
+	  { (v) search
+	    { exch pop exch pop cvr vs
+	    }
+	    { (i) search
+	      { exch pop exch pop cvr in
+	      }
+	      { pop 0
+	      } ifelse
+	    } ifelse
+	  } ifelse
+	} ifelse
+      } ifelse
+    } ifelse
+  } ifelse
+  % (Leaving ldiagdecodelength) 1 ldiagdebugprint
+} def
+
+% implement aabout function
+% logical form:  <circum> <extra> <centre> aabout <point>
+% actual form:   { <labelorpoint> } cvlit <length> [ <point> ] cvx aabout <point>
+/ldiagaabout
+{
+  /centre exch def
+  /extra exch def
+  /circum exch def
+
+  /ZXCTR [ centre ] cvx def
+  /ZFCTR [ circum (CTR) ldiagdolabel ] cvx def
+  /ZAREF ZFCTR ZXCTR ldiagangleto def
+  /ZAMIN 0 dg def
+  /ZPMIN [ circum (CTR) ldiagdolabel ZAREF ZAMIN sub
+	 circum (CIRCUM) ldiagdolabel ldiagpadd
+	 0 0 extra ZAREF ZAMIN sub ldiagatangle
+	 ldiagpadd ] cvx def
+
+  /ZAMAX 90 dg def
+  /ZPMAX [ circum (CTR) ldiagdolabel ZAREF ZAMAX sub
+	 circum (CIRCUM) ldiagdolabel ldiagpadd
+	 0 0 extra ZAREF ZAMAX sub ldiagatangle
+	 ldiagpadd ] cvx def
+
+  1 1 20
+  { /xval exch def
+    /ZAMID ZAMIN ZAMAX add 0.5 mul def
+    /ZPMID [ circum (CTR) ldiagdolabel ZAREF ZAMID sub
+	   circum (CIRCUM) ldiagdolabel ldiagpadd
+	   0 0 extra ZAREF ZAMID sub ldiagatangle
+	   ldiagpadd ] cvx def
+    ZPMID ZXCTR ldiagdistance ZFCTR ZXCTR ldiagdistance gt
+    {
+      /ZAMAX [ ZAMID ] cvx def
+      /ZPMAX [ ZPMID ] cvx def
+    }
+    {
+      /ZAMIN [ ZAMID ] cvx def
+      /ZPMIN [ ZPMID ] cvx def
+    } ifelse
+  } for
+  ZPMID
+} def
+
+% implement cabout function
+% logical form:  <circum> <extra> <centre> cabout <point>
+% actual form:   { <labelorpoint> } cvlit <length> [ <point> ] cvx cabout <point>
+/ldiagcabout
+{
+  /centre exch def
+  /extra exch def
+  /circum exch def
+
+  /ZXCTR [ centre ] cvx def
+  /ZFCTR [ circum (CTR) ldiagdolabel ] cvx def
+  /ZAREF ZFCTR ZXCTR ldiagangleto def
+  /ZAMIN 0 dg def
+  /ZPMIN [ circum (CTR) ldiagdolabel ZAREF ZAMIN add
+	 circum (CIRCUM) ldiagdolabel ldiagpadd
+	 0 0 extra ZAREF ZAMIN add ldiagatangle
+	 ldiagpadd ] cvx def
+
+  /ZAMAX 90 dg def
+  /ZPMAX [ circum (CTR) ldiagdolabel ZAREF ZAMAX add
+	 circum (CIRCUM) ldiagdolabel ldiagpadd
+	 0 0 extra ZAREF ZAMAX add ldiagatangle
+	 ldiagpadd ] cvx def
+
+  1 1 20
+  { /xval exch def
+    /ZAMID ZAMIN ZAMAX add 0.5 mul def
+    /ZPMID [ circum (CTR) ldiagdolabel ZAREF ZAMID add
+	   circum (CIRCUM) ldiagdolabel ldiagpadd
+	   0 0 extra ZAREF ZAMID add ldiagatangle
+	   ldiagpadd ] cvx def
+    ZPMID ZXCTR ldiagdistance ZFCTR ZXCTR ldiagdistance gt
+    {
+      /ZAMAX [ ZAMID ] cvx def
+      /ZPMAX [ ZPMID ] cvx def
+    }
+    {
+      /ZAMIN [ ZAMID ] cvx def
+      /ZPMIN [ ZPMID ] cvx def
+    } ifelse
+  } for
+  ZPMID
+} def
+
+% fromarrowlength toarrowlength { from } { to } xindent zindent ldiaglinepath -
+/ldiaglinepath
+{
+  % (entering ldiaglinepath) 0 ldiagdebugprint
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagangleto
+  /FROM@ANGLE ldiagangledef 
+  from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
+  /FROM ldiagpointdef
+
+  FROM@ANGLE /TO@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel TO@ANGLE 180 dg sub to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TO@ANGLE 180 dg sub ldiagatangle ldiagpadd /TO ldiagpointdef
+
+  FROM 0.5 ldiagpmul TO 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  FROM@ANGLE /LMID@ANGLE ldiagangledef
+
+  /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
+  FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+
+  /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
+  0 0 ZINDENT FROM@ANGLE ldiagatangle TO ldiagpsub /LTO ldiagpointdef
+  FROM@ANGLE /LTO@ANGLE ldiagangledef
+
+  direct { FROM TO } { FROM LFROM LMID LTO TO } ifelse
+
+  % (leaving ldiaglinepath) 0 ldiagdebugprint
+} def
+
+% fromarrowlength toarrowlength { from } { to } xindent zindent pathgap ldiagdoublelinepath -
+/ldiagdoublelinepath
+{
+  % (entering ldiagdoublelinepath) 0 ldiagdebugprint
+  /pathgap exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagangleto
+  /FROM@ANGLE ldiagangledef 
+  from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
+  /FROM ldiagpointdef
+
+  FROM@ANGLE /TO@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel TO@ANGLE 180 dg sub to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TO@ANGLE 180 dg sub ldiagatangle ldiagpadd /TO ldiagpointdef
+
+  FROM 0.5 ldiagpmul TO 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  FROM@ANGLE /LMID@ANGLE ldiagangledef
+
+  /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
+  FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+
+  /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
+  0 0 ZINDENT FROM@ANGLE ldiagatangle TO ldiagpsub /LTO ldiagpointdef
+  FROM@ANGLE /LTO@ANGLE ldiagangledef
+
+  direct {
+    FROM pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    TO   pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    []
+    FROM pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+    TO   pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+  }
+  {
+    FROM  pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    LFROM pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    LMID  pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    LTO   pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    TO    pathgap 2 div FROM@ANGLE 90 dg sub ldiagatangle
+    []
+    FROM  pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+    LFROM pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+    LMID  pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+    LTO   pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+    TO    pathgap 2 div FROM@ANGLE 90 dg add ldiagatangle
+  } ifelse
+
+  % (leaving ldiagdoublelinepath) 0 ldiagdebugprint
+} def
+
+% fromarrowlen toarrowlen { from } { to } xindent zindent bias ldiagacurvepath -
+/ldiagacurvepath
+{
+  % (entering ldiagacurvepath) 0 ldiagdebugprint
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  %/B1 bias 0.02 ft ldiagmax def
+  %/B2 from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagdistance 0.5 mul def
+  %/BIAS B1 B2 ldiagmin def
+  /BIAS bias 0.02 ft ldiagmax def
+  /XMID [ from (CTR) ldiagdolabel 0.5 ldiagpmul
+	  to   (CTR) ldiagdolabel 0.5 ldiagpmul ldiagpadd ] cvx def
+  /XTOP [ XMID 0 0 BIAS from (CTR) ldiagdolabel to (CTR) ldiagdolabel
+	  ldiagangleto 90 dg sub ldiagatangle ldiagpadd ] cvx def
+  /CTR [ from (CTR) ldiagdolabel XTOP ldiaglinebetween
+	 to   (CTR) ldiagdolabel XTOP ldiaglinebetween
+	 ldiaglineintersect ] cvx def
+
+  from fromarrowlength [ CTR ] cvx ldiagaabout /FROM ldiagpointdef
+  from (CTR) ldiagdolabel FROM ldiagdistance 0 gt
+  { from (CTR) ldiagdolabel FROM ldiagangleto
+  }
+  { CTR FROM ldiagangleto 90 dg add
+  } ifelse /FROM@ANGLE ldiagangledef
+
+  to toarrowlength [ CTR ] cvx ldiagcabout /TO ldiagpointdef
+  TO to (CTR) ldiagdolabel ldiagdistance 0 gt
+  { TO to (CTR) ldiagdolabel ldiagangleto
+  }
+  { CTR TO ldiagangleto 90 dg add
+  } ifelse /TO@ANGLE ldiagangledef
+
+  /RADIUS CTR FROM ldiagdistance def
+  CTR 0 0 RADIUS CTR FROM ldiagangleto 360 dg CTR TO ldiagangleto
+  add CTR FROM ldiagangleto sub cvi 360 mod 0.5 mul add
+  ldiagatangle ldiagpadd /LMID ldiagpointdef
+  CTR LMID ldiagangleto 90 dg add /LMID@ANGLE ldiagangledef
+
+  /XINDENT xindent FROM LMID ldiagdistance ldiagmin def
+  CTR 0 0 RADIUS CTR FROM 0 0 XINDENT FROM@ANGLE ldiagatangle
+  ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  CTR LFROM ldiagangleto 90 dg add /LFROM@ANGLE ldiagangledef
+
+  /ZINDENT zindent TO LMID ldiagdistance ldiagmin def
+  CTR 0 0 RADIUS CTR TO 0 0 ZINDENT TO@ANGLE 180 dg add
+  ldiagatangle ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LTO ldiagpointdef
+  CTR LTO ldiagangleto 90 dg add /LTO@ANGLE ldiagangledef
+
+  direct
+  { FROM [CTR] TO }
+  { FROM [CTR] LFROM [CTR] LMID [CTR] LTO [CTR] TO }
+  ifelse
+
+  % (leaving ldiagacurvepath) 0 ldiagdebugprint
+} def
+
+% fromarrowlen toarrowlen { from } { to } xindent zindent bias ldiagccurvepath -
+/ldiagccurvepath
+{
+  % (entering ldiagccurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  %/B1 bias 0.02 ft ldiagmax def
+  %/B2 from (CTR) ldiagdolabel to (CTR) ldiagdolabel ldiagdistance 0.5 mul def
+  %/BIAS B1 B2 ldiagmin def
+  /BIAS bias 0.02 ft ldiagmax def
+  /XMID [ from (CTR) ldiagdolabel 0.5 ldiagpmul
+	to (CTR) ldiagdolabel 0.5 ldiagpmul ldiagpadd ] cvx def
+  /XTOP [ XMID 0 0 BIAS from (CTR) ldiagdolabel to (CTR) ldiagdolabel
+	ldiagangleto 90 dg add ldiagatangle ldiagpadd ] cvx def
+  /CTR [ from (CTR) ldiagdolabel XTOP ldiaglinebetween
+         to (CTR) ldiagdolabel XTOP ldiaglinebetween ldiaglineintersect ] cvx def
+
+  from fromarrowlength [ CTR ] cvx ldiagcabout /FROM ldiagpointdef
+  from (CTR) ldiagdolabel FROM ldiagdistance 0 gt
+  { from (CTR) ldiagdolabel FROM ldiagangleto }
+  { CTR FROM ldiagangleto 90 dg sub }
+  ifelse /FROM@ANGLE ldiagangledef
+
+  to toarrowlength [ CTR ] cvx ldiagaabout /TO ldiagpointdef
+  TO to (CTR) ldiagdolabel ldiagdistance 0 gt
+  { TO to (CTR) ldiagdolabel ldiagangleto }
+  { CTR TO ldiagangleto 90 dg sub }
+  ifelse /TO@ANGLE ldiagangledef
+
+  /RADIUS [ CTR FROM ldiagdistance ] cvx def
+  CTR 0 0 RADIUS CTR TO ldiagangleto 360 dg CTR FROM ldiagangleto add
+  CTR TO ldiagangleto sub cvi 360 cvi mod 2 div add ldiagatangle
+  ldiagpadd /LMID ldiagpointdef
+  CTR LMID ldiagangleto 90 dg sub /LMID@ANGLE ldiagangledef
+
+  /XINDENT [ xindent FROM LMID ldiagdistance ldiagmin ] cvx def
+  CTR 0 0 RADIUS CTR FROM 0 0 XINDENT FROM@ANGLE ldiagatangle ldiagpadd
+  ldiagangleto ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  CTR LFROM ldiagangleto 90 dg sub /LFROM@ANGLE ldiagangledef
+
+  /ZINDENT [ zindent TO LMID ldiagdistance ldiagmin ] cvx def
+  CTR 0 0 RADIUS CTR TO 0 0 ZINDENT TO@ANGLE 180 dg add ldiagatangle
+  ldiagpadd ldiagangleto ldiagatangle ldiagpadd /LTO ldiagpointdef
+  CTR LTO ldiagangleto 90 dg sub /LTO@ANGLE ldiagangledef
+
+  direct
+  { FROM [CTR clockwise] TO }
+  { FROM [CTR clockwise] LFROM [CTR clockwise]
+  LMID [CTR clockwise] LTO [CTR clockwise] TO }
+  ifelse
+  % (leaving ldiagccurvepath) 0 ldiagdebugprint
+} def
+
+
+% farr tarr { from } { to } xindent zindent [frompt] [topt] ldiagbezierpath -
+/ldiagbezierpath
+{
+  % (entering ldiagbezierpath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  cvx /topt exch def
+  cvx /frompt exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel frompt ldiagangleto /FROM@ANGLE ldiagangledef
+  from (CTR) ldiagdolabel FROM@ANGLE from (CIRCUM) ldiagdolabel
+  ldiagpadd 0 0 fromarrowlength FROM@ANGLE ldiagatangle ldiagpadd
+  /FROM ldiagpointdef
+
+  topt to (CTR) ldiagdolabel ldiagangleto /TO@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel TO@ANGLE 180 dg add to (CIRCUM) ldiagdolabel
+  ldiagpadd 0 0 toarrowlength TO@ANGLE 180 dg add ldiagatangle ldiagpadd
+  /TO ldiagpointdef
+
+  FROM 0 0 xindent FROM@ANGLE ldiagatangle ldiagpadd
+  /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+
+  TO 0 0 zindent TO@ANGLE 180 dg add ldiagatangle ldiagpadd
+  /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+
+  FROM TO ldiagpadd frompt ldiagpadd topt ldiagpadd 0.25 ldiagpmul
+  /LMID ldiagpointdef
+
+  FROM [frompt topt] TO
+
+  % (leaving ldiagbezierpath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+
+% farr tarr { from } { to } xindent zindent ldiagvhlinepath -
+/ldiagvhlinepath
+{
+  % (entering ldiagvhlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /CTR [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel exch pop ] cvx def
+  /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+  /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+
+  from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
+  FANG /FROM@ANGLE ldiagangledef
+
+  to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
+  TANG 180 dg add /TO@ANGLE ldiagangledef
+
+  /FDIST [ FROM CTR ldiagdistance ] cvx def
+  /TDIST [ TO CTR ldiagdistance ] cvx def
+  /XINDENT [ xindent FDIST ldiagmin ] cvx def
+  /ZINDENT [ zindent TDIST ldiagmin ] cvx def
+  FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+
+  CTR /LMID ldiagpointdef
+  0 0 1 ft FANG 180 dg add ldiagatangle
+  0 0 1 ft TANG 180 dg add ldiagatangle
+  ldiagangleto /LMID@ANGLE ldiagangledef
+
+  FROM LFROM LMID LTO TO
+
+  % (leaving ldiagvhlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent radius ldiagvhcurvepath -
+/ldiagvhcurvepath
+{
+  % (entering ldiagvhcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /CTR [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel exch pop ] cvx def
+  /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+  /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+
+  from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
+  FANG /FROM@ANGLE ldiagangledef
+
+  to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
+  TANG 180 dg add /TO@ANGLE ldiagangledef
+
+  /FDIST [ FROM CTR ldiagdistance ] cvx def
+  /TDIST [ TO CTR ldiagdistance ] cvx def
+  /RADIUS [ radius FDIST TDIST ldiagmin ldiagmin ] cvx def
+  /XINDENT [ xindent FDIST RADIUS sub ldiagmin ] cvx def
+  /ZINDENT [ zindent TDIST RADIUS sub ldiagmin ] cvx def
+
+  FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+
+  /FCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd ] cvx def
+  /TCTR [ CTR 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
+  /XCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd
+              0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
+  XCTR 0 0 RADIUS XCTR CTR ldiagangleto ldiagatangle ldiagpadd
+  /LMID ldiagpointdef
+  FCTR TCTR ldiagangleto /LMID@ANGLE ldiagangledef
+
+  FROM LFROM FCTR
+  {[XCTR clockwise]} {} {} {} {} {[XCTR]} {[XCTR clockwise]} {[XCTR]}
+  FCTR TCTR ldiagangleto ldiagquadcase
+  TCTR LTO TO
+
+  % (leaving ldiagvhcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent ldiaghvlinepath -
+/ldiaghvlinepath
+{
+  % (entering ldiaghvlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /CTR [ to (CTR) ldiagdolabel pop from (CTR) ldiagdolabel exch pop ] cvx def
+  /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+  /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+
+  from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
+  FANG /FROM@ANGLE ldiagangledef
+
+  to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
+  TANG 180 dg add /TO@ANGLE ldiagangledef
+
+  /FDIST [ FROM CTR ldiagdistance ] cvx def
+  /TDIST [ TO CTR ldiagdistance ] cvx def
+  /XINDENT [ xindent FDIST ldiagmin ] cvx def
+  /ZINDENT [ zindent TDIST ldiagmin ] cvx def
+
+  FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+
+  CTR /LMID ldiagpointdef
+  0 0 1 ft FANG 180 dg add ldiagatangle
+  0 0 1 ft TANG 180 dg add ldiagatangle ldiagangleto
+  /LMID@ANGLE ldiagangledef
+
+  FROM LFROM LMID LTO TO
+
+  % (leaving ldiaghvlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent radius ldiaghvcurvepath -
+/ldiaghvcurvepath
+{
+  % (entering ldiaghvcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /CTR [ to (CTR) ldiagdolabel pop from (CTR) ldiagdolabel exch pop ] cvx def
+  /FANG [ from (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+  /TANG [ to (CTR) ldiagdolabel CTR ldiagangleto ] cvx def
+
+  from (CTR) ldiagdolabel FANG from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength FANG ldiagatangle ldiagpadd /FROM ldiagpointdef
+  FANG /FROM@ANGLE ldiagangledef
+
+  to (CTR) ldiagdolabel TANG to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength TANG ldiagatangle ldiagpadd /TO ldiagpointdef
+  TANG 180 dg add /TO@ANGLE ldiagangledef
+
+  /FDIST [ FROM CTR ldiagdistance ] cvx def
+  /TDIST [ TO CTR ldiagdistance ] cvx def
+  /RADIUS [ radius FDIST TDIST ldiagmin ldiagmin ] cvx def
+  /XINDENT [ xindent FDIST RADIUS sub ldiagmin ] cvx def
+  /ZINDENT [ zindent TDIST RADIUS sub ldiagmin ] cvx def
+  FROM 0 0 XINDENT FANG ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  TO 0 0 ZINDENT TANG ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+
+  /FCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd ] cvx def
+  /TCTR [ CTR 0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
+  /XCTR [ CTR 0 0 RADIUS FROM@ANGLE 180 dg add ldiagatangle ldiagpadd
+	      0 0 RADIUS TO@ANGLE ldiagatangle ldiagpadd ] cvx def
+  XCTR 0 0 RADIUS XCTR CTR ldiagangleto ldiagatangle ldiagpadd
+  /LMID ldiagpointdef
+  FCTR TCTR ldiagangleto /LMID@ANGLE ldiagangledef
+
+  FROM LFROM FCTR
+  {[XCTR]} {} {} {} {} {[XCTR clockwise]} {[XCTR]} {[XCTR clockwise]}
+  FCTR TCTR ldiagangleto ldiagquadcase
+  TCTR LTO TO
+
+  % (leaving ldiaghvcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias ldiaglvrlinepath -
+/ldiaglvrlinepath
+{
+  % (entering ldiaglvrlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel 180 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength 180 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
+  180 dg /FROM@ANGLE ldiagangledef
+
+  to (CTR) ldiagdolabel 180 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength 180 dg ldiagatangle ldiagpadd /TO ldiagpointdef
+  0 dg /TO@ANGLE ldiagangledef
+
+  /XLEFT [ FROM pop TO pop ldiagmin bias sub ] cvx def
+  XLEFT FROM exch pop /P1 ldiagpointdef
+  XLEFT TO exch pop /P2 ldiagpointdef
+  /VERT [ P1 P2 ldiagangleto ] cvx def
+  P1 P1 0 0 1 ft 180 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
+  ldiagpadd ldiagangleto /P1@ANGLE ldiagangledef
+  P2 P2 0 0 1 ft 0 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
+  ldiagpadd ldiagangleto /P2@ANGLE ldiagangledef
+
+  P1 0.5 ldiagpmul P2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  VERT /LMID@ANGLE ldiagangledef
+
+  /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
+  /ZINDENT [ zindent P2 TO ldiagdistance ldiagmin ] cvx def
+  XINDENT 0 FROM ldiagpsub /LFROM ldiagpointdef
+  180 dg /LFROM@ANGLE ldiagangledef
+  ZINDENT 0 TO ldiagpsub /LTO ldiagpointdef
+  0 dg /LTO@ANGLE ldiagangledef
+
+  FROM LFROM P1 LMID P2 LTO TO
+
+  % (leaving ldiaglvrlinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias radius ldiaglvrcurvepath -
+/ldiaglvrcurvepath
+{
+  % (entering ldiaglvrcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel 180 dg from (CIRCUM) ldiagdolabel ldiagpadd 0 0
+  fromarrowlength 180 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
+  180 dg /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel 180 dg to (CIRCUM) ldiagdolabel ldiagpadd 0 0
+  toarrowlength 180 dg ldiagatangle ldiagpadd /TO ldiagpointdef
+  0 dg /TO@ANGLE ldiagangledef
+  /XLEFT [ FROM pop TO pop ldiagmin bias sub ] cvx def
+  /XP1 [ XLEFT FROM exch pop ] cvx def
+  /XP2 [ XLEFT TO exch pop ] cvx def
+  /VERT [ XP1 XP2 ldiagangleto ] cvx def
+  XP1 0.5 ldiagpmul XP2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  VERT /LMID@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM XP1 ldiagdistance ldiagmin ] cvx def
+  /ZINDENT [ zindent XP2 TO ldiagdistance ldiagmin ] cvx def
+  XINDENT 0 FROM ldiagpsub /LFROM ldiagpointdef
+  180 dg /LFROM@ANGLE ldiagangledef
+  ZINDENT 0 TO ldiagpsub /LTO ldiagpointdef
+  0 dg /LTO@ANGLE ldiagangledef
+  /RADIUS [ radius XP1 XP2 ldiagdistance 2 div ldiagmin ] cvx def
+  /XP1PRE [ XP1 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
+  /XP1POST [ XP1 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
+  /XP1CTR [ XP1PRE 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
+  XP1CTR 0 0 RADIUS XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd
+  /P1 ldiagpointdef
+  XP1PRE XP1POST ldiagangleto /P1@ANGLE ldiagangledef
+  /XP2PRE [ 0 0 RADIUS VERT ldiagatangle XP2 ldiagpsub ] cvx def
+  /XP2POST [ XP2 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
+  /XP2CTR [ XP2PRE 0 0 RADIUS 0 dg ldiagatangle ldiagpadd ] cvx def
+  XP2CTR 0 0 RADIUS XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd
+  /P2 ldiagpointdef
+  XP2PRE XP2POST ldiagangleto /P2@ANGLE ldiagangledef
+  FROM LFROM XP1PRE
+  {  } { [XP1CTR] P1 [XP1CTR] } {  } { [XP1CTR clockwise] P1 [XP1CTR clockwise] }
+  {  } {  } {  } {  } VERT round ldiagquadcase
+  XP1POST LMID XP2PRE
+  {  } { [XP2CTR] P2 [XP2CTR] } {  } { [XP2CTR clockwise] P2 [XP2CTR clockwise] }
+  {  } {  } {  } {  } VERT round ldiagquadcase
+  XP2POST LTO TO
+
+  % (leaving ldiaglvrcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias ldiagrvllinepath -
+/ldiagrvllinepath
+{
+  % (entering ldiagrvllinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel 0 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength 0 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
+  0 dg /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel 0 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength 0 dg ldiagatangle ldiagpadd /TO ldiagpointdef
+  180 dg /TO@ANGLE ldiagangledef
+  /XRIGHT [ FROM pop TO pop ldiagmax bias add ] cvx def
+  XRIGHT FROM exch pop /P1 ldiagpointdef
+  XRIGHT TO exch pop /P2 ldiagpointdef
+  /VERT [ P1 P2 ldiagangleto ] cvx def
+  P1 P1 0 0 1 ft 0 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
+  ldiagpadd ldiagangleto /P1@ANGLE ldiagangledef
+  P2 P2 0 0 1 ft 180 dg ldiagatangle ldiagpadd 0 0 1 ft VERT ldiagatangle
+  ldiagpadd ldiagangleto /P2@ANGLE ldiagangledef
+  P1 0.5 ldiagpmul P2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  VERT /LMID@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
+  /ZINDENT [ zindent P2 TO ldiagdistance ldiagmin ] cvx def
+  FROM XINDENT 0 ldiagpadd /LFROM ldiagpointdef
+  0 dg /LFROM@ANGLE ldiagangledef
+  TO ZINDENT 0 ldiagpadd /LTO ldiagpointdef
+  180 dg /LTO@ANGLE ldiagangledef
+  FROM LFROM P1 LMID P2 LTO TO
+
+  % (leaving ldiagrvllinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+
+% farr tarr { from } { to } xindent zindent bias radius ldiagrvlcurvepath -
+/ldiagrvlcurvepath
+{
+  % (entering ldiagrvlcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  from (CTR) ldiagdolabel 0 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength 0 dg ldiagatangle ldiagpadd /FROM ldiagpointdef
+  0 dg /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel 0 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength 0 dg ldiagatangle ldiagpadd /TO ldiagpointdef
+  180 dg /TO@ANGLE ldiagangledef
+  /XRIGHT [ FROM pop TO pop ldiagmax bias add ] cvx def
+  /XP1 [ XRIGHT FROM exch pop ] cvx def
+  /XP2 [ XRIGHT TO exch pop ] cvx def
+  /VERT [ XP1 XP2 ldiagangleto ] cvx def
+  XP1 0.5 ldiagpmul XP2 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  VERT /LMID@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM XP1 ldiagdistance ldiagmin ] cvx def
+  /ZINDENT [ zindent XP2 TO ldiagdistance ldiagmin ] cvx def
+  FROM XINDENT 0 ldiagpadd /LFROM ldiagpointdef
+  0 dg /LFROM@ANGLE ldiagangledef
+  TO ZINDENT 0 ldiagpadd /LTO ldiagpointdef
+  180 dg /LTO@ANGLE ldiagangledef
+  /RADIUS [ radius XP1 XP2 ldiagdistance 0.5 mul ldiagmin ] cvx def
+  /XP1PRE [ XP1 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
+  /XP1POST [ XP1 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
+  /XP1CTR [ XP1PRE 0 0 RADIUS VERT ldiagatangle ldiagpadd ] cvx def
+  XP1CTR 0 0 RADIUS XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd
+  /P1 ldiagpointdef
+  XP1PRE XP1POST ldiagangleto /P1@ANGLE ldiagangledef
+  /XP2PRE [ 0 0 RADIUS VERT ldiagatangle XP2 ldiagpsub ] cvx def
+  /XP2POST [ XP2 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
+  /XP2CTR [ XP2PRE 0 0 RADIUS 180 dg ldiagatangle ldiagpadd ] cvx def
+  XP2CTR 0 0 RADIUS XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd
+  /P2 ldiagpointdef
+  XP2PRE XP2POST ldiagangleto /P2@ANGLE ldiagangledef
+  FROM LFROM XP1PRE
+  {} {[XP1CTR clockwise] P1 [XP1CTR clockwise]} {} {[XP1CTR] P1 [XP1CTR]}
+  {} {} {} {} VERT round ldiagquadcase
+  XP1POST LMID XP2PRE
+  {} {[XP2CTR clockwise] P2 [XP2CTR clockwise]} {} {[XP2CTR] P2 [XP2CTR]}
+  {} {} {} {} VERT round ldiagquadcase
+  XP2POST LTO TO
+
+  % (leaving ldiagrvlcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias fbias tbias ldiagdwraplinepath -
+/ldiagdwraplinepath
+{
+  % (entering ldiagdwraplinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /tbias exch def
+  /fbias exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop
+  lt { 180 dg } { 0 dg } ifelse ] cvx def
+  from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd 0 0
+  fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
+  DIRN /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
+  DIRN /TO@ANGLE ldiagangledef
+  FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd /P1 ldiagpointdef
+  DIRN 180 dg eq { 225 dg } { -45 dg } ifelse /P1@ANGLE ldiagangledef
+  TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd
+  /P4 ldiagpointdef
+  DIRN 180 dg eq { 135 dg } { 45 dg } ifelse /P4@ANGLE ldiagangledef
+  /YC [ from (CTR) ldiagdolabel 270 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop to (CTR) ldiagdolabel 270 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop ldiagmin bias 0 ldiagmax sub ] cvx def
+  P1 pop YC /P2 ldiagpointdef
+  P4@ANGLE 180 dg sub /P2@ANGLE ldiagangledef
+  P4 pop YC /P3 ldiagpointdef
+  P1@ANGLE 180 dg sub /P3@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
+  FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  /ZINDENT [ zindent TO P4 ldiagdistance ldiagmin ] cvx def
+  TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+  P2 0.5 ldiagpmul P3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  DIRN 180 dg sub /LMID@ANGLE ldiagangledef
+  FROM P1 P2 P3 P4 TO
+
+  % (leaving ldiagdwraplinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias fbias tbias radius
+% ldiagdwrapcurvepath -
+/ldiagdwrapcurvepath
+{
+  % (entering ldiagdwrapcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /tbias exch def
+  /fbias exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
+  { 180 dg } { 0 dg } ifelse ] cvx def
+  /CLOCK [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
+  { anticlockwise } { clockwise } ifelse ] cvx def
+  from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
+  DIRN /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
+  DIRN /TO@ANGLE ldiagangledef
+  /XP1 [ FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd ] cvx def
+  /XP4 [ TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd ] cvx def
+  /YC [ from (CTR) ldiagdolabel 270 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop to (CTR) ldiagdolabel 270 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop ldiagmin bias 0 ldiagmax sub ] cvx def
+  /XP2 [ XP1 pop YC ] cvx def
+  /XP3 [ XP4 pop YC ] cvx def
+  /RP1 [ radius XP1 FROM ldiagdistance XP1 XP2 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP1PRE [ XP1 0 0 RP1 XP1 FROM ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP1POST [ XP1 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP1CTR [ XP1PRE 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP1CTR 0 0 RP1 XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd /P1 ldiagpointdef
+  XP1CTR P1 ldiagangleto DIRN add 90 dg sub /P1@ANGLE ldiagangledef
+  /RP2 [ radius XP1 XP2 ldiagdistance 2 div XP2 XP3 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP2PRE [ XP2 0 0 RP2 XP2 XP1 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP2POST [ XP2 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP2CTR [ XP2PRE 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP2CTR 0 0 RP2 XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd /P2 ldiagpointdef
+  XP2CTR P2 ldiagangleto DIRN add 90 dg sub /P2@ANGLE ldiagangledef
+  /RP3 [ radius XP2 XP3 ldiagdistance 2 div XP3 XP4 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP3PRE [ XP3 0 0 RP3 XP3 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP3POST [ XP3 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP3CTR [ XP3PRE 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP3CTR 0 0 RP3 XP3CTR XP3 ldiagangleto ldiagatangle ldiagpadd /P3 ldiagpointdef
+  XP3CTR P3 ldiagangleto DIRN add 90 dg sub /P3@ANGLE ldiagangledef
+  /RP4 [ radius XP4 XP3 ldiagdistance 2 div XP4 TO ldiagdistance
+  ldiagmin ldiagmin ] cvx def
+  /XP4PRE [ XP4 0 0 RP4 XP4 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP4POST [ XP4 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP4CTR [ XP4PRE 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP4CTR 0 0 RP4 XP4CTR XP4 ldiagangleto ldiagatangle ldiagpadd /P4 ldiagpointdef
+  XP4CTR P4 ldiagangleto DIRN add 90 dg sub /P4@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM XP1PRE ldiagdistance ldiagmin ] cvx def
+  FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  XP2 0.5 ldiagpmul XP3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  DIRN 180 dg sub /LMID@ANGLE ldiagangledef
+  /ZINDENT [ zindent TO XP4POST ldiagdistance ldiagmin ] cvx def
+  TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+  FROM LFROM
+  XP1PRE [XP1CTR CLOCK] XP1POST
+  XP2PRE [XP2CTR CLOCK] XP2POST
+  LMID
+  XP3PRE [XP3CTR CLOCK] XP3POST
+  XP4PRE [XP4CTR CLOCK] XP4POST
+  LTO TO
+
+  % (leaving ldiagdwrapcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias fbias tbias ldiaguwraplinepath -
+/ldiaguwraplinepath
+{
+  % (entering ldiaguwraplinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /tbias exch def
+  /fbias exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
+  { 180 dg } { 0 dg } ifelse ] cvx def
+  from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
+  DIRN /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
+  DIRN /TO@ANGLE ldiagangledef
+  FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd /P1 ldiagpointdef
+  DIRN 180 dg eq { 135 dg } { 45 dg } ifelse /P1@ANGLE ldiagangledef
+  TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd
+  /P4 ldiagpointdef
+  DIRN 180 dg eq { 225 dg } { -45 dg } ifelse /P4@ANGLE ldiagangledef
+  /YC [ from (CTR) ldiagdolabel 90 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop to (CTR) ldiagdolabel 90 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop ldiagmax bias 0 ldiagmax add ] cvx def
+  P1 pop YC /P2 ldiagpointdef
+  P4@ANGLE 180 dg sub /P2@ANGLE ldiagangledef
+  P4 pop YC /P3 ldiagpointdef
+  P1@ANGLE 180 dg sub /P3@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM P1 ldiagdistance ldiagmin ] cvx def
+  FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  /ZINDENT [ zindent TO P4 ldiagdistance ldiagmin ] cvx def
+  TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+  P2 0.5 ldiagpmul P3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  DIRN 180 dg sub /LMID@ANGLE ldiagangledef
+  FROM P1 P2 P3 P4 TO
+
+  % (leaving ldiaguwraplinepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% farr tarr { from } { to } xindent zindent bias fbias tbias radius
+% ldiaguwrapcurvepath -
+/ldiaguwrapcurvepath
+{
+  % (entering ldiaguwrapcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+  /radius exch def
+  /tbias exch def
+  /fbias exch def
+  /bias exch def
+  /zindent exch def
+  /xindent exch def
+  cvlit /to exch def
+  cvlit /from exch def
+  /toarrowlength exch def
+  /fromarrowlength exch def
+
+  /DIRN [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
+  { 180 dg } { 0 dg } ifelse ] cvx def
+  /CLOCK [ from (CTR) ldiagdolabel pop to (CTR) ldiagdolabel pop lt
+  { clockwise } { anticlockwise } ifelse ] cvx def
+  from (CTR) ldiagdolabel DIRN from (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 fromarrowlength DIRN ldiagatangle ldiagpadd /FROM ldiagpointdef
+  DIRN /FROM@ANGLE ldiagangledef
+  to (CTR) ldiagdolabel DIRN 180 dg add to (CIRCUM) ldiagdolabel ldiagpadd
+  0 0 toarrowlength DIRN 180 dg add ldiagatangle ldiagpadd /TO ldiagpointdef
+  DIRN /TO@ANGLE ldiagangledef
+  /XP1 [ FROM 0 0 fbias 0 ldiagmax DIRN ldiagatangle ldiagpadd ] cvx def
+  /XP4 [ TO 0 0 tbias 0 ldiagmax DIRN 180 dg add ldiagatangle ldiagpadd ] cvx def
+  /YC [ from (CTR) ldiagdolabel 90 dg from (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop to (CTR) ldiagdolabel 90 dg to (CIRCUM) ldiagdolabel ldiagpadd
+  exch pop ldiagmax bias 0 ldiagmax add ] cvx def
+  /XP2 [ XP1 pop YC ] cvx def
+  /XP3 [ XP4 pop YC ] cvx def
+  /RP1 [ radius XP1 FROM ldiagdistance XP1 XP2 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP1PRE [ XP1 0 0 RP1 XP1 FROM ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP1POST [ XP1 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP1CTR [ XP1PRE 0 0 RP1 XP1 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP1CTR 0 0 RP1 XP1CTR XP1 ldiagangleto ldiagatangle ldiagpadd /P1 ldiagpointdef
+  XP1CTR P1 ldiagangleto DIRN add 90 dg add /P1@ANGLE ldiagangledef
+  /RP2 [ radius XP1 XP2 ldiagdistance 2 div XP2 XP3 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP2PRE [ XP2 0 0 RP2 XP2 XP1 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP2POST [ XP2 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP2CTR [ XP2PRE 0 0 RP2 XP2 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP2CTR 0 0 RP2 XP2CTR XP2 ldiagangleto ldiagatangle ldiagpadd /P2 ldiagpointdef
+  XP2CTR P2 ldiagangleto DIRN add 90 dg add /P2@ANGLE ldiagangledef
+  /RP3 [ radius XP2 XP3 ldiagdistance 2 div XP3 XP4 ldiagdistance 2 div
+  ldiagmin ldiagmin ] cvx def
+  /XP3PRE [ XP3 0 0 RP3 XP3 XP2 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP3POST [ XP3 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP3CTR [ XP3PRE 0 0 RP3 XP3 XP4 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP3CTR 0 0 RP3 XP3CTR XP3 ldiagangleto ldiagatangle ldiagpadd /P3 ldiagpointdef
+  XP3CTR P3 ldiagangleto DIRN add 90 dg add /P3@ANGLE ldiagangledef
+  /RP4 [ radius XP4 XP3 ldiagdistance 2 div XP4 TO ldiagdistance
+  ldiagmin ldiagmin ] cvx def
+  /XP4PRE [ XP4 0 0 RP4 XP4 XP3 ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP4POST [ XP4 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  /XP4CTR [ XP4PRE 0 0 RP4 XP4 TO ldiagangleto ldiagatangle ldiagpadd ] cvx def
+  XP4CTR 0 0 RP4 XP4CTR XP4 ldiagangleto ldiagatangle ldiagpadd /P4 ldiagpointdef
+  XP4CTR P4 ldiagangleto DIRN add 90 dg add /P4@ANGLE ldiagangledef
+  /XINDENT [ xindent FROM XP1PRE ldiagdistance ldiagmin ] cvx def
+  FROM 0 0 XINDENT DIRN ldiagatangle ldiagpadd /LFROM ldiagpointdef
+  FROM@ANGLE /LFROM@ANGLE ldiagangledef
+  XP2 0.5 ldiagpmul XP3 0.5 ldiagpmul ldiagpadd /LMID ldiagpointdef
+  DIRN 180 dg sub /LMID@ANGLE ldiagangledef
+  /ZINDENT [ zindent TO XP4POST ldiagdistance ldiagmin ] cvx def
+  TO 0 0 ZINDENT DIRN 180 dg add ldiagatangle ldiagpadd /LTO ldiagpointdef
+  TO@ANGLE /LTO@ANGLE ldiagangledef
+  FROM LFROM
+  XP1PRE [XP1CTR CLOCK] XP1POST
+  XP2PRE [XP2CTR CLOCK] XP2POST
+  LMID
+  XP3PRE [XP3CTR CLOCK] XP3POST
+  XP4PRE [XP4CTR CLOCK] XP4POST
+  LTO TO
+
+  % (leaving ldiaguwrapcurvepath) 0 ldiagdebugprint
+  % count (  stack size is) 1 ldiagdebugprint pop
+} def
+
+% shape and labels of the @SolidArrowHead symbol
+% - ldiagsolidarrowhead -
+/ldiagsolidarrowhead
+{
+  0 0 xsize ysize 0.5 mul 0 ysize
+} def
+
+% shape and labels of the @OpenArrowHead symbol
+% <pathwidth> ldiagopenarrowhead -
+/ldiagopenarrowhead
+{
+  /pathwidth exch def
+  /PSW [ 0 0 ] cvx def
+  /PNW [ 0 ysize ] cvx def
+  /PE  [ xsize ysize 0.5 mul ] cvx def
+  /REL [ 0 0 pathwidth PE PNW ldiagangleto 90 add ldiagatangle ] cvx def
+  /PNA [ 0 ysize 0.5 mul pathwidth 0.5 mul add ] cvx def
+  /PSA [ 0 ysize 0.5 mul pathwidth 0.5 mul sub ] cvx def
+  /PNI [ PNA PNA xsize 0 ldiagpadd PNW REL ldiagpadd
+	 PE REL ldiagpadd ldiaglineintersect ] cvx def
+  /PSI [ 0 pathwidth PNI ldiagpsub ] cvx def
+
+  PSW PE PNW PNI PNA PSA PSI PSW
+} def
+
+% shape and labels of the @HalfOpenArrowHead symbol
+% <pathwidth> ldiaghalfopenarrowhead -
+/ldiaghalfopenarrowhead
+{
+  /pathwidth exch def
+  0 0
+  xsize ysize 0.5 mul
+  0 ysize
+  xsize 0.3 mul ysize 0.5 mul pathwidth 0.5 mul add
+  0             ysize 0.5 mul pathwidth 0.5 mul add
+  0             ysize 0.5 mul pathwidth 0.5 mul sub
+  xsize 0.3 mul ysize 0.5 mul pathwidth 0.5 mul sub
+  0 0
+} def
+
+% shape and labels of the @SolidCurvedArrowHead symbol
+% - ldiagsolidcurvedarrowhead -
+/ldiagsolidcurvedarrowhead
+{
+  0 0
+  [0 0 xsize ysize 0.5 mul ldiaglinebetween
+   xsize 0 xsize ysize ldiaglineintersect clockwise]
+  xsize ysize 0.5 mul
+  [xsize ysize 0.5 mul 0 ysize ldiaglinebetween
+   xsize 0 xsize ysize ldiaglineintersect clockwise]
+  0 ysize
+} def
+
+% shape and labels of the @OpenCurvedArrowHead symbol
+% <pathwidth> ldiagopencurvedarrowhead -
+/ldiagopencurvedarrowhead
+{
+  /pathwidth exch def
+  /LR [ 0 0 xsize ysize 0.5 mul ldiaglinebetween
+	xsize 0 xsize ysize ldiaglineintersect
+      ] cvx def
+  /UR [ xsize ysize 0.5 mul 0 ysize ldiaglinebetween
+	xsize 0 xsize ysize ldiaglineintersect
+      ] cvx def
+  /PW2 [ pathwidth 0.5 mul ] cvx def
+  /UMID [
+      0 ysize 0.5 mul PW2 add
+      xsize ysize 0.5 mul PW2 add
+      0 ysize 0 0 1 ft UR 0 ysize ldiagangleto 90 add ldiagatangle
+      ldiagpadd 0 ysize ldiaglineintersect
+      ] cvx def
+  /LMID [ 0 pathwidth UMID ldiagpsub ] cvx def
+  0 0
+  [LR clockwise]
+  xsize ysize 0.5 mul
+  [UR clockwise]
+  0 ysize
+  UMID
+  0 ysize 0.5 mul PW2 add
+  0 ysize 0.5 mul PW2 sub
+  LMID
+  0 0
+} def
+
+% shape and labels of the @HalfOpenCurvedArrowHead symbol
+% <pathwidth> ldiaghalfopencurvedarrowhead -
+/ldiaghalfopencurvedarrowhead
+{
+  /pathwidth exch def
+  /LR [ 0 0 xsize ysize 0.5 mul ldiaglinebetween
+	xsize 0 xsize ysize ldiaglineintersect
+      ] cvx def
+  /UR [ xsize ysize 0.5 mul 0 ysize ldiaglinebetween
+	xsize 0 xsize ysize ldiaglineintersect
+      ] cvx def
+  /BR [ 0 0 LR 0 ysize UR ldiaglineintersect ] cvx def
+  /BRAD [ 0 0 BR ldiagdistance ] cvx def
+  /PW2 [ pathwidth 0.5 mul ] cvx def
+  /XDIST [ BRAD dup mul PW2 dup mul sub sqrt ] cvx def
+  /UMID [ BR XDIST PW2 ldiagpadd ] cvx def
+  /LMID [ BR XDIST 0 PW2 sub ldiagpadd ] cvx def
+  0 0
+  [LR clockwise]
+  xsize ysize 0.5 mul
+  [UR clockwise]
+  0 ysize
+  [BR clockwise]
+  UMID
+  0 ysize 0.5 mul PW2 add
+  0 ysize 0.5 mul PW2 sub
+  LMID
+  [BR clockwise]
+  0 0
+} def
+
+end
+%%EndResource
diff --git a/include/doc b/include/doc
new file mode 100644
index 0000000..7dda601
--- /dev/null
+++ b/include/doc
@@ -0,0 +1,353 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for ordinary documents                                    #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  @SysInclude commands for standard packages.                                #
+#                                                                             #
+###############################################################################
+
+  @SysInclude { fontdefs	} # font definitions
+  @SysInclude { langdefs	} # language definitions
+  @SysInclude { bsf		} # BasicSetup package
+  @SysInclude { dsf		} # DocumentSetup package
+  @SysInclude { docf		} # OrdinarySetup extension
+
+
+###############################################################################
+#                                                                             #
+#  @Include command for reading personal definitions from current directory.  #
+#                                                                             #
+###############################################################################
+
+  @Include { mydefs }
+
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup @Use clause - basics, lists, paragraphs, displays.         #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @BasicSetup
+  # @InitialFont	{ Times Base 12p	} # initial font
+  # @InitialBreak	{{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
+  # @InitialSpace	{ lout			} # initial space style
+  # @InitialLanguage	{ English		} # initial language
+  # @InitialColour	{ black			} # initial colour
+  # @OptimizePages	{ No			} # optimize page breaks?
+  # @HeadingFont	{ Bold			} # font for @Heading
+  # @ParaGap		{ 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+  # @ParaIndent		{ 2.00f	@OrIfPlain 5s	} # first-line indent for @PP
+  # @DisplayGap		{ 1.00v	@OrIfPlain 1f	} # gap above, below displays
+  # @DisplayIndent	{ 2.00f	@OrIfPlain 5s	} # @IndentedDisplay indent
+  # @DefaultIndent	{ 0.5rt			} # @Display indent
+  # @DisplayNumStyle	{ (num)			} # style of display numbers
+  # @WideIndent		{ 4.00f	@OrIfPlain 10s	} # @WideTaggedList indent
+  # @VeryWideIndent	{ 8.00f	@OrIfPlain 20s	} # @VeryWideTaggedList indent
+  # @ListOuterGap	{ 1.00v	@OrIfPlain 1f	} # gap before, after lists
+  # @ListGap		{ 1.00v	@OrIfPlain 1f	} # gap between list items
+  # @ListIndent		{ 0s			} # indent of list items
+  # @ListRightIndent	{ 0s			} # right indent of list items
+  # @ListLabelWidth	{ 2.00f	@OrIfPlain 5s	} # width allowed for list tags
+  # @NumberSeparator	{ .			} # separates nums like 2.3.7
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @DocumentSetup @Use clause - page layout plus figures, tables, etc.    #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @DocumentSetup
+  # @PageType		{ A4	@OrIfPlain Other} # page type (width, height)
+  # @PageWidth		{ 80s			} # page width if type Other
+  # @PageHeight		{ 66f			} # page height if type Other
+  # @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+  # @PageBackground	{  			} # background of each page
+  # @TopMargin		{ 2.5c	@OrIfPlain 6f	} # top margin of all pages
+  # @FootMargin		{ 2.5c	@OrIfPlain 6f	} # bottom margin of all pages
+  # @OddLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of odd pages
+  # @OddRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of odd pages
+  # @EvenLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of even pages
+  # @EvenRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of even pages
+  # @PageBoxType	{ None			} # None Box CurveBox ShadowBox
+  # @PageBoxMargin	{ 1.00c			} # page box margin
+  # @PageBoxLineWidth	{			} # page box line thickness
+  # @PageBoxPaint	{ none			} # page box paint
+  # @PageBoxShadow	{ 0.60c			} # shadow margin if ShadowBox
+  # @ColumnNumber	{ 1			} # number of columns (1 to 10)
+  # @ColumnGap		{ 1.00c	@OrIfPlain 6s	} # column gap
+
+  # @FigureLocation	{ PageTop		} # default figure location
+  # @TableLocation	{ PageTop		} # default table location
+  # @FigureFormat	{ @CC @Body		} # default figure format
+  # @TableFormat	{ @CC @Body		} # default table format
+  # @FigureWord		{ figure		} # "Figure" word else anything
+  # @TableWord		{ table			} # "Table" word else anything
+  # @FigureNumbers	{ Arabic		} # method of numbering figures
+  # @TableNumbers	{ Arabic		} # method of numbering tables
+  # @FigureCaptionPos	{ Below 		} # Above or Below
+  # @TableCaptionPos	{ Below			} # Above or Below
+  # @CaptionFont        {                       } # figure, table caption font
+  # @CaptionBreak       {                       } # figure, table caption break
+  # @CaptionFormat      { @B { number @DotSep @OneCol }	} # figure, table caption format
+  # @MakeFigureContents { No                    } # list of figures at start
+  # @MakeTableContents  { No                    } # list of tables at start
+  # @MakeContents	{ No			} # make contents? Yes or No
+  # @ContentsGap	{ 0.20v	@OrIfPlain 0f	} # extra gap above minor entry
+  # @ContentsGapAbove	{ 0.80v	@OrIfPlain 1f	} # extra gap above major entry
+  # @ContentsGapBelow	{ 0.00v	@OrIfPlain 0f	} # extra gap below major entry
+  # @ContentsFont       { Bold                  } # font for major entry
+  # @ContentsPartGapAbove { 1.00v @OrIfPlain 1f	} # extra gap above `part' entry
+  # @ContentsPartGapBelow { 0.00v @OrIfPlain 0f	} # extra gap below `part' entry
+  # @ContentsFormat	{ number @DotSep title	} # contents entry format
+  # @ContentsLeader	{ ..			} # leader symbol in contents
+  # @ContentsLeaderGap	{ 4s	@OrIfPlain 2s	} # gap between leaders
+  # @ContentsRightWidth	{ 3f	@OrIfPlain 6s	} # page numbers column width
+  # @MakeReferences	{ Yes			} # make references? Yes or No
+  # @RefCiteStyle	{ [cite]		} # citation style
+  # @RefCiteLabels	{ @RefNum		} # citation items
+  # @RefNumbers		{ Arabic		} # reference numbers
+  # @RefListFormat	{ Labels		} # NoLabels, Labels, etc.
+  # @RefListLabels	{ [@RefNum]		} # ref list label format
+  # @RefListTitle	{ references		} # title of reference list
+  # @ChapRefListTitle	{ references		} # title of chapter ref list
+  # @RefListIndent	{ 0s			} # indent to left of labels
+  # @RefListRightIndent	{ 0s			} # indent to right of items
+  # @RefListGap		{ @ListGap		} # gap between ref list items
+  # @RefListFont	{        		} # font used in reference list
+  # @RefListBreak	{        		} # break style of ref list
+  # @RefListLabelWidth 	{ @ListLabelWidth	} # Labels column width
+  # @RefListSortKey	{ @Tag			} # sorting key
+  # @MakeIndex		{ No			} # make index? Yes or No
+  # @IndexFont		{			} # index entries font
+  # @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexColumnNumber	{ 2			} # index columns (1 to 10)
+  # @IndexColumnGap	{ 1.00c	@OrIfPlain 6s	} # index column gap
+  # @MakeIndexA		{ No 			} # make index A? Yes or No
+  # @IndexAFont		{			} # index A entries font
+  # @IndexABreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexAColumnNumber	{ 2			} # index A columns (1 to 10)
+  # @IndexAColumnGap	{ 1.00c	@OrIfPlain 6s	} # index A column gap
+  # @MakeIndexB		{ No 			} # make index B? Yes or No
+  # @IndexBFont		{			} # index B entries font
+  # @IndexBBreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexBColumnNumber	{ 2			} # index B columns (1 to 10)
+  # @IndexBColumnGap	{ 1.00c	@OrIfPlain 6s	} # index B column gap
+  # @TopGap		{ 0.75c	@OrIfPlain 2f	} # gap between figures
+  # @MidGap		{ 0.75c	@OrIfPlain 2f	} # gap above/below body text
+  # @FootNoteNumbers	{ Arabic		} # footnote numbers
+  # @FootNoteThrough	{ No			} # numbered through chapter?
+  # @FootNoteLocation	{ ColFoot		} # where the footnote appears
+  # @FootNoteFont	{ 0.80f			} # font for footnotes
+  # @FootNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for footnotes
+  # @FootNoteFormat     { { number &0.05f } @Insert body } # footnote format
+  # @FootLen		{ 2.00c	@OrIfPlain 10s	} # length of footnote line
+  # @FootAboveGap	{ @DisplayGap		} # gap above footnote line
+  # @FootGap		{ 0.20c	@OrIfPlain 1fx	} # gap between footnotes
+  # @MarginNoteFont	{ 0.80f			} # font of margin notes
+  # @MarginNoteBreak	{ ragged 1.10fx		} # break style of margin notes
+  # @MarginNoteHGap	{ 0.5c   		} # horizontal gap to notes
+  # @MarginNoteVGap	{ @DisplayGap  		} # min vertical gap between
+  # @MarginNoteWidth	{ 1.50c  		} # width of margin notes
+  # @EndNoteNumbers	{ Arabic		} # endnote numbers
+  # @EndNoteFont	{ 0.80f			} # font of endnotes
+  # @EndNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for endnotes
+  # @EndNoteFormat	{ { number &0.05f } @Insert body } # endnote format
+  # @EndNoteGap		{ 0.20c	@OrIfPlain 1f	} # gap between endnotes
+  # @TheoremWord	{ theorem		} # "Theorem" word, etc.
+  # @TheoremTitleFormat	{ (title)		} # only if title present
+  # @TheoremFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @DefinitionWord	{ definition		} # "Definition" word, etc.
+  # @DefinitionTitleFormat { (title)		} # only if title present
+  # @DefinitionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ClaimWord		{ claim			} # "Claim" word, etc.
+  # @ClaimTitleFormat	{ (title)		} # only if title present
+  # @ClaimFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @PropositionWord	{ proposition		} # "Proposition" word, etc.
+  # @PropositionTitleFormat { (title)		} # only if title present
+  # @PropositionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @LemmaWord		{ lemma			} # "Lemma" word, etc.
+  # @LemmaTitleFormat	{ (title)		} # only if title present
+  # @LemmaFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @CorollaryWord	{ corollary		} # "Corollary" word, etc.
+  # @CorollaryTitleFormat { (title)		} # only if title present
+  # @CorollaryFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ExampleWord	{ example		} # "Example" word, etc.
+  # @ExampleTitleFormat	{ (title)		} # only if title present
+  # @ExampleFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ProofWord		{ proof			} # "Proof" word, etc.
+  # @PageHeaders	{ Simple		} # None Simple Titles NoTitles
+  # @PageNumbers	{ Arabic		} # page numbers
+  # @FirstPageNumber	{ 1			} # number of first page 
+  # @IntroPageNumbers	{ Roman			} # intro page numbers
+  # @IntroFirstPageNumber{ 1			} # number of first intro page 
+  # @StructPageNums	{ No			} # make structured page numbers
+
+  # @OddTop		{ @Centre{- @PageNum -}	} # Simple page headers
+  # @OddFoot		{ @Null			}
+  # @EvenTop		{ @Centre{- @PageNum -}	}
+  # @EvenFoot		{ @Null			}
+  # @StartOddTop	{ @Null			}
+  # @StartOddFoot	{ @Null			}
+  # @StartEvenTop	{ @Null			}
+  # @StartEvenFoot	{ @Null			}
+  # @IntroOddTop	{ @Null			}
+  # @IntroOddFoot	{ @Centre @PageNum	}
+  # @IntroEvenTop	{ @Null			}
+  # @IntroEvenFoot	{ @Centre @PageNum	}
+  # @IntroStartOddTop	{ @Null			}
+  # @IntroStartOddFoot	{ @Null			}
+  # @IntroStartEvenTop	{ @Null			}
+  # @IntroStartEvenFoot	{ @Null			}
+
+						  # Titles, NoTitles headers
+  # @RunningOddTop  { @I {@MinorNum @DotSep @MinorTitle} @Right @B @PageNum }
+  # @RunningOddFoot		{ @Null					}
+  # @RunningEvenTop { @B @PageNum @Right @I {@MajorNum @DotSep @MajorTitle} }
+  # @RunningEvenFoot		{ @Null					}
+  # @RunningStartOddTop 	{ @Null					}
+  # @RunningStartOddFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningStartEvenTop	{ @Null					}
+  # @RunningStartEvenFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningIntroOddTop		{ @Null					}
+  # @RunningIntroOddFoot	{ @Right @PageNum			}
+  # @RunningIntroEvenTop	{ @Null					}
+  # @RunningIntroEvenFoot	{ @PageNum				}
+  # @RunningIntroStartOddTop	{ @Null					}
+  # @RunningIntroStartOddFoot	{ @Null					}
+  # @RunningIntroStartEvenTop	{ @Null					}
+  # @RunningIntroStartEvenFoot	{ @Null					}
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @OrdinarySetup @Use clause - options specific to ordinary documents.   #
+#                                                                             #
+###############################################################################
+
+@Use { @OrdinarySetup
+  # @IndexWord			{ index		} # word for "Index" word etc.
+  # @IndexAWord			{ index		} # word for "Index" (A)
+  # @IndexBWord			{ index		} # word for "Index" (B)
+  # @AppendixWord		{ appendix	} # word for "Appendix"
+  # @SectionNumbers		{ Arabic	} # kind of section numbers
+  # @FirstSectionNumber		{ 1		} # first section num (Arabic)
+  # @SubSectionNumbers		{ Arabic	} # kind of subsection numbers
+  # @FirstSubSectionNumber	{ 1		} # first subsect num (Arabic)
+  # @SubSubSectionNumbers	{ Arabic	} # kind of sub-subsect numbers
+  # @FirstSubSubSectionNumber	{ 1		} # first subsub. num (Arabic)
+  # @AppendixNumbers		{ UCAlpha	} # kind of appendix numbers
+  # @FirstAppendixNumber	{ 1		} # first appendix num (Arabic)
+  # @SubAppendixNumbers		{ Arabic	} # kind of subappendix numbers
+  # @FirstSubAppendixNumber	{ 1		} # first sub-app. num (Arabic)
+  # @SubSubAppendixNumbers	{ Arabic	} # kind of sub-subapp. numbers
+  # @FirstSubSubAppendixNumber	{ 1		} # first sub-sub. num (Arabic)
+  # @SectionHeadingFont		{ Bold			} # section head font
+  # @SectionHeadingBreak	{ ragged 1.2fx nohyphen	} # section head break
+  # @SectionHeadingFormat	{ number @DotSep title	} # section head fmt
+  # @SubSectionHeadingFont	{ Bold			} # subsect head font
+  # @SubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # subsect head break
+  # @SubSectionHeadingFormat	{ number @DotSep title	} # subsect head fmt
+  # @SubSubSectionHeadingFont	{ Slope			} # sub-ss. head font
+  # @SubSubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-ss. head break
+  # @SubSubSectionHeadingFormat	{ number @DotSep title	} # sub-ss. head fmt
+  # @AppendixHeadingFont	{ Bold			} # appendix head font
+  # @AppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # appendix head break
+  # @AppendixHeadingFormat	{ number @DotSep title	} # appendix head fmt
+  # @SubAppendixHeadingFont	{ Bold			} # subapp. head font
+  # @SubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # subapp. head break
+  # @SubAppendixHeadingFormat	{ number @DotSep title	} # subapp. head format
+  # @SubSubAppendixHeadingFont	{ Slope			} # sub-sa. head font
+  # @SubSubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-sa. head break
+  # @SubSubAppendixHeadingFormat{ number @DotSep title	} # sub-sa. head fmt
+  # @ReferencesHeadingFont	{ Bold			} # refs head font
+  # @ReferencesHeadingBreak	{ ragged 1.2fx nohyphen	} # refs head break
+  # @ReferencesHeadingFormat	{ title			} # refs head format
+  # @IndexHeadingFont		{ Bold			} # index head font
+  # @IndexHeadingBreak		{ ragged 1.2fx nohyphen	} # index head break
+  # @IndexHeadingFormat		{ title			} # index head format
+  # @IndexAHeadingFont		{ Bold			} # index A head font
+  # @IndexAHeadingBreak		{ ragged 1.2fx nohyphen	} # index A head break
+  # @IndexAHeadingFormat	{ title			} # index A head fmt
+  # @IndexBHeadingFont		{ Bold			} # index B head font
+  # @IndexBHeadingBreak		{ ragged 1.2fx nohyphen	} # index B head break
+  # @IndexBHeadingFormat	{ title			} # index B head fmt
+  # @SectionGap			{ 2.0v	@OrIfPlain 3f	} # between sections
+  # @SubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between subsects
+  # @SubSubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subs.
+  # @AppendixGap		{ 2.0v	@OrIfPlain 3f	} # between appendices
+  # @SubAppendixGap		{ 1.5v	@OrIfPlain 2f	} # between subappendices
+  # @SubSubAppendixGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subapps
+  # @SectionInContents		{ Yes		} # add sections to contents
+  # @SubSectionInContents	{ Yes		} # add subsections to contents
+  # @SubSubSectionInContents	{ No		} # add sub-subsects to contents
+  # @AppendixInContents		{ Yes		} # add appendices to contents
+  # @SubAppendixInContents	{ Yes		} # add subappendices to contents
+  # @SubSubAppendixInContents	{ No		} # add sub-subapps to contents
+  # @ReferencesInContents	{ Yes		} # add ref. section to contents
+  # @IndexInContents		{ Yes		} # add index to contents
+  # @IndexAInContents		{ Yes		} # add index A to contents
+  # @IndexBInContents		{ Yes		} # add index B to contents
+  # @SectionNumInTheorems	{ No		} # theorem num has section num
+  # @SubSectionNumInTheorems	{ No		} # theorem num has subsect num
+  # @SubSubSectionNumInTheorems	{ No		} # theorem num has sub-ss. num
+  # @AppendixNumInTheorems	{ No		} # theorem num has appendix num
+  # @SubAppendixNumInTheorems	{ No		} # theorem num has sub-app num
+  # @SubSubAppendixNumInTheorems{ No		} # theorem num has sub-sa. num
+  # @SectionNumInDisplays	{ Yes		} # display num has section num
+  # @SubSectionNumInDisplays	{ No		} # display num has subsect num
+  # @SubSubSectionNumInDisplays	{ No		} # display num has sub-ss. num
+  # @AppendixNumInDisplays	{ Yes		} # display num has appendix num
+  # @SubAppendixNumInDisplays	{ Yes		} # display num has sub-app num
+  # @SubSubAppendixNumInDisplays{ No		} # display num has sub-sa. num
+  # @SectionNumInFigures	{ No		} # figure num has section num
+  # @SubSectionNumInFigures	{ No		} # figure num has subsect num
+  # @SubSubSectionNumInFigures	{ No		} # figure num has sub-ss. num
+  # @AppendixNumInFigures	{ No		} # figure num has appendix num
+  # @SubAppendixNumInFigures	{ No		} # figure num has sub-app num
+  # @SubSubAppendixNumInFigures	{ No		} # figure num has sub-sa. num
+  # @SectionNumInTables		{ No		} # table num has section num
+  # @SubSectionNumInTables	{ No		} # table num has subsect num
+  # @SubSubSectionNumInTables	{ No		} # table num has sub-ss. num
+  # @AppendixNumInTables	{ No		} # table num has appendix num
+  # @SubAppendixNumInTables	{ No		} # table num has sub-app num
+  # @SubSubAppendixNumInTables	{ No		} # table num has sub-sa. num
+  # @SectionNumInRunners 	{ Yes		} # runners have section num
+  # @SubSectionNumInRunners 	{ No		} # runners have subsect num
+  # @SubSubSectionNumInRunners 	{ No		} # runners have sub-ss. num
+  # @AppendixNumInRunners 	{ Yes		} # runners have appendix num
+  # @SubAppendixNumInRunners 	{ No		} # runners have sub-app num
+  # @SubSubAppendixNumInRunners { No		} # runners have sub-sa. num
+  # @SectionPrefix		{		} # for structured page nums
+  # @AppendixPrefix		{		} # for structured page nums
+  # @ReferencesPrefix		{		} # for structured page nums
+  # @IndexPrefix		{		} # for structured page nums
+  # @IndexAPrefix		{		} # for structured page nums
+  # @IndexBPrefix		{		} # for structured page nums
+}
+
+
+###############################################################################
+#                                                                             #
+#  @Database (and @SysDatabase) clauses go here.                              #
+#                                                                             #
+###############################################################################
+
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
diff --git a/include/docf b/include/docf
new file mode 100644
index 0000000..dd9f0e6
--- /dev/null
+++ b/include/docf
@@ -0,0 +1,779 @@
+
+###########################################################################
+#                                                                         #
+#  @OrdinarySetup extension to @DocumentSetup.                            #
+#                                                                         #
+#  Jeffrey H. Kingston                                                    #
+#  August 1994                                                            #
+#  5 February 1999                                                        #
+#                                                                         #
+#  This package extends DocumentSetup for ordinary documents.             #
+#                                                                         #
+###########################################################################
+
+extend @BasicSetup @DocumentSetup
+export @Doc @Document @Text
+def @OrdinarySetup
+
+    named @IndexWord			{ index			}
+    named @IndexAWord			{ index			}
+    named @IndexBWord			{ index			}
+    named @AppendixWord			{ appendix		}
+
+    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 @SectionHeadingFont		{ Bold			}
+    named @SectionHeadingBreak		{ ragged 1.2fx nohyphen }
+    named @SectionHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @SubSectionHeadingFont	{ Bold			}
+    named @SubSectionHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @SubSectionHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @SubSubSectionHeadingFont	{ Slope			}
+    named @SubSubSectionHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @SubSubSectionHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @AppendixHeadingFont		{ Bold			}
+    named @AppendixHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @AppendixHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @SubAppendixHeadingFont	{ Bold			}
+    named @SubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @SubAppendixHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @SubSubAppendixHeadingFont	{ Slope			}
+    named @SubSubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @SubSubAppendixHeadingFormat
+	    left number right title	{ number @Sep title	}
+
+    named @ReferencesHeadingFont	{ Bold			}
+    named @ReferencesHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @ReferencesHeadingFormat
+	    right title			{ title			}
+
+    named @IndexHeadingFont		{ Bold			}
+    named @IndexHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexHeadingFormat
+	    right title			{ title			}
+
+    named @IndexAHeadingFont		{ Bold			}
+    named @IndexAHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexAHeadingFormat
+	    right title			{ title			}
+
+    named @IndexBHeadingFont		{ Bold			}
+    named @IndexBHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexBHeadingFormat
+	    right title			{ title			}
+
+    named @SectionGap			{ 2.0v  @OrIfPlain 3f	}
+    named @SubSectionGap		{ 1.5v  @OrIfPlain 2f	}
+    named @SubSubSectionGap		{ 1.5v  @OrIfPlain 2f	}
+    named @AppendixGap			{ 2.0v  @OrIfPlain 3f	}
+    named @SubAppendixGap		{ 1.5v  @OrIfPlain 2f	}
+    named @SubSubAppendixGap		{ 1.5v  @OrIfPlain 2f	}
+
+    named @SectionInContents		{ Yes			}
+    named @SubSectionInContents		{ Yes			}
+    named @SubSubSectionInContents	{ No			}
+    named @AppendixInContents		{ Yes			}
+    named @SubAppendixInContents	{ Yes			}
+    named @SubSubAppendixInContents	{ No			}
+    named @ReferencesInContents		{ Yes			}
+    named @IndexInContents		{ Yes			}
+    named @IndexAInContents		{ Yes			}
+    named @IndexBInContents		{ Yes			}
+
+    named @SectionNumInTheorems		{ No			}
+    named @SubSectionNumInTheorems	{ No			}
+    named @SubSubSectionNumInTheorems	{ No			}
+    named @AppendixNumInTheorems	{ No			}
+    named @SubAppendixNumInTheorems	{ No			}
+    named @SubSubAppendixNumInTheorems	{ No			}
+
+    named @SectionNumInDisplays		{ Yes			}
+    named @SubSectionNumInDisplays	{ No			}
+    named @SubSubSectionNumInDisplays	{ No			}
+    named @AppendixNumInDisplays	{ Yes			}
+    named @SubAppendixNumInDisplays	{ No			}
+    named @SubSubAppendixNumInDisplays	{ No			}
+
+    named @SectionNumInFigures		{ No			}
+    named @SubSectionNumInFigures	{ No			}
+    named @SubSubSectionNumInFigures	{ No			}
+    named @AppendixNumInFigures		{ No			}
+    named @SubAppendixNumInFigures	{ No			}
+    named @SubSubAppendixNumInFigures	{ No			}
+
+    named @SectionNumInTables		{ No			}
+    named @SubSectionNumInTables	{ No			}
+    named @SubSubSectionNumInTables	{ No			}
+    named @AppendixNumInTables		{ No			}
+    named @SubAppendixNumInTables	{ No			}
+    named @SubSubAppendixNumInTables	{ No			}
+
+    named @SectionNumInRunners		{ Yes			}
+    named @SubSectionNumInRunners	{ No			}
+    named @SubSubSectionNumInRunners	{ No			}
+    named @AppendixNumInRunners		{ Yes			}
+    named @SubAppendixNumInRunners	{ No			}
+    named @SubSubAppendixNumInRunners	{ No			}
+
+    named @SectionPrefix		{			}
+    named @AppendixPrefix		{			}
+    named @ReferencesPrefix		{			}
+    named @IndexPrefix			{			}
+    named @IndexAPrefix			{			}
+    named @IndexBPrefix			{			}
+@Begin
+
+    #######################################################################
+    #                                                                     #
+    #  Lists of sections, sub(-sub)sections, appendices, etc.             #
+    #                                                                     #
+    #######################################################################
+
+    def @TextPlace { @Galley }
+
+    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
+        //@AppendixGap	@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
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  @SendFull - send full-width text.                                  #
+    #                                                                     #
+    #######################################################################
+
+    def @SendFull force into { @FullPlace&&following }
+	right x
+    {
+	x
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  Document.                                                          #
+    #                                                                     #
+    #######################################################################
+
+    def @Document
+        named @InitialFont { @InitialFont }
+        named @InitialBreak { @InitialBreak }
+        named @InitialSpace { @InitialSpace }
+        named @InitialLanguage { @InitialLanguage }
+	named @PageOrientation { @PageOrientation }
+        named @PageHeaders { @PageHeaders }
+        named @ColumnNumber { @ColumnNumber }
+        named @FirstPageNumber { @FirstPageNumber }
+	named @OptimizePages { @OptimizePages }
+	named @Unpaginated { No }
+    {
+	def @ReferencesPart
+	    named @Tag {}
+	{
+	    @LargeScaleStructure
+		tag { @Tag }
+		type { Major }
+		initiallanguage { @InitialLanguage }
+		title { @RefHeading @RefListTitle }
+		headingfont { @ReferencesHeadingFont }
+		headingbreak { @ReferencesHeadingBreak }
+		headingformat { @ReferencesHeadingFormat @Body }
+		incontents { @ReferencesInContents }
+		pnprefix { @ReferencesPrefix }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { @RefHeading @RefListTitle }
+		inrunners { Yes }
+		sendheader { @Body }
+		aboveheadinggap { 0f }
+		{ //@RefListGap @ReferencesSection }
+
+	}
+
+        def @IndexPart
+	    named @Tag {}
+        {
+
+	    def @Run
+	    {
+		NonStart @Runner
+		    @MajorNum {}
+		    @MajorTitle { index @WordVal @IndexWord }
+		    @MinorNum {}
+		    @MinorTitle {}
+		    @Owner { @Tag }
+		    @Prefix { @IndexPrefix }
+	    }
+
+	    @LargeScaleStructure
+		tag { @Tag }
+		type { Major }
+		initiallanguage { @InitialLanguage }
+		title { index @WordVal @IndexWord }
+		headingfont { @IndexHeadingFont }
+		headingbreak { @IndexHeadingBreak }
+		headingformat { @IndexHeadingFormat @Body }
+		incontents { @IndexInContents }
+		pnprefix { @IndexPrefix }
+		inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexWord }
+		sendheader { @SendFull @Body }
+		innergap { @SectionGap }
+		wantindefinite { Yes }
+		@IndexSection @Run
+
+        }
+
+        def @IndexAPart
+	    named @Tag {}
+        {
+	    def @Run
+	    {
+		NonStart @Runner
+		    @MajorNum {}
+		    @MajorTitle { index @WordVal @IndexAWord }
+		    @MinorNum {}
+		    @MinorTitle {}
+		    @Owner { @Tag }
+		    @Prefix { @IndexAPrefix }
+	    }
+
+	    @LargeScaleStructure
+		tag { @Tag }
+		type { Major }
+		initiallanguage { @InitialLanguage }
+		title { index @WordVal @IndexAWord }
+		headingfont { @IndexAHeadingFont }
+		headingbreak { @IndexAHeadingBreak }
+		headingformat { @IndexAHeadingFormat @Body }
+		incontents { @IndexAInContents }
+		pnprefix { @IndexAPrefix }
+		inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexAWord }
+		sendheader { @SendFull @Body }
+		innergap { @SectionGap }
+		wantindefinite { Yes }
+		@IndexASection @Run
+
+        }
+
+        def @IndexBPart
+	    named @Tag {}
+        {
+	    def @Run
+	    {
+		NonStart @Runner
+		    @MajorNum {}
+		    @MajorTitle { index @WordVal @IndexBWord }
+		    @MinorNum {}
+		    @MinorTitle {}
+		    @Owner { @Tag }
+		    @Prefix { @IndexBPrefix }
+	    }
+
+	    @LargeScaleStructure
+		tag { @Tag }
+		type { Major }
+		initiallanguage { @InitialLanguage }
+		title { index @WordVal @IndexBWord }
+		headingfont { @IndexBHeadingFont }
+		headingbreak { @IndexBHeadingBreak }
+		headingformat { @IndexBHeadingFormat @Body }
+		incontents { @IndexBInContents }
+		pnprefix { @IndexBPrefix }
+		inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexBWord }
+		sendheader { @SendFull @Body }
+		innergap { @SectionGap }
+		wantindefinite { Yes }
+		@IndexBSection @Run
+
+        }
+
+        def @DocumentBody force into { @ColPlace&&preceding }
+	    named @Optimize { @OptimizePages }
+        {
+	    # this whole comment is now obsolete:
+	    # It's important that the first component of @DocumentBody be
+	    # indefinite.  If it was definite, then @DocumentBody would
+	    # attach immediately to the first page.  This would prevent
+	    # @FullWidth from attaching to that page, with the result that
+	    # a document starting with @FullWidth would start on page 2!
+
+	    //  @FootNoteThrough @Do @BeginFootNoteCounter
+	    //	@TextPlace
+	    //@SectionGap @EndFigureList
+	    //@SectionGap @EndNoteList 1
+	    //@SectionGap @MakeReferences @Do @ReferencesPart
+	    //  @MakeIndexA @Do @IndexAPart
+	    //  @MakeIndexB @Do @IndexBPart
+	    //  @MakeIndex  @Do @IndexPart
+            //	NonStart @Runner
+        }
+
+        @InitialFont @Font @InitialBreak @Break @InitialLanguage @Language
+	@InitialSpace @Space { @ColourCommand @InitialColour } @SetColour
+        {
+		Yes @BeginAllCounters {}
+		Yes @BeginDisplayCounter {}
+		Yes @BeginFigureCounter {}
+		Yes @BeginTableCounter {}
+            //  @BackEnd @Case {
+
+		    PlainText @Yield {
+			@Unpaginated @Case {
+
+			    { Yes yes } @Yield {
+				@ContinuousPageList
+				    @Orient { @PageOrientation }
+			    }
+
+			    { No no } @Yield {
+				@PageList
+				    @ColumnNumber { @ColumnNumber }
+				    @PageHeaders { @PageHeaders }
+				    @Orient { @PageOrientation }
+				    extra { Yes }
+				    @FirstPageNumber
+			    }
+			}
+		    }
+
+		    else @Yield {
+			    @PageList
+				@ColumnNumber { @ColumnNumber }
+				@PageHeaders { @PageHeaders }
+				@Orient { @PageOrientation }
+				extra { Yes }
+				@FirstPageNumber
+		    }
+		}
+	    //  @DocumentBody
+        }
+    }
+
+    macro @Doc { @Document // }
+
+
+    #######################################################################
+    #                                                                     #
+    #  @Text containing sections, appendices, etc.                        #
+    #                                                                     #
+    #######################################################################
+
+    export @ContentsGoesHere @FullWidth
+	   @BeginSections @EndSections @Section
+	   @BeginAppendices @EndAppendices @Appendix
+    def @Text force into { @TextPlace&&preceding }
+        body @Body
+    {
+
+	def @ContentsGoesHere { @ContentsSection }
+
+	export @ContentsGoesHere
+	def @FullWidth body @Body
+	{
+	    def @ContentsGoesHere {}
+
+            @SendFull { Start @Runner // @Body }
+	    & NonStart @Runner & &2.1b &
+	}
+
+        def @EndSectionsPlace { @Galley }
+
+        def @EndSections force into { @EndSectionsPlace&&preceding }
+	{}
+
+        macro @BeginSections
+	{   //@SectionGap @SectionList @FirstSectionNumber
+	    // @EndSectionsPlace //
+	}
+
+        export @BeginSubSections @EndSubSections @SubSection @Title
+        def @Section force into { @SectionList&&preceding }
+            named @Tag {}
+            named @Title {}
+            named @RunningTitle { dft }
+	    named @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 {
+			@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 { 6f }
+			numbers { @SubSubSectionNumbers }
+			attachnum { @SubSubSectionList&&preceding @Tagged @Tag }
+			retrievenum { @SubSubSectionList&&@Tag @Open { num } }
+			bypassnumber { @BypassNumber }
+			prefix { @SubSectionShortNum }
+			majornum {}
+			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 { 3f }
+		    numbers { @SubSectionNumbers }
+		    attachnum { @SubSectionList&&preceding @Tagged @Tag }
+		    retrievenum { @SubSectionList&&@Tag @Open { num } }
+		    bypassnumber { @BypassNumber }
+		    prefix { @SectionShortNum }
+		    majornum {}
+		    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 }
+                numbers { @SectionNumbers }
+                attachnum { @SectionList&&preceding @Tagged @Tag }
+                retrievenum { @SectionList&&@Tag @Open { num } }
+		pnprefix { @SectionPrefix }
+		majornum {}
+		majortitle {}
+                bypassnumber { @BypassNumber }
+                intheorems { @SectionNumInTheorems }
+                indisplays { @SectionNumInDisplays }
+                infigures { @SectionNumInFigures }
+                intables { @SectionNumInTables }
+                inrunners { @SectionNumInRunners }
+                @Body
+
+        }
+
+        def @EndAppendicesPlace { @Galley }
+
+        def @EndAppendices force into { @EndAppendicesPlace&&preceding }
+	{}
+
+        macro @BeginAppendices
+        {   //@AppendixGap @AppendixList @FirstAppendixNumber
+	    // @EndAppendicesPlace //
+	}
+
+	export @BeginSubAppendices @EndSubAppendices @SubAppendix
+	def @Appendix force into { @AppendixList&&preceding }
+            named @Tag {}
+            named @Title {}
+            named @RunningTitle { dft }
+	    named @InitialLanguage {}
+	    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 }
+		    }
+		}
+            }
+
+            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 {}
+			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 {}
+		    majortitle {}
+		    intheorems { @SubAppendixNumInTheorems }
+		    indisplays { @SubAppendixNumInDisplays }
+		    infigures { @SubAppendixNumInFigures }
+		    intables { @SubAppendixNumInTables }
+		    inrunners { @SubAppendixNumInRunners }
+		    @Body
+	    }
+
+	    @LargeScaleStructure
+		tag { @Tag }
+		type { Minor }
+		initiallanguage { @InitialLanguage }
+		title { @Title }
+		runningtitle { @RunningTitle }
+		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 } }
+		pnprefix { @AppendixPrefix }
+		majornum {}
+		majortitle {}
+		bypassnumber { @BypassNumber }
+		intheorems { @AppendixNumInTheorems }
+		indisplays { @AppendixNumInDisplays }
+		infigures { @AppendixNumInFigures }
+		intables { @AppendixNumInTables }
+		inrunners { Yes }
+		@Body
+
+	}
+
+	//  Start @Runner
+	//  @Body
+	//  NonStart @Runner
+
+    }
+
+@End @OrdinarySetup
diff --git a/include/dsf b/include/dsf
new file mode 100644
index 0000000..082c59d
--- /dev/null
+++ b/include/dsf
@@ -0,0 +1,4644 @@
+###############################################################################
+#                                                                             #
+#  Lout @DocumentSetup package (Version 3.16)                                 #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, 17 July 1991.                          #
+#  Version 2.0 by Jeffrey H. Kingston, 22 December 1992.                      #
+#  Version 3.0 by Jeffrey H. Kingston, 19 April 1994.                         #
+#  Version 3.03 by Jeffrey H. Kingston, 6 May 1995.                           #
+#  Versions 3.04 and 3.05 by Jeffrey H. Kingston, 11 June 1995.               #
+#  Version 3.05 by Jeffrey H. Kingston, 25 July 1995.                         #
+#  Version 3.07 by Jeffrey H. Kingston, February 1996.                        #
+#  Version 3.10 by Jeffrey H. Kingston, September 1996.                       #
+#  Version 3.11 by Jeffrey H. Kingston, December 1996.                        #
+#  Version 3.13 by Jeffrey H. Kingston, October 1998.                         #
+#  Version 3.16 by Jeffrey H. Kingston, May 1999.                             #
+#  Version 3.17 by Jeffrey H. Kingston, September 1999.                       #
+#                                                                             #
+#  This Lout package contains the general definitions used by all types of    #
+#  documents.  It needs to be extended (see docf, reportf, bookf, slidesf,    #
+#  etc.) with definitions for particular document types.  Consult "A User's   #
+#  Guide to the Lout Document Formatting System" for user information.        #
+#                                                                             #
+###############################################################################
+
+extend @BasicSetup
+
+export
+
+    @Runner
+	
+    @Figure @Table
+    @FootNote @AnotherFootNote @EndNote
+    @LeftNote @RightNote @OuterNote @InnerNote @Place
+    @Theorem @Proof @EndProof
+    @Definition @Claim @Proposition @Lemma @Corollary @Example
+    @Reference @RefStyle @RefPrint
+    @Ref @NoRef @ChapRef @NoChapRef
+    @Cite @NoCite @ChapCite @NoChapCite
+
+    @IndexA @SubIndexA @SubSubIndexA @RawIndexA
+    @RawSubIndexA @RawSubSubIndexA @IndexABlanks
+
+    @IndexB @SubIndexB @SubSubIndexB @RawIndexB
+    @RawSubIndexB @RawSubSubIndexB @IndexBBlanks
+
+    @Index @SubIndex @SubSubIndex @RawIndex
+    @RawSubIndex @RawSubSubIndex @IndexBlanks
+
+    @BypassContentsEntry @BypassMajorContentsEntry
+    @BypassFigureContentsEntry @BypassTableContentsEntry
+    @BypassReference @BypassChapReference
+    @BypassBeginIndex @BypassRawIndex @BypassEndIndex
+    @BypassBeginIndexA @BypassRawIndexA @BypassEndIndexA
+    @BypassBeginIndexB @BypassRawIndexB @BypassEndIndexB
+
+
+def @DocumentSetup
+    named @PageType		{ A4    @OrIfPlain Other} # page type (width, height)
+    named @PageWidth		{ 80s			} # page width if type Other
+    named @PageHeight		{ 66f			} # page height if type Other
+    named @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+    named @PageBackground	{			} # background of each page
+    named @TopMargin		{ 2.50c  @OrIfPlain 6f	} # top margin of all pages
+    named @FootMargin		{ 2.50c  @OrIfPlain 6f	} # bottom margin of all pages
+    named @OddLeftMargin	{ 2.50c  @OrIfPlain 10s	} # left margin of odd pages
+    named @OddRightMargin	{ 2.50c  @OrIfPlain 10s	} # right margin of odd pages
+    named @EvenLeftMargin	{ 2.50c  @OrIfPlain 10s	} # left margin of even pages
+    named @EvenRightMargin	{ 2.50c  @OrIfPlain 10s	} # right margin of even pages
+    named @PageBoxType		{ None			} # None Box CurveBox ShadowBox
+    named @PageBoxMargin	{ 1.00c			} # page box margin
+    import @LengthUnits named @PageBoxLineWidth
+				{			} # page box line thickness
+    named @PageBoxPaint		{  none			} # page box paint
+    named @PageBoxShadow	{  0.60c		} # shadow margin if ShadowBox
+    named @ColumnNumber		{  1			} # number of columns (1 to 10)
+    named @ColumnGap		{  1.00c @OrIfPlain 6s	} # column gap
+    named @FigureLocation	{  PageTop		} # default figure location
+    named @TableLocation	{  PageTop		} # default table location
+    named @FigureFormat
+    	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
+				{  @CC @Body		} # default figure format
+    named @TableFormat
+    	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
+				{  @CC @Body		} # default table format
+    named @FigureWord		{  figure		} # "Figure" word else anything
+    named @TableWord		{  table		} # "Table" word else anything
+    named @FigureNumbers	{  Arabic		} # method of numbering figures
+    named @TableNumbers		{  Arabic		} # method of numbering tables
+    named @FigureCaptionPos	{  Below		} # Above or Below
+    named @TableCaptionPos	{  Below		} # Above or Below
+    named @FigureCaptionFont    {			} # figure caption font
+    named @FigureCaptionBreak   {			} # figure caption break
+    named @FigureCaptionFormat named word {} named number {} named caption {}
+				{  @B { word @NumSep number. &2s } @Insert caption }
+    named @TableCaptionFont    {			} # figure caption font
+    named @TableCaptionBreak   {			} # figure caption break
+    named @TableCaptionFormat named word {} named number {} named caption {}
+				{  @B { word @NumSep number. &2s } @Insert caption }
+    named @MakeFigureContents   {  No			} # list of figures at start
+    named @MakeTableContents    {  No			} # list of tables at start
+    named @MakeContents		{  No			} # make contents? Yes or No
+    named @ContentsGap		{  0.20v @OrIfPlain 0f	} # extra gap above minor entry
+    named @ContentsGapAbove	{  0.80v @OrIfPlain 1f	} # extra gap above major entry
+    named @ContentsGapBelow	{  0.00v @OrIfPlain 0f	} # extra gap below major entry
+    named @ContentsFont    	{  Bold                 } # font for major entry
+    named @ContentsPartGapAbove	{  1.00v @OrIfPlain 1f  } # extra gap above part entry
+    named @ContentsPartGapBelow	{  0.00v @OrIfPlain 0f  } # extra gap below part entry
+    named @ContentsFormat
+	left number
+	right title
+				{  number @Sep title } # contents format
+    named @ContentsLeader	{  ..			} # leader symbol in contents
+    named @ContentsLeaderGap	{  4s    @OrIfPlain 2s	} # gap between leaders
+    named @ContentsRightWidth	{  3f    @OrIfPlain 6s	} # page numbers column width
+
+    named @MakeReferences	{  Yes			} # make references? Yes or No
+    named @RefCiteStyle right cite {  [cite]		} # citation style
+    named @RefCiteLabels
+	named @RefNum       {}
+	named @Tag          {}
+	named @Type         {}
+	named @Abstract     {}
+	named @Address      {}
+	named @Annote       {}
+	named @Author       {}
+	named @Day          {}
+	named @Edition      {}
+	named @HowPublished {}
+	named @InAuthor     {}
+	named @InTitle      {}
+	named @Institution  {}
+	named @Journal      {}
+	named @Keywords     {}
+	named @Label        {}
+	named @Month        {}
+	named @Note         {}
+	named @Number       {}
+	named @Organization {}
+	named @Page         {}
+	named @Pages        {}
+	named @Pinpoint     {}
+	named @Publisher    {}
+	named @Title        {}
+	named @TitleNote    {}
+	named @TRType       {}
+	named @Volume       {}
+	named @Year         {}
+				{  @RefNum		} # citation items
+    named @RefNumbers		{  Arabic		} # reference numbers
+
+    named @RefListFormat	{  Labels		} # NoLabels, Labels,
+						  	# DropLabels, IntegrateLabels
+    named @RefListLabels
+	named @RefNum       {}
+	named @Tag          {}
+	named @Type         {}
+	named @Abstract     {}
+	named @Address      {}
+	named @Annote       {}
+	named @Author       {}
+	named @Day          {}
+	named @Edition      {}
+	named @HowPublished {}
+	named @InAuthor     {}
+	named @InTitle      {}
+	named @Institution  {}
+	named @Journal      {}
+	named @Keywords     {}
+	named @Label        {}
+	named @Month        {}
+	named @Note         {}
+	named @Number       {}
+	named @Organization {}
+	named @Page         {}
+	named @Pages        {}
+	named @Pinpoint     {}
+	named @Publisher    {}
+	named @Title        {}
+	named @TitleNote    {}
+	named @TRType       {}
+	named @Volume       {}
+	named @Year         {}
+				{  [@RefNum]		} # ref list label format
+    named @RefListTitle		{  references		} # title of reference list
+    named @ChapRefListTitle	{  references		} # title of chapter ref list
+    named @RefListIndent	{  0s			} # indent to left of labels
+    named @RefListRightIndent	{  0s			} # indent to right of items
+    named @RefListGap		{  @ListGap		} # gap between ref list items
+    named @RefListFont		{			} # font used in reference list
+    named @RefListBreak		{			} # break style of ref list
+    named @RefListLabelWidth 	{  @ListLabelWidth	} # numeric labels column width
+    named @RefListSortKey
+	named @Tag          {}
+	named @Type         {}
+	named @Abstract     {}
+	named @Address      {}
+	named @Annote       {}
+	named @Author       {}
+	named @Day          {}
+	named @Edition      {}
+	named @HowPublished {}
+	named @InAuthor     {}
+	named @InTitle      {}
+	named @Institution  {}
+	named @Journal      {}
+	named @Keywords     {}
+	named @Label        {}
+	named @Month        {}
+	named @Note         {}
+	named @Number       {}
+	named @Organization {}
+	named @Page         {}
+	named @Pages        {}
+	named @Pinpoint     {}
+	named @Publisher    {}
+	named @Title        {}
+	named @TitleNote    {}
+	named @TRType       {}
+	named @Volume       {}
+	named @Year         {}
+	named ":"	    { "\037" }
+				{  @Tag			} # sorting key
+
+    named @MakeIndex		{  No			} # make index? Yes or No
+    named @IndexFont		{			} # index entries font
+    named @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx}	} # index entries break
+    named @IndexColumnNumber	{  2			} # index columns (1 to 10)
+    named @IndexColumnGap	{  1.00c @OrIfPlain 6s	} # index column gap
+    named @MakeIndexA		{  No			} # make index A? Yes or No
+    named @IndexAFont		{			} # index A entries font
+    named @IndexABreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx}	} # index A entries break
+    named @IndexAColumnNumber	{  2			} # index A columns (1 to 10)
+    named @IndexAColumnGap	{  1.00c @OrIfPlain 6s	} # index A column gap
+    named @MakeIndexB		{  No			} # make index B? Yes or No
+    named @IndexBFont		{			} # index B entries font
+    named @IndexBBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx}	} # index B entries break
+    named @IndexBColumnNumber	{  2			} # index B columns (1 to 10)
+    named @IndexBColumnGap	{  1.00c @OrIfPlain 6s	} # index B column gap
+    named @TopGap		{  0.75c @OrIfPlain 2f	} # gap between figures
+    named @MidGap		{  0.75c @OrIfPlain 2f	} # gap above/below body text
+
+    named @FootNoteNumbers	{  Arabic		} # footnote numbers
+    named @FootNoteThrough	{  No			} # numbered through chapter?
+    named @FootNoteLocation	{  ColFoot		} # where the footnote appears
+    named @FootNoteFont		{  0.80f		} # font for footnotes
+    named @FootNoteBreak	{  1.2fx @OrIfPlain 1fx	} # break for footnotes
+    named @FootNoteFormat left number right body
+				{  { number &0.05f } @Insert body } # break for footnotes
+    named @FootLen		{  2.00c @OrIfPlain 10s	} # length of footnote line
+    named @FootAboveGap		{  @DisplayGap		} # gap above footnote line
+    named @FootGap		{  0.20c @OrIfPlain 1fx	} # gap between footnotes
+
+    named @MarginNoteFont	{  0.80f		} # font of margin notes
+    named @MarginNoteBreak	{  ragged 1.10fx	} # break style of margin notes
+    named @MarginNoteHGap	{  0.5c			} # horizontal gap to notes
+    named @MarginNoteVGap	{  @DisplayGap		} # min vertical gap between
+    named @MarginNoteWidth	{  1.50c		} # width of margin notes
+
+    named @EndNoteNumbers	{  Arabic		} # endnote numbers
+    named @EndNoteFont		{  0.80f		} # font of endnotes
+    named @EndNoteBreak		{  1.2fx @OrIfPlain 1fx	} # break for endnotes
+    named @EndNoteFormat left number right body
+				{  { number &0.05f } @Insert body } # break for endnotes
+    named @EndNoteGap		{  0.20c @OrIfPlain 1f	} # gap between endnotes
+
+    named @TheoremWord		{  theorem		} # "Theorem" word, etc.
+    named @TheoremTitleFormat right title
+				{  (title)              } # Theorem title format if present
+    named @TheoremFormat named word {} named number {} named title {} named body {} # theorem format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @DefinitionWord	{  definition		} # "Definition" word, etc.
+    named @DefinitionTitleFormat{  (title)              } # Definition title format if present
+    named @DefinitionFormat named word {} named number {} named title {} named body {} # definition format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @ClaimWord		{  claim		} # "Claim" word, etc.
+    named @ClaimTitleFormat	{  (title)              } # Claim title format if present
+    named @ClaimFormat named word {} named number {} named title {} named body {} # claim format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @PropositionWord	{  proposition		} # "Proposition" word, etc.
+    named @PropositionTitleFormat{  (title)             } # Proposition title format if present
+    named @PropositionFormat named word {} named number {} named title {} named body {} # proposition format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @LemmaWord		{  lemma		} # "Lemma" word, etc.
+    named @LemmaTitleFormat	{  (title)              } # Lemma title format if present
+    named @LemmaFormat named word {} named number {} named title {} named body {} # lemma format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @CorollaryWord	{  corollary		} # "Corollary" word, etc.
+    named @CorollaryTitleFormat	{  (title)              } # Corollary title format if present
+    named @CorollaryFormat named word {} named number {} named title {} named body {} # corollary format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @ExampleWord		{  example		} # "Example" word, etc.
+    named @ExampleTitleFormat	{  (title)              } # Example title format if present
+    named @ExampleFormat named word {} named number {} named title {} named body {} # example format
+				{  { @B { word @NumSep number title: } &2s } @Insert body }
+    named @ProofWord		{  proof		} # "Proof" word, etc.
+
+    named @PageHeaders		{  Simple		} # None Simple Titles NoTitles
+    named @PageNumbers		{  Arabic		} # page numbers
+    named @FirstPageNumber	{  1			} # number of first page 
+    named @IntroPageNumbers	{  Roman		} # intro page numbers
+    named @IntroFirstPageNumber	{  1			} # number of first intro page 
+    named @StructPageNums	{  No			} # structured page numbers
+
+    named @OddTop	      right @PageNum { @Centre { - @PageNum - }	}
+    named @OddFoot	      right @PageNum { @Null                    }
+    named @EvenTop	      right @PageNum { @Centre { - @PageNum - }	}
+    named @EvenFoot	      right @PageNum { @Null                    }
+    named @StartOddTop	      right @PageNum { @Null                    }
+    named @StartOddFoot	      right @PageNum { @Null                    }
+    named @StartEvenTop	      right @PageNum { @Null                    }
+    named @StartEvenFoot      right @PageNum { @Null                    }
+
+    named @IntroOddTop	      right @PageNum { @Null                    }
+    named @IntroOddFoot	      right @PageNum { @Centre @PageNum         }
+    named @IntroEvenTop	      right @PageNum { @Null                    }
+    named @IntroEvenFoot      right @PageNum { @Centre @PageNum         }
+    named @IntroStartOddTop   right @PageNum { @Null                    }
+    named @IntroStartOddFoot  right @PageNum { @Null                    }
+    named @IntroStartEvenTop  right @PageNum { @Null                    }
+    named @IntroStartEvenFoot right @PageNum { @Null                    }
+
+    named @RunningOddTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @I { @MinorNum @Sep @MinorTitle } @Right @B @PageNum }
+
+    named @RunningOddFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningEvenTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @B @PageNum @Right @I { @MajorNum @Sep @MajorTitle } }
+
+    named @RunningEvenFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningStartOddTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningStartOddFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Centre { Bold 0.8f } @Font @PageNum }
+
+    named @RunningStartEvenTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningStartEvenFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Centre { Bold 0.8f } @Font @PageNum }
+
+
+    named @RunningIntroOddTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningIntroOddFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Right @PageNum  }
+
+    named @RunningIntroEvenTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningIntroEvenFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @PageNum }
+
+    named @RunningIntroStartOddTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningIntroStartOddFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningIntroStartEvenTop
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+    named @RunningIntroStartEvenFoot
+	named @MajorNum {} named @MajorTitle {}
+	named @MinorNum {} named @MinorTitle {} right @PageNum
+    { @Null }
+
+
+@Begin
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Protect x                                                             #
+    #                                                                         #
+    #  Like @CNP, this reserves space on the current page or else makes sure  #
+    #  x appears on the following page.  Lookahead is proportional to font    #
+    #  size.                                                                  #
+    #                                                                         #
+    ###########################################################################
+
+    def @Protect right x { 3.0f @High //0io // x }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @HLine                                                                #
+    #                                                                         #
+    #   Draws a horizontal line to fill available space.                      #
+    #                                                                         #
+    ###########################################################################
+
+    def @HLine
+    {
+	@BackEnd @Case {
+	   PlainText @Yield { "-" @PlainGraphic 1f @High }
+	   PostScript @Yield { {0 0 moveto xsize 0 lineto stroke} @Graphic {} }
+	   PDF @Yield { {0 0 m __xsize 0 l S} @Graphic {} }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  x @WordVal y                                                           #
+    #                                                                         #
+    #  Returns @Word&&x if x == y, otherwise y.                               #
+    #                                                                         #
+    ###########################################################################
+
+    def @WordVal
+	left x
+	right y
+    {
+	y @Case {
+	    x    @Yield @Word&&x
+	    else @Yield y
+	}
+    }
+
+    ###########################################################################
+    #                                                                         #
+    #  x @Dft y                                                               #
+    #                                                                         #
+    #  This returns x unless its value is "dft", in which case it returns y.  #
+    #  Useful for defaulting the value of one parameter to another.           #
+    #                                                                         #
+    ###########################################################################
+
+    def @Dft
+	left x
+	right y
+    {
+	x @Case {
+	    dft  @Yield y
+	    else @Yield x
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  x @Do y                                                                #
+    #                                                                         #
+    #  This returns @Null if x is No or None, otherwise y.                    #
+    #                                                                         #
+    ###########################################################################
+
+    def @Do
+	left x
+	right y
+    {
+	x @Case {
+	    { No None } @Yield @Null
+	    else        @Yield y
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  x @NoDo y                                                              #
+    #                                                                         #
+    #  Negation of @Do: This returns y if x is No or None, otherwise @Null.   #
+    #                                                                         #
+    ###########################################################################
+
+    def @NoDo
+	left x
+	right y
+    {
+	x @Case {
+	    { No None } @Yield y
+	    else        @Yield @Null
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  x @Then y                                                              #
+    #                                                                         #
+    #  This returns the empty object if x is No or None, otherwise y.         #
+    #                                                                         #
+    ###########################################################################
+
+    def @Then
+	left x
+	right y
+    {
+	x @Case {
+	    { No None } @Yield {}
+	    else        @Yield y
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  x @NoThen y                                                            #
+    #                                                                         #
+    #  Negation of @Then: returns y if x is No or None, otherwise empty.      #
+    #                                                                         #
+    ###########################################################################
+
+    def @NoThen
+	left x
+	right y
+    {
+	x @Case {
+	    { No None } @Yield y
+	    else        @Yield {}
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Number markers.                                                        #
+    #                                                                         #
+    ###########################################################################
+
+    def @Num
+	left numtype
+	right num
+    {
+	numtype @Case {
+	    None    @Yield {}
+	    Arabic  @Yield num
+	    Roman   @Yield @Roman&&num
+	    UCRoman @Yield @UCRoman&&num
+	    Alpha   @Yield @Alpha&&num
+	    UCAlpha @Yield @UCAlpha&&num
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @MakePageNum                                                          #
+    #                                                                         #
+    #   Make a page number.                                                   #
+    #                                                                         #
+    ###########################################################################
+
+    def @MakePageNum
+	named numbers {}
+	named rawnum {}
+	named prefix {}
+	named owner {}
+    {
+	def @OwnerNum { @PageMarker&&owner @Open { rawnum } }
+
+	def @StructNum { @FirstPageNumber @Plus rawnum @Minus @OwnerNum }
+
+	@PageHeaders.@StructPageNums @Case {
+	    { Titles.Yes NoTitles.Yes } @Yield {
+		prefix @Join { numbers @Num @StructNum } }
+	    else @Yield { numbers @Num rawnum }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Page size, margins, and boxes.  This code culminates in @OddPage x     #
+    #  and @EvenPage x, which produce one odd or even page containing x.      #
+    #                                                                         #
+    ###########################################################################
+
+    def @Width
+    {
+	@PageType @Case {
+	    Letter      @Yield  612p
+	    Tabloid     @Yield  792p
+	    Ledger      @Yield 1224p
+	    Legal       @Yield  612p
+	    Statement   @Yield  396p
+	    Executive   @Yield  540p
+	    A3          @Yield  842p
+	    A4          @Yield  595p
+	    A5          @Yield  420p
+	    B4          @Yield  729p
+	    B5          @Yield  516p
+	    Folio       @Yield  612p
+	    Quarto      @Yield  610p
+	    10x14       @Yield  720p
+	    Other	@Yield @PageWidth
+	}
+    }
+
+    def @Height
+    {
+	@PageType @Case {
+	    Letter      @Yield  792p
+	    Tabloid     @Yield 1224p
+	    Ledger      @Yield  792p
+	    Legal       @Yield 1008p
+	    Statement   @Yield  612p
+	    Executive   @Yield  720p
+	    A3          @Yield 1190p
+	    A4          @Yield  842p
+	    A5          @Yield  595p
+	    B4          @Yield 1032p
+	    B5          @Yield  729p
+	    Folio       @Yield  936p
+	    Quarto      @Yield  780p
+	    10x14       @Yield 1008p
+	    Other       @Yield @PageHeight
+	}
+    }
+
+    def @OrientedWidth right @Orient
+    {
+	@Orient @Case {
+	    { Portrait ReversePortrait }   @Yield @Width
+	    { Landscape ReverseLandscape } @Yield @Height
+	}
+    }
+
+    def @OrientedHeight right @Orient
+    {
+	@Orient @Case {
+	    { Portrait ReversePortrait }   @Yield @Height
+	    { Landscape ReverseLandscape } @Yield @Width
+	}
+    }
+
+    def @OrientationAngle right @Orient
+    {
+	@Orient @Case {
+	    Portrait         @Yield 0d
+	    Landscape        @Yield 90d
+	    ReversePortrait  @Yield 180d
+	    ReverseLandscape @Yield 270d
+	}
+    }
+
+    def @PageBox right x
+    {
+	@PageBoxType @Case {
+	    None      @Yield x
+	    Box       @Yield @Box
+			margin { @PageBoxMargin }
+			paint { @PageBoxPaint }
+			linewidth { @PageBoxLineWidth } x
+	    CurveBox  @Yield @CurveBox
+			margin { @PageBoxMargin }
+			paint { @PageBoxPaint }
+			linewidth { @PageBoxLineWidth } x
+	    ShadowBox @Yield @ShadowBox
+			margin { @PageBoxMargin }
+			paint { @PageBoxPaint }
+			linewidth { @PageBoxLineWidth }
+			shadow { @PageBoxShadow } x
+	}
+    }
+
+    def @DoBackground right @Orient
+    {	
+#     "LoutPageSet" @Graphic	# VT: case PDF produces nothing
+      { @BackEnd @Case {
+          PostScript @Yield "LoutPageSet"
+          else @Yield "% @DoBackground/LoutPageSet UNIMPLEMENTED"
+        }
+      } @Graphic
+      {
+	{ @OrientationAngle @Orient } @Rotate
+	{ @OrientedWidth @Orient } @Wide { @OrientedHeight @Orient } @High
+	{   //@TopMargin ||@OddLeftMargin
+	        @HExpand @VExpand @PageBackground
+	    ||@OddRightMargin //@FootMargin
+	}
+      }
+    }
+
+    def @PageSet right x
+    {	
+#     "LoutPageSet" @Graphic	# VT: case PDF produces nothing
+      { @BackEnd @Case {
+          PostScript @Yield "LoutPageSet"
+          else @Yield "% @DoBackground/LoutPageSet UNIMPLEMENTED"
+        }
+      } @Graphic x
+    }
+
+    def @MargSet
+	left parity
+	right x
+    {
+#	{ parity "LoutMargSet" } @Graphic x	# VT: case PDF produces nothing
+	{ @BackEnd @Case {
+	    PostScript @Yield { parity "LoutMargSet" }
+	    else @Yield "% @MargSet/LoutMargSet UNIMPLEMENTED"
+	  }
+	} @Graphic x
+    }
+
+    def @OddPage
+	left extra
+	named @Orient {}
+	right x
+    {
+	# @DoBackground @Orient ||0io
+	@PageSet
+	{ @OrientationAngle @Orient } @Rotate
+	{ @OrientedWidth @Orient } @Wide { @OrientedHeight @Orient } @High
+	{   //@TopMargin ||@OddLeftMargin
+		@PageBackground @Background
+	        1 @MargSet
+		@PageBox @HExpand { extra // @VExpand x }
+	    ||@OddRightMargin //@FootMargin
+	}
+    }
+
+    def @EvenPage
+	left extra
+	named @Orient {}
+	right x
+    {
+	@PageSet
+	# @DoBackground @Orient ||0io
+	{ @OrientationAngle @Orient } @Rotate
+	{ @OrientedWidth @Orient } @Wide { @OrientedHeight @Orient } @High
+	{   //@TopMargin ||@EvenLeftMargin
+		@PageBackground @Background
+	        0 @MargSet
+		@PageBox @HExpand { extra // @VExpand x }
+	    ||@EvenRightMargin //@FootMargin
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Definitions for page headers and footers.  There are 16 symbols here,  #
+    #  in the following pattern:                                              #
+    #                                                                         #
+    #     @(- | Running)(- | Intro)(Odd | Even)(Top | Foot)Header             #
+    #                                                                         #
+    #  Running means that running headers are to be used.                     #
+    #  Intro means that the header is destined for an introductory page.      #
+    #  Odd or Even means whether the page number will be odd or even.         #
+    #  Top or Foot means whether the header is for the top or foot of page.   #
+    #                                                                         #
+    ###########################################################################
+
+    export @Start @MajorNum @MajorTitle @MinorNum @MinorTitle @Owner @Prefix
+    def @Runner
+	left  @Start
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	named @Owner      {}
+	named @Prefix     {}
+	named @Tag        {}
+    { @Null
+    }
+
+    def @DupRunner # duplicate previous runner
+    {
+	@Runner&&preceding @Open {
+	    NonStart @Runner
+		@MajorNum { @MajorNum }
+		@MajorTitle { @MajorTitle }
+		@MinorNum { @MinorNum }
+		@MinorTitle { @MinorTitle }
+		@Owner { @Owner }
+		@Prefix { @Prefix }
+	}
+    }
+
+    def @OddTopHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @StartOddTop @PageNum
+	    Simple.NonStart @Yield @OddTop @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @OddFootHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @StartOddFoot @PageNum
+	    Simple.NonStart @Yield @OddFoot @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @EvenTopHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @StartEvenTop @PageNum
+	    Simple.NonStart @Yield @EvenTop @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @EvenFootHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @StartEvenFoot @PageNum
+	    Simple.NonStart @Yield @EvenFoot @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @IntroOddTopHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @IntroStartOddTop @PageNum
+	    Simple.NonStart @Yield @IntroOddTop @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @IntroOddFootHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @IntroStartOddFoot @PageNum
+	    Simple.NonStart @Yield @IntroOddFoot @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @IntroEvenTopHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @IntroStartEvenTop @PageNum
+	    Simple.NonStart @Yield @IntroEvenTop @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+    def @IntroEvenFootHeader
+	left @PageHeadersAndStart
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    None.Start      @Yield @Null
+	    None.NonStart   @Yield @Null
+	    None.None       @Yield @Null
+	    Simple.Start    @Yield @IntroStartEvenFoot @PageNum
+	    Simple.NonStart @Yield @IntroEvenFoot @PageNum
+	    Simple.None     @Yield @Null
+	}
+    }
+
+
+    def @RunningOddTopHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield ??
+	    NoTitles.Start    @Yield @RunningStartOddTop @PageNum
+	    NoTitles.NonStart @Yield @RunningOddTop @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield ??
+	    Titles.Start      @Yield @RunningStartOddTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningOddTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningOddFootHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield @Null
+	    NoTitles.Start    @Yield @RunningStartOddFoot @PageNum
+	    NoTitles.NonStart @Yield @RunningOddFoot @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield @Null
+	    Titles.Start      @Yield @RunningStartOddFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningOddFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningEvenTopHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield ??
+	    NoTitles.Start    @Yield @RunningStartEvenTop @PageNum
+	    NoTitles.NonStart @Yield @RunningEvenTop @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield ??
+	    Titles.Start      @Yield @RunningStartEvenTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningEvenTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningEvenFootHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield @Null
+	    NoTitles.Start    @Yield @RunningStartEvenFoot @PageNum
+	    NoTitles.NonStart @Yield @RunningEvenFoot @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield @Null
+	    Titles.Start      @Yield @RunningStartEvenFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningEvenFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningIntroOddTopHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield ??
+	    NoTitles.Start    @Yield @RunningIntroStartOddTop @PageNum
+	    NoTitles.NonStart @Yield @RunningIntroOddTop @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield ??
+	    Titles.Start      @Yield @RunningIntroStartOddTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningIntroOddTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningIntroOddFootHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield @Null
+	    NoTitles.Start    @Yield @RunningIntroStartOddFoot @PageNum
+	    NoTitles.NonStart @Yield @RunningIntroOddFoot @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield @Null
+	    Titles.Start      @Yield @RunningIntroStartOddFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningIntroOddFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningIntroEvenTopHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield ??
+	    NoTitles.Start    @Yield @RunningIntroStartEvenTop @PageNum
+	    NoTitles.NonStart @Yield @RunningIntroEvenTop @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield ??
+	    Titles.Start      @Yield @RunningIntroStartEvenTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningIntroEvenTop
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+    def @RunningIntroEvenFootHeader
+	left @PageHeadersAndStart
+	named @MajorNum   {}
+	named @MajorTitle {}
+	named @MinorNum   {}
+	named @MinorTitle {}
+	right @PageNum
+    {
+	@PageHeadersAndStart @Case {
+	    NoTitles.??       @Yield @Null
+	    NoTitles.Start    @Yield @RunningIntroStartEvenFoot @PageNum
+	    NoTitles.NonStart @Yield @RunningIntroEvenFoot @PageNum
+	    NoTitles.None     @Yield @Null
+	    Titles.??         @Yield @Null
+	    Titles.Start      @Yield @RunningIntroStartEvenFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.NonStart   @Yield @RunningIntroEvenFoot
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    @PageNum
+	    Titles.None	      @Yield @Null
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Helper definitions for laying out pages.                               #
+    #                                                                         #
+    ###########################################################################
+
+    def @PageTopPlace		{ @Galley }
+    def @PageFootAndTopPlace	{ @Galley }
+    def @PageFootNotePlace	{ @Galley }
+    def @FullPlace		{ @Galley }
+    def @OddFullPlace		{ @Galley }
+    def @EvenFullPlace		{ @Galley }
+    def @FullPagePlace		{ @Galley }
+    def @EvenFullPagePlace	{ @Galley }
+    def @EvenPagePlace		{ @Galley }
+    def @OddFullPagePlace	{ @Galley }
+    def @ColTopPlace		{ @Galley }
+    def @ColFootAndTopPlace	{ @Galley }
+    def @ColPlace		{ @Galley }
+    def @ColFootNotePlace	{ @Galley }
+    def @IntroFullPlace		{ @Galley }
+    def @IntroOddFullPlace	{ @Galley }
+    def @IntroEvenFullPlace	{ @Galley }
+    def @IntroColPlace		{ @Galley }
+    def @IndexPlace		{ @Galley }
+    def @IndexAPlace		{ @Galley }
+    def @IndexBPlace		{ @Galley }
+    def @AfterLinePlace		{ @ForceGalley }
+
+    def @TryAfterLinePlace right x
+    {
+	x @Case {
+	    noforce @Yield @Galley
+	    force   @Yield @ForceGalley
+	}
+    }
+
+    def @EvenFullPageSection
+    {
+		  @OneRow @EvenFullPagePlace
+	//	  @FullPagePlace
+	//@MidGap @EvenFullPageSection
+    }
+
+    def @OddFullPageSection
+    {
+		  @OneRow @OddFullPagePlace
+	//	  @FullPagePlace
+	//@MidGap @OddFullPageSection
+    }
+
+    def @EvenPageTopSect
+    {
+		  @OneRow @EvenPagePlace
+	//	  @PageTopPlace
+	//@MidGap @PageFootAndTopPlace
+	//@MidGap @EvenPageTopSect
+    }
+
+    def @OddPageTopSect
+    {
+		  @PageTopPlace
+	//@MidGap @PageFootAndTopPlace
+	//@MidGap @OddPageTopSect
+    }
+
+    def @PageOddTopSection right @Orient
+    {
+	@OddPageTopSect ||{@OrientedWidth @Orient} @FullPlace
+			||{@OrientedWidth @Orient} @OddFullPlace
+    }
+
+    def @PageEvenTopSection right @Orient
+    {
+	@EvenPageTopSect ||{@OrientedWidth @Orient} @FullPlace
+			 ||{@OrientedWidth @Orient} @EvenFullPlace
+    }
+
+    def @PageIntroOddTopSection right @Orient
+    {
+	@OddPageTopSect ||{@OrientedWidth @Orient} @IntroFullPlace
+			||{@OrientedWidth @Orient} @IntroOddFullPlace
+    }
+
+    def @PageIntroEvenTopSection right @Orient
+    {
+	@EvenPageTopSect
+	||{@OrientedWidth @Orient} @IntroFullPlace
+	||{@OrientedWidth @Orient} @IntroEvenFullPlace
+    }
+
+    def @PageFootNoteList
+    {
+		    @PageFootNotePlace
+	//@FootGap  @PageFootNoteList
+    }
+
+    def @PageFootNoteSection
+    {
+	            @FootLen @Wide @HLine
+	//@FootGap  @PageFootNoteList
+    }
+
+    def @PageFootAndTopSect
+    {
+		  @PageFootAndTopPlace
+	//@MidGap @PageFootAndTopSect
+    }
+
+    def @PageFootSection
+    {
+	//@MidGap       @PageFootAndTopSect
+	//@FootAboveGap @PageFootNoteSection
+    }
+
+    def @ColTopSection
+    {
+		  @ColTopPlace
+	//@MidGap @ColFootAndTopPlace
+	//@MidGap @TryAfterLinePlace noforce
+	//@MidGap @ColTopSection
+    }
+
+    def @RestOfColSection
+    {
+	          @AfterLinePlace
+	//@MidGap @TryAfterLinePlace force
+	//@MidGap @ColPlace @NotRevealed
+	//@MidGap @RestOfColSection
+    }
+
+    def @IntroRestOfColSection
+    {
+	          @AfterLinePlace
+	//@MidGap @TryAfterLinePlace force
+	//@MidGap @IntroColPlace @NotRevealed
+	//@MidGap @IntroRestOfColSection
+    }
+
+    def @ColFootAndTopList { @ColFootAndTopPlace //@TopGap @ColFootAndTopList }
+
+    def @ColFootNoteList
+    {
+		    @ColFootNotePlace
+	//@FootGap  @ColFootNoteList
+    }
+
+    def @ColFootNoteSection
+    {
+	           @FootLen @Wide @HLine
+	//@FootGap @ColFootNoteList
+    }
+
+    def @ColFootSection
+    {
+	//@TopGap       @ColFootAndTopList
+	//@FootAboveGap @ColFootNoteSection
+    }
+
+    def @ColsOf
+	left num
+	named gap { @ColumnGap }
+	right x
+    {
+	def @Two { x ||gap x }
+	def @Four { @Two ||gap @Two }
+	def @Eight { @Four ||gap @Four }
+
+	num @Case {
+	    1  @Yield { x				}
+	    2  @Yield { @Two				}
+	    3  @Yield { @Two  ||gap x			}
+	    4  @Yield { @Four				}
+	    5  @Yield { @Four ||gap x			}
+	    6  @Yield { @Four ||gap @Two		}
+	    7  @Yield { @Four ||gap @Two  ||gap x	}
+	    8  @Yield { @Four ||gap @Four		}
+	    9  @Yield { @Four ||gap @Four ||gap x	}
+	   10  @Yield { @Four ||gap @Four ||gap @Two	}
+	}
+    }
+
+    def @EqualWidth right x { 50c @Wide x }	# believe it or not
+
+    def @ColList right num
+    {
+	@HExpand num @ColsOf @EqualWidth @VExpand
+	{
+	    @ColTopSection //@TopGap
+	    @ColPlace //@MidGap @RestOfColSection // //1rt
+	    @OneRow { @ColFootSection }
+
+	}
+    }
+    
+    def @IntroColList right num
+    {
+	@HExpand num @ColsOf @EqualWidth @VExpand
+	{
+	    @ColTopSection //@TopGap
+	    @IntroColPlace //@MidGap @IntroRestOfColSection // //1rt
+	    @OneRow { @ColFootSection }
+	}
+    }
+    
+    def @ZeroColList right num
+    {
+	@HExpand num @ColsOf @EqualWidth 0c @High @ColPlace
+    }
+    
+    def @ZeroIntroColList right num
+    {
+	@HExpand num @ColsOf @EqualWidth 0c @High @IntroColPlace
+    }
+    
+    def @IndexColList right num
+    {
+	@HExpand num @ColsOf gap { @IndexColumnGap } @EqualWidth @VExpand @IndexPlace
+    }
+    
+    def @IndexAColList right num
+    {
+	@HExpand num @ColsOf gap { @IndexAColumnGap } @EqualWidth @VExpand @IndexAPlace
+    }
+    
+    def @IndexBColList right num
+    {
+	@HExpand num @ColsOf gap { @IndexBColumnGap } @EqualWidth @VExpand @IndexBPlace
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Footnotes.                                                             #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag count
+    def @FootNoteCounterMarker
+	named @Tag {}
+	named count {}
+    {
+	@Null
+    }
+
+    def @FootNoteNum right tag
+    {
+	@FootNoteCounterMarker&&tag @Open { @Next count }
+    }
+
+    def @FootNoteCounterIncrement
+	right tag
+    {
+	   @FootNoteCounterMarker&&preceding @Tagged tag
+	// @FootNoteCounterMarker count { @FootNoteNum tag }
+	// @NumberMarker @Tag { tag }
+		@Value { @FootNoteNumbers @Num @FootNoteNum tag }
+    }
+
+    def @BeginFootNoteCounter
+    {
+	@FootNoteCounterMarker count { 0 }
+    }
+
+    def @FootNote
+	named @Tag {}
+	named @Location { @FootNoteLocation }
+	named @Another { No }
+	named @Label { Numbered }
+	right x
+    {
+
+	def @FootLabelFmt
+	    right x
+	{
+	    @FootNoteFont @Font @FootNoteBreak @Break
+	    +0.3v @VShift { Base 0.8f } @Font x
+	}
+
+	def @FootExtra
+	{
+            @BackEnd @Case {
+	        PlainText @Yield ","
+	        else @Yield @FootLabelFmt ","
+            }
+	}
+
+	def @FootLabel
+	{
+	    @Label @Case {
+		"Numbered" @Yield { @BackEnd @Case {
+		    PlainText @Yield { ({@NumberOf @Tag}) }
+		    else @Yield @FootLabelFmt @NumberOf @Tag
+		} }
+		else @Yield { @BackEnd @Case {
+		    PlainText @Yield @Label
+		    else @Yield @FootLabelFmt @Label
+		} }
+            }
+	}
+
+	def @LongFootLabel
+	{
+	    @Another @Case {
+		No  @Yield {                 @FootLabel }
+		Yes @Yield { @FootExtra &0iu @FootLabel }
+	    }
+	}
+
+	def @FootVal
+	{
+	    @FootNoteFont @Font @FootNoteBreak @Break @Label @Case {
+		"Numbered" @Yield {
+		    { @FootNoteCounterIncrement @Tag & @FootLabel }
+		      @FootNoteFormat x
+		}
+		else @Yield { @FootLabel @FootNoteFormat x }
+	    }
+	}
+
+	def @PageFootNote into { @PageFootNotePlace&&following } { @FootVal }
+	def @ColFootNote  into { @ColFootNotePlace&&following  } { @FootVal }
+
+	@Location @Case {
+	    ColFoot  @Yield { @Null &0iu @LongFootLabel & @ColFootNote  }
+	    PageFoot @Yield { @Null &0iu @LongFootLabel & @PageFootNote }
+	}
+    }
+
+    macro @AnotherFootNote { @FootNote @Another { Yes } }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Definitions for page lists.  There are four symbols here, in the       #
+    #  following pattern:                                                     #
+    #                                                                         #
+    #    @(Simple | Running)(- | Intro)PageList                               #
+    #                                                                         #
+    #  Running means that the page list is to support running headers.        #
+    #  Intro means that the page list is an introductory page list.           #
+    #  These are then packaged into @PageList and @IntroPageList.             #
+    #                                                                         #
+    ###########################################################################
+
+    def @SStart right @PageNum
+    {
+	@PageNum @Case {
+	    { 1 0 } @Yield Start
+	    else    @Yield NonStart
+	}
+    }
+
+    def @ChooseColList right colnum
+    {
+	@OneOf
+	{
+	    @ColList colnum
+	    @IndexAColList @IndexAColumnNumber
+	    @IndexBColList @IndexBColumnNumber
+	    @IndexColList  @IndexColumnNumber
+	}
+    }
+
+    def @ChooseIntroColList right colnum
+    {
+	@OneOf
+	{
+	    @IntroColList colnum
+	    @IndexAColList @IndexAColumnNumber
+	    @IndexBColList @IndexBColumnNumber
+	    @IndexColList  @IndexColumnNumber
+	}
+    }
+
+    def @SimplePageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named extra { No }
+	named @Orient {}
+	named @AtTop { @Null }
+	right @PageNum
+    {
+
+	def @OrdinaryOddPage
+	{
+		{@PageHeaders.{@SStart @PageNum}} @OddTopHeader
+		    { @PageNumbers @Num @PageNum }
+		//@MidGap @AtTop
+		//@MidGap @PageOddTopSection @Orient
+		//@MidGap @ChooseColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap {@PageHeaders.{@SStart @PageNum}} @OddFootHeader
+				 { @PageNumbers @Num @PageNum }
+		}
+	}
+
+	def @FullPageOddPage
+	{
+		{@PageHeaders.{@SStart @PageNum}} @OddTopHeader
+		    { @PageNumbers @Num @PageNum }
+		//@MidGap @OddFullPageSection
+		// //1rt @OneRow
+		{ //@MidGap {@PageHeaders.{@SStart @PageNum}} @OddFootHeader
+				 { @PageNumbers @Num @PageNum }
+		}
+	}
+
+        def @SimpleEvenPageList
+	    named @ColumnNumber {}
+	    named @PageHeaders {}
+	    named extra { No }
+	    right @PageNum
+        {
+
+	    def @OrdinaryEvenPage
+	    {
+		@PageHeaders.NonStart @EvenTopHeader
+		    { @PageNumbers @Num @PageNum }
+		//@MidGap @PageEvenTopSection @Orient
+		//@MidGap @ChooseColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.NonStart @EvenFootHeader
+			     { @PageNumbers @Num @PageNum }
+		}
+	    }
+
+	    def @FullPageEvenPage
+	    {
+		@PageHeaders.NonStart @EvenTopHeader
+		    { @PageNumbers @Num @PageNum }
+		//@MidGap @EvenFullPageSection
+		// //1rt @OneRow
+		{ //@MidGap @PageHeaders.NonStart @EvenFootHeader
+			     { @PageNumbers @Num @PageNum }
+		}
+	    }
+
+	        @PageMarker
+		    rawnum { @PageNum }
+		    num { @PageNumbers @Num @PageNum }
+	    //  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	    //  {} @EvenPage @Orient { @Orient }
+	        {
+		    @OrdinaryEvenPage ||{@OrientedWidth @Orient} @FullPageEvenPage
+	        }
+	    //  @SimplePageList
+		    @ColumnNumber { @ColumnNumber }
+		    @PageHeaders { @PageHeaders }
+		    @Orient { @Orient }
+		@Next @PageNum
+        }
+
+	    @PageMarker
+		rawnum { @PageNum }
+		num { @PageNumbers @Num @PageNum }
+	//  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  { extra @Then @ZeroColList @ColumnNumber } @OddPage @Orient { @Orient }
+	    {
+		@OrdinaryOddPage ||{@OrientedWidth @Orient} @FullPageOddPage
+	    }
+	//  @SimpleEvenPageList
+		@ColumnNumber { @ColumnNumber }
+		@PageHeaders { @PageHeaders }
+	    @Next @PageNum
+    }
+
+    def @SimpleIntroPageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named @Orient {}
+	named extra { No }
+	named @AtTop { @Null }
+	right @PageNum
+    {
+	    @PageMarker
+		num { @IntroPageNumbers @Num @PageNum }
+		rawnum { @PageNum }
+	//  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  { extra @Then @ZeroIntroColList @ColumnNumber } @OddPage @Orient { @Orient }
+	    {
+		{@PageHeaders.{@SStart @PageNum}} @IntroOddTopHeader
+		    { @IntroPageNumbers @Num @PageNum }
+		//@MidGap @AtTop
+		//@MidGap @PageIntroOddTopSection @Orient
+		//@MidGap @ChooseIntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap
+		       {@PageHeaders.{@SStart @PageNum}} @IntroOddFootHeader
+			   { @IntroPageNumbers @Num @PageNum }
+		}
+	    }
+	//  @PageMarker
+		num { @IntroPageNumbers @Num @Next @PageNum }
+		rawnum { @Next @PageNum }
+	//  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  {} @EvenPage @Orient { @Orient }
+	    @Runner&&following @Open
+	    {
+		@PageHeaders.NonStart @IntroEvenTopHeader { @IntroPageNumbers @Num @Next @PageNum }
+		//@MidGap @PageIntroEvenTopSection @Orient
+		//@MidGap @ChooseIntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.NonStart @IntroEvenFootHeader
+				{ @IntroPageNumbers @Num @Next @PageNum }
+		}
+	    }
+	//  @SimpleIntroPageList
+		@ColumnNumber { @ColumnNumber }
+		@PageHeaders { @PageHeaders }
+		@Orient { @Orient }
+	    @Next @Next @PageNum
+    }
+
+    def @SimpleOddOrEvenIntroPageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named @Orient {}
+	named extra { No }
+	named @AtTop { @Null }
+	right @PageNum
+    {
+
+        def @SimpleEvenIntroPageList
+	    named @ColumnNumber {}
+	    named @PageHeaders {}
+	    named @Orient {}
+	    named extra { No }
+	    named @AtTop { @Null }
+	    right @PageNum
+       {
+
+	    @PageMarker
+		num { @IntroPageNumbers @Num @PageNum }
+		rawnum { @PageNum }
+	 // @FootNoteThrough @NoDo @BeginFootNoteCounter
+	 // {} @EvenPage @Orient { @Orient }
+	    @Runner&&following @Open
+	    {
+		@PageHeaders.NonStart @IntroEvenTopHeader { @IntroPageNumbers @Num @PageNum }
+		//@MidGap @PageIntroEvenTopSection @Orient
+		//@MidGap @ChooseIntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.NonStart @IntroEvenFootHeader
+				{ @IntroPageNumbers @Num @PageNum }
+		}
+	    }
+	 // @SimpleOddOrEvenIntroPageList
+		@ColumnNumber { @ColumnNumber }
+		@PageHeaders { @PageHeaders }
+		@Orient { @Orient }
+	    @Next @PageNum
+       }
+	    @PageMarker
+		num { @IntroPageNumbers @Num @PageNum }
+		rawnum { @PageNum }
+	//  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  { extra @Then @ZeroIntroColList @ColumnNumber } @OddPage @Orient { @Orient }
+	    {
+		{@PageHeaders.{@SStart @PageNum}} @IntroOddTopHeader
+		    { @IntroPageNumbers @Num @PageNum }
+		//@MidGap @AtTop
+		//@MidGap @PageIntroOddTopSection @Orient
+		//@MidGap @ChooseIntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap
+		       {@PageHeaders.{@SStart @PageNum}} @IntroOddFootHeader
+			   { @IntroPageNumbers @Num @PageNum }
+		}
+	    }
+	//  @SimpleEvenIntroPageList
+		@ColumnNumber { @ColumnNumber }
+		@PageHeaders { @PageHeaders }
+		@Orient { @Orient }
+		@Next @PageNum
+    }
+
+    def @RunningPageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named extra { No }
+	named @Orient {}
+	named @AtTop { @Null }
+	right @PageNum
+    {
+
+	def @OrdinaryOddPage
+	{
+	    @Runner&&following @Open
+	    {
+		@PageMarker
+		    num { @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner } }
+		    rawnum { @PageNum }
+		// @PageHeaders.@Start @RunningOddTopHeader
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    {
+			@MakePageNum
+			    numbers { @PageNumbers }
+			    rawnum  { @PageNum }
+			    prefix  { @Prefix }
+			    owner   { @Owner }
+		    }
+		//@MidGap @AtTop
+		//@MidGap @PageOddTopSection @Orient
+		//@MidGap @ChooseColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.@Start @RunningOddFootHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		}
+	    }
+	}
+
+	def @FullPageOddPage
+	{
+	    @Runner&&following @Open
+	    {
+		@PageMarker
+		    num { @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner } }
+		    rawnum { @PageNum }
+		// @PageHeaders.@Start @RunningOddTopHeader
+		    @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+		    @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+		    {
+			@MakePageNum
+			    numbers { @PageNumbers }
+			    rawnum  { @PageNum }
+			    prefix  { @Prefix }
+			    owner   { @Owner }
+		    }
+		//@MidGap @AtTop
+		//@MidGap @OddFullPageSection
+		// //1rt @OneRow
+		{
+		   //@MidGap @PageHeaders.@Start @RunningOddFootHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		}
+	    }
+	}
+
+        def @RunningEvenPageList
+	    named @ColumnNumber {}
+	    named @PageHeaders {}
+	    right @PageNum
+        {
+
+	    def @OrdinaryEvenPage
+	    {
+	        @Runner&&following @Open
+	        {
+		    @PageMarker
+			num { @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner } }
+			rawnum { @PageNum }
+		    // @PageHeaders.@Start @RunningEvenTopHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		    //@MidGap @PageEvenTopSection @Orient
+		    //@MidGap @ChooseColList @ColumnNumber
+		    // //1rt @OneRow
+		    {  //        @PageFootSection
+		       //@MidGap @PageHeaders.@Start @RunningEvenFootHeader
+			   @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			   @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			   {
+				@MakePageNum
+				    numbers { @PageNumbers }
+				    rawnum  { @PageNum }
+				    prefix  { @Prefix }
+				    owner   { @Owner }
+			   }
+		    }
+	        }
+	    }
+
+	    def @FullPageEvenPage
+	    {
+	        @Runner&&following @Open
+	        {
+		    @PageMarker
+			num { @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner } }
+			rawnum { @PageNum }
+		    // @PageHeaders.@Start @RunningEvenTopHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @PageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		    //@MidGap @EvenFullPageSection
+		    // //1rt @OneRow
+		    {
+		       //@MidGap @PageHeaders.@Start @RunningEvenFootHeader
+			   @MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			   @MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			   {
+				@MakePageNum
+				    numbers { @PageNumbers }
+				    rawnum  { @PageNum }
+				    prefix  { @Prefix }
+				    owner   { @Owner }
+			   }
+		    }
+	        }
+	    }
+
+		@FootNoteThrough @NoDo @BeginFootNoteCounter
+	    //  {} @EvenPage @Orient { @Orient }
+	        {
+		    @OrdinaryEvenPage ||{@OrientedWidth @Orient} @FullPageEvenPage
+	        }
+	    //  @RunningPageList
+		    @ColumnNumber { @ColumnNumber }
+		    @PageHeaders { @PageHeaders }
+		    @Orient { @Orient }
+		@Next @PageNum
+        }
+
+	    @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  { extra @Then @ZeroColList @ColumnNumber } @OddPage @Orient { @Orient }
+	    {
+		@OrdinaryOddPage ||{@OrientedWidth @Orient} @FullPageOddPage
+	    }
+	//  @RunningEvenPageList
+		@ColumnNumber { @ColumnNumber }
+		@PageHeaders { @PageHeaders }
+	    @Next @PageNum
+    }
+
+    def @RunningIntroPageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named @AtTop { @Null }
+	named @Orient {}
+	named extra { No }
+	right @PageNum
+    {
+	    @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  { extra @Then @ZeroIntroColList @ColumnNumber } @OddPage @Orient { @Orient }
+	    @Runner&&following @Open
+	    {
+		@PageMarker
+		    num { @MakePageNum
+			    numbers { @IntroPageNumbers }
+			    rawnum  { @PageNum }
+			    prefix  { @Prefix }
+			    owner   { @Owner } }
+		    rawnum { @PageNum }
+		// @PageHeaders.@Start @RunningIntroOddTopHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @IntroPageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		//@MidGap @AtTop
+		//@MidGap @PageIntroOddTopSection @Orient
+		//@MidGap @IntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.@Start @RunningIntroOddFootHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @IntroPageNumbers }
+				rawnum  { @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		}
+	    }
+	//  @FootNoteThrough @NoDo @BeginFootNoteCounter
+	//  {} @EvenPage @Orient { @Orient }
+	    @Runner&&following @Open
+	    {
+		@PageMarker
+		    num { @MakePageNum
+			    numbers { @IntroPageNumbers }
+			    rawnum  { @Next @PageNum }
+			    prefix  { @Prefix }
+			    owner   { @Owner } }
+		    rawnum { @Next @PageNum }
+		// @PageHeaders.@Start @RunningIntroEvenTopHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @IntroPageNumbers }
+				rawnum  { @Next @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		//@MidGap @PageIntroEvenTopSection @Orient
+		//@MidGap @ChooseIntroColList @ColumnNumber
+		// //1rt @OneRow
+		{  //        @PageFootSection
+		   //@MidGap @PageHeaders.@Start @RunningIntroEvenFootHeader
+			@MajorNum { @MajorNum } @MajorTitle { @MajorTitle }
+			@MinorNum { @MinorNum } @MinorTitle { @MinorTitle }
+			{
+			    @MakePageNum
+				numbers { @IntroPageNumbers }
+				rawnum  { @Next @PageNum }
+				prefix  { @Prefix }
+				owner   { @Owner }
+			}
+		}
+	    }
+	//  @RunningIntroPageList
+		@PageHeaders { @PageHeaders }
+		@ColumnNumber { @ColumnNumber }
+		@Orient { @Orient }
+	    @Next @Next @PageNum
+    }
+
+    def @PageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named extra { No }
+	named @Orient {}
+	named @AtTop { @Null }
+	right @FirstPageNum
+    {
+	@PageHeaders @Case {
+	    { None Simple } @Yield @SimplePageList
+		  @ColumnNumber { @ColumnNumber }
+		  @PageHeaders { @PageHeaders }
+		  @Orient { @Orient }
+		  extra { extra }
+		  @AtTop { @AtTop }
+		  @FirstPageNum
+	    { Running Titles } @Yield @RunningPageList
+		  @ColumnNumber { @ColumnNumber }
+		  @PageHeaders { @PageHeaders }
+		  @Orient { @Orient }
+		  extra { extra }
+		  @AtTop { @AtTop }
+		  @FirstPageNum
+	}
+	//
+	@PageMark last.page
+    }
+
+    def @IntroPageList
+	named @ColumnNumber {}
+	named @PageHeaders {}
+	named @Orient {}
+	named extra { No }
+	named @AtTop { @Null }
+	right @FirstPageNum
+    {
+	@PageHeaders @Case {
+	    { None Simple } @Yield @SimpleIntroPageList
+		  @ColumnNumber { @ColumnNumber }
+		  @PageHeaders { @PageHeaders }
+		  @Orient { @Orient }
+		  extra { extra }
+		  @AtTop { @AtTop }
+		  @FirstPageNum
+	    { Running Titles } @Yield @RunningIntroPageList
+		  @ColumnNumber { @ColumnNumber }
+		  @PageHeaders { @PageHeaders }
+		  @Orient { @Orient }
+		  extra { extra }
+		  @AtTop { @AtTop }
+		  @FirstPageNum
+	}
+    }
+
+    def @ContinuousPageList
+	named @Orient {}
+    {
+	{@OrientedWidth @Orient} @Wide
+	{   //@TopMargin ||@EvenLeftMargin
+	    {
+				@BeginFootNoteCounter
+		//		@ColPlace
+		//@FootAboveGap	@ColFootNoteSection
+		//@FootAboveGap	@PageFootNoteSection
+	    }
+	    ||@EvenRightMargin //@FootMargin
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Table of contents (including lists of figures and tables).             #
+    #                                                                         #
+    ###########################################################################
+
+    def @ContentsItem
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+	named pregap { @ContentsGap }
+	named postgap { 0c }
+	named protect { No }
+    {
+	def @Leaders { @ContentsLeader &@ContentsLeaderGap @Leaders }
+
+	def @RightPart
+	{
+	    @ContentsRightWidth @Wide {
+		# &@ContentsLeaderGap @Leaders &@ContentsLeaderGap
+		&1rt { pagenum //0.5vx }
+	    }
+	}
+
+	def @Item
+	{
+	    |indent number @ContentsFormat @HExpand {
+	        title & @ContentsLeaderGap @Wide &1rt @OneCol {
+		    @Leaders & @RightPart &0io
+	        }
+	    }
+	    |@ContentsRightWidth
+	}
+
+	//pregap
+	//0.5vx
+	@BackEnd @Case {
+	  { PostScript PlainText } @Yield {
+	    protect @Case {
+	      No    @Yield @Item
+	      Yes   @Yield @Protect @Item
+	    }
+	  }
+	  PDF @Yield {
+	    protect @Case {
+	      No    @Yield { "__link_source=<<"title">>" } @Graphic @Item
+	      Yes   @Yield { "__link_source=<<"title">>" } @Graphic { @Protect @Item }
+	    }
+	  }
+	}
+	//postgap
+    }
+
+    def @ContentsPlace { @Galley }
+    def @FigureContentsPlace { @Galley }
+    def @TableContentsPlace { @Galley }
+
+    def @SendContents into { @ContentsPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+    def @SendFigureContents into { @FigureContentsPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+    def @SendTableContents into { @TableContentsPlace&&preceding }
+	right x
+    {
+	x
+    }
+
+    def @ContentsEntry
+	left  wanted
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+	named pregap { @ContentsGap }
+	named postgap { 0c }
+    {
+	@MakeContents.wanted @Case {
+	    Yes.Yes   @Yield { @SendContents @ContentsItem
+				   indent { indent }
+				   number { number }
+				   title { title }
+				   pagenum { pagenum }
+				   pregap { pregap }
+				   postgap { postgap }
+			     }
+	    else      @Yield @Null
+	}
+    }
+
+    def @FigureContentsEntry
+	left  wanted
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+	named pregap { @ContentsGap }
+	named postgap { 0c }
+    {
+	@MakeFigureContents.wanted @Case {
+	    Yes.Yes   @Yield { @SendFigureContents @ContentsItem
+				   indent { indent }
+				   number { number }
+				   title { title }
+				   pagenum { pagenum }
+				   pregap { pregap }
+				   postgap { postgap }
+			     }
+	    else      @Yield @Null
+	}
+    }
+
+    def @TableContentsEntry
+	left  wanted
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+	named pregap { @ContentsGap }
+	named postgap { 0c }
+    {
+	@MakeTableContents.wanted @Case {
+	    Yes.Yes   @Yield { @SendTableContents @ContentsItem
+				   indent { indent }
+				   number { number }
+				   title { title }
+				   pagenum { pagenum }
+				   pregap { pregap }
+				   postgap { postgap }
+			     }
+	    else      @Yield @Null
+	}
+    }
+
+    def @MajorContentsEntry
+	left  wanted
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+	named pregap { @ContentsGapAbove }
+	named postgap { @ContentsGapBelow }
+    {
+	@MakeContents.wanted @Case {
+	    Yes.Yes   @Yield { @SendContents @ContentsItem
+				   indent { indent }
+				   number { @ContentsFont @Font number }
+				   title { @ContentsFont @Font title }
+				   pagenum { pagenum }
+				   pregap { pregap }
+				   postgap { postgap }
+				   protect { Yes }
+			     }
+	    else      @Yield @Null
+	}
+    }
+
+    def @VeryMajorContentsEntry
+	left  wanted
+	named indent { 0.5rt }
+	named title {}
+	named pregap { @ContentsPartGapAbove }
+	named postgap { @ContentsPartGapBelow }
+    {
+	def item
+	{
+	    //pregap
+	    //0.5vx
+	    |indent @ContentsFont @Font @OneCol title |
+	    //0.5vx
+	    //postgap
+	}
+
+	@MakeContents.wanted @Case {
+	    Yes.Yes   @Yield @SendContents item
+	    else      @Yield @Null
+	}
+
+    }
+
+    def @ContentsSection
+    {
+	def @ContentsList { @ContentsPlace // @ContentsList }
+
+	@MakeContents @Case {
+	    { Yes Bypass }  @Yield @ContentsList
+	    else	    @Yield @Null
+	}
+    }
+
+    def @FigureContentsSection
+    {
+	def @FigureContentsList { @FigureContentsPlace // @FigureContentsList }
+
+	@MakeFigureContents @Case {
+	    { Yes Bypass }  @Yield @FigureContentsList
+	    else	    @Yield @Null
+	}
+    }
+
+    def @TableContentsSection
+    {
+	def @TableContentsList { @TableContentsPlace // @TableContentsList }
+
+	@MakeTableContents @Case {
+	    { Yes Bypass }  @Yield @TableContentsList
+	    else	    @Yield @Null
+	}
+    }
+
+    ###########################################################################
+    #                                                                         #
+    #  Bypass table of contents.                                              #
+    #                                                                         #
+    ###########################################################################
+
+    def @BypassContentsEntry into { @ContentsPlace&&preceding }
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+    {
+	@MakeContents @Case {
+	    Bypass @Yield { @ContentsItem
+				indent { indent }
+				number { number }
+				title { title }
+				pagenum { pagenum }
+				pregap { @ContentsGap }
+				postgap { 0c }
+			  }
+	    else  @Yield  @Null
+	}
+    }
+
+    def @BypassFigureContentsEntry into { @FigureContentsPlace&&preceding }
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+    {
+	@MakeFigureContents @Case {
+	    Bypass @Yield { @ContentsItem
+				indent { indent }
+				number { number }
+				title { title }
+				pagenum { pagenum }
+				pregap { @ContentsGap }
+				postgap { 0c }
+			  }
+	    else  @Yield  @Null
+	}
+    }
+
+    def @BypassTableContentsEntry into { @TableContentsPlace&&preceding }
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+    {
+	@MakeTableContents @Case {
+	    Bypass @Yield { @ContentsItem
+				indent { indent }
+				number { number }
+				title { title }
+				pagenum { pagenum }
+				pregap { @ContentsGap }
+				postgap { 0c }
+			  }
+	    else  @Yield  @Null
+	}
+    }
+
+    def @BypassMajorContentsEntry into { @ContentsPlace&&preceding }
+	named indent { 0f }
+	named number {}
+	named title {}
+	named pagenum {}
+    {
+	@MakeContents @Case {
+	    Bypass @Yield { @ContentsItem
+				indent { indent }
+				number { @B number }
+				title { @B title }
+				pagenum { pagenum }
+				pregap { @ContentsGapAbove }
+				postgap { @ContentsGapBelow }
+			  }
+	    else  @Yield  @Null
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Endnotes.                                                              #
+    #                                                                         #
+    ###########################################################################
+
+    export num
+    def @EndNoteList
+	named @Tag {}
+	right num
+    {
+	@Galley //@EndNoteGap @EndNoteList @Next num
+    }
+
+    def endtag right num
+    {
+        @BackEnd @Case {
+	    PlainText @Yield {
+	        ({@EndNoteNumbers @Num num})
+	    }
+	    else @Yield {
+	        +0.3v @VShift 0.8f @Font @EndNoteNumbers @Num num
+	    }
+        }
+    }
+
+    def @EndNote
+	named @Tag {}
+	right x
+    {
+	def ftag
+	{
+	    @EndNoteFont @Font @EndNoteList&&@Tag @Open { endtag num }
+	}
+
+	def @ENote into { @EndNoteList&&following }
+	{
+	    @EndNoteFont @Font @EndNoteBreak @Break
+	    { { @EndNoteList&&preceding @Tagged @Tag ftag } @EndNoteFormat x }
+	}
+
+	@Null & @EndNoteFont @Font ftag & @ENote
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Margin Notes.                                                          #
+    #                                                                         #
+    ###########################################################################
+
+    def @ZeroSize right x
+    {
+	@HContract @VContract { ^/0io |0io @OneCol @OneRow x |0io /0io }
+    }
+
+    def @MargPut
+	left parity
+	right x
+    {
+	@MarginNoteFont @Font @MarginNoteBreak @Break @ZeroSize {
+	  @BackEnd @Case {
+	    PlainText @Yield ""
+	    PostScript @Yield {
+	    { parity "LoutMargShift gsave" // "grestore" } @Graphic
+	    {
+		|@MarginNoteHGap @MarginNoteWidth @Wide @OneRow x
+		|@MarginNoteHGap //@MarginNoteVGap
+	    }
+	    }
+	    PDF @Yield { "% @MargPut/LoutMargShift UNIMPLEMENTED" @Graphic {
+		  |@MarginNoteHGap @MarginNoteWidth @Wide @OneRow x
+		  |@MarginNoteHGap //@MarginNoteVGap
+	      }	# VT: PDF currently has no output
+	    }
+	  }
+	}
+    }
+
+    def @LeftNote  right x { @Null & 0 @MargPut x }
+    def @RightNote right x { @Null & 1 @MargPut x }
+    def @OuterNote right x { @Null & 2 @MargPut x }
+    def @InnerNote right x { @Null & 3 @MargPut x }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Place: places an object at an arbitrary point on the page.            #
+    #                                                                         #
+    ###########################################################################
+
+#
+# VT: the expressions in the braces will work for PostScript but not for PDF
+# they should be modified in the way the "named c { " cm" }" blocks were modified above
+# but since the point of @Place is to output a matrix (?), I have not implemented this change
+#
+    def @Place
+      named x
+	named "+" precedence 96 associativity left left a right b { a b "add" }
+	named "-" precedence 96 associativity left left a right b { a b "sub" }
+	named "/" precedence 97 associativity left left a right b { a b "div" }
+	named "*" precedence 98 associativity left left a right b { a b "mul" }
+	named c   precedence 99                    left a         { a "cm"    }
+	named i   precedence 99                    left a         { a "in"    }
+	named e   precedence 99                    left a         { a "em"    }
+	named p   precedence 99                    left a         { a "pt"    }
+	named f   precedence 99                    left a         { a "ft"    }
+	named s   precedence 99                    left a         { a "sp"    }
+	named v   precedence 99                    left a         { a "vs"    }
+	named cm  precedence 99                    left a         { a "cm"    }
+	named in  precedence 99                    left a         { a "in"    }
+	named em  precedence 99                    left a         { a "em"    }
+	named pt  precedence 99                    left a         { a "pt"    }
+	named ft  precedence 99                    left a         { a "ft"    }
+	named sp  precedence 99                    left a         { a "sp"    }
+	named vs  precedence 99                    left a         { a "vs"    }
+	{ 0 }
+      named y
+	named "+" precedence 96 associativity left left a right b { a b "add" }
+	named "-" precedence 96 associativity left left a right b { a b "sub" }
+	named "/" precedence 97 associativity left left a right b { a b "div" }
+	named "*" precedence 98 associativity left left a right b { a b "mul" }
+	named c   precedence 99                    left a         { a "cm"    }
+	named i   precedence 99                    left a         { a "in"    }
+	named e   precedence 99                    left a         { a "em"    }
+	named p   precedence 99                    left a         { a "pt"    }
+	named f   precedence 99                    left a         { a "ft"    }
+	named s   precedence 99                    left a         { a "sp"    }
+	named v   precedence 99                    left a         { a "vs"    }
+	named cm  precedence 99                    left a         { a "cm"    }
+	named in  precedence 99                    left a         { a "in"    }
+	named em  precedence 99                    left a         { a "em"    }
+	named pt  precedence 99                    left a         { a "pt"    }
+	named ft  precedence 99                    left a         { a "ft"    }
+	named sp  precedence 99                    left a         { a "sp"    }
+	named vs  precedence 99                    left a         { a "vs"    }
+	{ 0 }
+      right val
+    {
+	@ZeroSize {
+	  @BackEnd @Case {
+	    PlainText @Yield ""
+	    PostScript @Yield {
+		{ "LoutPageDict begin matr setmatrix" x y "translate end gsave"
+		  // "grestore" } @Graphic val
+	    }
+	    else @Yield { { "% @Place UNIMPLEMENTED" } @Graphic val	# VT: PDF currently has no output
+	    }
+	  }
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Theorem, @Proof, and @EndProof                                       #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @TheoremCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginTheoremCounter
+	right prefix
+    {
+	@TheoremCounterMarker val { prefix @Join 0 }
+    }
+
+    def @TheoremNum right tag
+    {
+	@TheoremCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @TheoremCounterIncrement
+	right tag
+    {
+	@TheoremCounterMarker&&preceding @Tagged tag
+	@TheoremCounterMarker val { @TheoremNum tag }
+	@NumberMarker @Tag { tag } @Value { @TheoremNum tag }
+    }
+
+    def @Theorem
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @TheoremTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield @TheoremTitleFormat @Title
+	   }
+	}
+
+	{ @PageMark @Tag @TheoremCounterIncrement @Tag } @Insert
+	@TheoremFormat
+	    word { theorem @WordVal @TheoremWord }
+	    number { @TheoremNum @Tag }
+	    title { @TheoremTitle }
+	    body { x }
+    }
+
+    macro @Proof { @B { {proof @WordVal @ProofWord}: } &2s }
+
+    macro @EndProof { &1rt @Box {} }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Definition                                                           #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @DefinitionCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginDefinitionCounter
+	right prefix
+    {
+	@DefinitionCounterMarker val { prefix @Join 0 }
+    }
+
+    def @DefinitionNum right tag
+    {
+	@DefinitionCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @DefinitionCounterIncrement
+	right tag
+    {
+	@DefinitionCounterMarker&&preceding @Tagged tag
+	@DefinitionCounterMarker val { @DefinitionNum tag }
+	@NumberMarker @Tag { tag } @Value { @DefinitionNum tag }
+    }
+
+    def @Definition
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @DefinitionTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @DefinitionCounterIncrement @Tag } @Insert
+	@DefinitionFormat
+	    word { definition @WordVal @DefinitionWord }
+	    number { @DefinitionNum @Tag }
+	    title { @DefinitionTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Claim                                                                #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @ClaimCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginClaimCounter
+	right prefix
+    {
+	@ClaimCounterMarker val { prefix @Join 0 }
+    }
+
+    def @ClaimNum right tag
+    {
+	@ClaimCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @ClaimCounterIncrement
+	right tag
+    {
+	@ClaimCounterMarker&&preceding @Tagged tag
+	@ClaimCounterMarker val { @ClaimNum tag }
+	@NumberMarker @Tag { tag } @Value { @ClaimNum tag }
+    }
+
+    def @Claim
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @ClaimTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @ClaimCounterIncrement @Tag } @Insert
+	@ClaimFormat
+	    word { claim @WordVal @ClaimWord }
+	    number { @ClaimNum @Tag }
+	    title { @ClaimTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Proposition                                                          #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @PropositionCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginPropositionCounter
+	right prefix
+    {
+	@PropositionCounterMarker val { prefix @Join 0 }
+    }
+
+    def @PropositionNum right tag
+    {
+	@PropositionCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @PropositionCounterIncrement
+	right tag
+    {
+	@PropositionCounterMarker&&preceding @Tagged tag
+	@PropositionCounterMarker val { @PropositionNum tag }
+	@NumberMarker @Tag { tag } @Value { @PropositionNum tag }
+    }
+
+    def @Proposition
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @PropositionTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @PropositionCounterIncrement @Tag } @Insert
+	@PropositionFormat
+	    word { proposition @WordVal @PropositionWord }
+	    number { @PropositionNum @Tag }
+	    title { @PropositionTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Lemma                                                                #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @LemmaCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginLemmaCounter
+	right prefix
+    {
+	@LemmaCounterMarker val { prefix @Join 0 }
+    }
+
+    def @LemmaNum right tag
+    {
+	@LemmaCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @LemmaCounterIncrement
+	right tag
+    {
+	@LemmaCounterMarker&&preceding @Tagged tag
+	@LemmaCounterMarker val { @LemmaNum tag }
+	@NumberMarker @Tag { tag } @Value { @LemmaNum tag }
+    }
+
+    def @Lemma
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @LemmaTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @LemmaCounterIncrement @Tag } @Insert
+	@LemmaFormat
+	    word { lemma @WordVal @LemmaWord }
+	    number { @LemmaNum @Tag }
+	    title { @LemmaTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Corollary                                                            #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @CorollaryCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginCorollaryCounter
+	right prefix
+    {
+	@CorollaryCounterMarker val { prefix @Join 0 }
+    }
+
+    def @CorollaryNum right tag
+    {
+	@CorollaryCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @CorollaryCounterIncrement
+	right tag
+    {
+	@CorollaryCounterMarker&&preceding @Tagged tag
+	@CorollaryCounterMarker val { @CorollaryNum tag }
+	@NumberMarker @Tag { tag } @Value { @CorollaryNum tag }
+    }
+
+    def @Corollary
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @CorollaryTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @CorollaryCounterIncrement @Tag } @Insert
+	@CorollaryFormat
+	    word { corollary @WordVal @CorollaryWord }
+	    number { @CorollaryNum @Tag }
+	    title { @CorollaryTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @Example                                                              #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag val
+    def @ExampleCounterMarker
+	named @Tag {}
+	named val {}
+    {
+	@Null
+    }
+
+    def @BeginExampleCounter
+	right prefix
+    {
+	@ExampleCounterMarker val { prefix @Join 0 }
+    }
+
+    def @ExampleNum right tag
+    {
+	@ExampleCounterMarker&&tag @Open { @Next val }
+    }
+
+    def @ExampleCounterIncrement
+	right tag
+    {
+	@ExampleCounterMarker&&preceding @Tagged tag
+	@ExampleCounterMarker val { @ExampleNum tag }
+	@NumberMarker @Tag { tag } @Value { @ExampleNum tag }
+    }
+
+    def @Example
+       named @Tag {}
+       named @Title {}
+       right x
+    {
+	def @ExampleTitle
+	{
+	   @Title @Case {
+		""   @Yield @Null
+		else @Yield (@Title)
+	   }
+	}
+
+	{ @PageMark @Tag @ExampleCounterIncrement @Tag } @Insert
+	@ExampleFormat
+	    word { example @WordVal @ExampleWord }
+	    number { @ExampleNum @Tag }
+	    title { @ExampleTitle }
+	    body { x }
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @BeginAllCounters - begin all counters                                 #
+    #                                                                         #
+    ###########################################################################
+
+    def @BeginAllCounters
+	left condition
+	right prefix
+    {
+	condition @Do {
+	    @BeginTheoremCounter prefix
+	    // @BeginDefinitionCounter prefix
+	    // @BeginClaimCounter prefix
+	    // @BeginPropositionCounter prefix
+	    // @BeginLemmaCounter prefix
+	    // @BeginCorollaryCounter prefix
+	    // @BeginExampleCounter prefix
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Reference - a reference.                                              #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag @Type @Abstract @Address @Annote @Author @Day @Edition
+	   @HowPublished @InAuthor @InTitle @Institution @Journal @Keywords
+	   @Label @Month @Note @Number @Organization @Page @Pages @Pinpoint
+	   @Publisher @Title @TitleNote @TRType @URL @Volume @Year
+
+    def @Reference
+	named compulsory @Tag		{}
+	named compulsory @Type		{}
+	named @Abstract			{}
+	named @Address			{}
+	named @Annote			{}
+	named @Author			{}
+	named @Day			{}
+	named @Edition			{}
+	named @HowPublished		{}
+	named @InAuthor			{}
+	named @InTitle			{}
+	named @Institution		{}
+	named @Journal			{}
+	named @Keywords			{}
+	named @Label			{}
+	named @Month			{}
+	named @Note			{}
+	named @Number			{}
+	named @Organization		{}
+	named @Page			{}
+	named @Pages			{}
+	named @Pinpoint			{}
+	named @Publisher		{}
+	named @Title			{}
+	named @TitleNote		{}
+	named @TRType			{}
+	named @URL
+	  named "~"  { "~"      }
+	  named "/"  { "/"  &0p }
+	  named "//" { "//" &0p }	{}
+	named @Volume			{}
+	named @Year			{}
+    { @Null }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @CiteLabel - the value of the label of a reference within a citation.  #
+    #                                                                         #
+    ###########################################################################
+
+    def @CiteLabel
+	left label
+	right tag 
+    {
+	@RefCiteLabels
+	    @RefNum       { @NumberOf tag				}
+	    @Tag          { tag						}
+	    @Type         { @Reference&&tag @Open { @Type }		}
+	    @Abstract     { @Reference&&tag @Open { @Abstract }		}
+	    @Address      { @Reference&&tag @Open { @Address }		}
+	    @Annote       { @Reference&&tag @Open { @Annote }		}
+	    @Author       { @Reference&&tag @Open { @Author }		}
+	    @Day          { @Reference&&tag @Open { @Day }		}
+	    @Edition      { @Reference&&tag @Open { @Edition }		}
+	    @HowPublished { @Reference&&tag @Open { @HowPublished }	}
+	    @InAuthor     { @Reference&&tag @Open { @InAuthor }		}
+	    @InTitle      { @Reference&&tag @Open { @InTitle }		}
+	    @Institution  { @Reference&&tag @Open { @Institution }	}
+	    @Journal      { @Reference&&tag @Open { @Journal }		}
+	    @Keywords     { @Reference&&tag @Open { @Keywords }		}
+
+	    @Label        { label @Case {
+			      "" @Yield {@Reference&&tag @Open {@Label}}
+			      else @Yield label
+			    }						}
+
+	    @Month        { @Reference&&tag @Open { @Month }		}
+	    @Note         { @Reference&&tag @Open { @Note }		}
+	    @Number       { @Reference&&tag @Open { @Number }		}
+	    @Organization { @Reference&&tag @Open { @Organization }	}
+	    @Page         { @Reference&&tag @Open { @Page }		}
+	    @Pages        { @Reference&&tag @Open { @Pages }		}
+	    @Pinpoint     { @Reference&&tag @Open { @Pinpoint }		}
+	    @Publisher    { @Reference&&tag @Open { @Publisher }	}
+	    @Title        { @Reference&&tag @Open { @Title }		}
+	    @TitleNote    { @Reference&&tag @Open { @TitleNote }	}
+	    @TRType       { @Reference&&tag @Open { @TRType }		}
+	    @Volume       { @Reference&&tag @Open { @Volume }		}
+	    @Year         { @Reference&&tag @Open { @Year }		}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @ListLabel - the value of the label of a reference within a ref list.  #
+    #                                                                         #
+    ###########################################################################
+
+    def @ListLabel
+	left label
+	right tag 
+    {
+	@RefListLabels
+	    @RefNum       { @NumberOf tag				}
+	    @Tag          { tag						}
+	    @Type         { @Reference&&tag @Open { @Type }		}
+	    @Abstract     { @Reference&&tag @Open { @Abstract }		}
+	    @Address      { @Reference&&tag @Open { @Address }		}
+	    @Annote       { @Reference&&tag @Open { @Annote }		}
+	    @Author       { @Reference&&tag @Open { @Author }		}
+	    @Day          { @Reference&&tag @Open { @Day }		}
+	    @Edition      { @Reference&&tag @Open { @Edition }		}
+	    @HowPublished { @Reference&&tag @Open { @HowPublished }	}
+	    @InAuthor     { @Reference&&tag @Open { @InAuthor }		}
+	    @InTitle      { @Reference&&tag @Open { @InTitle }		}
+	    @Institution  { @Reference&&tag @Open { @Institution }	}
+	    @Journal      { @Reference&&tag @Open { @Journal }		}
+	    @Keywords     { @Reference&&tag @Open { @Keywords }		}
+
+	    @Label        { label @Case {
+			      "" @Yield {@Reference&&tag @Open {@Label}}
+			      else @Yield label
+			    }						}
+
+	    @Month        { @Reference&&tag @Open { @Month }		}
+	    @Note         { @Reference&&tag @Open { @Note }		}
+	    @Number       { @Reference&&tag @Open { @Number }		}
+	    @Organization { @Reference&&tag @Open { @Organization }	}
+	    @Page         { @Reference&&tag @Open { @Page }		}
+	    @Pages        { @Reference&&tag @Open { @Pages }		}
+	    @Pinpoint     { @Reference&&tag @Open { @Pinpoint }		}
+	    @Publisher    { @Reference&&tag @Open { @Publisher }	}
+	    @Title        { @Reference&&tag @Open { @Title }		}
+	    @TitleNote    { @Reference&&tag @Open { @TitleNote }	}
+	    @TRType       { @Reference&&tag @Open { @TRType }		}
+	    @Volume       { @Reference&&tag @Open { @Volume }		}
+	    @Year         { @Reference&&tag @Open { @Year }		}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @SortKey - the value of the sort key of a reference.                   #
+    #                                                                         #
+    ###########################################################################
+
+    def @SortKey
+	left label
+	right tag 
+    {
+	@RefListSortKey
+	    @Tag          { tag						}
+	    @Type         { @Reference&&tag @Open { @Type }		}
+	    @Abstract     { @Reference&&tag @Open { @Abstract }		}
+	    @Address      { @Reference&&tag @Open { @Address }		}
+	    @Annote       { @Reference&&tag @Open { @Annote }		}
+	    @Author       { @Reference&&tag @Open { @Author }		}
+	    @Day          { @Reference&&tag @Open { @Day }		}
+	    @Edition      { @Reference&&tag @Open { @Edition }		}
+	    @HowPublished { @Reference&&tag @Open { @HowPublished }	}
+	    @InAuthor     { @Reference&&tag @Open { @InAuthor }		}
+	    @InTitle      { @Reference&&tag @Open { @InTitle }		}
+	    @Institution  { @Reference&&tag @Open { @Institution }	}
+	    @Journal      { @Reference&&tag @Open { @Journal }		}
+	    @Keywords     { @Reference&&tag @Open { @Keywords }		}
+
+	    @Label        { label @Case {
+			      "" @Yield {@Reference&&tag @Open {@Label}}
+			      else @Yield label
+			    }						}
+
+	    @Month        { @Reference&&tag @Open { @Month }		}
+	    @Note         { @Reference&&tag @Open { @Note }		}
+	    @Number       { @Reference&&tag @Open { @Number }		}
+	    @Organization { @Reference&&tag @Open { @Organization }	}
+	    @Page         { @Reference&&tag @Open { @Page }		}
+	    @Pages        { @Reference&&tag @Open { @Pages }		}
+	    @Pinpoint     { @Reference&&tag @Open { @Pinpoint }		}
+	    @Publisher    { @Reference&&tag @Open { @Publisher }	}
+	    @Title        { @Reference&&tag @Open { @Title }		}
+	    @TitleNote    { @Reference&&tag @Open { @TitleNote }	}
+	    @TRType       { @Reference&&tag @Open { @TRType }		}
+	    @Volume       { @Reference&&tag @Open { @Volume }		}
+	    @Year         { @Reference&&tag @Open { @Year }		}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @RefStyle - a reference printing style.                                #
+    #                                                                         #
+    ###########################################################################
+
+    export @Style
+    def @RefStyle
+	left @Tag
+	named @Style right reftag {}
+    {}
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @RefPrint - prints reference with tag reftag in appropriate style.     #
+    #                                                                         #
+    ###########################################################################
+
+    def @RefPrint right reftag
+    {	& @RefStyle&&{ @Reference&&reftag @Open { @Type } }
+	@Open { @Style reftag } &
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @ReferencesSection and @ChapReferencesSection - a list of references.  #
+    #                                                                         #
+    ###########################################################################
+
+    def @RefPlace { @Galley }
+    def @ChapRefPlace { @Galley }
+
+    def @BypassRefPlace { @Galley }
+    def @BypassChapRefPlace { @Galley }
+
+    def @ReferencesSection
+    {
+	def @RefList right num
+	{
+	    @NumberMarker @Value { @RefNumbers @Num num } & | @RefPlace
+	    //@RefListGap @RefList @Next num
+	}
+
+	def @BypassRefList
+	{
+	    @BypassRefPlace //@RefListGap @BypassRefList
+	}
+
+	@RefList 1
+	//@RefListGap
+	@BypassRefList
+    }
+
+    def @ChapReferencesSection
+    {
+	def @ChapRefList right num
+	{
+	    @NumberMarker @Value { @RefNumbers @Num num } & | @ChapRefPlace
+	    //@RefListGap @ChapRefList @Next num
+	}
+
+	def @BypassChapRefList
+	{
+	    @BypassChapRefPlace //@RefListGap @BypassChapRefList
+	}
+
+	@ChapRefList 1
+	//@RefListGap
+	@BypassChapRefList
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #   @RefHeading - heading for reference lists.                            #
+    #                                                                         #
+    ###########################################################################
+
+    def @RefHeading right x
+    {	x @Case {
+	    references @Yield @Word&&references
+	    bibliography @Yield @Word&&bibliography
+	    else @Yield x
+	}
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #   @ChapRefSection                                                   #
+    #                                                                     #
+    #######################################################################
+
+    def @ChapRefSection
+    {
+	@Heading @RefHeading @ChapRefListTitle
+	@DP
+	@ChapReferencesSection
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @SendRef and @ChapSendRef - send one reference to the reference list.  #
+    #                                                                         #
+    ###########################################################################
+
+    def @RefItem
+	left lab
+	right ref
+    {
+	def @ZeroWidth right x { &0io @OneCol x &0io }
+
+	@RefListFormat @Case {
+	    NoLabels   @Yield {					   ref	}
+	    Labels     @Yield { @ZeroWidth lab |@RefListLabelWidth ref	}
+	    DropLabels @Yield { lab //1vx      |@RefListLabelWidth ref	}
+	    InLabels   @Yield { lab & 2s @Wide &		   ref	}
+	}
+    }
+
+
+    def @RefListItem
+	left label
+	right tag
+    {
+#
+# VT: I can't get this to work, so I've put back the original code
+#
+#	@RefListFont @Font @RefListBreak @Break {
+#	  @BackEnd @Case {
+#	    PostScript @Yield {
+#	      @NumberMarker&&preceding @Tagged tag &
+#	      @PageMark tag
+#	      |@RefListIndent {label @ListLabel tag} @RefItem {@RefPrint tag}
+#	      |@RefListRightIndent
+#	    }
+#	    PDF @Yield {
+#	      { "__link_target=<<"tag">>" }
+#	      @Graphic
+#	      {
+#	      @NumberMarker&&preceding @Tagged tag &
+#	      @PageMark tag
+#	      |@RefListIndent {label @ListLabel tag} @RefItem {@RefPrint tag}
+#	      |@RefListRightIndent
+#	      }
+#	    }
+#	  }
+#	}
+# VT: original:
+
+	@RefListFont @Font @RefListBreak @Break {
+	    @NumberMarker&&preceding @Tagged tag &
+	    @PageMark tag
+	    |@RefListIndent {label @ListLabel tag} @RefItem {@RefPrint tag}
+	    |@RefListRightIndent
+	}
+    }
+
+
+    def @SendRef into { @RefPlace&&foll_or_prec }
+	left label
+	right tag
+    {
+	def @Key { label @SortKey tag }
+
+	# no @Merge i.e. omit duplicates
+
+	label @RefListItem tag
+    }
+
+
+    def @ChapSendRef into { @ChapRefPlace&&foll_or_prec }
+	left label
+	right tag
+    {
+	def @Key { label @SortKey tag }
+
+	# no @Merge i.e. omit duplicates
+
+	label @RefListItem tag
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Ref (bare citation) and its variants.                                 #
+    #                                                                         #
+    ###########################################################################
+
+    def @Ref
+	named label {}
+	right tag
+    {
+	@MakeReferences @Case {
+	    Yes	  @Yield { label @CiteLabel tag & label @SendRef tag }
+	    else  @Yield @Null
+	}
+    }
+
+    def @NoRef
+	named label {}
+	right tag
+    {
+	@MakeReferences @Case {
+	    Yes  @Yield { label @SendRef tag }
+	    else @Yield @Null
+	}
+    }
+
+    def @ChapRef
+	named label {}
+	right tag
+    {
+	@MakeReferences @Case {
+	    Yes  @Yield { label @CiteLabel tag & label @ChapSendRef tag }
+	    else @Yield @Null
+	}
+    }
+
+    def @NoChapRef
+	named label {}
+	right tag
+    {
+	@MakeReferences @Case {
+	    Yes  @Yield { label @ChapSendRef tag }
+	    else @Yield @Null
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Bypass references.                                                     #
+    #                                                                         #
+    ###########################################################################
+
+    def @BypassReference into { @BypassRefPlace&&preceding }
+	named label {}
+	named value {}
+    {
+	@MakeReferences @Case {
+	    Bypass @Yield { label @RefItem value }
+	    else   @Yield @Null
+	}
+    }
+
+    def @BypassChapReference into { @BypassChapRefPlace&&preceding }
+	named label {}
+	named value {}
+    {
+	@MakeReferences @Case {
+	    Bypass @Yield { label @RefItem value }
+	    else   @Yield @Null
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Cite (citation) and its variants.                                     #
+    #                                                                         #
+    ###########################################################################
+
+    export "$" "," ";"
+    def @Cite body cite
+    {
+	macro "$" { @Ref }
+	def "," precedence 90 left x { x"," }
+	def ";" precedence 90 left x { x";" }
+
+	@MakeReferences @Case {
+#	    Yes  @Yield { @RefCiteStyle cite }
+	    Yes  @Yield {
+	      @BackEnd @Case {
+	        { PlainText PostScript } @Yield { @RefCiteStyle cite }
+	        PDF        @Yield {
+#
+# VT: can't get this to work: need to ask JHK; I want the text following the "$" to be
+# the name of the link that we are trying to create a link to
+#	          { "__link_source=<<"label">>" }
+#	          @Graphic
+			{ @RefCiteStyle cite }
+#	          { blue @Colour @Underline { @RefCiteStyle cite } }
+	        }
+	      }
+	    }
+	    else @Yield @Null
+	}
+    }
+
+    export "$" "," ";"
+    def @NoCite body cite
+    {
+	macro "$" { @NoRef }
+	def "," precedence 90 left x { x }
+	def ";" precedence 90 left x { x";" }
+
+	@MakeReferences @Case {
+	    Yes  @Yield { cite }
+	    else @Yield @Null
+	}
+    }
+
+    export "$" "," ";"
+    def @ChapCite body cite
+    {
+	macro "$" { @ChapRef }
+	def "," precedence 90 left x { x"," }
+	def ";" precedence 90 left x { x";" }
+
+	@MakeReferences @Case {
+	    Yes  @Yield { @RefCiteStyle cite }
+	    else @Yield @Null
+	}
+    }
+
+    export "$" "," ";"
+    def @NoChapCite body cite
+    {
+	macro "$" { @NoChapRef }
+	def "," precedence 90 left x { x }
+	def ";" precedence 90 left x { x";" }
+
+	@MakeReferences @Case {
+	    Yes  @Yield { cite }
+	    else @Yield @Null
+	}
+    }
+
+    ###########################################################################
+    #                                                                         #
+    #  Floating figures.                                                      #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag prefix
+    def @FigurePrefixMarker
+	named @Tag {}
+	named prefix {}
+    {
+	@Null
+    }
+
+    export @Tag count
+    def @FigureCounterMarker
+	named @Tag {}
+	named count {}
+    {
+	@Null
+    }
+
+    def @RawFigureNum right tag
+    {
+	@FigureCounterMarker&&tag @Open { @Next count }
+    }
+
+    def @FigureCounterIncrement
+	right tag
+    {
+	   @FigureCounterMarker&&preceding @Tagged tag
+	// @FigurePrefixMarker&&preceding @Tagged tag
+	// @FigureCounterMarker count { @RawFigureNum tag }
+	// @NumberMarker @Tag { tag }
+		@Value { { @FigurePrefixMarker&&tag @Open { prefix } }
+		    @Join {@FigureNumbers @Num @RawFigureNum tag}
+		}
+    }
+
+    def @BeginFigureCounter
+	left condition
+	right prefix
+    {
+	condition @Do {
+	       @FigurePrefixMarker prefix { prefix }
+	    // @FigureCounterMarker count { 0 }
+	}
+    }
+
+    def @EndFigureList { @Galley //@MidGap @EndFigureList }
+
+    def @Figure
+	named @Tag {}
+	named @Caption { dft }
+	named @ShortCaption { dft }
+	named @CaptionPos { @FigureCaptionPos }
+	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 { @FigureFormat @Body }
+	named @InitialLanguage { @InitialLanguage }
+	named @BypassNumber { dft }
+	named @OnePage { dft }
+	named @Location { @FigureLocation }
+	right @Body
+    {
+	def @FigureNumber
+	{
+	    @BypassNumber @Dft @NumberOf @Tag
+	}
+
+	def @ContentsCaption
+	{
+	    @ShortCaption @Dft @Caption
+	}
+
+	def @OnePg
+	{
+	    @OnePage @Case {
+		{ No  no } @Yield No
+		{ Yes yes } @Yield Yes
+		dft @Yield { @Location @Case {
+				PageTop		@Yield No
+				EvenPageTop	@Yield No
+				FullPage	@Yield No
+				EvenFullPage	@Yield No
+				PageFoot	@Yield Yes
+				ColTop		@Yield No
+				ColFoot		@Yield Yes
+				ColEnd		@Yield No
+				Display		@Yield Yes
+				AfterLine	@Yield Yes
+				TryAfterLine	@Yield Yes
+				Raw		@Yield No
+			     }
+			   }
+	    }
+	}
+
+	def @CaptionState
+	{
+	    @Caption @Case {
+		dft  @Yield None
+		else @Yield { @CaptionPos @Case {
+		    { Below below } @Yield Below
+		    { Above above } @Yield Above
+		} }
+	    }
+	}
+
+	#def @FigureLabel
+	#{
+	#    @FigureNumbers @Case {
+	#	No   @Yield @Null
+	#	else @Yield {
+	#	    @CaptionFormat { {figure @WordVal @FigureWord} @NumSep @FigureNumber }
+	#	}
+	#    }
+	#}
+
+	def @CaptionVal
+	{
+	    @FigureCaptionFont @Font @FigureCaptionBreak @Break
+	    { ||0.5rt @FigureCaptionFormat
+		 word { figure @WordVal @FigureWord }
+		 number { @FigureNumber }
+		 caption { @Caption }
+	    }
+	}
+
+	def @FigureVal
+	{
+	    @InitialLanguage @Language
+	    {
+		@MakeFigureContents @FigureContentsEntry
+		    indent { 0f }
+		    number { @FigureNumber }
+		    title { @InitialLanguage @Language @ContentsCaption }
+		    pagenum { @PageOf @Tag }
+		// @FigureCounterIncrement @Tag
+		// @PageMark @Tag
+		// @Body
+	    }
+	}
+
+	def @FigureTarget
+	{
+	    @Location @Case {
+		PageTop		@Yield  @PageTopPlace&&following
+		EvenPageTop	@Yield  @PageTopPlace&&following
+		FullPage	@Yield  @FullPagePlace&&following
+		EvenFullPage	@Yield  @FullPagePlace&&following
+		PageFoot	@Yield  @PageFootAndTopPlace&&following
+		ColTop		@Yield  @ColTopPlace&&following
+		ColFoot		@Yield  @ColFootAndTopPlace&&following
+		ColEnd		@Yield  @EndFigureList&&following
+		Display		@Yield  @AfterLinePlace&&following
+		AfterLine	@Yield  @AfterLinePlace&&following
+		TryAfterLine	@Yield  @TryAfterLinePlace&&following
+	    }
+	}
+
+	def @SendEncl into { @FigureTarget }
+	    right x
+	{
+	    def @Enclose right x
+	    {
+		@OnePg @Case {
+                	No  @Yield @Format x
+                	Yes @Yield x
+            	}
+	    }
+
+	    x
+	}
+
+	def @Send into { @FigureTarget }
+	    right x
+	{
+	    x
+	}
+
+	def @EvenFullPageSend into { @EvenFullPagePlace&&following }
+	    right x
+	{
+	    @OneRow x
+	}
+
+	def @EvenPageSend into { @EvenPagePlace&&following }
+	    right x
+	{
+	    @OneRow x
+	}
+
+	def @RawFigureVal
+	{
+	    @OnePg.@CaptionState @Case
+	    {
+		Yes.Below @Yield @OneRow { @Format @FigureVal @DP @CaptionVal }
+		Yes.Above @Yield @OneRow { @CaptionVal @DP @Format @FigureVal }
+		Yes.None  @Yield @OneRow { @Format @FigureVal }
+		No.Below  @Yield         { @Format @FigureVal @DP @CaptionVal }
+		No.Above  @Yield         { @CaptionVal @DP @Format @FigureVal }
+		No.None   @Yield         { @Format @FigureVal }
+	    }
+	}
+
+	def @NonRawFigureVal
+	{
+	  @OnePg.@CaptionState @Case
+	  {
+	    Yes.Below @Yield {
+		@Send @OneRow { @Format @FigureVal @DP @CaptionVal // @DupRunner}
+	    }
+	    Yes.Above @Yield {
+		@Send @OneRow { @CaptionVal @DP @Format @FigureVal // @DupRunner}
+	    }
+	    Yes.None @Yield {
+		@Send @OneRow { @Format @FigureVal // @DupRunner }
+	    }
+	    No.Below @Yield {
+		@SendEncl { @FigureVal // @Send { @CaptionVal // @DupRunner } }
+	    }
+	    No.Above @Yield {
+		@Send { @CaptionVal // @SendEncl { @FigureVal // @DupRunner } }
+	    }
+	    No.None @Yield {
+		@SendEncl { @FigureVal // @DupRunner }
+	    }
+	  }
+	}
+
+	@Location @Case {
+	    Raw		  @Yield @RawFigureVal
+	    Display	  @Yield { @NonRawFigureVal &1rt }
+	    EvenPageTop   @Yield @EvenPageSend @NonRawFigureVal
+	    EvenFullPage  @Yield @EvenFullPageSend @NonRawFigureVal
+	    else	  @Yield @NonRawFigureVal
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Floating tables (exact clone of figure code immediately above).        #
+    #                                                                         #
+    ###########################################################################
+
+    export @Tag prefix
+    def @TablePrefixMarker
+	named @Tag {}
+	named prefix {}
+    {
+	@Null
+    }
+
+    export @Tag count
+    def @TableCounterMarker
+	named @Tag {}
+	named count {}
+    {
+	@Null
+    }
+
+    def @RawTableNum right tag
+    {
+	@TableCounterMarker&&tag @Open { @Next count }
+    }
+
+    def @TableCounterIncrement
+	right tag
+    {
+	   @TableCounterMarker&&preceding @Tagged tag
+	// @TablePrefixMarker&&preceding @Tagged tag
+	// @TableCounterMarker count { @RawTableNum tag }
+	// @NumberMarker @Tag { tag }
+		@Value { { @TablePrefixMarker&&tag @Open { prefix } }
+		    @Join {@TableNumbers @Num @RawTableNum tag}
+		}
+    }
+
+    def @BeginTableCounter
+	left condition
+	right prefix
+    {
+	condition @Do {
+	       @TablePrefixMarker prefix { prefix }
+	    // @TableCounterMarker count { 0 }
+	}
+    }
+
+    def @EndTableList { @Galley //@MidGap @EndTableList }
+
+    def @Table
+	named @Tag {}
+	named @Caption { dft }
+	named @ShortCaption { dft }
+	named @CaptionPos { @TableCaptionPos }
+	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 { @TableFormat @Body }
+	named @InitialLanguage { @InitialLanguage }
+	named @BypassNumber { dft }
+	named @OnePage { dft }
+	named @Location { @TableLocation }
+	right @Body
+    {
+	def @TableNumber
+	{
+	    @BypassNumber @Dft @NumberOf @Tag
+	}
+
+	def @ContentsCaption
+	{
+	    @ShortCaption @Dft @Caption
+	}
+
+	def @OnePg
+	{
+	    @OnePage @Case {
+		{ No  no } @Yield No
+		{ Yes yes } @Yield Yes
+		dft @Yield { @Location @Case {
+				PageTop		@Yield No
+				EvenPageTop	@Yield No
+				FullPage	@Yield No
+				EvenFullPage	@Yield No
+				PageFoot	@Yield Yes
+				ColTop		@Yield No
+				ColFoot		@Yield Yes
+				ColEnd		@Yield No
+				Display		@Yield Yes
+				AfterLine	@Yield Yes
+				TryAfterLine	@Yield Yes
+				Raw		@Yield No
+			     }
+			   }
+	    }
+	}
+
+	def @CaptionState
+	{
+	    @Caption @Case {
+		dft  @Yield None
+		else @Yield { @CaptionPos @Case {
+		    { Below below } @Yield Below
+		    { Above above } @Yield Above
+		} }
+	    }
+	}
+
+	#def @TableLabel
+	#{
+	#    @TableNumbers @Case {
+	#	No   @Yield @Null
+	#	else @Yield {
+	#	    @CaptionFormat { {table @WordVal @TableWord} @NumSep @TableNumber }
+	#	}
+	#    }
+	#}
+
+	def @CaptionVal
+	{
+	    @TableCaptionFont @Font @TableCaptionBreak @Break
+	    { ||0.5rt @TableCaptionFormat
+		 word { table @WordVal @TableWord }
+		 number { @TableNumber }
+		 caption { @Caption }
+	    }
+	}
+
+	def @TableVal
+	{
+	    @InitialLanguage @Language
+	    {
+		@MakeTableContents @TableContentsEntry
+		    indent { 0f }
+		    number { @TableNumber }
+		    title { @InitialLanguage @Language @ContentsCaption }
+		    pagenum { @PageOf @Tag }
+		// @TableCounterIncrement @Tag
+		// @PageMark @Tag
+		// @Body
+	    }
+	}
+
+	def @TableTarget
+	{
+	    @Location @Case {
+		PageTop		@Yield  @PageTopPlace&&following
+		EvenPageTop	@Yield  @PageTopPlace&&following
+		FullPage	@Yield  @FullPagePlace&&following
+		EvenFullPage	@Yield  @FullPagePlace&&following
+		PageFoot	@Yield  @PageFootAndTopPlace&&following
+		ColTop		@Yield  @ColTopPlace&&following
+		ColFoot		@Yield  @ColFootAndTopPlace&&following
+		ColEnd		@Yield  @EndTableList&&following
+		Display		@Yield  @AfterLinePlace&&following
+		AfterLine	@Yield  @AfterLinePlace&&following
+		TryAfterLine	@Yield  @TryAfterLinePlace&&following
+	    }
+	}
+
+	def @SendEncl into { @TableTarget }
+	    right x
+	{
+	    def @Enclose right x
+	    {
+		@OnePg @Case {
+                	No  @Yield @Format x
+                	Yes @Yield x
+            	}
+	    }
+
+	    x
+	}
+
+	def @Send into { @TableTarget }
+	    right x
+	{
+	    x
+	}
+
+	def @EvenFullPageSend into { @EvenFullPagePlace&&following }
+	    right x
+	{
+	    @OneRow x
+	}
+
+	def @EvenPageSend into { @EvenPagePlace&&following }
+	    right x
+	{
+	    @OneRow x
+	}
+
+	def @RawTableVal
+	{
+	    @OnePg.@CaptionState @Case
+	    {
+		Yes.Below @Yield @OneRow { @Format @TableVal @DP @CaptionVal }
+		Yes.Above @Yield @OneRow { @CaptionVal @DP @Format @TableVal }
+		Yes.None  @Yield @OneRow { @Format @TableVal }
+		No.Below  @Yield         { @Format @TableVal @DP @CaptionVal }
+		No.Above  @Yield         { @CaptionVal @DP @Format @TableVal }
+		No.None   @Yield         { @Format @TableVal }
+	    }
+	}
+
+	def @NonRawTableVal
+	{
+	  @OnePg.@CaptionState @Case
+	  {
+	    Yes.Below @Yield {
+		@Send @OneRow { @Format @TableVal @DP @CaptionVal // @DupRunner}
+	    }
+	    Yes.Above @Yield {
+		@Send @OneRow { @CaptionVal @DP @Format @TableVal // @DupRunner}
+	    }
+	    Yes.None @Yield {
+		@Send @OneRow { @Format @TableVal // @DupRunner }
+	    }
+	    No.Below @Yield {
+		@SendEncl { @TableVal // @Send { @CaptionVal // @DupRunner } }
+	    }
+	    No.Above @Yield {
+		@Send { @CaptionVal // @SendEncl { @TableVal // @DupRunner } }
+	    }
+	    No.None @Yield {
+		@SendEncl { @TableVal // @DupRunner }
+	    }
+	  }
+	}
+
+	@Location @Case {
+	    Raw		  @Yield @RawTableVal
+	    Display	  @Yield { @NonRawTableVal &1rt }
+	    EvenPageTop   @Yield @EvenPageSend @NonRawTableVal
+	    EvenFullPage  @Yield @EvenFullPageSend @NonRawTableVal
+	    else	  @Yield @NonRawTableVal
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Index.                                                                 #
+    #                                                                         #
+    ###########################################################################
+
+    def @IndexList { @Galley //1vx @IndexList }
+    def @BypassIndexList { @Galley //1vx @BypassIndexList }
+
+    def @IndexSection into { @IndexPlace&&following }
+	right etc
+    {
+	// @IndexBreak @Break @IndexList
+	// @IndexBreak @Break @BypassIndexList // etc
+    }
+
+    def @DoIndex into { @IndexList&&following }
+	left @Key
+	named indent { 0f }
+	right @Body
+    {
+	def @Merge left x right y
+	{
+	    {x @Rump y} @Case
+	    {
+	        ""      @Yield  x
+		else    @Yield  { { x &"0.03fu" , } @Meld y }
+	    }
+
+################################ obsolete ###################################
+#	    {x @Rump y} @Case
+#	    {
+#		""	@Yield	x
+#		else	@Yield	{
+#				 { {x @Rump y} @Common "," } @Case
+#				 {
+#				   ","	@Yield { x &"0.03fu" x @Rump y }
+#				   else	@Yield { x &"0.03fu" , x @Rump y }
+#				 }
+#				}
+#	    }
+#############################################################################
+	}
+
+	@IndexFont @Font @IndexBreak @Break { indent @Wide & @Body }
+    }
+
+    def @RawIndex
+	left x
+	named @Tag {}
+	named indent { 0f }
+	right y
+    {
+	@MakeIndex @Case {
+	    Yes  @Yield { {@PageMark @Tag} x @DoIndex indent { indent } y }
+	    else @Yield @Null
+	}
+    }
+
+    macro @RawSubIndex    { @RawIndex indent { "1f" } }
+    macro @RawSubSubIndex { @RawIndex indent { "2f" } }
+
+    def @Index
+	left x
+	named @Tag {}
+	named indent { 0f }
+	named to {}
+	right y
+    {
+	def numval
+	{
+#	    to @Case
+#	    {
+#		""    @Yield @PageOf @Tag
+#		else  @Yield {
+#		    { @PageOf @Tag } @Case
+#		    {
+#			{ @PageOf to } @Yield { @PageOf @Tag }
+#			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+#		    }
+#		}
+#	    }
+	 @BackEnd @Case {
+	  { PlainText PostScript } @Yield {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	  }
+#
+#	PDF: Index entries produce a blue underlined hyperlink for the page number
+#
+	  PDF @Yield {
+	    { "__link_source=<<"@Tag">>" }
+	    @Graphic { blue @Colour @Underline {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	    }
+	    }
+	  }
+	 }
+	}
+
+	@MakeIndex @Case {
+	    Yes  @Yield {
+		     @BackEnd @Case {
+			 { PostScript PlainText } @Yield {
+			   @PageMark @Tag
+			   x @DoIndex indent { indent } { y &"0.03fu" , numval }
+			 }
+			 PDF @Yield {
+			   {"__link_target=<<"@Tag">>"} @Graphic {""}
+			   @PageMark @Tag
+			   x @DoIndex indent { indent } { y &"0.03fu" , numval }
+			 }
+		     }
+		   }
+#	    Yes  @Yield { @PageMark @Tag
+#			  x @DoIndex indent { indent } { y &"0.03fu" , numval }
+#			}
+	    else @Yield @Null
+	}
+    }
+
+    macro @SubIndex { @Index indent { "1f" } }
+    macro @SubSubIndex { @Index indent { "2f" } }
+
+    def @IndexBlanks
+    {
+	b @RawIndex {} c @RawIndex {} d @RawIndex {} e @RawIndex {}
+	f @RawIndex {} g @RawIndex {} h @RawIndex {} i @RawIndex {}
+	j @RawIndex {} k @RawIndex {} l @RawIndex {} m @RawIndex {}
+	n @RawIndex {} o @RawIndex {} p @RawIndex {} q @RawIndex {}
+	r @RawIndex {} s @RawIndex {} t @RawIndex {} u @RawIndex {}
+	v @RawIndex {} w @RawIndex {} x @RawIndex {} y @RawIndex {}
+	z @RawIndex {}
+    }
+
+    def @BypassBeginIndexPlace { @Galley }
+
+    def @BypassBeginIndex force into { @BypassBeginIndexPlace&&preceding } {}
+
+    def @BypassRawIndex force into { @BypassIndexList&&preceding }
+	named indent { 0f }
+	right x
+    {
+	&indent x
+    }
+
+    def @BypassEndIndex { @Null }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  IndexA.                                                                #
+    #                                                                         #
+    ###########################################################################
+
+    def @IndexAList { @Galley //1vx @IndexAList }
+    def @BypassIndexAList { @Galley //1vx @BypassIndexAList }
+
+    def @IndexASection into { @IndexAPlace&&following }
+	right etc
+    {
+	// @IndexAList // etc
+	// @BypassIndexAList // etc
+    }
+
+    def @DoIndexA into { @IndexAList&&following }
+	left @Key
+	named indent { 0f }
+	right @Body
+    {
+	def @Merge left x right y
+	{
+	    {x @Rump y} @Case
+	    {
+	        ""      @Yield  x
+		else    @Yield  { { x &"0.03fu" , } @Meld y }
+	    }
+	}
+
+	@IndexAFont @Font @IndexABreak @Break { indent @Wide & @Body }
+    }
+
+    def @RawIndexA
+	left x
+	named @Tag {}
+	named indent { 0f }
+	right y
+    {
+	@MakeIndexA @Case {
+	    Yes  @Yield { {@PageMark @Tag} x @DoIndexA indent { indent } y }
+	    else @Yield @Null
+	}
+    }
+
+    macro @RawSubIndexA    { @RawIndexA indent { "1f" } }
+    macro @RawSubSubIndexA { @RawIndexA indent { "2f" } }
+
+    def @IndexA
+	left x
+	named @Tag {}
+	named indent { 0f }
+	named to {}
+	right y
+    {
+	def numval
+	{
+#	    to @Case
+#	    {
+#		""    @Yield @PageOf @Tag
+#		else  @Yield {
+#		    { @PageOf @Tag } @Case
+#		    {
+#			{ @PageOf to } @Yield { @PageOf @Tag }
+#			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+#		    }
+#		}
+#	    }
+	 @BackEnd @Case {
+	  { PostScript PlainText } @Yield {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	  }
+#
+#	PDF: Index entries produce a blue underlined hyperlink for the page number
+#
+	  PDF @Yield {
+	    { "__link_source=<<"@Tag">>" }
+	    @Graphic { blue @Colour @Underline {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	    }
+	    }
+	  }
+	 }
+	}
+
+	@MakeIndexA @Case {
+	    Yes  @Yield { @PageMark @Tag
+			  x @DoIndexA indent { indent } { y &"0.03fu" , numval }
+			}
+	    else @Yield @Null
+	}
+    }
+
+    macro @SubIndexA { @IndexA indent { "1f" } }
+    macro @SubSubIndexA { @IndexA indent { "2f" } }
+
+    def @IndexABlanks
+    {
+	b @RawIndexA {} c @RawIndexA {} d @RawIndexA {} e @RawIndexA {}
+	f @RawIndexA {} g @RawIndexA {} h @RawIndexA {} i @RawIndexA {}
+	j @RawIndexA {} k @RawIndexA {} l @RawIndexA {} m @RawIndexA {}
+	n @RawIndexA {} o @RawIndexA {} p @RawIndexA {} q @RawIndexA {}
+	r @RawIndexA {} s @RawIndexA {} t @RawIndexA {} u @RawIndexA {}
+	v @RawIndexA {} w @RawIndexA {} x @RawIndexA {} y @RawIndexA {}
+	z @RawIndexA {}
+    }
+
+    def @BypassBeginIndexAPlace { @Galley }
+
+    def @BypassBeginIndexA force into { @BypassBeginIndexAPlace&&preceding } {}
+
+    def @BypassRawIndexA force into { @BypassIndexAList&&preceding }
+	named indent { 0f }
+	right x
+    {
+	&indent x
+    }
+
+    def @BypassEndIndexA { @Null }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  IndexB.                                                                #
+    #                                                                         #
+    ###########################################################################
+
+    def @IndexBList { @Galley //1vx @IndexBList }
+    def @BypassIndexBList { @Galley //1vx @BypassIndexBList }
+
+    def @IndexBSection into { @IndexBPlace&&following }
+	right etc
+    {
+	// @IndexBList // etc
+	// @BypassIndexBList // etc
+    }
+
+    def @DoIndexB into { @IndexBList&&following }
+	left @Key
+	named indent { 0f }
+	right @Body
+    {
+	def @Merge left x right y
+	{
+	    {x @Rump y} @Case
+	    {
+	        ""      @Yield  x
+		else    @Yield  { { x &"0.03fu" , } @Meld y }
+	    }
+	}
+
+	@IndexBFont @Font @IndexBBreak @Break { indent @Wide & @Body }
+    }
+
+    def @RawIndexB
+	left x
+	named @Tag {}
+	named indent { 0f }
+	right y
+    {
+	@MakeIndexB @Case {
+	    Yes  @Yield { {@PageMark @Tag} x @DoIndexB indent { indent } y }
+	    else @Yield @Null
+	}
+    }
+
+    macro @RawSubIndexB    { @RawIndexB indent { "1f" } }
+    macro @RawSubSubIndexB { @RawIndexB indent { "2f" } }
+
+    def @IndexB
+	left x
+	named @Tag {}
+	named indent { 0f }
+	named to {}
+	right y
+    {
+	def numval
+	{
+#	    to @Case
+#	    {
+#		""    @Yield @PageOf @Tag
+#		else  @Yield {
+#		    { @PageOf @Tag } @Case
+#		    {
+#			{ @PageOf to } @Yield { @PageOf @Tag }
+#			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+#		    }
+#		}
+#	    }
+	 @BackEnd @Case {
+	  { PostScript PlainText } @Yield {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	  }
+#
+#	PDF: Index entries produce a blue underlined hyperlink for the page number
+#
+	  PDF @Yield {
+	    { "__link_source=<<"@Tag">>" }
+	    @Graphic { blue @Colour @Underline {
+	    to @Case
+	    {
+		""    @Yield @PageOf @Tag
+		else  @Yield {
+		    { @PageOf @Tag } @Case
+		    {
+			{ @PageOf to } @Yield { @PageOf @Tag }
+			else	       @Yield { {@PageOf @Tag}--{@PageOf to} }
+		    }
+		}
+	    }
+	    }
+	    }
+	  }
+	 }
+	}
+
+	@MakeIndexB @Case {
+	    Yes  @Yield { @PageMark @Tag
+			  x @DoIndexB indent { indent } { y &"0.03fu" , numval }
+			}
+	    else @Yield @Null
+	}
+    }
+
+    macro @SubIndexB { @IndexB indent { "1f" } }
+    macro @SubSubIndexB { @IndexB indent { "2f" } }
+
+    def @IndexBBlanks
+    {
+	b @RawIndexB {} c @RawIndexB {} d @RawIndexB {} e @RawIndexB {}
+	f @RawIndexB {} g @RawIndexB {} h @RawIndexB {} i @RawIndexB {}
+	j @RawIndexB {} k @RawIndexB {} l @RawIndexB {} m @RawIndexB {}
+	n @RawIndexB {} o @RawIndexB {} p @RawIndexB {} q @RawIndexB {}
+	r @RawIndexB {} s @RawIndexB {} t @RawIndexB {} u @RawIndexB {}
+	v @RawIndexB {} w @RawIndexB {} x @RawIndexB {} y @RawIndexB {}
+	z @RawIndexB {}
+    }
+
+    def @BypassBeginIndexBPlace { @Galley }
+
+    def @BypassBeginIndexB force into { @BypassBeginIndexBPlace&&preceding } {}
+
+    def @BypassRawIndexB force into { @BypassIndexBList&&preceding }
+	named indent { 0f }
+	right x
+    {
+	&indent x
+    }
+
+    def @BypassEndIndexB { @Null }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @LargeScaleStructure                                                   #
+    #                                                                         #
+    #  The prototype for the value of each large-scale structure symbol       #
+    #  (@Chapter, @Section, etc.)                                             #
+    #                                                                         #
+    ###########################################################################
+
+    def @LargeScaleStructure
+	named tag {}			# tag of this large-scale structure sym
+	named type {}			# MajorIntro, Major, VeryMajor, or Minor
+	named initiallanguage {}	# its language
+	named title {}			# its full title
+	named runningtitle {}		# its running title
+	named aboveheadinggap { 0f }	# gap above heading
+	named headingfont {}		# its heading font
+	named headingbreak {}		# its heading break
+	named headingformat		# its heading format
+	    left @Num right @Body {}
+	named incontents { No }         # entry in table of contents required
+	named contentsindent { 0f }	# only if type is Major
+	named word {}
+	named numbers { None }
+	named attachnum {}		# only if numbers is not None
+	named retrievenum {}		# only if numbers is not None
+	named bypassnumber {}		# only if numbers is not None, or VeryMajor
+	named prefix {}			# prefix of number of this symbol
+	named pnprefix {}		# prefix for page numbers of this sym
+	named majornum { dft }
+	named majortitle { dft }
+	named minornum { dft }
+	named minortitle { dft }
+	named intheorems { No }
+	named indisplays { No }
+	named infigures { No }
+	named intables { No }
+	named inrunners { No }
+	named sendheader right @Body {}
+	named innergap {}
+	named endifmajor right innergap {
+	    @EndFigureList
+	    //innergap @EndNoteList 1
+	    //innergap @ChapRefSection
+	}
+	named wantindefinite { No }
+	right @Body
+    {
+
+	def @ShortNum
+	{
+	    numbers @Then {
+		bypassnumber @Dft {
+		    prefix @Join { numbers @Num retrievenum }
+		}
+	    }
+	}
+
+	def @LongNum
+	{
+	    numbers @Then {
+		initiallanguage @Language { word @NumSep @ShortNum }
+	    }
+	}
+
+	def @ShortTitle
+	{
+	    initiallanguage @Language { runningtitle @Dft title }
+	}
+
+        def @Run right start
+        {
+	    inrunners @Do type @Case {
+
+		{ Major MajorIntro } @Yield {
+		    start @Runner
+			@MajorNum { majornum @Dft @LongNum }
+			@MajorTitle { majortitle @Dft @ShortTitle }
+			@MinorNum {}
+			@MinorTitle {}
+			@Owner { tag }
+			@Prefix { pnprefix @Join @ShortNum }
+		}
+
+		{ ExtraMajor ExtraMajorIntro } @Yield {
+		    start @Runner
+			@MajorNum { majornum @Dft @LongNum }
+			@MajorTitle { majortitle @Dft @ShortTitle }
+			@MinorNum { majornum @Dft @LongNum }
+			@MinorTitle { majortitle @Dft @ShortTitle }
+			@Owner { tag }
+			@Prefix { pnprefix @Join @ShortNum }
+		}
+
+		{ VeryMajor } @Yield {
+		    start @Runner
+		        @MajorNum { majornum @Dft @LongNum }
+		        @MajorTitle { majortitle @Dft @ShortTitle }
+		        @MinorNum {}
+		        @MinorTitle {}
+		        @Owner { tag }
+		        @Prefix {}
+		}
+
+		Minor @Yield {
+		    start @Runner
+			@MajorNum { majornum @Dft @LongNum }
+			@MajorTitle { majortitle @Dft @ShortTitle }
+			@MinorNum { minornum @Dft @LongNum }
+			@MinorTitle { minortitle @Dft @ShortTitle }
+			@Owner { tag }
+			@Prefix { pnprefix @Join @ShortNum }
+		}
+	    }
+        }
+
+	def @ContentsStuff
+	{
+	    incontents.type @Case {
+
+		Yes.Minor @Yield {
+			incontents @ContentsEntry
+			    indent { contentsindent }
+			    number { @LongNum }
+			    title { initiallanguage @Language title }
+			    pagenum { @PageOf tag }
+	        }
+
+		{ Yes.Major Yes.MajorIntro Yes.ExtraMajor Yes.ExtraMajorIntro } @Yield {
+			incontents @MajorContentsEntry
+			    number { @LongNum }
+			    title { initiallanguage @Language title }
+			    pagenum { @PageOf tag }
+	        }
+
+		{ Yes.VeryMajor } @Yield {
+			incontents @VeryMajorContentsEntry
+			    title { initiallanguage @Language { bypassnumber: &2s title } }
+		}
+
+		else @Yield @Null
+	    }
+	}
+
+	def @Heading
+	{
+	    def @AttachPDFLink
+	        left title
+	        right x
+	    {
+	        @BackEnd @Case {
+
+                    # VTan: Rats! Cannot use the tag for the name of the link
+	            # because the source link has no access to the tag
+                    #
+                    # using title will work most of the time; it will fail
+	            # with a "problem with left parameter of @Graphic" warning
+	            # message if the title has objects other than text in it.
+	            # Eg, "@Title { My @FancyTitle }"  with
+	            # "def @FancyTitle { @OneCol { @Bold "fancy" "title" }" }
+                    #
+                    # Example: the user manual has a definition for @Tex which
+	            # causes this warning message to appear
+
+		    PDF @Yield {
+		        title @Case {
+			    "" @Yield x
+			    else @Yield {
+			        "__link_target_for_export=<<"title">>"
+			        @Graphic x
+			    }
+		        }
+		    }
+
+		    else @Yield x
+	        }
+	    }
+
+	    type @Case {
+
+		Minor @Yield title @AttachPDFLink {
+		    headingfont @Font
+		    headingbreak @Break @Protect {@LongNum headingformat title}
+		    // @PageMark tag
+		}
+
+		{ Major MajorIntro ExtraMajor ExtraMajorIntro } @Yield {
+		    sendheader { title @AttachPDFLink {
+		    //aboveheadinggap
+		    headingfont @Font
+		    headingbreak @Break { @LongNum headingformat title }
+		    // @PageMark tag
+		    } }
+		}
+
+		{ VeryMajor } @Yield { sendheader { title @AttachPDFLink {
+		    //aboveheadinggap
+		    headingfont @Font
+		    headingbreak @Break { bypassnumber headingformat title }
+		    // @PageMark tag
+		    } }
+		}
+	    }
+	}
+
+	def @IfMajor right x
+	{
+	    type @Case {
+		{ MajorIntro Major ExtraMajor ExtraMajorIntro } @Yield x
+		else @Yield @Null
+	    }
+	}
+
+	def @StartIfMajor {
+	    type @Case {
+		{ MajorIntro Major ExtraMajor ExtraMajorIntro VeryMajor } @Yield Start
+		else @Yield NonStart
+	    }
+	}
+
+	initiallanguage @Language {
+		@Heading
+	    //   wantindefinite @Case {
+		    Yes @Yield @Null
+		    No  @Yield ""
+		}
+            //  numbers @Do {
+		  attachnum & @NumberMarker @Tag { tag } @Value { @ShortNum }
+		}
+            # //  @PageMark tag
+	    //  @IfMajor { @FootNoteThrough @Do @BeginFootNoteCounter }
+            //  @Run @StartIfMajor
+            //  @ContentsStuff
+            //  intheorems @BeginAllCounters @ShortNum
+            //  indisplays @BeginDisplayCounter @ShortNum
+            //  infigures @BeginFigureCounter @ShortNum
+            //  intables @BeginTableCounter @ShortNum
+            //  @Body
+	    //innergap  @IfMajor endifmajor innergap
+            //  @Run NonStart
+	}
+    }
+
+@End @DocumentSetup
diff --git a/include/eq b/include/eq
new file mode 100644
index 0000000..b8cd1f0
--- /dev/null
+++ b/include/eq
@@ -0,0 +1,27 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for equation formatting                                   #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { eqf } line                                               #
+#                                                                             #
+#  This line causes Lout to read the definitions for equations, and should    #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { eqf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer default options that can be changed.           #
+#                                                                             #
+###############################################################################
diff --git a/include/eqf b/include/eqf
new file mode 100644
index 0000000..4437edf
--- /dev/null
+++ b/include/eqf
@@ -0,0 +1,1643 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Eq package for equation formatting (Version 3.0)                     #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, December 1990.                         #
+#  Version 2.0 by Jeffrey H. Kingston, 22 December 1992.                      #
+#  Version 3.0 by Jeffrey H. Kingston and Robert Marsa, March 1996.           #
+#                                                                             #
+#  This package makes extensive use of the Adobe Systems Symbol font, and     #
+#  it assumes that the font has not been recoded.  It could be rewritten      #
+#  using the @Char symbol to be made independent of any recoding, but since   #
+#  there seems no reason to ever recode this font, I haven't bothered.        #
+#                                                                             #
+#  See "Eq - a Lout package for typesetting mathematics" for user             #
+#  information.  Acknowledgement:  the @Eq language is based closely on       #
+#  the Eqn language of B. W. Kernighan and L. L. Cherry; the spacing rules    #
+#  are similar to those of the TeX system by D. E. Knuth.                     #
+#                                                                             #
+#  Version 3.0 makes use of the new x and y units of measurement to improve   #
+#  the spacing rules.                                                         #
+#                                                                             #
+###############################################################################
+
+export	"`" "``" "```" bin rel punct non vctr big
+
+	space exclam universal numbersign existential percent
+	ampersand suchthat parenleft parenright asteriskmath
+	plus comma minus period slash zero one two three four
+	five six seven eight nine colon semicolon less equal
+	greater question congruent Alpha Beta Chi Delta Epsilon
+	Phi Gamma Eta Iota thetaone Kappa Lambda Mu Nu Omicron
+	Pi Theta Rho Sigma Tau Upsilon sigmaone Omega Xi Psi Zeta
+	bracketleft therefore bracketright perpendicular underscore
+	radicalex alpha beta chi delta epsilon phi gamma eta iota
+	phione kappa lambda mu nu omicron pi theta rho sigma tau
+	upsilon omegaone omega xi psi zeta braceleft bar braceright
+	similar Upsilonone minute lessequal fraction infinity florin
+	club diamond heart spade arrowboth arrowleft arrowup
+	arrowright arrowdown degree plusminus second greaterequal
+	multiply proportional partialdiff bullet divide notequal
+	equivalence approxequal ellipsis arrowvertex arrowhorizex
+	carriagereturn aleph Ifraktur Rfraktur weierstrass
+	circlemultiply circleplus emptyset intersection union
+	propersuperset reflexsuperset notsubset propersubset
+	reflexsubset element notelement angle gradient registerserif
+	copyrightserif trademarkserif product radical dotmath
+	logicalnot logicaland logicalor arrowdblboth arrowdblleft
+	arrowdblup arrowdblright arrowdbldown lozenge angleleft
+	registersans copyrightsans trademarksans summation parenlefttp
+	parenleftex parenleftbt bracketlefttp bracketleftex
+	bracketleftbt bracelefttp braceleftmid braceleftbt braceex
+	angleright integral integraltp integralex integralbt
+	parenrighttp parenrightex parenrightbt bracketrighttp
+	bracketrightex bracketrightbt bracerighttp bracerightmid
+	bracerightbt
+
+	hbar Re Im partial infty prime nabla surd top bot dbar
+	triangle backslash forall exists neg circle square
+
+	"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+
+	sum prod coprod int oint bcap bcup bvee bwedge bodot botimes
+	boplus buplus
+
+	"+" "-" "+-" "-+" setminus cdot times "*" circ div cap cup uplus
+	sqcap sqcup triangleleft triangleright wr bigcirc bigtriangleup
+	bigtriangledown vee wedge oplus ominus otimes oslash odot dagger
+	daggerdbl amalg
+
+	"<" ">" "=" "<=" prec preceq "<<" subset subseteq sqsubseteq
+	in vdash smile frown ">=" succ succeq ">>" supset supseteq
+	sqsupseteq ni dashv mid parallel "==" "~" "-~" asymp "~~"
+	"=~" bowtie propto models doteq perp notsub notin "!=" not
+	"<->" "<--" "-->" up down "<=>" "<==" "==>" dblup dbldown
+	":" "::" ":="
+
+	lpar blpar rpar brpar lbrack blbrack rbrack brbrack lbrace blbrace
+	rbrace brbrace lfloor blfloor rfloor brfloor lceil blceil
+	rceil brceil langle blangle rangle brangle
+
+	";" "," col
+	
+	"!" "?" "%" "(" ")" "[" "]"
+
+	arccos arcsin arctan arg cos cosh cot coth csc deg det dim exp
+	gcd hom inf ker lg lim liminf limsup ln log max min Pr sec sin
+	sinh supr tan tanh mod ldots cdots vdots ddots del grad
+	"..." ",...," "'" "''" "'''" "''''" empty
+	
+	leftarrow longleftarrow dblleftarrow dbllongleftarrow
+	rightarrow longrightarrow dblrightarrow dbllongrightarrow
+	leftrightarrow longleftrightarrow dblleftrightarrow dbllongleftrightarrow
+	mapsto longmapsto hookleftarrow hookrightarrow leadsto
+	leftharpoonup rightharpoonup leftharpoondown rightharpoondown
+	rightleftharpoons
+	uparrow dbluparrow downarrow dbldownarrow updownarrow dblupdownarrow
+	nearrow searrow swarrow nwarrow
+
+	sup sub tsub supp on ton frac half third over from to widefrom wideto
+	dot dotdot hat tilde vec dyad overbar underbar sqrt root
+	nextcol above labove cabove rabove mabove
+	matrix pmatrix bmatrix brmatrix fmatrix cmatrix amatrix
+
+def @Eq                  
+    body @Body
+@Begin
+
+
+    ###################################################################
+    #                                                                 #
+    #  Context-sensitive format changes.                              #
+    #                                                                 #
+    #  Equation formatting (according to Knuth) demands changes in    #
+    #  the appearance of equations depending on context.  These are:  #
+    #                                                                 #
+    #     @Smaller x      Superscripts and subscripts are to be set   #
+    #                     in a smaller font size.  The @Smaller       #
+    #                     symbol implements this by changing the      #
+    #                     f unit.                                     #
+    #                                                                 #
+    #     @HSqueeze x     The horizontal space surrounding binary     #
+    #                     operators and relations is to be reduced    #
+    #                     within superscripts and subscripts, etc.    #
+    #                     The @HSqueeze symbol implements this by     #
+    #                     changing the y unit, which is not used by   #
+    #                     Lout but which is used by symbols @ThinGap, #
+    #                     @MedGap and @ThickGap.                      #
+    #                                                                 #
+    #     @VSqueeze x     The vertical space taken by superscripts    #
+    #                     and subscripts is to be reduced within      #
+    #                     built-up fractions and under root signs.    #
+    #                     The @VSqueeze symbol implements this by     #
+    #                     changing the z unit, which is not used by   #
+    #                     Lout but is used by the @SupGap symbol.     #
+    #                                                                 #
+    #  Knuth also recommends some changes that depend on whether the  #
+    #  equation is displayed or inline; these are not implemented.    #
+    #                                                                 #
+    ###################################################################
+
+    def @SpaceGap { 0.05f  }
+
+    def @Smaller  right x { 0.7f @Font @SpaceGap @Space x }
+
+    def @HSqueeze right x { 0.2f @YUnit x }
+
+    def @VSqueeze right x { 0.7f @ZUnit x }
+
+    def @SkewGap  { 0.05f  }
+    def @SupGap   { 0.43zk }
+    def @ThinGap  { 0.15y  }
+    def @MedGap   { 0.20y  }
+    def @ThickGap { 0.25y  }
+    def @ColGap   { 0.8f   }
+    def @RowGap   { 0.5f   }
+
+    def "`"       { &@ThinGap  }
+    def "``"      { &@MedGap   }
+    def "```"     { &@ThickGap }
+
+    def bin	right x { ``  x ``  }
+    def rel	right x { ``` x ``` }
+    def punct	right x {     x `   }
+    def non	right x { 0c @YUnit x }
+    def big	right x { 1.3f @Font @SpaceGap @Space x }
+
+    def @Base   right x { Base @Font x }
+    def @Sym    right x { {Symbol Base} @Font x }
+
+    def @HLine
+	named line { @BackEnd @Case { PostScript @Yield { "0.05 ft setlinewidth" } PDF @Yield { "__mul(__loutf, 0.05) w" } } }
+    {
+	@BackEnd @Case {
+	  PostScript @Yield {
+	    { "0 0 moveto xsize 0 lineto" line "stroke" } @Graphic {}
+	  }
+	  PDF @Yield {	# note re-arrangement of commands (setlinewidth (='w') not allowed in a path)
+	    { line "0 0 m __xsize 0 l s" } @Graphic {}
+	  }
+	}
+    }
+
+    def @VLine
+    {
+	@BackEnd @Case {
+	  PostScript @Yield {
+	    "0 0 moveto 0 ysize lineto 0.05 ft setlinewidth stroke" @Graphic {}
+	  }
+	  PDF @Yield {
+	    "__mul(__loutf, 0.05) w 0 0 m 0 __ysize l s" @Graphic {}
+	  }
+	}
+    }
+
+    def vctr
+	right x
+    {
+	0.5w @VShift x
+    }
+
+    def @Strut right x
+    {
+	@OneCol { x | @OneRow { 0.5f @High ^/ 0.5f @High } }
+    }
+
+    ###################################################################
+    #                                                                 #
+    #   Full names                                                    #
+    #                                                                 #
+    #   These symbols and their names are taken directly from the     #
+    #   Adobe Systems Inc. Symbol font (see PostScript Language       #
+    #   Reference Manual, pp. 256-257).  The only differences are:    #
+    #                                                                 #
+    #      Adobe:  theta1        Eq:  thetaone                        #
+    #              sigma1             sigmaone                        #
+    #              phi1               phione                          #
+    #              omega1             omegaone                        #
+    #                                                                 #
+    #   These were needed since Lout identifiers do not have digits.  #
+    #                                                                 #
+    ###################################################################
+
+    def space           { @Sym "\040"  }
+    def exclam          { @Sym "\041"  }
+    def universal       { @Sym "\042"  }
+    def numbersign      { @Sym "\043"  }
+    def existential     { @Sym "\044"  }
+    def percent         { @Sym "\045"  }
+    def ampersand       { @Sym "\046"  }
+    def suchthat        { @Sym "\047"  }
+    def parenleft       { @Sym "\050"  }
+    def parenright      { @Sym "\051"  }
+    def asteriskmath    { @Sym "\052"  }
+    def plus            { @Sym "+"     }
+    def comma           { @Sym "\054"  }
+    def minus           { @Sym "-"     }
+    def period          { @Sym "\056"  }
+    def slash           { @Sym "\057"  }
+    def zero            { @Sym "\060"  }
+    def one             { @Sym "\061"  }
+    def two             { @Sym "\062"  }
+    def three           { @Sym "\063"  }
+    def four            { @Sym "\064"  }
+    def five            { @Sym "\065"  }
+    def six             { @Sym "\066"  }
+    def seven           { @Sym "\067"  }
+    def eight           { @Sym "\070"  }
+    def nine            { @Sym "\071"  }
+    def colon           { @Sym "\072"  }
+    def semicolon       { @Sym "\073"  }
+    def less            { @Sym "\074"  }
+    def equal           { @Sym "\075"  }
+    def greater         { @Sym "\076"  }
+    def question        { @Sym "\077"  }
+    def congruent       { @Sym "\100"  }
+    def Alpha           { @Sym "\101"  }
+    def Beta            { @Sym "\102"  }
+    def Chi             { @Sym "\103"  }
+    def Delta           { @Sym "\104"  }
+    def Epsilon         { @Sym "\105"  }
+    def Phi             { @Sym "\106"  }
+    def Gamma           { @Sym "\107"  }
+    def Eta             { @Sym "\110"  }
+    def Iota            { @Sym "\111"  }
+    def thetaone        { @Sym "\112"  }
+    def Kappa           { @Sym "\113"  }
+
+    def Lambda          { @Sym "\114"  }
+    def Mu              { @Sym "\115"  }
+    def Nu              { @Sym "\116"  }
+    def Omicron         { @Sym "\117"  }
+    def Pi              { @Sym "\120"  }
+    def Theta           { @Sym "\121"  }
+    def Rho             { @Sym "\122"  }
+    def Sigma           { @Sym "\123"  }
+    def Tau             { @Sym "\124"  }
+    def Upsilon         { @Sym "\125"  }
+    def sigmaone        { @Sym "\126"  }
+    def Omega           { @Sym "\127"  }
+    def Xi              { @Sym "\130"  }
+    def Psi             { @Sym "\131"  }
+    def Zeta            { @Sym "\132"  }
+    def bracketleft     { @Sym "\133"  }
+    def therefore       { @Sym "\134"  }
+    def bracketright    { @Sym "\135"  }
+    def perpendicular   { @Sym "\136"  }
+    def underscore      { @Sym "\137"  }
+    def radicalex       { @Sym "\140"  }
+    def alpha           { @Sym "\141"  }
+    def beta            { @Sym "\142"  }
+    def chi             { @Sym "\143"  }
+    def delta           { @Sym "\144"  }
+    def epsilon         { @Sym "\145"  }
+    def phi             { @Sym "\146"  }
+    def gamma           { @Sym "\147"  }
+    def eta             { @Sym "\150"  }
+    def iota            { @Sym "\151"  }
+    def phione          { @Sym "\152"  }
+    def kappa           { @Sym "\153"  }
+    def lambda          { @Sym "\154"  }
+    def mu              { @Sym "\155"  }
+    def nu              { @Sym "\156"  }
+
+    def omicron         { @Sym "\157"  }
+    def pi              { @Sym "\160"  }
+    def theta           { @Sym "\161"  }
+    def rho             { @Sym "\162"  }
+    def sigma           { @Sym "\163"  }
+    def tau             { @Sym "\164"  }
+    def upsilon         { @Sym "\165"  }
+    def omegaone        { @Sym "\166"  }
+    def omega           { @Sym "\167"  }
+    def xi              { @Sym "\170"  }
+    def psi             { @Sym "\171"  }
+    def zeta            { @Sym "\172"  }
+    def braceleft       { @Sym "\173"  }
+    def bar             { @Sym "\174"  }
+    def braceright      { @Sym "\175"  }
+    def similar         { @Sym "\176"  }
+    def Upsilonone      { @Sym "\241"  }
+    def minute          { @Sym "\242"  }
+    def lessequal       { @Sym "\243"  }
+    def fraction        { @Sym "\244"  }
+    def infinity        { "1.2f" @Font @Sym "\245"  }
+    def florin          { @Sym "\246"  }
+    def club            { @Sym "\247"  }
+    def diamond         { @Sym "\250"  }
+    def heart           { @Sym "\251"  }
+    def spade           { @Sym "\252"  }
+    def arrowboth       { @Sym "\253"  }
+    def arrowleft       { @Sym "\254"  }
+    def arrowup         { @Sym "\255"  }
+    def arrowright      { @Sym "\256"  }
+    def arrowdown       { @Sym "\257"  }
+    def degree          { @Sym "\260"  }
+    def plusminus       { @Sym "\261"  }
+    def second          { @Sym "\262"  }
+    def greaterequal    { @Sym "\263"  }
+
+    def multiply        { @Sym "\264"  }
+    def proportional    { @Sym "\265"  }
+    def partialdiff     { @Sym "\266"  }
+    def bullet          { @Sym "\267"  }
+    def divide          { @Sym "\270"  }
+    def notequal        { @Sym "\271"  }
+    def equivalence     { @Sym "\272"  }
+    def approxequal     { @Sym "\273"  }
+    def ellipsis        { @Sym "\274"  }
+    def arrowvertex     { @Sym "\275"  }
+    def arrowhorizex    { @Sym "\276"  }
+    def carriagereturn  { @Sym "\277"  }
+    def aleph           { @Sym "\300"  }
+    def Ifraktur        { @Sym "\301"  }
+    def Rfraktur        { @Sym "\302"  }
+    def weierstrass     { @Sym "\303"  }
+    def circlemultiply  { @Sym "\304"  }
+    def circleplus      { @Sym "\305"  }
+    def emptyset        { @Sym "\306"  }
+    def intersection    { @Sym "\307"  }
+    def union           { @Sym "\310"  }
+    def propersuperset  { @Sym "\311"  }
+    def reflexsuperset  { @Sym "\312"  }
+    def notsubset       { @Sym "\313"  }
+    def propersubset    { @Sym "\314"  }
+    def reflexsubset    { @Sym "\315"  }
+    def element         { @Sym "\316"  }
+    def notelement      { @Sym "\317"  }
+    def angle           { @Sym "\320"  }
+    def gradient        { @Sym "\321"  }
+    def registerserif   { @Sym "\322"  }
+    def copyrightserif  { @Sym "\323"  }
+    def trademarkserif  { @Sym "\324"  }
+    def product         { @Sym "\325"  }
+    def radical         { @Sym "\326"  }
+    def dotmath         { @Sym "\327"  }
+
+    def @PureDot   # dot with no extra space
+    {
+	@HContract { &0io 0.4w @HShift dotmath }
+    }
+
+    def logicalnot      { @Sym "\330"  }
+    def logicaland      { @Sym "\331"  }
+    def logicalor       { @Sym "\332"  }
+    def arrowdblboth    { @Sym "\333"  }
+    def arrowdblleft    { @Sym "\334"  }
+    def arrowdblup      { @Sym "\335"  }
+    def arrowdblright   { @Sym "\336"  }
+    def arrowdbldown    { @Sym "\337"  }
+    def lozenge         { @Sym "\340"  }
+    def angleleft       { @Sym "\341"  }
+    def registersans    { @Sym "\342"  }
+    def copyrightsans   { @Sym "\343"  }
+    def trademarksans   { @Sym "\344"  }
+    def summation       { @Sym "\345"  }
+    def parenlefttp     { @Sym "\346"  }
+    def parenleftex     { @Sym "\347"  }
+    def parenleftbt     { @Sym "\350"  }
+    def bracketlefttp   { @Sym "\351"  }
+    def bracketleftex   { @Sym "\352"  }
+    def bracketleftbt   { @Sym "\353"  }
+    def bracelefttp     { @Sym "\354"  }
+    def braceleftmid    { @Sym "\355"  }
+    def braceleftbt     { @Sym "\356"  }
+    def braceex         { @Sym "\357"  }
+    def angleright      { @Sym "\361"  }
+    def integral        { @Sym "\362"  }
+    def integraltp      { @Sym "\363"  }
+    def integralex      { @Sym "\364"  }
+    def integralbt      { @Sym "\365"  }
+    def parenrighttp    { @Sym "\366"  }
+    def parenrightex    { @Sym "\367"  }
+    def parenrightbt    { @Sym "\370"  }
+    def bracketrighttp  { @Sym "\371"  }
+    def bracketrightex  { @Sym "\372"  }
+    def bracketrightbt  { @Sym "\373"  }
+    def bracerighttp    { @Sym "\374"  }
+    def bracerightmid   { @Sym "\375"  }
+    def bracerightbt    { @Sym "\376"  }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Short names                                                   #
+    #                                                                 #
+    #   These symbols, their names, and their spacing, are based on   #
+    #   the list in Appendix F of Donald E. Knuth's The TeXBook.      #
+    #                                                                 #
+    #   Group 1 (lowercase Greek letters):  see full names above      #
+    #   Group 2 (uppercase Greek letters):  see full names above      #
+    #   Group 3 (calligraphic capitals):    not provided by Eq        #
+    #                                                                 #
+    ###################################################################
+
+    ###################################################################
+    #                                                                 #
+    #   Group 4 (miscellaneous Ord symbols)                           #
+    #                                                                 #
+    #   Not all of Knuth's symbols are available.  The four suits     #
+    #   (heartsuit, etc.), have definitions above.                    #
+    #                                                                 #
+    ###################################################################
+
+    def hbar         { @OneCol { &0.1f @Base "-" ^/0.25fo h }	}
+    def Re           { Rfraktur					}
+    def Im           { Ifraktur					}
+    def partial      { partialdiff				}
+    def infty        { infinity					}
+    def prime        { minute        				}
+   #def emptyset     { defined above				}
+    def nabla        { gradient					}
+    def surd         { radical					}
+    def top          { 180d @Rotate perpendicular		}
+    def bot          { perpendicular				}
+    def dbar         { @Base "||"                         	}
+   #def angle        { defined above				}
+    def backslash    { "\\"					}
+    def forall       { universal					}
+    def exists       { existential				}
+    def neg          { logicalnot				}
+
+    def circle       { @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				      { "xsize ysize 2 div moveto"
+					"xsize 2 div ysize 2 div xsize 2 div 0 360 arc"
+					"0.04 ft setlinewidth stroke"
+				      }
+				      @Graphic { 0.7f @Wide 0.3f @High ^/ 0.3f @High }
+				  }
+				  PDF @Yield {
+#
+# VT: draws a counterclockwise 360 degree arc from 0 to +360 degree positions
+#     (straight right to straight right) with centre = (xsize/2, ysize/2)
+#     and radius = xsize/2
+#
+# implemented as two counterclockwise 180 degree arcs:
+#
+				      {
+	"__mul(0.04, __loutf) w"
+#
+#   start at (xsize, ysize/2)
+#   the control points are:
+#     pt1 = (xsize, ysize/2 + (4/3 * xsize/2)) and pt2 = (0, ysize/2 + (4/3 * xsize/2))
+#   end at (0, ysize/2)
+#
+	"__xsize __div(__ysize, 2) m"
+	"__xsize __add(__div(__ysize, 2), __div(__mul(2, __xsize), 3))"	# pt1
+	"0 __add(__div(__ysize, 2), __div(__mul(2, __xsize), 3))"		# pt2
+	"0 __div(__ysize, 2) c"								# pt3
+#
+#   start at (0, ysize/2)
+#   the control points are:
+#     pt1 = (0, ysize/2 - (4/3 * xsize/2)) and pt2 = (xsize, ysize/2 - (4/3 * xsize/2))
+#   end at (xsize, ysize/2)
+#
+	"0 __sub(__div(__ysize, 2), __div(__mul(2, __xsize), 3))"		# pt1
+	"__xsize __sub(__div(__ysize, 2), __div(__mul(2, __xsize), 3))"	# pt2
+	"__xsize __div(__ysize, 2) c S"						# pt3
+				      }
+				      @Graphic { 0.7f @Wide 0.3f @High ^/ 0.3f @High }
+				  }
+				}
+		     }
+
+    def square       { @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				      { "0 0 moveto xsize 0 lineto xsize ysize lineto"
+					"0 ysize lineto closepath"
+					"0.04 ft setlinewidth stroke"
+				      }
+				      @Graphic { 0.6f @Wide 0.3f @High ^/ 0.3f @High }
+				  }
+				  PDF @Yield {
+				      { "__mul(__loutf, 0.04) w"
+				        "0 0 m __xsize 0 l __xsize __ysize l"
+				        "0 __ysize l s"
+				      }
+				      @Graphic { 0.6f @Wide 0.3f @High ^/ 0.3f @High }
+				  }
+				}
+		     }
+
+    def triangle     { @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				      { "0 0 moveto xsize 0 lineto"
+				        "xsize 2 div ysize lineto closepath"
+					"0.04 ft setlinewidth stroke"
+				      }
+				      @Graphic
+				      { 0.3f @Wide 0.3f @High ^| ^/
+				        0.3f @Wide 0.3f @High
+				      }
+				  }
+				  PDF @Yield {
+				      { "__mul(__loutf, 0.04) w"
+				        "0 0 m __xsize 0 l"
+				        "__div(__xsize, 2) __ysize l s"
+				      }
+				      @Graphic
+				      { 0.3f @Wide 0.3f @High ^| ^/
+				        0.3f @Wide 0.3f @High
+				      }
+				  }
+				}
+		     }
+
+    ###################################################################
+    #                                                                 #
+    #   Group 5 (digits)                                              #
+    #                                                                 #
+    ###################################################################
+
+    def "0" { zero            }
+    def "1" { one             }
+    def "2" { two             }
+    def "3" { three           }
+    def "4" { four            }
+    def "5" { five            }
+    def "6" { six             }
+    def "7" { seven           }
+    def "8" { eight           }
+    def "9" { nine            }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Group 6 ("Large" operators)                                   #
+    #                                                                 #
+    #   Knuth's large operators automatically change size depending   #
+    #   on whether the equation is display or inline.  Eq does not    #
+    #   do this; instead, the `big' operator must be used.            #
+    #                                                                 #
+    ###################################################################
+
+    def sum	{ summation					}
+    def prod	{ product					}
+    def coprod	{ 180d @Rotate vctr product			}
+    def int	{ 1.3f @Font vctr integral			}
+    def oint	{ @OneCol { vctr degree |0.015fo int }		}
+    def bcap	{ 1.3f @Font intersection			}
+    def bcup	{ 1.3f @Font union				}
+    def bvee	{ 1.3f @Font logicalor				}
+    def bwedge	{ 1.3f @Font logicaland				}
+    def bodot	{ & 1.3f @Font @HContract { circle /0io &0.5rt @PureDot } }
+    def botimes	{ 1.3f @Font circlemultiply			}
+    def boplus	{ 1.3f @Font circleplus				}
+    def buplus	{ & 1.3f @Font @HContract { &0.5rt 0.7f @Font plus ^/0.2fo union } }
+
+    ###################################################################
+    #                                                                 #
+    #   Group 7 (binary operations)                                   #
+    #                                                                 #
+    #   All of Knuth's symbols are available except \star, \diamond   #
+    #   and \bullet; a few have been given more mnemonic names.       #
+    #                                                                 #
+    ###################################################################
+
+    def "+"		{ bin plus				}
+    def "-"		{ bin minus				}
+    def "+-"		{ bin plusminus				}
+    def "-+"		{ bin 180d @Rotate plusminus		}
+    def setminus		{ bin backslash				}
+    def cdot		{ bin dotmath				}
+    def times		{ bin multiply				}
+    def "*"		{ bin asteriskmath			}
+   #def diamond		{ name used above			}
+    def circ		{ bin circle				}
+   #def bullet		{ name used above			}
+    def div		{ bin divide				}
+    def cap		{ bin intersection			}
+    def cup		{ bin union				}
+    def uplus		{ bin @OneRow @HContract { &0.5rt 0.7f @Font plus ^/0.2fo union}}
+    def sqcap		{ bin
+			  { @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				    {	"0 0 moveto 0 ysize lineto xsize ysize lineto"
+					"xsize 0 lineto"
+					"0.04 ft setlinewidth stroke"
+				    }
+				    @Graphic
+				    {	0.3f @Wide 0.3f @High ^| ^/
+					0.3f @Wide 0.3f @High
+				    }
+				  }
+				  PDF @Yield {
+				    {	"__mul(__loutf, 0.04) w"
+					"0 0 m 0 __ysize l __xsize __ysize l"
+					"__xsize 0 l s"
+				    }
+				    @Graphic
+				    {	0.3f @Wide 0.3f @High ^| ^/
+					0.3f @Wide 0.3f @High
+				    }
+				  }
+				}
+			  }
+			}
+    def sqcup		{ 180d @Rotate sqcap			}
+    def triangleleft	{ bin 90d @Rotate 0.8f @Font triangle	}
+    def triangleright	{ bin "-90d" @Rotate 0.8f @Font triangle}
+    def wr		{ bin vctr {90d @Rotate similar}	}
+    def bigcirc		{ bin 1.2f @Font circle			}
+    def bigtriangleup	{ bin 1.2f @Font triangle		}
+    def bigtriangledown	{ bin 180d @Rotate 1.2f @Font triangle	}
+    def vee		{ bin logicalor				}
+    def wedge		{ bin logicaland			}
+    def oplus		{ bin circleplus			}
+    def ominus		{ bin @OneRow @HContract { circle /0io &0.5rt minus}}
+    def otimes		{ bin circlemultiply			}
+    def oslash		{`vctr 60d @Rotate @HContract {circle /0io &0.5rt minus`}}
+    def odot		{ bin @OneRow @HContract {circle /0io &0.5rt @PureDot }}
+    def dagger		{ bin @Base @Char "dagger"		}
+    def daggerdbl	{ bin @Base @Char "daggerdbl"		}
+    def amalg		{ bin 180d @Rotate vctr product		}
+
+    ###################################################################
+    #                                                                 #
+    #   Group 8 (relations)                                           #
+    #                                                                 #
+    #   All Knuth's operators are available, but many have been       #
+    #   given different, more mnemonic names.  Also included is       #
+    #   a not operator for negating the relations.                    #
+    #                                                                 #
+    ###################################################################
+
+    def "<"		{ rel less				}
+    def ">"		{ rel greater				}
+    def "="		{ rel equal				}
+    def "<="		{ rel lessequal				}
+    def prec		{ rel { 0.45f @Font "-90d" @Rotate
+				{ parenrighttp ^| parenlefttp }
+			      }
+			}
+    def preceq		{ rel { @OneRow non prec /0.1f minus }	}
+    def "<<"		{ rel {less less}			}
+    def subset		{ rel propersubset			}
+    def subseteq	{ rel reflexsubset			}
+    def sqsubseteq	{ rel @HContract @VContract
+					@BackEnd @Case {
+					  PostScript @Yield {
+						{ { "xsize 0 moveto"
+						  "0 0 lineto"
+						  "0 ysize lineto"
+						  "xsize ysize lineto"
+						  "0.04 ft setlinewidth stroke"
+						  }
+						  @Graphic
+						  { 0.5f @Wide 0.25f @High ^/
+						    0.25f @High
+						  }
+						  /0.1f minus
+						}
+					  }
+					  PDF @Yield {
+						{ { "__mul(__loutf, 0.04) w"
+						    "__xsize 0 m"
+						    "0 0 l"
+						    "0 __ysize l"
+						    "__xsize __ysize l s"
+						  }
+						  @Graphic
+						  { 0.5f @Wide 0.25f @High ^/
+						    0.25f @High
+						  }
+						  /0.1f minus
+						}
+					  }
+					}
+			}
+
+    def in		{ rel element				}
+    def vdash		{ rel vctr{"-90d" @Rotate perpendicular}}
+    def smile		{ rel vctr 90d @Rotate parenleft	}
+    def frown		{ rel vctr 90d @Rotate parenright	}
+
+    def ">="		{ rel greaterequal			}
+    def succ		{ rel { 0.45f @Font 90d @Rotate
+			        { parenrighttp ^| parenlefttp }
+			      }
+			}
+    def succeq		{ rel { @OneRow non succ /0.1f minus }	}
+    def ">>"		{ rel {greater greater}			}
+    def supset		{ rel propersuperset			}
+    def supseteq	{ rel reflexsuperset			}
+    def sqsupseteq	{ rel @HContract @VContract
+					@BackEnd @Case {
+					  PostScript @Yield {
+					    {	{ "0 0 moveto xsize 0 lineto"
+						  "xsize ysize lineto"
+						  "0 ysize lineto"
+						  "0.04 ft setlinewidth stroke"
+						}
+						@Graphic
+						{ 0.5f @Wide 0.25f @High ^/
+						  0.25f @High
+						}
+					      /0.1f minus
+					    }
+					  }
+					  PDF @Yield {
+					    {	{ "__mul(__loutf, 0.04) w"
+					      "0 0 m __xsize 0 l"
+						  "__xsize __ysize l"
+						  "0 __ysize l s"
+						}
+						@Graphic
+						{ 0.5f @Wide 0.25f @High ^/
+						  0.25f @High
+						}
+					      /0.1f minus
+					    }
+					  }
+					}
+			}
+    def ni		{ rel 180d @Rotate element		}
+    def dashv		{ rel vctr {90d @Rotate perpendicular}	}
+    def mid		{ rel @Base "|"				}
+    def parallel	{ rel @Base "||"			}
+
+    def "=="		{ rel equivalence			}
+    def "~"		{ rel similar				}
+    def "-~"		{ rel @OneRow{similar^/0.07f/0.07f minus}}
+    def asymp		{ rel 0.7f @Font @OneRow
+			      { 90d @Rotate parenleft ^/0.008f
+			      /0.008f 90d @Rotate parenright }
+			}
+    def "~~"		{ rel approxequal			}
+    def "=~"		{ rel congruent				}
+    def bowtie		{ rel{non triangleright non triangleleft}}
+    def propto		{ rel proportional			}
+    def models		{ rel{@Base vctr "|" &0.05fo vctr equal}}
+    def doteq		{ rel @OneRow @HContract {&0.5rt dotmath^/0.15f equal}}
+    def perp		{ rel perpendicular			}
+
+    def notsub		{ rel notsubset				}
+    def notin		{ rel notelement			}
+    def "!="		{ rel notequal				}
+
+    def "<->"		{ rel arrowboth				}
+    def "<--"		{ rel arrowleft				}
+    def "-->"		{ rel arrowright			}
+    def up		{ rel arrowup				}
+    def down		{ rel arrowdown				}
+    def "<=>"		{ rel arrowdblboth			}
+    def "<=="		{ rel arrowdblleft			}
+    def "==>"		{ rel arrowdblright			}
+    def dblup		{ rel arrowdblup			}
+    def dbldown		{ rel arrowdbldown			}
+
+    def ":"		{ rel colon				}
+    def "::"		{ rel @OneCol {colon ` colon}		}
+    def ":="		{ rel { colon{ //0.05fo equal} }	}
+
+    def not right x	{ @HContract {@OneCol x /0co &0.5rt slash}}
+
+
+    ###################################################################
+    #                                                                 #
+    #   Groups 11 and 12 - openings and closings.                     #
+    #                                                                 #
+    ###################################################################
+
+    def lpar	{ parenleft				}
+    def rpar	{ parenright				}
+    def lbrack	{ bracketleft				}
+    def rbrack	{ bracketright				}
+    def lbrace	{ braceleft				}
+    def rbrace	{ braceright				}
+    def lfloor	{ ` "-0.15f" @VShift bracketleftbt	}
+    def rfloor	{   "-0.15f" @VShift bracketrightbt `	}
+    def lceil	{ ` "-0.1f"  @VShift bracketlefttp	}
+    def rceil	{   "-0.1f"  @VShift bracketrighttp `	}
+    def langle	{ angleleft				}
+    def rangle	{ angleright				}
+
+    def blpar	{ @OneRow {parenlefttp    ^/ parenleftex    / parenleftbt   } }
+    def brpar	{ @OneRow {parenrighttp   ^/ parenrightex   / parenrightbt  } }
+    def blbrack	{ @OneRow {bracketlefttp  ^/ bracketleftex  / bracketleftbt } }
+    def brbrack	{ @OneRow {bracketrighttp ^/ bracketrightex / bracketrightbt} }
+    def blbrace	{ @OneRow {bracelefttp    ^/ braceleftmid   / braceleftbt   } }
+    def brbrace	{ @OneRow {bracerighttp   ^/ bracerightmid  / bracerightbt  } }
+    def blfloor	{ @OneRow {bracketleftex  ^/ bracketleftex  / bracketleftbt } }
+    def brfloor	{ @OneRow {bracketrightex ^/ bracketrightex / bracketrightbt} }
+    def blceil	{ @OneRow {bracketlefttp  ^/ bracketleftex  / bracketleftex } }
+    def brceil	{ @OneRow {bracketrighttp ^/ bracketrightex / bracketrightex} }
+    def blangle	{ @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				    { "xsize 0 moveto"
+				      "0 ysize 2 div lineto"
+				      "xsize ysize lineto"
+				      "0.04 ft setlinewidth stroke"
+			          }
+			          @Graphic { 0.5f @Wide 2f @High ^/ 2f @High }
+				  }
+				  PDF @Yield {
+				    { "__mul(__loutf, 0.04) w"
+				      "__xsize 0 m"
+				      "0 __div(__ysize, 2) l"
+				      "__xsize __ysize l S"
+			          }
+			          @Graphic { 0.5f @Wide 2f @High ^/ 2f @High }
+				  }
+				}
+		}
+    def brangle	{ @HContract @VContract
+				@BackEnd @Case {
+				  PostScript @Yield {
+				    { "0 0 moveto"
+				      "xsize ysize 2 div lineto"
+				      "0 ysize lineto"
+				      "0.04 ft setlinewidth stroke"
+			          }
+			          @Graphic { 0.5f @Wide 2f @High ^/ 2f @High }
+				  }
+				  PDF @Yield {
+				    { "__mul(__loutf, 0.04) w"
+				      "0 0 m"
+				      "__xsize __div(__ysize, 2) l"
+				      "0 __ysize l S"
+			          }
+			          @Graphic { 0.5f @Wide 2f @High ^/ 2f @High }
+				  }
+				}
+		}
+
+
+    ###################################################################
+    #                                                                 #
+    #   Group 13 - punctuation.                                       #
+    #                                                                 #
+    ###################################################################
+
+    def ";"     { punct semicolon     }
+    def ","     { punct comma         }
+    def col     { punct colon         }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Additional short symbols (Knuth p. 132)                       #
+    #                                                                 #
+    ###################################################################
+
+    def "!" { exclam          }
+    def "?" { question        }
+    def "%" { percent         }
+    def "(" { parenleft       }
+    def ")" { parenright      }
+    def "[" { bracketleft     }
+    def "]" { bracketright    }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Common mathematical functions (from Knuth p. 162).            #
+    #   mod is included, since @Rel mod is easily typed if needed.    #
+    #                                                                 #
+    ###################################################################
+
+    def arccos	{ @Base "arccos"	}
+    def arcsin	{ @Base "arcsin"	}
+    def arctan	{ @Base "arctan"	}
+    def arg	{ @Base "arg"		}
+    def cos	{ @Base "cos"		}
+    def cosh	{ @Base "cosh"		}
+    def cot	{ @Base "cot"		}
+    def coth	{ @Base "coth"		}
+    def csc	{ @Base "csc"		}
+    def deg	{ @Base "deg"		}
+    def det	{ @Base "det"		}
+    def dim	{ @Base "dim"		}
+    def exp	{ @Base "exp"		}
+    def gcd	{ @Base "gcd"		}
+    def hom	{ @Base "hom"		}
+    def inf	{ @Base "inf"		}
+    def ker	{ @Base "ker"		}
+    def lg	{ @Base "lg"		}
+    def lim	{ @Base "lim"		}
+    def liminf	{ @OneCol { @Base "lim" ` @Base "inf" }	}
+    def limsup	{ @OneCol { @Base "lim" ` @Base "sup" }	}
+    def ln	{ @Base "ln"		}
+    def log	{ @Base "log"		}
+    def max	{ @Base "max"		}
+    def min	{ @Base "min"		}
+    def Pr	{ @Base "Pr"		}
+    def sec	{ @Base "sec"		}
+    def sin	{ @Base "sin"		}
+    def sinh	{ @Base "sinh"		}
+    def supr	{ @Base "sup"		}
+    def tan	{ @Base "tan"		}
+    def tanh	{ @Base "tanh"		}
+    def mod	{ @Base "mod"		}
+
+
+    ###################################################################
+    #                                                                 #
+    #  Arrow symbols.                                                 #
+    #                                                                 #
+    ###################################################################
+
+    def leftarrow		{ arrowleft }
+    def longleftarrow		{ { 1.6 1 } @Scale arrowleft }
+    def dblleftarrow		{ arrowdblleft }
+    def dbllongleftarrow	{ { 1.6 1 } @Scale arrowdblleft }
+    def rightarrow		{ arrowright }
+    def longrightarrow		{ { 1.6 1 } @Scale arrowright }
+    def dblrightarrow		{ arrowdblright }
+    def dbllongrightarrow	{ { 1.6 1 } @Scale arrowdblright }
+    def leftrightarrow		{ arrowboth }
+    def longleftrightarrow	{ { 1.6 1 } @Scale arrowboth }
+    def dblleftrightarrow	{ arrowdblboth }
+    def dbllongleftrightarrow	{ { 1.6 1 } @Scale arrowdblboth }
+
+    def mapsto
+    {
+	@HContract @VContract {
+	  @BackEnd @Case {
+	    PostScript @Yield {
+	      "0 ymark 0.16 ft sub moveto 0 ymark 0.16 ft add lineto stroke"
+	      @Graphic arrowright
+	    }
+	    PDF @Yield {
+		"0 __sub(__ymark, __mul(__loutf, 0.16)) m 0 __add(__ymark, __mul(__loutf, 0.16)) l S"
+		@Graphic arrowright
+	    }
+	  }
+	}
+    }
+
+    def longmapsto
+    {
+	@HContract @VContract {
+	  @BackEnd @Case {
+	    PostScript @Yield {
+		"0 ymark 0.16 ft sub moveto 0 ymark 0.16 ft add lineto stroke"
+		@Graphic { { 1.6 1 } @Scale arrowright }
+	    }
+	    PDF @Yield {
+		"0 __sub(__ymark, __mul(__loutf, 0.16)) m 0 __add(__ymark, __mul(__loutf, 0.16)) l S"
+		@Graphic { { 1.6 1 } @Scale arrowright }
+	    }
+	  }
+	}
+    }
+
+    def hookleftarrow
+    {
+	@HContract @VContract {
+	  @BackEnd @Case {
+
+	    PostScript @Yield {
+		"xsize ymark moveto xsize ymark 0.1 ft add 0.1 ft -90 90 arc stroke"
+		@Graphic leftarrow
+	    }
+
+	    PDF @Yield {
+#
+# VT: draws a counterclockwise 180 degree arc from -90 to +90 degree positions
+#     (straight down to straight up) with centre = (xsize, ymark + 0.1 ft)
+#     and radius = 0.1 ft
+#
+# the control points therefore are:
+#   pt1 = (xsize + (4/3 * 0.1 ft), ymark) and pt2 = (xsize + (4/3 * 0.1 ft), ymark + 0.2 ft)
+#
+		{
+		  "__xsize __ymark m"											# pt0
+		  "__add(__xsize, __div(__mul(0.4, __loutf), 3)) __ymark"					# pt1
+		  "__add(__xsize, __div(__mul(0.4, __loutf), 3)) __add(__ymark, __mul(0.2, __loutf))"	# pt2
+		  "__xsize __add(__ymark, __mul(0.2, __loutf)) c S"						# pt3
+		}
+		@Graphic leftarrow
+	    }
+
+	  }
+	}
+    }
+
+    def hookrightarrow
+    {
+	@HContract @VContract {
+	  @BackEnd @Case {
+
+	    PostScript @Yield {
+		"0 ymark moveto 0 0.1 ft ymark add 0.1 ft -90 90 arcn stroke"
+		@Graphic rightarrow
+	    }
+
+	    PDF @Yield {
+#
+# VT: draws a clockwise 180 degree arc from -90 to +90 degree positions
+#     (straight down to straight up) with centre = (0, ymark + 0.1 ft)
+#     and radius = 0.1 ft
+#
+# the control points therefore are:
+#   pt1 = (-4/3 * 0.1 ft, ymark) and pt2 = (-4/3 * 0.1 ft, ymark + 0.2 ft)
+#
+		{
+		  "0 __ymark m"										# pt0
+		  "__div(__mul(-0.4, __loutf), 3) __ymark"					# pt1
+		  "__div(__mul(-0.4, __loutf), 3) __add(__ymark, __mul(0.2, __loutf))"	# pt2
+		  "0 __add(__ymark, __mul(0.2, __loutf)) c S"					# pt3
+		}
+		@Graphic rightarrow
+	    }
+
+	  }
+	}
+    }
+
+    def @ClipToSize right x
+    {
+	@HContract @VContract
+	  @BackEnd @Case {
+	    PostScript @Yield {
+		{
+		"grestore newpath 0 0 moveto xsize 0 lineto xsize ysize lineto"
+		"0 ysize lineto closepath clip gsave"
+		} @Graphic x
+	    }
+	    PDF @Yield {
+		"Q n 0 0 __xsize __ysize re W n q" @Graphic x
+	    }
+	  }
+    }
+
+    def @ClipAboveMark
+	left amount
+	right x
+    {
+	@ClipToSize { ^//{{amount}o} x }
+    }
+
+    def @ClipBelowMark
+	left amount
+	right x
+    {
+	@ClipToSize { x //{{amount}o} }
+    }
+
+    def leftharpoonup
+    {
+	0.04f @ClipBelowMark leftarrow
+    }
+
+    def rightharpoonup
+    {
+	0.04f @ClipBelowMark rightarrow
+    }
+
+    def leftharpoondown
+    {
+	0.02f @ClipAboveMark leftarrow
+    }
+
+    def rightharpoondown
+    {
+	0.02f @ClipAboveMark rightarrow
+    }
+
+    def rightleftharpoons
+    {
+	@HContract @VContract {
+		rightharpoonup
+		^//0.1fo
+		 //0.1fo
+		leftharpoondown
+	}
+    }
+
+    def leadsto		{ @HContract { similar &0.4fo arrowright } }
+
+    def uparrow		{ arrowup }
+    def dbluparrow	{ arrowdblup }
+    def downarrow	{ arrowdown }
+    def dbldownarrow	{ arrowdbldown }
+    def updownarrow	{ @HContract { arrowup &0io arrowdown } }
+    def dblupdownarrow	{ @VContract { arrowdblup ^//0.2fo arrowdbldown } }
+    def nearrow		{ 0.5w @VShift 0.5w @HShift  45d @Rotate arrowright }
+    def searrow		{ 0.5w @VShift 0.5w @HShift 315d @Rotate arrowright }
+    def swarrow		{ 0.5w @VShift 0.5w @HShift 225d @Rotate arrowright }
+    def nwarrow		{ 0.5w @VShift 0.5w @HShift 135d @Rotate arrowright }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Other symbols taken from TeX.                                 #
+    #                                                                 #
+    ###################################################################
+
+    def ldots { .       &0.3f .       &0.3f .			}
+    def cdots { dotmath &0.3f dotmath &0.3f dotmath		}
+    def vdots { @OneRow { dotmath ^/0.3f dotmath /0.3f dotmath } }
+    def ddots { @OneCol @OneRow
+	       {        dotmath
+	         ^/0.3f |0.3f dotmath
+                  /0.3f |     |0.3f dotmath
+	       }
+	      }
+
+
+    ###################################################################
+    #                                                                 #
+    #   Symbols taken from eqn (Kernighan and Cherry 1975).           #
+    #                                                                 #
+    ###################################################################
+
+    def del	{ gradient			}
+    def grad	{ gradient			}
+    def "..."	{ ellipsis			}
+    def ",...,"	{ , ellipsis ``` ,		}
+    def "'"	{ minute			}
+    def "''"	{ minute minute			}
+    def "'''"	{ minute minute minute		}
+    def "''''"	{ minute minute minute minute	}
+    def empty	{ emptyset			}
+
+
+
+    ###################################################################
+    #                                                                 #
+    #   Miscellaneous                                                 #
+    #                                                                 #
+    ###################################################################
+
+    ###################################################################
+    #                                                                 #
+    #   Symbols with parameters.                                      #
+    #                                                                 #
+    #   These symbols are essentially those of eqn, with some         #
+    #   changes and additions.                                        #
+    #                                                                 #
+    ###################################################################
+
+    def sup
+	precedence 60
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@HContract @VContract
+	{          | 0.45w @VShift @Smaller @HSqueeze @VSqueeze y
+	  ^/gap  x
+	}
+    }
+
+    def sub
+	precedence 60
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@HContract @VContract
+	{
+	       # x
+	       "." @KernShrink x
+	  /gap    |  @Smaller @HSqueeze @VSqueeze y
+	}
+    }
+
+    def tsub
+	precedence 60
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@HContract @VContract
+	{
+	       x
+	  /gap    |  &0io 0.2f @HShift @Smaller @HSqueeze @VSqueeze y
+	}
+    }
+
+    def supp
+	precedence 60
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@HContract @VContract
+	{
+	    { ^/gap x /gap } |  y
+	}
+    }
+
+    def on
+	precedence 61
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@Smaller @HSqueeze @VSqueeze x ^/  /
+	@Smaller @HSqueeze @VSqueeze y 
+    }
+
+    def ton
+	precedence 61
+	associativity left
+	left x
+	named gap { @SupGap }
+	right y
+    {
+	@Smaller @HSqueeze @VSqueeze x ^/  /
+	&0io 0.3f @HShift @Smaller @HSqueeze @VSqueeze y
+    }
+
+    def frac
+	precedence 54
+	associativity left
+	left x
+	named gap { 0.2f }
+	right y
+    {
+	@HContract @VContract @Smaller @HSqueeze @VSqueeze
+	{ 1w @VShift { x /gap } | fraction &0io | 0w @VShift { |gap y }
+	}
+    }
+
+    def half { 1 frac 2 }
+    def third { 1 frac 3 }
+
+    def over
+	precedence 54
+	associativity left
+	left x
+	named gap { 0.2f }
+	right y
+    {  
+	@HContract @VContract
+	{          |0.5rt @OneCol @VSqueeze x
+	  ^//gap   @HLine
+	   //gap   |0.5rt @OneCol @VSqueeze @Strut y
+	}
+    }
+
+    def from
+	precedence 58
+	associativity left
+	left x
+	named gap { @ThinGap  }
+	named skew { 0c }
+	right y
+    {  
+	@HContract @VContract
+	{          |0.5rt x
+	   //gap   |0.5rt &skew @Smaller @HSqueeze @VSqueeze y
+	}
+    }
+
+    def to
+	precedence 58
+	associativity left
+	left x
+	named gap { @ThinGap  }
+	named skew { 0c }
+	right y
+    {
+	@HContract @VContract
+	{          |0.5rt &skew @Smaller @HSqueeze @VSqueeze y
+	  ^//gap   |0.5rt x
+	}
+    }
+
+    def widefrom
+	precedence 58
+	associativity left
+	left x
+	named gap { @ThinGap  }
+	right y
+    {
+	@HContract @VContract
+	{
+	    x //gap @HScale y
+	}
+    }
+
+    def wideto
+	precedence 58
+	associativity left
+	left x
+	named gap { @ThinGap  }
+	right y
+    {
+	@HContract @VContract
+	{
+	    @HScale y ^//gap x
+	}
+    }
+
+    def dot
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } .
+    }
+
+    def dotdot
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } ..
+    }
+
+    def hat
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } @Base "^"
+    }
+
+    def tilde
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } @Base "~"
+    }
+
+    def vec
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } arrowright
+    }
+
+    def dyad
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x to gap { gap } skew { @SkewGap } arrowboth
+    }
+
+    def overbar
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x wideto gap { gap } minus
+    }
+
+    def underbar
+	precedence 62
+	left x
+	named gap { @ThinGap }
+    {
+	x widefrom gap { gap } minus
+    }
+
+    def sqrt
+	precedence 56
+	named gap { @ThinGap }
+	right x
+    {
+	@BackEnd @Case {
+	  PostScript @Yield {
+	    @HContract @VContract
+		{
+		    @VScale surd | @OneRow
+		    {
+			@HLine line { "0.03 ft setlinewidth 2 setlinecap" }
+			^//gap  |gap  @VSqueeze @Strut x # //gap
+		    }
+		}
+	  }
+	  PDF @Yield {
+		@HContract @VContract
+		{
+#
+#	VT: this PDF is correct but it renders badly in Acrobat (?problem
+#	    with scaling by fractional factors)
+#	In other words, the @VScale value comes through correctly but it
+#	    looks ugly; GhostScript's translation actually expands the
+#	    "draw surd" instruction into raw moveto's and lineto's which
+#	    it presumably gets from the font's definition of the glyph!
+#
+		    @VScale surd | @OneRow
+		    {
+			@HLine line { "__mul(__loutf, 0.03) w 2 J" }
+			^//gap  |gap  @VSqueeze @Strut x # //gap
+		    }
+		}
+	  }
+	}
+    }
+
+    def root
+	precedence 56
+	left x
+	right y
+    {
+	"" sup x &0io sqrt y
+    }
+
+    def above
+	precedence 52
+	left x
+	named gap { @RowGap }
+	right y
+    {
+	|0.5rt x //gap |0.5rt y
+    }
+
+    def labove
+	precedence 52
+	left x
+	named gap { @RowGap }
+	right y
+    {
+	x //gap y
+    }
+
+    def cabove
+	precedence 52
+	left x
+	named gap { @RowGap }
+	right y
+    {
+	|0.5rt x //gap |0.5rt y
+    }
+
+    def rabove
+	precedence 52
+	left x
+	named gap { @RowGap }
+	right y
+    {
+	|1rt x //gap |1rt y
+    }
+
+    def mabove
+	precedence 52
+	left x
+	named gap { @RowGap }
+	right y
+    {
+	x /gap y
+    }
+
+    def nextcol
+	precedence 50
+	left x
+	named gap { @ColGap }
+	right y
+    {
+	x |gap y
+    }
+
+    export row axisrow col lcol ccol rcol mcol
+    def matrix
+	precedence 100
+	named gap { @MedGap }
+	named strut
+	    named no  { }
+	    named No  { }
+	    named yes { 0.5f }
+	    named Yes { 0.5f }
+	{ No }
+	named atleft {}
+	named atright {}
+	named userow { No }
+	named shiftdelim { Yes }
+	body x
+    { 
+	def @Strut
+	{
+	    strut @Case {
+		"" @Yield {}
+		else @Yield { @OneRow { strut @High ^/ strut @High } }
+	    }
+	}
+
+	def newrow
+	    precedence 50
+	    associativity left
+	    left x
+	    right y
+	{
+	    x @Case {
+		"" @Yield { y | @Strut }
+		else @Yield { x /@RowGap y | @Strut }
+	    }
+	}
+
+	macro row { newrow "" }
+
+	def newaxisrow
+	    precedence 50
+	    associativity left
+	    left x
+	    right y
+	{
+	    x @Case {
+		"" @Yield { y | @Strut }
+		else @Yield { x ^/@RowGap y | @Strut }
+	    }
+	}
+
+	macro axisrow { newaxisrow "" }
+
+	def col
+	    precedence 52
+	    associativity left
+	    left x
+	    named indent { 0.5rt }
+	    right y
+	{
+	    x @Case {
+		""   @Yield {            &indent @OneCol y }
+		else @Yield { x |@ColGap &indent @OneCol y }
+	    }
+	}
+
+	def lcol
+	    precedence 52
+	    associativity left
+	    left x
+	    right y
+	{
+	    x col indent { 0i } y
+	}
+
+	def ccol
+	    precedence 52
+	    associativity left
+	    left x
+	    right y
+	{
+	    x col indent { 0.5rt } y
+	}
+
+	def rcol
+	    precedence 52
+	    associativity left
+	    left x
+	    right y
+	{
+	    x col indent { 1rt } y
+	}
+
+	def mcol
+	    precedence 52
+	    associativity left
+	    left x
+	    right y
+	{
+	    x @Case {
+		""   @Yield {            @OneCol y }
+		else @Yield { x |@ColGap @OneCol y }
+	    }
+	}
+
+	def delim right x
+	{
+	    x @Case
+	    {
+		""   @Yield @Null
+		else @Yield
+		{
+		    shiftdelim @Case {
+		    { Yes yes } @Yield { @VScale x }
+		    else        @Yield { @VCover x }
+		    }
+		}
+	    }
+	}
+
+	@HContract @VContract {
+	    delim atleft &@ThinGap
+	    userow @Case {
+		{Yes yes} @Yield @HContract @VContract {^//gap @OneRow x //gap}
+		else      @Yield vctr @HContract @VContract { //gap x //gap }
+	    }
+	    &@ThinGap delim atright
+	}
+    }
+
+    macro pmatrix  { matrix atleft { "1.5f" @Font ( } atright { "1.5f" @Font ) }}
+    macro bmatrix  { matrix atleft { blbrack } atright { brbrack } }
+    macro brmatrix { matrix atleft { blbrace } atright { brbrace } }
+    macro fmatrix  { matrix atleft { blfloor } atright { brfloor } }
+    macro cmatrix  { matrix atleft { blceil  } atright { brceil  } }
+    macro amatrix  { matrix atleft { blangle } atright { brangle } }
+
+    Slope @Font { separate @SpaceGap } @Space 1f @ZUnit 1f @YUnit @Body
+
+@End @Eq                  
+
+macro @E { @OneCol @Eq }
diff --git a/include/fig b/include/fig
new file mode 100644
index 0000000..dac333c
--- /dev/null
+++ b/include/fig
@@ -0,0 +1,27 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for figure drawing (OBSOLETE: use @Diag instead)          #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { figf } line                                              #
+#                                                                             #
+#  This line causes Lout to read the definitions for equations, and should    #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { figf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer the ability to change default options.         #
+#                                                                             #
+###############################################################################
diff --git a/include/figf b/include/figf
new file mode 100644
index 0000000..c3cd15b
--- /dev/null
+++ b/include/figf
@@ -0,0 +1,909 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Fig package for drawing figures (Version 2.0)                        #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, October 1991.                          #
+#  Version 2.0 by Jeffrey H. Kingston, 22 December 1992.                      #
+#  Symbol names changed by JHK 5 March 1993 to avoid clashes with EPS files.  #
+#  @CurveBox and @ShadowBox added by JHK April 1995.                          #
+#                                                                             #
+#  See "Fig - a Lout package for drawing figures" for user information.       #
+#                                                                             #
+#  This package is now obsolete, having been replaced by @Diag.               #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { "figf.lpg" }
+
+export in cm pt em sp vs ft dg
+       "<<" "**" "++" "--" @Max @Min
+       @Distance @XDistance @YDistance @Angle
+       @Prev "::" @Label @BaseOf @MarkOf @ShowLabels @Figure
+       @Frame @Box @CurveBox @ShadowBox @Square @Diamond @Polygon @Ellipse
+       @Circle @HLine @VLine @Line @HArrow @VArrow @Arrow @Arc
+
+def @Fig                  
+    named maxlabels  { 200     }
+    named linestyle  { solid   }
+    named linewidth  { 0.5 pt  }
+    named linecap    { round   }
+    named dashlength { 0.15 cm }
+    named paint      { nopaint }
+    named margin     { 0.4c    }
+    named arrow      { noarrow }
+    named headstyle  { open    }
+    named headwidth  { 0.05 cm }
+    named headlength { 0.15 cm }
+    body @Body
+@Begin
+
+    # Like @Graphic, but affects the graphics state of right parameter
+    def @InnerGraphic
+	left ps
+	right x
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield { { ps gsave // grestore } @Graphic x }
+	    	PDF        @Yield { }
+	    }
+    }
+
+    def in precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "in" }
+	    	PDF        @Yield { "__mul(__in, "x")" }
+	    }
+	}
+
+    def cm precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "cm" }
+	    	PDF        @Yield { "__mul(__cm, "x")" }
+	    }
+	}
+
+    def pt precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "pt" }
+	    	PDF        @Yield { "__mul(__pt, "x")" }
+	    }
+	}
+
+    def em precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "em" }
+	    	PDF        @Yield { "__mul(__em, "x")" }
+	    }
+	}
+
+    def sp precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "sp" }
+	    	PDF        @Yield { "__mul(__louts, "x")" }
+	    }
+	}
+
+    def vs precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "vs" }
+	    	PDF        @Yield { "__mul(__loutv, "x")" }
+	    }
+	}
+
+    def ft precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "ft" }
+	    	PDF        @Yield { "__mul(__loutf, "x")" }
+	    }
+	}
+
+    def dg precedence 39 left x {
+	    @BackEnd @Case {
+	    	PostScript @Yield { x "dg" }
+	    	PDF        @Yield { }
+	    }
+	}
+
+    def "<<"
+	precedence 38
+	left length
+	right angle
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				0 0 length angle "lfigatangle"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def "**"
+	precedence 37
+	left point
+	right length
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				point length "lfigpmul"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def "++"
+	precedence 36
+	associativity left
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigpadd"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def "--"
+	precedence 36
+	associativity left
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				y x "lfigpsub"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Max
+	precedence 36
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigpmax"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Min
+	precedence 36
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigpmin"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Distance
+	precedence 35
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigdistance"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @XDistance
+	precedence 35
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigxdistance"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @YDistance
+	precedence 35
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigydistance"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Angle
+	precedence 35
+	left x
+	right y
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				x y "lfigangle"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Prev
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				"lfigprevious"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def "::"
+	precedence 33
+	left name
+	right x
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				{ "currentdict end" maxlabels "dict begin begin"
+				  // "("name") lfigpromotelabels" } @Graphic x
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Label
+	right name
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				"/"name "lfigpointdef"
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @MarkOf
+	precedence 32
+	left point
+	right x
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				{ point "translate" } @InnerGraphic
+				{
+				    /0io |0io @OneCol @OneRow x |0io /0io
+				}
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @BaseOf
+	precedence 32
+	left point
+	right x
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				{ point "translate" } @InnerGraphic
+				{
+				    /0io |0io @OneRow @OneCol {
+				    | @OneCol @OneRow x ^/
+				    } |0io /0io
+				}
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @ShowLabels
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				"lfigshowlabels" @Graphic
+			}
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Figure
+	named shape      {            }
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named arrow      { arrow      }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	right x
+    {
+	    @BackEnd @Case {
+	    	PostScript @Yield {
+				@HContract @VContract
+				{
+				    #fill the shape
+				    paint @Case
+				    {
+					nopaint @Yield {}
+			
+					{ nochange darkblue blue lightblue darkgreen green lightgreen
+					  darkred red lightred darkcyan cyan lightcyan darkmagenta
+					  magenta lightmagenta darkyellow yellow lightyellow darkgray
+					  gray lightgray darkgrey grey lightgrey black white }
+					@Yield
+					{ "/lfig"paint "[" shape "] gsave lfigpaintpath grestore" }
+				    }
+			
+				    # stroke the path and add any arrowheads
+				    linestyle @Case
+				    {
+					{ solid dashed cdashed dotted noline } @Yield
+					{
+					    linewidth "setlinewidth" "lfig"linecap "setlinecap"
+					    dashlength "/lfig"linestyle "[" shape "] lfigdopath"
+					    arrow @Case
+					    {
+						noarrow @Yield { pop pop }
+						{ forward back both } @Yield
+						{  dashlength "/lfig"linestyle "/"lfigblack
+						   headstyle @Case
+						   { { open halfopen closed } @Yield "lfig"headstyle }
+						   headlength headwidth "lfig"arrow
+						}
+					    }
+					}
+				    }
+				}
+				@Graphic
+				{
+				    ^/margin ^|margin @OneCol @OneRow x |margin
+				     /margin
+				}
+			}
+
+			PDF @Yield {
+			}
+		}
+    }
+
+    def @Frame
+	right x
+    {
+	@Figure
+	    shape {xsize 0 @Label X 0 ysize @Label Y}
+	{ x }
+    }
+
+    def @Box
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		# 0     0      @Label SW
+		# xsize 0      @Label SE
+		# xsize ysize  @Label NE
+		# 0     ysize  @Label NW
+		# SE ** 0.5    @Label S
+		# NW ** 0.5    @Label W
+		# W ++ SE      @Label E
+		# S ++ NW      @Label N
+		# NE ** 0.5    @Label CTR
+		# SW SE NE NW SW
+		lfigbox
+	    }
+	    linestyle  { linestyle }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+
+    def @CurveBox
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		lfigcurvebox
+	    }
+	    linestyle  { linestyle }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	{ 0c @HShift x }
+    }
+
+    def @ShadowBox
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	named shadow     { 0.2f       }
+	right x
+    {
+		@BackEnd @Case {
+			PostScript @Yield {
+				@VContract @HContract 0c @HShift "lfigshadow" @Graphic
+				{
+				  ^/shadow ^|shadow 0c @HShift
+				  @Figure
+				    shape {
+					lfigbox
+				    }
+				    linestyle  { linestyle }
+				    linewidth  { linewidth  }
+				    linecap    { linecap    }
+				    dashlength { dashlength }
+				    paint      { paint      }
+				    margin     { margin     }
+				  0c @HShift x
+				  |shadow /shadow
+				}
+			}
+			PDF @Yield {
+				@VContract @HContract 0c @HShift
+
+#				"lfigshadow" @Graphic is this:
+				{ "__mul(__xmark, 2) 0 m __xsize 0 l"			#  xmark 2 mul 0 moveto xsize 0 lineto
+				  "__xsize __sub(__ysize, __mul(__xmark, 2)) l"	#  xsize ysize xmark 2 mul sub lineto
+				  "__sub(__xsize, __xmark) __sub(ysize, __mul(__xmark, 2)) l"	#  xsize xmark sub ysize xmark 2 mul sub lineto
+				  "__sub(__xsize, __xmark) __xmark l"			#  xsize xmark sub xmark lineto
+				  "__mul(__xmark, 2) __xmark l h f"				#  xmark 2 mul xmark lineto closepath fill
+				} @Graphic
+
+				{
+				  ^/shadow ^|shadow 0c @HShift
+				  @Figure
+				    shape {
+					lfigbox
+				    }
+				    linestyle  { linestyle }
+				    linewidth  { linewidth  }
+				    linecap    { linecap    }
+				    dashlength { dashlength }
+				    paint      { paint      }
+				    margin     { margin     }
+				  0c @HShift x
+				  |shadow /shadow
+				}
+			}
+		}
+    }
+
+    def @Square
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		# {xsize ysize} ** 0.5                           @Label CTR
+		# CTR ++ {{xsize xsize} @Max {ysize ysize}}**0.5 @Label NE
+		# CTR ++ { {CTR @Distance NE} << 135 }           @Label NW
+		# CTR ++ { {CTR @Distance NE} << 225 }           @Label SW
+		# CTR ++ { {CTR @Distance NE} << 315 }           @Label SE
+		# SW ** 0.5 ++ SE ** 0.5                         @Label S
+		# NW ** 0.5 ++ NE ** 0.5                         @Label N
+		# SW ** 0.5 ++ NW ** 0.5                         @Label W
+		# SE ** 0.5 ++ NE ** 0.5                         @Label E
+		# SW SE NE NW SW
+		lfigsquare
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+    def @Diamond
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		# {xsize 0} ** 0.5  @Label S
+		# {0 ysize} ** 0.5  @Label W
+		# S ++ W            @Label CTR
+		# CTR ++ W          @Label N
+		# CTR ++ S          @Label E
+		# S E N W S
+		lfigdiamond
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+    def @Polygon
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	named sides      { 3          }
+	named angle      { "dup 180 exch div" }
+	right x
+    {
+	@Figure
+	    shape      { sides angle lfigpolygon }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+    def @Ellipse
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		# {xsize 0} ** 0.5  @Label S
+		# {0 ysize} ** 0.5  @Label W
+		# S ++ W            @Label CTR
+		# CTR ++ W          @Label N
+		# CTR ++ S          @Label E
+		# CTR ++ {xsize 0} ** 0.3536 ++ {0 ysize} ** 0.3536  @Label NE
+		# CTR ++ {xsize 0} ** 0.3536 -- {0 ysize} ** 0.3536  @Label SE
+		# CTR -- {xsize 0} ** 0.3536 ++ {0 ysize} ** 0.3536  @Label NW
+		# CTR -- {xsize 0} ** 0.3536 -- {0 ysize} ** 0.3536  @Label SW
+		# S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+		lfigellipse
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+    def @Circle
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { margin     }
+	right x
+    {
+	@Figure
+	    shape {
+		# {xsize ysize} **0.5                    @Label CTR
+		# CTR ++ {{xsize 0} @Max {ysize 0}}**0.5 @Label E
+		# CTR ++ { {CTR @Distance E} << 45  }    @Label NE
+		# CTR ++ { {CTR @Distance E} << 90  }    @Label N
+		# CTR ++ { {CTR @Distance E} << 135 }    @Label NW
+		# CTR ++ { {CTR @Distance E} << 180 }    @Label W
+		# CTR ++ { {CTR @Distance E} << 225 }    @Label SW
+		# CTR ++ { {CTR @Distance E} << 270 }    @Label S
+		# CTR ++ { {CTR @Distance E} << 315 }    @Label SE
+		# S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+		lfigcircle
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	x
+    }
+
+    def @HLine
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { arrow      }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		# 0     ymark @Prev @Label FROM
+		# xsize ymark @Prev @Label TO
+		lfighline
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @VLine
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { arrow      }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		# xmark ysize @Prev @Label FROM
+		# xmark 0     @Prev @Label TO
+		lfigvline
+	    }
+	    linestyle  { linestyle }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @HArrow
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { forward    }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		# 0     ymark @Prev @Label FROM
+		# xsize ymark @Prev @Label TO
+		lfighline
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @VArrow
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { forward    }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		# xmark ysize @Prev @Label FROM
+		# xmark 0     @Prev @Label TO
+		lfigvline
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @Line
+	named from       { 0 ysize    }
+	named to         { xsize 0    }
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { arrow      }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		from @Prev @Label FROM
+		to   @Prev @Label TO
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @Arrow
+	named from       { 0 ysize    }
+	named to         { xsize 0    }
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { forward    }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		from @Prev @Label FROM
+		to   @Prev @Label TO
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    def @Arc
+	named from       { 0 ysize    }
+	named to         { xsize 0    }
+	named ctr        { 0 0        }
+	named direction  { clockwise  }
+	named linestyle  { linestyle  }
+	named linewidth  { linewidth  }
+	named linecap    { linecap    }
+	named dashlength { dashlength }
+	named paint      { paint      }
+	named margin     { 0c         }
+	named arrow      { noarrow    }
+	named headstyle  { headstyle  }
+	named headwidth  { headwidth  }
+	named headlength { headlength }
+	right x
+    {
+	@Figure
+	    shape {
+		from @Label FROM
+		to   @Label TO
+		ctr  @Label CTR
+		FROM [ CTR
+		direction @Case { {clockwise anticlockwise} @Yield direction }
+		] TO
+	    }
+	    linestyle  { linestyle  }
+	    linewidth  { linewidth  }
+	    linecap    { linecap    }
+	    dashlength { dashlength }
+	    paint      { paint      }
+	    margin     { margin     }
+	    arrow      { arrow      }
+	    headstyle  { headstyle  }
+	    headwidth  { headwidth  }
+	    headlength { headlength }
+	x
+    }
+
+    @BackEnd @Case {
+        PostScript @Yield {
+            { "grestore save gsave" maxlabels "dict begin lfigdict begin"
+              // "end end restore"
+            } @Graphic @Body
+        }
+        PDF @Yield {
+        }
+    }
+
+@End @Fig                  
diff --git a/include/figf.lpg b/include/figf.lpg
new file mode 100644
index 0000000..2b64188
--- /dev/null
+++ b/include/figf.lpg
@@ -0,0 +1,1003 @@
+%%BeginResource: procset LoutFigPrependGraphic
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                    %
+%  PostScript @SysPrependGraphic file for @Fig  Jeffrey H. Kingston  %
+%  Version 2.0 (includes CIRCUM label)                 January 1992  %
+%                                                                    %
+%  To assist in avoiding name clashes, the names of all symbols      %
+%  defined here begin with "lfig".  However, this is not feasible    %
+%  with user-defined labels and some labels used by users.           %
+%                                                                    %
+%  <point>      is two numbers, a point.                             %
+%  <length>     is one number, a length                              %
+%  <angle>      is one number, an angle in degrees                   %
+%  <dashlength> is one number, the preferred length of a dash        %
+%                                                                    %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+errordict begin
+   /handleerror
+   {
+      {  /Times-Roman findfont 8 pt scalefont setfont
+	 0 setgray 4 pt 4 pt moveto
+	 $error /errorname get
+	 dup lfigdict exch known
+	 { lfigdict exch get }
+	 { 30 string cvs } ifelse
+	 show
+	 (  Command: ) show
+	 $error /command get 30 string cvs show
+      } stopped {} if
+      showpage stop
+   } def
+end
+
+% concat strings: <string> <string> lfigconcat <string>
+% must be defined outside lfigdict since used in lfigpromotelabels
+/lfigconcat
+{ 2 copy length exch length add string
+  dup 0 4 index putinterval
+  dup 3 index length 3 index putinterval
+  3 1 roll pop pop
+} def
+
+% <string> lfigdebugprint -
+% must be defined outside lfigdict since used in arbitrary places
+% /lfigdebugprint
+% { print
+%   (;  operand stack:\n) print
+%   count copy
+%   count 2 idiv
+%   { ==
+%     (\n) print
+%   } repeat
+%   (\n) print
+% } def
+
+/lfigdict 120 dict def
+lfigdict begin
+
+% error messages
+/dictfull (dictfull error:  too many labels?) def
+/dictstackoverflow (dictstackoverflow error:  labels nested too deeply?) def
+/execstackoverflow (execstackoverflow error:  figure nested too deeply?) def
+/limitcheck (limitcheck error:  figure nested too deeply or too large?) def
+/syntaxerror (syntaxerror error:  syntax error in text of figure?) def
+/typecheck (typecheck error:  syntax error in text of figure?) def
+/undefined (undefined error:  unknown or misspelt label?) def
+/VMError (VMError error:  run out of memory?) def
+
+% push pi onto stack:  - lfigpi <num>
+/lfigpi 3.14159 def
+
+% arc directions
+/clockwise     false def
+/anticlockwise true  def
+
+% maximum of two numbers:  <num> <num> lfigmax <num>
+/lfigmax { 2 copy gt { pop } { exch pop } ifelse } def
+
+% minimum of two numbers:  <num> <num> lfigmin <num>
+/lfigmin { 2 copy lt { pop } { exch pop } ifelse } def
+
+% add two points:  <point> <point> lfigpadd <point>
+/lfigpadd { exch 3 1 roll add 3 1 roll add exch } def
+
+% subtract first point from second:  <point> <point> lfigpsub <point>
+/lfigpsub { 3 2 roll sub 3 1 roll exch sub exch } def
+
+% max two points:  <point> <point> lfigpmax <point>
+/lfigpmax { exch 3 1 roll lfigmax 3 1 roll lfigmax exch } def
+
+% min two points:  <point> <point> lfigpmin <point>
+/lfigpmin { exch 3 1 roll lfigmin 3 1 roll lfigmin exch } def
+
+% scalar multiplication: <point> <num> lfigpmul <point>
+/lfigpmul { dup 3 1 roll mul 3 1 roll mul exch } def
+
+% point at angle and distance:  <point> <length> <angle> lfigatangle <point>
+/lfigatangle { 2 copy cos mul 3 1 roll sin mul lfigpadd } def
+
+% angle from one point to another:  <point> <point> lfigangle <angle>
+/lfigangle { lfigpsub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
+
+% distance between two points:  <point> <point> lfigdistance <length>
+/lfigdistance { lfigpsub dup mul exch dup mul add sqrt } def
+
+% difference in x coords: <point> <point> lfigxdistance <length>
+/lfigxdistance { pop 3 1 roll pop sub } def
+
+%difference in y coords: <point> <point> lfigydistance <length>
+/lfigydistance { 3 1 roll pop sub exch pop } def
+
+% stroke a solid line:  <length> <dashlength> lfigsolid -
+/lfigsolid
+{  pop pop [] 0 setdash stroke
+} def
+
+% stroke a lfigdashed line:   <length> <dashlength> lfigdashed -
+/lfigdashed
+{  2 copy div 2 le 1 index 0 le or
+   {  exch pop 1 pt lfigmax [ exch dup ] 0 setdash }
+   {  dup [ exch 4 2 roll 2 copy div
+      1 sub 2 div ceiling dup 4 1 roll
+      1 add mul sub exch div ] 0 setdash
+   } ifelse stroke
+} def
+
+% stroke a lfigcdashed line:  <length> <dashlength> lfigcdashed -
+/lfigcdashed
+{  2 copy le 1 index 0 le or
+   { exch pop 1 pt lfigmax [ exch dup ] dup 0 get 2 div setdash }
+   { dup [ 4 2 roll exch 2 copy exch div
+     2 div ceiling div 1 index sub
+     ] exch 2 div setdash
+   } ifelse stroke
+} def
+
+% stroke a dotted line:  <length> <dashlength> lfigdotted -
+/lfigdotted
+{  2 copy le 1 index 0 le or
+   { exch pop 1 pt lfigmax [ exch 0 exch ] 0 setdash }
+   { 1 index exch div ceiling div
+     [ 0 3 2 roll ] 0 setdash
+   } ifelse stroke
+} def
+
+% stroke a noline line:  <length> <dashlength> lfignoline -
+/lfignoline
+{ pop pop
+} def
+
+% painting (i.e. filling): - lfigwhite - (etc.)
+/lfignopaint		{			       } def
+/lfignochange		{ 			  fill } def
+/lfigdarkblue		{ 0.0 0.0 0.5 setrgbcolor fill } def
+/lfigblue		{ 0.0 0.0 1.0 setrgbcolor fill } def
+/lfiglightblue		{ 0.5 0.5 1.0 setrgbcolor fill } def
+/lfigdarkgreen		{ 0.0 0.5 0.0 setrgbcolor fill } def
+/lfiggreen		{ 0.0 1.0 0.0 setrgbcolor fill } def
+/lfiglightgreen		{ 0.5 1.0 0.5 setrgbcolor fill } def
+/lfigdarkred		{ 0.5 0.0 0.0 setrgbcolor fill } def
+/lfigred		{ 1.0 0.0 0.0 setrgbcolor fill } def
+/lfiglightred		{ 1.0 0.5 0.5 setrgbcolor fill } def
+/lfigdarkcyan		{ 0.0 0.5 0.5 setrgbcolor fill } def
+/lfigcyan		{ 0.0 1.0 1.0 setrgbcolor fill } def
+/lfiglightcyan		{ 0.5 1.0 1.0 setrgbcolor fill } def
+/lfigdarkmagenta	{ 0.5 0.0 0.5 setrgbcolor fill } def
+/lfigmagenta		{ 1.0 0.0 1.0 setrgbcolor fill } def
+/lfiglightmagenta	{ 1.0 0.5 1.0 setrgbcolor fill } def
+/lfigdarkyellow		{ 0.5 0.5 0.0 setrgbcolor fill } def
+/lfigyellow		{ 1.0 1.0 0.0 setrgbcolor fill } def
+/lfiglightyellow	{ 1.0 1.0 0.5 setrgbcolor fill } def
+/lfigdarkgray		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/lfiggray		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/lfiglightgray		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/lfigdarkgrey		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/lfiggrey		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/lfiglightgrey		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/lfigblack		{ 0.0 0.0 0.0 setrgbcolor fill } def
+/lfigwhite		{ 1.0 1.0 1.0 setrgbcolor fill } def
+
+% line caps (and joins, not currently used)
+/lfigbutt       0 def
+/lfiground      1 def
+/lfigprojecting 2 def
+/lfigmiter      0 def
+/lfigbevel      2 def
+
+% shape and labels of the @Box symbol
+/lfigbox
+{
+   0     0     /SW  lfigpointdef
+   xsize 0     /SE  lfigpointdef
+   xsize ysize /NE  lfigpointdef
+   0     ysize /NW  lfigpointdef
+   SE 0.5 lfigpmul /S   lfigpointdef
+   NW 0.5 lfigpmul /W   lfigpointdef
+   W SE lfigpadd   /E   lfigpointdef
+   S NW lfigpadd   /N   lfigpointdef
+   NE 0.5 lfigpmul /CTR lfigpointdef
+   [ CTR NE lfigpsub /lfigboxcircum cvx ] lfigcircumdef
+   SW SE NE NW SW
+} def
+
+% shape and labels of the @CurveBox symbol
+/lfigcurvebox
+{
+
+   xsize 0.5 mul	ysize 0.5 mul	/CTR lfigpointdef
+   xsize 0.5 mul	0		/S   lfigpointdef
+   xsize		ysize 0.5 mul	/E   lfigpointdef
+   xsize 0.5 mul	ysize		/N   lfigpointdef
+   0			ysize 0.5 mul	/W   lfigpointdef
+
+   xmark 0.293 mul		xmark 0.293 mul		  /SW  lfigpointdef
+   xsize xmark 0.293 mul sub	xmark 0.293 mul		  /SE  lfigpointdef
+   xsize xmark 0.293 mul sub	ysize xmark 0.293 mul sub /NE  lfigpointdef
+   xmark 0.293 mul		ysize xmark 0.293 mul sub /NW  lfigpointdef
+
+   [ xsize ysize 0.5 lfigpmul xmark /lfigcurveboxcircum cvx ] lfigcircumdef
+
+   xmark		0
+   xsize xmark sub	0
+   [ xsize xmark sub	xmark		]
+   xsize		xmark
+   xsize		ysize xmark sub
+   [ xsize xmark sub	ysize xmark sub	]
+   xsize xmark sub	ysize
+   xmark		ysize
+   [ xmark		ysize xmark sub	]
+   0			ysize xmark sub
+   0			xmark
+   [ xmark		xmark		]
+   xmark		0
+} def
+
+% shadow of the @ShadowBox symbol
+% its shape and labels are done, somewhat inaccurately, with lfigbox
+/lfigshadow
+{ xmark 2 mul 0 moveto xsize 0 lineto
+  xsize ysize xmark 2 mul sub lineto
+  xsize xmark sub ysize xmark 2 mul sub lineto
+  xsize xmark sub xmark lineto
+  xmark 2 mul xmark lineto closepath fill
+} def
+
+% shape and labels of the @Square symbol
+/lfigsquare
+{
+   xsize ysize 0.5 lfigpmul /CTR lfigpointdef
+   CTR xsize xsize ysize ysize lfigpmax 0.5 lfigpmul lfigpadd /NE lfigpointdef
+   CTR 0 0 CTR NE lfigdistance 135 lfigatangle lfigpadd /NW lfigpointdef
+   CTR 0 0 CTR NE lfigdistance 225 lfigatangle lfigpadd /SW lfigpointdef
+   CTR 0 0 CTR NE lfigdistance 315 lfigatangle lfigpadd /SE lfigpointdef
+   SW 0.5 lfigpmul SE 0.5 lfigpmul lfigpadd /S lfigpointdef
+   NW 0.5 lfigpmul NE 0.5 lfigpmul lfigpadd /N lfigpointdef
+   SW 0.5 lfigpmul NW 0.5 lfigpmul lfigpadd /W lfigpointdef
+   SE 0.5 lfigpmul NE 0.5 lfigpmul lfigpadd /E lfigpointdef
+   [ CTR NE lfigpsub /lfigboxcircum cvx ] lfigcircumdef
+   SW SE NE NW SW
+} def
+
+% shape and labels of the @Diamond symbol
+/lfigdiamond
+{
+   xsize 0 0.5 lfigpmul /S   lfigpointdef
+   0 ysize 0.5 lfigpmul /W   lfigpointdef
+   S W         lfigpadd /CTR lfigpointdef
+   CTR W       lfigpadd /N   lfigpointdef
+   CTR S       lfigpadd /E   lfigpointdef
+   [ xsize ysize 0.5 lfigpmul /lfigdiamondcircum cvx ] lfigcircumdef
+   S E N W S
+} def
+
+% shape and labels of the @Ellipse symbol
+/lfigellipse
+{
+   xsize 0 0.5 lfigpmul /S   lfigpointdef
+   0 ysize 0.5 lfigpmul /W   lfigpointdef
+   S W         lfigpadd /CTR lfigpointdef
+   CTR W       lfigpadd /N   lfigpointdef
+   CTR S       lfigpadd /E   lfigpointdef
+   CTR xsize 0 0.3536 lfigpmul lfigpadd 0 ysize 0.3536 lfigpmul lfigpadd /NE lfigpointdef
+   0 ysize 0.3536 lfigpmul CTR xsize 0 0.3536 lfigpmul lfigpadd lfigpsub /SE lfigpointdef
+   xsize 0 0.3536 lfigpmul CTR lfigpsub 0 ysize 0.3536 lfigpmul lfigpadd /NW lfigpointdef
+   0 ysize 0.3536 lfigpmul xsize 0 0.3536 lfigpmul CTR lfigpsub lfigpsub /SW lfigpointdef
+   [ xsize ysize 0.5 lfigpmul /lfigellipsecircum cvx ] lfigcircumdef
+   S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+} def
+
+% shape and labels of the @Circle symbol
+/lfigcircle
+{
+   xsize ysize 0.5 lfigpmul /CTR lfigpointdef
+   CTR xsize 0 ysize 0 lfigpmax 0.5 lfigpmul lfigpadd /E lfigpointdef
+   CTR 0 0 CTR E lfigdistance 45 lfigatangle lfigpadd /NE lfigpointdef
+   CTR 0 0 CTR E lfigdistance 90 lfigatangle lfigpadd /N lfigpointdef
+   CTR 0 0 CTR E lfigdistance 135 lfigatangle lfigpadd /NW lfigpointdef
+   CTR 0 0 CTR E lfigdistance 180 lfigatangle lfigpadd /W lfigpointdef
+   CTR 0 0 CTR E lfigdistance 225 lfigatangle lfigpadd /SW lfigpointdef
+   CTR 0 0 CTR E lfigdistance 270 lfigatangle lfigpadd /S lfigpointdef
+   CTR 0 0 CTR E lfigdistance 315 lfigatangle lfigpadd /SE lfigpointdef
+   [ S E lfigpsub /lfigellipsecircum cvx ] lfigcircumdef
+   S [ CTR ] E [ CTR ] N [ CTR ] W [ CTR ] S
+} def
+
+% shape and labels of the @HLine and @HArrow symbols
+/lfighline
+{
+   0 ymark lfigprevious /FROM lfigpointdef
+   xsize ymark lfigprevious /TO lfigpointdef
+} def
+
+% shape and labels of the @VLine and @VArrow symbols
+/lfigvline
+{
+   xmark ysize lfigprevious /FROM lfigpointdef
+   xmark 0 lfigprevious /TO lfigpointdef
+} def
+
+% points of a polygon around base with given no of sides, vert init angle:
+% <sides> <angle> figpolygon <point> ... <point>
+/lfigpolygon
+{  xsize ysize 0.5 lfigpmul /CTR lfigpointdef
+   90 sub CTR 2 copy lfigmax 5 3 roll
+   [ 4 copy pop /lfigpolycircum cvx ] lfigcircumdef
+   exch dup 360 exch div exch
+   1 1  3 2 roll
+   {  4 string cvs (P) exch lfigconcat cvn
+      6 copy pop pop lfigatangle 2 copy 10 2 roll
+      3 2 roll lfigpointdef
+      dup 3 1 roll add exch
+   }  for
+   pop lfigatangle
+} def
+
+% next array element:  <array> <index> lfiggetnext <array> <index> <any> true
+%                                               or <array> <index> false
+/lfiggetnext
+{  2 copy exch length ge
+   { false }
+   { 2 copy get exch 1 add exch true } ifelse
+} def
+
+% check whether thing is number:  <any> lfigisnumbertype <any> <bool>
+/lfigisnumbertype
+{  dup type dup
+   /integertype eq exch /realtype eq or
+} def
+
+% check whether thing is an array:  <any> lfigisarraytype <any> <bool>
+/lfigisarraytype { dup type /arraytype eq } def
+
+% get next item:  <array> <index> lfiggetnextitem <array> <index> 0
+%                                              or <array> <index> <array> 1
+%                                              or <array> <index> <point> 2
+/lfiggetnextitem
+{   lfiggetnext
+    {	lfigisarraytype
+	{   1
+	}
+	{   lfigisnumbertype
+	    {	3 1 roll
+		lfiggetnext
+		{   lfigisnumbertype
+		    {	4 3 roll exch  2
+		    }
+		    {	pop 3 2 roll pop  0
+		    } ifelse
+		}
+		{   3 2 roll pop  0
+		} ifelse
+	    }
+	    {	pop 0
+	    } ifelse
+	} ifelse
+    }
+    {	0
+    } ifelse
+} def
+
+% set arc path:  bool x1 y1  x2 y2  x0 y0  lfigsetarc  <angle> <angle> <dist>
+% the path goes from x1 y1 to x2 y2 about centre x0 y0,
+% anticlockwise if bool is true else clockwise.
+% The orientations of backwards pointing and forwards pointing
+% arrowheads are returned in the two angles, and
+% the length of the arc is returned in <dist>.
+/lfigsetarc
+{
+  20 dict begin
+     matrix currentmatrix 8 1 roll
+     2 copy translate 2 copy 8 2 roll
+     4 2 roll lfigpsub 6 2 roll lfigpsub
+     dup /y1 exch def dup mul /y1s exch def
+     dup /x1 exch def dup mul /x1s exch def
+     dup /y2 exch def dup mul /y2s exch def
+     dup /x2 exch def dup mul /x2s exch def
+
+     y1s y2s eq
+     {	-1
+     }
+     {	y1s x2s mul y2s x1s mul sub y1s y2s sub div
+     } ifelse
+     /da exch def
+
+     x1s x2s eq
+     {	-1
+     }
+     {	x1s y2s mul x2s y1s mul sub x1s x2s sub div
+     } ifelse
+     /db exch def
+
+     da 0 gt db 0 gt and
+     {	/LMax da sqrt db sqrt lfigmax def
+	/scalex da sqrt LMax div def
+	/scaley db sqrt LMax div def
+	scalex scaley scale
+	0 0 LMax
+	0 0 x1 scalex mul y1 scaley mul lfigangle
+	0 0 x2 scalex mul y2 scaley mul lfigangle
+	2 copy eq { 360 add } if
+	2 copy 8 2 roll
+	5 index { arc } { arcn } ifelse
+	2 index 1 index
+	{ 90 sub } { 90 add } ifelse
+	dup sin scaley mul exch cos scalex mul atan
+	2 index 2 index
+	{ 90 add } { 90 sub } ifelse
+	dup sin scaley mul exch cos scalex mul atan
+	5 2 roll  % res1 res2 ang1 ang2 anticlockwise
+	{ exch sub } { sub } ifelse
+	dup 0 le { 360 add } if  lfigpi mul LMax mul 180 div
+     }
+     {	0 0 x1 y1 lfigdistance 0 0 x2 y2 lfigdistance eq
+	0 0 x1 y1 lfigdistance 0 gt and
+	{	0 0
+		0 0 x1 y1 lfigdistance
+		0 0 x1 y1 lfigangle
+		0 0 x2 y2 lfigangle
+		2 copy eq { 360 add } if
+		2 copy 8 2 roll
+		5 index { arc } { arcn } ifelse
+		2 index 1 index
+		{ 90 sub } { 90 add } ifelse
+		2 index 2 index
+		{ 90 add } { 90 sub } ifelse
+		5 2 roll % res1 res2 ang1 ang2 clockwise
+		{ exch sub } { sub } ifelse
+		dup 0 le { 360 add } if lfigpi mul 0 0 x1 y1 lfigdistance mul 180 div
+	}
+	{	x2 y2 lineto pop
+		x2 y2 x1 y1 lfigangle
+		x1 y1 x2 y2 lfigangle
+		x1 y1 x2 y2 lfigdistance
+	} ifelse
+     } ifelse
+     4 -1 roll setmatrix
+   end
+} def
+
+% lfigsetcurve: set up a Bezier curve from x0 y0 to x3 y3
+% and return arrowhead angles and length of curve (actually 0)
+% x0 y0 x1 y1 x2 y2 x3 y3 lfigsetcurve <angle> <angle> <length>
+/lfigsetcurve
+{ 8 copy curveto pop pop
+  lfigangle
+  5 1 roll
+  4 2 roll lfigangle
+  exch
+  0
+} def
+
+% lfigpaintpath: paint a path of the given shape
+% /paint [ shape ] lfigpaintpath -
+/lfigpaintpath
+{
+  10 dict begin
+    0 newpath
+    /prevseen false def
+    /curveseen false def
+    { lfiggetnextitem
+      dup 0 eq { pop exit }
+      { 1 eq
+        { /curveseen true def
+	  /curve exch def
+	  curve length 0 eq { /curveseen false def } if
+        }
+        { /ycurr exch def
+	  /xcurr exch def
+	  prevseen
+	  { curveseen
+	    { curve length 4 eq
+	      { xprev yprev
+		curve 0 get curve 1 get
+		curve 2 get curve 3 get
+		xcurr ycurr
+		lfigsetcurve pop pop pop
+	      }
+	      { xprev yprev xcurr ycurr
+	        curve length 1 ge { curve 0 get } { 0 } ifelse
+	        curve length 2 ge { curve 1 get } { 0 } ifelse
+	        curve length 3 ge { curve 2 get } { true } ifelse
+	        7 1 roll
+	        lfigsetarc pop pop pop
+	      } ifelse
+	    }
+	    { xcurr ycurr lineto
+	    } ifelse
+	  }
+	  { xcurr ycurr moveto
+	  } ifelse
+	  /xprev xcurr def
+	  /yprev ycurr def
+	  /prevseen true def
+	  /curveseen false def
+        } ifelse
+      } ifelse
+    } loop pop pop cvx exec
+  end
+} def
+
+% stroke a path of the given shape in the given linestyle and dash length.
+% Return the origin and angle of the backward and forward arrow heads.
+% dashlength /linestyle [shape] lfigdopath  [<point> <angle>] [<point> <angle>] 
+/lfigdopath
+{
+  10 dict begin
+    0
+    /prevseen  false def
+    /curveseen false def
+    /backarrow []    def
+    /fwdarrow  []    def
+    {
+	lfiggetnextitem
+	dup 0 eq { pop exit }
+	{
+	    1 eq
+	    {	/curveseen true def
+		/curve exch def
+		curve length 0 eq { /prevseen false def } if
+	    }
+	    {	/ycurr exch def
+		/xcurr exch def
+		prevseen
+		{   newpath xprev yprev moveto
+		    curveseen
+		    {	curve length 4 eq
+			{   xprev yprev
+			    curve 0 get curve 1 get
+			    curve 2 get curve 3 get
+			    xcurr ycurr lfigsetcurve
+			}
+			{   xprev yprev xcurr ycurr
+			    curve length 1 ge { curve 0 get } { 0 } ifelse
+			    curve length 2 ge { curve 1 get } { 0 } ifelse
+			    curve length 3 ge { curve 2 get } { true } ifelse
+			    7 1 roll
+			    lfigsetarc
+			} ifelse
+		    }
+		    {	xcurr ycurr lineto
+			xcurr ycurr xprev yprev lfigangle dup 180 sub
+			xprev yprev xcurr ycurr lfigdistance
+		    } ifelse
+		    6 index 6 index cvx exec
+		    [ xprev yprev 5 -1 roll ]
+		    backarrow length 0 eq
+		    { /backarrow exch def }
+		    { pop } ifelse
+		    [ xcurr ycurr 4 -1 roll ] /fwdarrow exch def
+		} if
+		/xprev xcurr def
+		/yprev ycurr def
+		/prevseen true def
+		/curveseen false def
+	    } ifelse
+	} ifelse
+    } loop
+    pop pop pop pop
+    backarrow length 0 eq { [ 0 0 0 ] } { backarrow } ifelse
+    fwdarrow  length 0 eq { [ 0 0 0 ] } { fwdarrow  } ifelse
+  end
+} def
+
+% lfigdoarrow: draw an arrow head of given form
+% dashlength /lstyle /pstyle hfrac height width [ <point> <angle> ] lfigdoarrow -
+/lfigdoarrow
+{  matrix currentmatrix 8 1 roll
+   dup 0 get 1 index 1 get translate
+   2 get rotate
+   [ 2 index neg 2 index 0 0
+     3 index 3 index neg
+     1 index 10 index mul 0
+     7 index 7 index ]
+   4 1 roll pop pop pop
+   dup 3 1 roll
+   gsave lfigpaintpath grestore lfigdopath pop pop
+   setmatrix
+} def
+
+% arrow head styles
+/lfigopen     0.0 def
+/lfighalfopen 0.5 def
+/lfigclosed   1.0 def
+
+% stroke no arrows, forward, back, and both
+/lfignoarrow { pop pop pop pop pop pop pop pop                        } def
+/lfigforward { 7 -1 roll lfigdoarrow pop                              } def
+/lfigback    { 8 -2 roll pop lfigdoarrow                              } def
+/lfigboth    { 8 -1 roll 7 copy lfigdoarrow pop 7 -1 roll lfigdoarrow } def
+
+% lfigprevious: return previous point on path
+/lfigprevious
+{ lfigisnumbertype
+  { 2 copy }
+  { lfigisarraytype
+    { 2 index 2 index }
+    { 0 0 }
+    ifelse
+  } ifelse
+} def
+
+% label a point in 2nd top dictionary:  <point> /name lfigpointdef -
+/lfigpointdef
+{
+  % (Entering lfigpointdef) lfigdebugprint
+  [ 4 2 roll transform
+    /itransform cvx ] cvx
+    currentdict end
+    3 1 roll
+    % currentdict length currentdict maxlength lt
+    % { def }
+    % { exec moveto (too many labels) show stop }
+    % ifelse
+    def
+    begin
+  % (Leaving lfigpointdef) lfigdebugprint
+} def
+
+% promote labels from second top to third top dictionary
+% <string> lfigpromotelabels -
+/lfigpromotelabels
+{
+  % (Entering lfigpromotelabels) lfigdebugprint
+  currentdict end exch currentdict end
+  { exch 20 string cvs 2 index
+    (@) lfigconcat exch lfigconcat cvn exch def
+  } forall pop begin
+  % (Leaving lfigpromotelabels) lfigdebugprint
+} def
+
+% show labels (except CIRCUM): - lfigshowlabels -
+/lfigshowlabels
+{
+  % (Entering lfigshowlabels) lfigdebugprint
+  currentdict end
+    currentdict
+    { 1 index 20 string cvs (CIRCUM) search % if CIRCUM in key
+      { pop pop pop pop pop }
+      { pop cvx exec 2 copy
+        newpath 1.5 pt 0 360 arc
+        0 setgray fill
+        /Times-Roman findfont 8 pt scalefont setfont
+        moveto 0.2 cm 0.1 cm rmoveto 20 string cvs show
+      }
+      ifelse
+    } forall
+  begin
+  % (Leaving lfigshowlabels) lfigdebugprint
+} def
+
+% fix an angle to 0 <= res < 360:  <angle> lfigfixangle <angle>
+/lfigfixangle
+{
+  % (Entering lfigfixangle) lfigdebugprint
+  { dup 0 ge { exit } if
+    360 add
+  } loop
+  { dup 360 lt { exit } if
+    360 sub
+  } loop
+  % (Leaving lfigfixangle) lfigdebugprint
+} def
+
+% find point on circumference of box:  alpha a b lfigboxcircum x y
+/lfigboxcircum
+{
+  % (Entering lfigboxcircum) lfigdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    lfigfixangle /alpha exch def
+    0 0 a b lfigangle /theta exch def
+
+    % if alpha <= theta, return (a, a*tan(alpha))
+    alpha theta le
+    { a  a alpha sin mul alpha cos div }
+    {
+      % else if alpha <= 180 - theta, return (b*cot(alpha), b)
+      alpha 180 theta sub le
+      { b alpha cos mul alpha sin div  b }
+      {
+        % else if alpha <= 180 + theta, return (-a, -a*tan(alpha))
+        alpha 180 theta add le
+        { a neg  a neg alpha sin mul alpha cos div }
+        {
+	  % else if alpha <= 360 - theta, return (-b*cot(alpha), -b)
+	  alpha 360 theta sub le
+          { b neg alpha cos mul alpha sin div  b neg }
+	  {
+	    % else 360 - theta <= alpha, return (a, a*tan(alpha))
+	    a  a alpha sin mul alpha cos div
+	  } ifelse
+        } ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving lfigboxcircum) lfigdebugprint
+} def
+
+% find quadratic roots (assume a != 0): a b c lfigqroots x1 x2 2
+%                                                     or    x2 1
+%                                                     or       0
+/lfigqroots
+{
+  4 dict begin
+    /c exch def
+    /b exch def
+    /a exch def
+    /disc b b mul 4 a c mul mul sub def
+    disc 0 lt
+    { 0
+    }
+    { disc 0 eq
+      { b neg 2 a mul div
+	1
+      }
+      { b neg disc sqrt add 2 a mul div
+        b neg disc sqrt sub 2 a mul div
+	2
+      }
+      ifelse
+    }
+    ifelse
+  end
+} def
+
+% work our which quadrant: <angle> lfigquadrant <0-3>
+/lfigquadrant
+{ dup 90 lt
+  { pop 0
+  }
+  { dup 180 lt
+    { pop 1
+    }
+    { 270 lt
+      { 2
+      }
+      { 3
+      } ifelse
+    } ifelse
+  } ifelse
+} def
+
+% find curvebox circum, assuming upper right quadrant: alpha a b xmk lfigcb x y
+/lfigcb
+{
+  6 dict begin
+    /xmk exch def
+    /b exch def
+    /a exch def
+    /alpha exch def
+    /theta1 0 0 a b xmk sub lfigangle def
+    /theta2 0 0 a xmk sub b lfigangle def
+    alpha theta1 le
+    { % if alpha <= theta1, return (a, a*tan(alpha))
+      a  a alpha sin mul alpha cos div
+    }
+    { alpha theta2 ge
+      { % else if alpha > theta2, return (b*cot(alpha), b)
+	b alpha cos mul alpha sin div  b
+      }
+      {
+	% else, return the intersection of line and circle
+	a xmk sub b xmk sub xmk  0 0 alpha lfigcircleintersect
+	dup 0 eq
+	{ % should never happen, just return any reasonable point
+	  pop
+	  a b 0.5 lfigpmul
+	}
+	{ 1 eq
+	  { % should never happen, just return the point on top of stack
+	  }
+	  { % the usual case, two points on stack, return the larger
+	    lfigpmax
+	  } ifelse
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+} def
+
+% find point on circumference of curvebox: alpha a b xmk lfigcurveboxcircum x y
+/lfigcurveboxcircum
+{
+  % (Entering lfigcurveboxcircum) lfigdebugprint
+  5 dict begin
+    /xmk exch def
+    /b exch def
+    /a exch def
+    lfigfixangle /alpha exch def
+
+    % work out which quadrant we are in, and reflect accordingly
+    /quad alpha lfigquadrant def
+    quad 0 eq
+    { alpha a b xmk lfigcb
+    }
+    { quad 1 eq
+      { 180 alpha sub a b xmk lfigcb exch neg exch
+      }
+      { quad 2 eq
+	{ alpha 180 sub a b xmk lfigcb neg exch neg exch
+	}
+	{ 360 alpha sub a b xmk lfigcb neg
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving lfigcurveboxcircum) lfigdebugprint
+} def
+
+% find point on circumference of diamond:  alpha a b lfigdiamondcircum x y
+/lfigdiamondcircum
+{
+  % (Entering lfigdiamondcircum) lfigdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    lfigfixangle /alpha exch def
+    b alpha cos abs mul  a alpha sin abs mul  add  /denom exch def
+    a b mul alpha cos mul denom div
+    a b mul alpha sin mul denom div
+  end
+  % (Leaving lfigdiamondcircum) lfigdebugprint
+} def
+
+% find point on circumference of ellipse:  alpha a b lfigellipsecircum x y
+/lfigellipsecircum
+{
+  % (Entering lfigellipsecircum) lfigdebugprint
+  4 dict begin
+    /b exch def
+    /a exch def
+    lfigfixangle /alpha exch def
+    b alpha cos mul dup mul  a alpha sin mul dup mul  add sqrt /denom exch def
+    a b mul alpha cos mul denom div
+    a b mul alpha sin mul denom div
+  end
+  % (Leaving lfigellipsecircum) lfigdebugprint
+} def
+
+% find point of intersection of two lines each defined by two points
+% x1 y1 x2 y2  x3 y3 x4 y4  lfiglineintersect x y
+/lfiglineintersect
+{
+  % (Entering lfiglineintersect) lfigdebugprint
+  13 dict begin
+    /y4 exch def
+    /x4 exch def
+    /y3 exch def
+    /x3 exch def
+    /y2 exch def
+    /x2 exch def
+    /y1 exch def
+    /x1 exch def
+    x2 x1 sub /x21 exch def
+    x4 x3 sub /x43 exch def
+    y2 y1 sub /y21 exch def
+    y4 y3 sub /y43 exch def
+    y21 x43 mul y43 x21 mul sub /det exch def
+  
+    % calculate x 
+    y21 x43 mul x1 mul
+    y43 x21 mul x3 mul sub
+    y3 y1 sub x21 mul x43 mul add
+    det div
+
+    % calculate y
+    x21 y43 mul y1 mul
+    x43 y21 mul y3 mul sub
+    x3 x1 sub y21 mul y43 mul add
+    det neg div
+
+  end
+  % (Leaving lfiglineintersect) lfigdebugprint
+} def
+
+% find point on circumference of polygon
+% alpha radius num theta lfigpolycircum x y
+/lfigpolycircum
+{
+  % (Entering lfigpolycircum) lfigdebugprint
+  13 dict begin
+    /theta exch def
+    /num exch def
+    /radius exch def
+    /alpha exch def
+
+    % calculate delta, the angle from theta to alpha
+    alpha theta sub lfigfixangle
+
+    % calculate the angle which is the multiple of 360/num closest to delta
+    360 num div div truncate 360 num div mul theta add /anglea exch def
+
+    % calculate the next multiple of 360/num after anglea
+    anglea 360 num div add /angleb exch def
+
+    % intersect the line through these two points with the alpha line
+    anglea cos anglea sin  angleb cos angleb sin
+    0 0  alpha cos 2 mul alpha sin 2 mul
+    lfiglineintersect radius lfigpmul
+
+  end
+  % (Leaving lfigpolycircum) lfigdebugprint
+} def
+
+% find point of intersection of a point and a circle
+% x0 y0 r  x1 y1 theta  lfigcircleintersect xa ya xb yb 2
+%                                        or       xb yb 1
+%                                        or             0
+/lfigcircleintersect
+{
+  % (Entering lfigcircleintersect) lfigdebugprint
+  15 dict begin
+    /theta exch def
+    /y1    exch def
+    /x1    exch def
+    /r     exch def
+    /y0    exch def
+    /x0    exch def
+
+    % if sin(theta) = 0 then line is horizontal and y must be y1
+    theta sin abs 0.00001 lt
+    { 
+      /a 1 def
+      /b -2 x0 mul def
+      /c x0 dup mul y1 y0 sub dup mul add r dup mul sub def
+      a b c lfigqroots dup
+      0 eq
+      { pop
+	0
+      }
+      { 1 eq
+	{ y1 1
+	}
+	{ y1 exch y1 2
+	} ifelse
+      } ifelse
+    }
+    {
+      /ct theta cos theta sin div def
+      /a ct ct mul 1 add def
+      /b ct x1 x0 sub mul y1 add y0 sub 2 mul def
+      /c x1 x0 sub dup mul y1 y0 sub dup mul add r dup mul sub def
+      a b c lfigqroots dup
+      0 eq
+      { pop
+	0
+      }
+      { 1 eq
+	{ y1 add /yb exch def
+	  yb y1 sub ct mul x1 add /xb exch def
+	  xb yb 1
+	}
+	{ y1 add /ya exch def
+	  ya y1 sub ct mul x1 add /xa exch def
+	  y1 add /yb exch def
+	  yb y1 sub ct mul x1 add /xb exch def
+	  xa ya xb yb 2
+	} ifelse
+      } ifelse
+    } ifelse
+  end
+  % (Leaving lfigcircleintersect) lfigdebugprint
+} def
+
+% add CIRCUM operator with this body:  <array> lfigcircumdef -
+/lfigcircumdef
+{   % (Entering lfigcircumdef) lfigdebugprint
+    /CIRCUM exch cvx
+    currentdict end
+    3 1 roll
+    % currentdict length currentdict maxlength lt
+    % { def }
+    % { exec moveto (too many labels) show stop }
+    % ifelse
+    def
+    begin
+    % (Leaving lfigcircumdef) lfigdebugprint
+} def
+
+end
+%%EndResource
diff --git a/include/fontdefs b/include/fontdefs
new file mode 100644
index 0000000..0001b97
--- /dev/null
+++ b/include/fontdefs
@@ -0,0 +1,156 @@
+##################################################################################################################
+#                                                                                                                #
+#  Font definitions.  Use a very wide window to see them clearly.                                                #
+#                                                                                                                #
+#       Lout font       Lout font         PostScript         PostScript font metrics    Lout character Recode/   #
+#       family name     face name         font name          (formerly .AFM) file name  mapping file   NoRecode  #
+#                                                                                                                #
+##################################################################################################################
+
+
+fontdef	AvantGarde	Base		{ AvantGarde-Medium		AG-Md		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	Slope		{ AvantGarde-MediumObl		AG-MdO		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	Bold		{ AvantGarde-Bold		AG-Bd		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	BoldSlope	{ AvantGarde-BoldObl		AG-BdO		LtLatin1.LCM	Recode	 }
+
+fontdef	AvantGarde	Bold		{ AvantGarde-Bold		AG-Bd		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	BoldObl		{ AvantGarde-BoldObl		AG-BdO		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	Book		{ AvantGarde-Book		AG-Bk		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	BookOblique	{ AvantGarde-BookOblique	AG-BkO		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	CondBold	{ AvantGarde-CondBold		AG-CnBd		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	CondBook	{ AvantGarde-CondBook		AG-CnBk		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	CondDemi	{ AvantGarde-CondDemi		AG-CnDm		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	CondMedium	{ AvantGarde-CondMedium		AG-CnMd		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	Demi		{ AvantGarde-Demi		AG-Dm		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	DemiOblique	{ AvantGarde-DemiOblique	AG-DmO		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	ExtraLight	{ AvantGarde-ExtraLight		AG-ExLt		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	ExtraLightObl	{ AvantGarde-ExtraLightObl	AG-ExLtO	LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	Medium		{ AvantGarde-Medium		AG-Md		LtLatin1.LCM	Recode	 }
+fontdef	AvantGarde	MediumObl	{ AvantGarde-MediumObl		AG-MdO		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Bookman		Base		{ Bookman-Medium		Bk-Md		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		Slope		{ Bookman-MediumItalic		Bk-MdIt		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		Bold		{ Bookman-Bold			Bk-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		BoldSlope	{ Bookman-BoldItalic		Bk-BdIt		LtLatin1.LCM	Recode	 }
+
+fontdef	Bookman		Bold		{ Bookman-Bold			Bk-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		BoldItalic	{ Bookman-BoldItalic		Bk-BdIt		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		Demi		{ Bookman-Demi			Bk-Dm		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		DemiItalic	{ Bookman-DemiItalic		Bk-DmIt		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		Light		{ Bookman-Light			Bk-Lt		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		LightItalic	{ Bookman-LightItalic		Bk-LtIt		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		Medium		{ Bookman-Medium		Bk-Md		LtLatin1.LCM	Recode	 }
+fontdef	Bookman		MediumItalic	{ Bookman-MediumItalic		Bk-MdIt		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Courier		Base		{ Courier			Cr		LtLatin1.LCM	Recode	 }
+fontdef	Courier		Slope		{ Courier-Oblique		Cr-O		LtLatin1.LCM	Recode	 }
+fontdef	Courier		Bold		{ Courier-Bold			Cr-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Courier		BoldSlope	{ Courier-BoldOblique		Cr-BdO		LtLatin1.LCM	Recode	 }
+
+fontdef	Courier		Base		{ Courier			Cr		LtLatin1.LCM	Recode	 }
+fontdef	Courier		Bold		{ Courier-Bold			Cr-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Courier		BoldOblique	{ Courier-BoldOblique		Cr-BdO		LtLatin1.LCM	Recode	 }
+fontdef	Courier		Oblique		{ Courier-Oblique		Cr-O		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Helvetica	Base		{ Helvetica			He		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Slope		{ Helvetica-Oblique		He-O		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Bold		{ Helvetica-Bold		He-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	BoldSlope	{ Helvetica-BoldOblique		He-BdO		LtLatin1.LCM	Recode	 }
+
+fontdef	Helvetica	Base		{ Helvetica			He		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Black		{ Helvetica-Black		He-Bl		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	BlackOblique	{ Helvetica-BlackOblique	He-BlO		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Bold		{ Helvetica-Bold		He-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	BoldOblique	{ Helvetica-BoldOblique		He-BdO		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Compressed	{ Helvetica-Compressed		He-Cm		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Cond		{ Helvetica-Condensed		He-Cn		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondBlack	{ Helvetica-Condensed-Black	He-CnBl		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondBlackObl	{ Helvetica-Condensed-BlackObl	He-CnBlO	LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondBold	{ Helvetica-Condensed-Bold	He-CnBd		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondBoldObl	{ Helvetica-Condensed-BoldObl	He-CnBdO	LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondLight	{ Helvetica-Condensed-Light	He-CnLi		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondLightObl	{ Helvetica-Condensed-LightObl	He-CnLiO	LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	CondOblique	{ Helvetica-Condensed-Oblique	He-CnO		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	ExtraCompressed	{ Helvetica-ExtraCompressed	He-ExtC		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Light		{ Helvetica-Light		He-Lt		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	LightOblique	{ Helvetica-LightOblique	He-LtO		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Narrow		{ Helvetica-Narrow		He-Nr		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	NarrowBold	{ Helvetica-Narrow-Bold		He-NrBd		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	NarrowBoldObl	{ Helvetica-Narrow-BoldOblique	He-NrBdO	LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	NarrowObl	{ Helvetica-Narrow-Oblique	He-NrO		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	Oblique		{ Helvetica-Oblique		He-O		LtLatin1.LCM	Recode	 }
+fontdef	Helvetica	UltraCompressed	{ Helvetica-UltraCompressed	He-UlCm		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Schoolbook	Base		{ NewCenturySchlbk-Roman	NCS-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	Slope		{ NewCenturySchlbk-Italic	NCS-It		LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	Bold		{ NewCenturySchlbk-Bold		NCS-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	BoldSlope	{ NewCenturySchlbk-BoldItalic	NCS-BdIt	LtLatin1.LCM	Recode	 }
+
+fontdef	Schoolbook	Bold		{ NewCenturySchlbk-Bold		NCS-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	BoldItalic	{ NewCenturySchlbk-BoldItalic	NCS-BdIt	LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	Italic		{ NewCenturySchlbk-Italic	NCS-It		LtLatin1.LCM	Recode	 }
+fontdef	Schoolbook	Roman		{ NewCenturySchlbk-Roman	NCS-Rm		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Palatino	Base		{ Palatino-Roman		Pa-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	Slope		{ Palatino-Italic		Pa-It		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	Bold		{ Palatino-Bold			Pa-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	BoldSlope	{ Palatino-BoldItalic		Pa-BdIt		LtLatin1.LCM	Recode	 }
+
+fontdef	Palatino	Bold		{ Palatino-Bold			Pa-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	BoldItalic	{ Palatino-BoldItalic		Pa-BdIt		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	BoldItalicOsF	{ Palatino-BoldItalicOsF	Pa-BdItF	LtLatin1.LCM	Recode	 }
+fontdef	Palatino	BoldOsF		{ Palatino-BoldOsF		Pa-BdF		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	Italic		{ Palatino-Italic		Pa-It		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	ItalicOsF	{ Palatino-ItalicOsF		Pa-ItF		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	Roman		{ Palatino-Roman		Pa-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Palatino	SC		{ Palatino-SC			Pa-SC		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Symbol		Base		{ Symbol			Symbol		Symb.LCM	NoRecode }
+fontdef	Symbol		Slope		{ Symbol			Symbol		Symb.LCM	NoRecode }
+fontdef	Symbol		Bold		{ Symbol			Symbol		Symb.LCM	NoRecode }
+fontdef	Symbol		BoldSlope	{ Symbol			Symbol		Symb.LCM	NoRecode }
+
+
+fontdef	Times		Base		{ Times-Roman			Ti-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Times		Slope		{ Times-Italic			Ti-It		LtLatin1.LCM	Recode	 }
+fontdef	Times		Bold		{ Times-Bold			Ti-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Times		BoldSlope	{ Times-BoldItalic		Ti-BdIt		LtLatin1.LCM	Recode	 }
+
+fontdef	Times		Bold		{ Times-Bold			Ti-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Times		BoldItalic	{ Times-BoldItalic		Ti-BdIt		LtLatin1.LCM	Recode	 }
+fontdef	Times		BoldItalicOsF	{ Times-BoldItalicOsF		Ti-BdItF	LtLatin1.LCM	Recode	 }
+fontdef	Times		BoldSC		{ Times-BoldSC			Ti-BdSC		LtLatin1.LCM	Recode	 }
+fontdef	Times		ExtraBold	{ Times-ExtraBold		Ti-ExBd		LtLatin1.LCM	Recode	 }
+fontdef	Times		Italic		{ Times-Italic			Ti-It		LtLatin1.LCM	Recode	 }
+fontdef	Times		ItalicOsF	{ Times-ItalicOsF		Ti-ItF		LtLatin1.LCM	Recode	 }
+fontdef	Times		Roman		{ Times-Roman			Ti-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Times		RomanSC		{ Times-RomanSC			Ti-RmSC		LtLatin1.LCM	Recode	 }
+fontdef	Times		Semibold	{ Times-Semibold		Ti-Sm		LtLatin1.LCM	Recode	 }
+fontdef	Times		SemiboldItalic	{ Times-SemiboldItalic		Ti-SmIt		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Chancery	Base		{ ZapfChancery-Roman		ZC-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Slope		{ ZapfChancery-Italic		ZC-It		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Bold		{ ZapfChancery-Bold		ZC-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	BoldSlope	{ ZapfChancery-MediumItalic	ZC-MdIt		LtLatin1.LCM	Recode	 }
+
+fontdef	Chancery	Roman		{ ZapfChancery-Roman		ZC-Rm		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Bold		{ ZapfChancery-Bold		ZC-Bd		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Italic		{ ZapfChancery-Italic		ZC-It		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Light		{ ZapfChancery-Light		ZC-Lt		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	Demi		{ ZapfChancery-Demi		ZC-Dm		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	LightItalic	{ ZapfChancery-LightItalic	ZC-LtIt		LtLatin1.LCM	Recode	 }
+fontdef	Chancery	MediumItalic	{ ZapfChancery-MediumItalic	ZC-MdIt		LtLatin1.LCM	Recode	 }
+
+
+fontdef	Dingbats	Base		{ ZapfDingbats			ZD		Ding.LCM	NoRecode }
+fontdef	Dingbats	Slope		{ ZapfDingbats			ZD		Ding.LCM	NoRecode }
+fontdef	Dingbats	Bold		{ ZapfDingbats			ZD		Ding.LCM	NoRecode }
+fontdef	Dingbats	BoldSlope	{ ZapfDingbats			ZD		Ding.LCM	NoRecode }
+
diff --git a/include/graph b/include/graph
new file mode 100644
index 0000000..f346317
--- /dev/null
+++ b/include/graph
@@ -0,0 +1,27 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for graph drawing                                         #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { graphf } line                                            #
+#                                                                             #
+#  This line causes Lout to read the definitions for graphs, and should       #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { graphf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer default options that can be changed.           #
+#                                                                             #
+###############################################################################
diff --git a/include/graphf b/include/graphf
new file mode 100644
index 0000000..dfd69df
--- /dev/null
+++ b/include/graphf
@@ -0,0 +1,1084 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Graph package for drawing graphs (Version 1.0)                       #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, December 1993.                         #
+#                                                                             #
+#  This package draws graphs, the statistical kind not the graph-theoretical  #
+#  kind.  See the User's Guide (Advanced Graphics) for user info.             #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { graphf.lpg }
+@SysInclude { graphf.etc }
+
+def @GraphObj
+    left p
+    named margin { 0c }
+    named adj { 0 0 }
+    right x
+{
+  @BackEnd @Case {
+    PostScript @Yield {
+	@Null &  # kills previous white space
+	@HContract @VContract {
+	  //0io ||0io @HContract @VContract 
+	  { p "trpoint translate" adj "translate gsave" // "grestore" }
+	  @Graphic { //margin ||margin x ||margin //margin }
+	  ||0io //0io
+	}
+    }
+# VT: PDF does nothing
+    PDF @Yield {
+	@Null &  # kills previous white space
+	@HContract @VContract {
+	  //0io ||0io @HContract @VContract 
+	  { "% @GraphObj UNIMPLEMENTED" }
+	  @Graphic { //margin ||margin x ||margin //margin }
+	  ||0io //0io
+	}
+    }
+  }
+}
+
+def @GraphCross
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 0 moveto xsize ysize lineto 0 ysize moveto"
+	  "xsize 0 lineto [] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 0 m __xsize __ysize l 0 __ysize m __xsize 0 l S"}	# uses S because PostScript version does NOT use closepath
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphPlus
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath xmark 0 moveto xmark ysize lineto 0 ymark moveto"
+	  "xsize ymark lineto [] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d __xmark 0 m __xmark __ysize l 0 __ymark m __xsize __ymark l S"}	# uses S because PostScript version does NOT use closepath
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphSquare
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 0 moveto xsize 0 lineto xsize ysize lineto"
+	  "0 ysize lineto closepath [] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 0 __xsize __ysize re s"}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphFilledSquare
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 0 moveto xsize 0 lineto xsize ysize lineto"
+	  "0 ysize lineto closepath gsave [] 0 setdash stroke grestore fill"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 0 __xsize __ysize re b"}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphDiamond
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 ymark moveto xmark 0 lineto xsize ymark lineto"
+	  "xmark ysize lineto closepath [] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 __ymark m __xmark 0 l __xsize __ymark l __xmark __ysize l s"}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphFilledDiamond
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 ymark moveto xmark 0 lineto xsize ymark lineto"
+	  "xmark ysize lineto closepath gsave [] 0 setdash stroke grestore fill"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 __ymark m __xmark 0 l __xsize __ymark l __xmark __ysize l b"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphCircle
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath xmark ymark xmark 0 360 arc"
+	  "[] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+#
+# draw a circle whose centre is at (xmark, ymark) and whose radius is xmark units;
+#
+# for curveto to work, we need to calculate the control points of the Bezier curve
+# as well as move the pen to the correct initial point. The circle is drawn as two
+# arcs of 180 degrees
+#
+#   pt0 = (xmark + xmark, ymark)
+#   pt1 = (xmark + xmark, ymark + 4/3 * xmark)
+#   pt2 = (0, ymark + 4/3 * xmark)
+#   pt3 = (0, ymark)
+#
+#   pt0 = (0, ymark)
+#   pt1 = (0, ymark - 4/3 * xmark)
+#   pt2 = (xmark + xmark, ymark - 4/3 * xmark)
+#   pt3 = (xmark + xmark, ymark)
+#
+	{"n [] 0 d"
+	 "__mul(2, __xmark) __ymark m"
+	 "__mul(2, __xmark) __add(__ymark, __div(__mul(4, __xmark), 3))"	# pt1
+	 "0 __add(__ymark, __div(__mul(4, __xmark), 3))"			# pt2
+	 "0 __ymark c"									# pt3
+
+	 "0 __sub(__ymark, __div(__mul(4, __xmark), 3))"			# pt1
+	 "__mul(2, __xmark) __sub(__ymark, __div(__mul(4, __xmark), 3))"	# pt2
+	 "__mul(2, __xmark) __ymark c S"						# pt3
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphFilledCircle
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath xmark ymark xmark 0 360 arc"
+	  "gsave [] 0 setdash stroke grestore fill"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+#
+# draw a filled circle whose centre is at (xmark, ymark) and whose radius is xmark units;
+#
+# for curveto to work, we need to calculate the control points of the Bezier curve
+# as well as move the pen to the correct initial point. The circle is drawn as two
+# arcs of 180 degrees
+#
+#   pt0 = (xmark + xmark, ymark)
+#   pt1 = (xmark + xmark, ymark + 4/3 * xmark)
+#   pt2 = (0, ymark + 4/3 * xmark)
+#   pt3 = (0, ymark)
+#
+#   pt0 = (0, ymark)
+#   pt1 = (0, ymark - 4/3 * xmark)
+#   pt2 = (xmark + xmark, ymark - 4/3 * xmark)
+#   pt3 = (xmark + xmark, ymark)
+#
+# Note: this is not a strict translation because there is a setdash bracketed by
+#   gsave/grestore in the above PostScript but there is no closepath before it;
+#   but in PDF, it is not possible to execute a setdash within a path definition.
+#
+	{"n [] 0 d"
+	 "__mul(2, __xmark) __ymark m"
+	 "__mul(2, __xmark) __add(__ymark, __div(__mul(4, __xmark), 3))"	# pt1
+	 "0 __add(__ymark, __div(__mul(4, __xmark), 3))"			# pt2
+	 "0 __ymark c"									# pt3
+
+	 "0 __sub(__ymark, __div(__mul(4, __xmark), 3))"			# pt1
+	 "__mul(2, __xmark) __sub(__ymark, __div(__mul(4, __xmark), 3))"	# pt2
+	 "__mul(2, __xmark) __ymark c b"						# pt3
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphTriangle
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 0 moveto xsize 0 lineto xmark ysize 1.25 mul lineto"
+	  "closepath [] 0 setdash stroke"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 0 m __xsize 0 l __xmark __mul(__ysize, 1.25) l s"}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphFilledTriangle
+    named symbolsize
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 0.15 ft }
+{
+  @BackEnd @Case {
+
+    PostScript @Yield {
+	@HContract @VContract
+	{ "newpath 0 0 moveto xsize 0 lineto xmark ysize 1.25 mul lineto"
+	  "closepath gsave [] 0 setdash stroke grestore fill"
+	}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+    PDF @Yield {
+	@HContract @VContract
+	{"n [] 0 d 0 0 m __xsize 0 l __xmark __mul(__ysize, 1.25) l h b"}
+	@Graphic
+	{symbolsize @High symbolsize @Wide ^| symbolsize @Wide ^/ symbolsize @High}
+    }
+
+  }
+}
+
+def @GraphNoLine
+    named dashlength { 0.2 ft }
+    named linewidth  { "currentlinewidth" }
+    named length
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 1.0 ft }
+{
+    length @Wide {}
+}
+
+def @GraphSolid
+    named dashlength { 0.2 ft }
+    named linewidth  { "currentlinewidth" }
+    named length
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 1.0 ft }
+{
+  @BackEnd @Case {
+    PostScript @Yield {
+	@HContract @VContract
+	{ "xsize 0 lgraphdict begin newpath 0 0 moveto lineto"
+	   "/linewidth" linewidth "def xsize" dashlength "solid end"
+	} @Graphic { length @Wide }
+    }
+# VT: PDF does nothing
+    PDF @Yield {
+	@HContract @VContract
+      { "% @GraphSolid UNIMPLEMENTED" } @Graphic { length @Wide }
+    }
+  }
+}
+
+def @GraphDashed
+    named dashlength { 0.2 ft }
+    named linewidth  { "currentlinewidth" }
+    named length
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 1.0 ft }
+{
+  @BackEnd @Case {
+    PostScript @Yield {
+	@HContract @VContract
+	{ "xsize 0 lgraphdict begin newpath 0 0 moveto lineto"
+	   "/linewidth" linewidth "def xsize" dashlength "dashed end"
+	} @Graphic { length @Wide }
+    }
+# VT: PDF does nothing
+    PDF @Yield {
+	@HContract @VContract
+      { "% @GraphDashed UNIMPLEMENTED" } @Graphic { length @Wide }
+    }
+  }
+}
+
+def @GraphDotted
+    named dashlength { 0.2 ft }
+    named linewidth  { "currentlinewidth" }
+    named length
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+    { 1.0 ft }
+{
+  @BackEnd @Case {
+    PostScript @Yield {
+	@HContract @VContract
+	{ "xsize 0 lgraphdict begin newpath 0 0 moveto lineto"
+	   "/linewidth" linewidth "def xsize" dashlength "dotted end"
+	} @Graphic { length @Wide }
+    }
+# VT: PDF does nothing
+    PDF @Yield {
+	@HContract @VContract
+      { "% @GraphDotted UNIMPLEMENTED" } @Graphic { length @Wide }
+    }
+  }
+}
+
+
+export @Data
+def @Graph
+    named save         { no       }
+    named style        { frame    }
+    named width
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 6.0 cm   }
+    named height
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 4.0 cm   }
+    named xextra       { "none"   }
+    named yextra       { "none"   }
+    named xdecreasing  { no       }
+    named ydecreasing  { no       }
+    named leftcaption  {          }
+    named rightcaption {          }
+    named abovecaption {          }
+    named belowcaption {          }
+    named leftgap
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 1.5 cm   }
+    named rightgap
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 0.5 cm   }
+    named abovegap
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 0.5 cm   }
+    named belowgap
+	named cm left x { x"c" }
+	named in left x { x"i" }
+	named em left x { x"m" }
+	named pt left x { x"p" }
+	named ft left x { x"f" }
+	named sp left x { x"s" }
+	named vs left x { x"v" }
+		       { 0.5 cm   }
+    named hidecaptions { yes       }
+    named objects
+	named @NW
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg ysize" } margin { margin } x }
+	named @SW
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg 0" } margin { margin } x }
+	named @SE
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "0 0" } margin { margin } x }
+	named @NE
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "0 ysize" } margin { margin } x }
+	named @W
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg ysize 2 div" } margin { margin } x }
+	named @S
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg 2 div 0" } margin { margin } x }
+	named @E
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "0 ysize 2 div" } margin { margin } x }
+	named @N
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg 2 div ysize" } margin { margin } x }
+	named @CTR
+	    import @GraphMath named at { 0 0 }
+	    named margin
+		named cm left x { x"c" }
+		named in left x { x"i" }
+		named em left x { x"m" }
+		named pt left x { x"p" }
+		named ft left x { x"f" }
+		named sp left x { x"s" }
+		named vs left x { x"v" }
+	    { 0.3 ft }
+	    right x
+	{ at @GraphObj adj { "xsize neg 2 div ysize 2 div" } margin {margin} x }
+		       {}
+    named xorigin  named none { "false" }           { none           }
+    named yorigin  named none { "false" }           { none           }
+    named xlog     named none { "0" }               { none           }
+    named ylog     named none { "0" }               { none           }
+    named points   named none { "none" }            { none           }
+    named pairs    named none { "none" }            { none           }
+    named colour   named none { "none" }            { none           }
+    named color    named none { "none" }            { none           }
+    named paint    named none { "none"  }           { none           }
+    named xmin     named none { "false" }           { none           }
+    named xmax     named none { "false" }           { none           }
+    named ymin     named none { "false" }           { none           }
+    named ymax     named none { "false" }           { none           }
+    named xticksep named none { "0" }               { none           }
+    named yticksep named none { "0" }               { none           }
+    named rticksep named none { "0" }               { none           }
+    import @GraphMath named xticks
+	named none                                  { "false"        }
+	named auto                                  { "false"        }
+	named "@"                                   { " lgen"        }
+	named "^"                                   { "^"            }
+		       { false    }
+    import @GraphMath named yticks
+	named none                                  { "false"        }
+	named auto                                  { "false"        }
+	named "@"                                   { " lgen"        }
+	named "^"                                   { "^"            }
+		       { false    }
+    import @GraphMath named rticks
+	named none                                  { "false"        }
+	named auto                                  { "false"        }
+	named "@"                                   { " lgen"        }
+	named "^"                                   { "^"            }
+		       { }
+    named xticklength                               { 0.5 ft   }
+    named yticklength                               { 0.5 ft   }
+    named rticklength                               { 0.5 ft   }
+    named dataformat                                { xandy    }
+    named dashlength                                { 0.2 ft   }
+    named linewidth				    { "currentlinewidth"   }
+    named symbolsize                                { 0.15 ft  }
+    body @Body
+@Begin
+
+    def @Above
+    {
+	abovecaption @Case {
+	    ""   @Yield {}
+	    else @Yield @OneCol { ||0.5rt clines @Break abovecaption || //abovegap }
+	}
+    }
+
+    def @Below
+    {
+	belowcaption @Case {
+	    ""   @Yield {}
+	    else @Yield @OneCol { //belowgap ||0.5rt clines @Break belowcaption || }
+	}
+    }
+
+    def @Left
+    {
+	leftcaption @Case {
+	    ""   @Yield {}
+	    else @Yield @OneCol @OneRow {
+		 { //0.5rt @OneRow clines @Break leftcaption // } ^||leftgap }
+	}
+    }
+
+    def @Right
+    {
+	rightcaption @Case {
+	    ""   @Yield {}
+	    else @Yield @OneCol @OneRow {
+		 ||rightgap { //0.5rt @OneRow lines @Break rightcaption // } }
+	}
+    }
+
+    def @ZeroWidth
+	right x
+    {
+	hidecaptions @Case {
+	    { No  no  } @Yield x
+	    { Yes yes } @Yield @OneCol { ||0io x ||0io }
+	}
+    }
+
+    def @AddCaptions right x
+    {
+	def belowextra
+	{
+	    xticks @Case {
+		""   @Yield { 0i }
+		else @Yield { 1.7f }
+	    }
+	}
+
+	@HContract @VContract
+	{
+	                       | @Above    |
+	    / @ZeroWidth @Left | &0.5rt x  | @ZeroWidth @Right
+	    /belowextra        | @Below    |
+	}
+    }
+
+    export pi e sqrt abs ceiling floor truncate round cos sin atan exp log rand
+	   "*" "/" idiv mod "-" "-0" "-1" "-2" "-3" "-4" "-5" "-6" "-7" "-8"
+	   "-9" "-." "+" "=" "!=" "<" "<=" ">" ">=" not and xor or
+	   if xloop yloop zloop
+
+    def @Data
+	named points   named none { "none" }            { points     }
+	named pairs    named none { "none" }            { pairs      }
+	named colour   named none { "none" }            { colour     }
+	named color    named none { "none" }            { color      }
+	named paint    named none { "none" }            { paint      }
+	named dashlength                                { dashlength }
+	named linewidth                                 { linewidth  }
+	named symbolsize                                { symbolsize }
+	named dataformat                                { dataformat }
+	body data
+    {
+	def pi                                    {     "3.14159"  }
+	def e                                     {     "2.71828"  }
+	def sqrt     precedence 40        right y {   y "sqrt"     }
+	def abs      precedence 40        right y {   y "abs"      }
+	def ceiling  precedence 40        right y {   y "ceiling"  }
+	def floor    precedence 40        right y {   y "floor"    }
+	def truncate precedence 40        right y {   y "truncate" }
+	def round    precedence 40        right y {   y "round"    }
+	def cos      precedence 40        right y {   y "cos"      }
+	def sin      precedence 40        right y {   y "sin"      }
+	def atan     precedence 39 left x right y { x y "atan"     }
+	def exp      precedence 38 left x right y { x y "exp"      }
+	def log      precedence 37 left x right y { x y "dolog"    }
+	def rand     precedence 36 left x right y { x y "dorand"   }
+	def "*"      precedence 35 left x right y { x y "mul"      }
+	def "/"      precedence 34 left x right y { x y "div"      }
+	def idiv     precedence 34 left x right y { x y "idiv"     }
+	def mod      precedence 34 left x right y { x y "mod"      }
+	def "-"      precedence 33 left x right y
+	{ x @Case { "" @Yield {y "neg"} else @Yield { x y "sub" } }  }
+	def "-0"				    {     "-0"       }
+	def "-1"				    {     "-1"       }
+	def "-2"				    {     "-2"       }
+	def "-3"				    {     "-3"       }
+	def "-4"				    {     "-4"       }
+	def "-5"				    {     "-5"       }
+	def "-6"				    {     "-6"       }
+	def "-7"				    {     "-7"       }
+	def "-8"				    {     "-8"       }
+	def "-9"				    {     "-9"       }
+	def "-."				    {     "-."       }
+	def "+"      precedence 32 left x right y
+	{ x @Case { "" @Yield { y }     else @Yield { x y "add" } }  }
+	def "="      precedence 30 left x right y { x y "eq"       }
+	def "!="     precedence 30 left x right y { x y "ne"       }
+	def "<"      precedence 30 left x right y { x y "lt"       }
+	def "<="     precedence 30 left x right y { x y "le"       }
+	def ">"      precedence 30 left x right y { x y "gt"       }
+	def ">="     precedence 30 left x right y { x y "ge"       }
+	def not      precedence 25        right y {   y "not"      }
+	def and      precedence 24 left x right y { x y "and"      }
+	def xor      precedence 23 left x right y { x y "xor"      }
+	def or       precedence 22 left x right y { x y "or"       }
+	def if
+	    named cond { true }
+	    named then {}
+	    named else {}
+	{ cond "{" then "} {" else "} ifelse" }
+	def xloop
+	    named from { 0 }
+	    named to { 0 }
+	    named by { 1 }
+	    named do named x { "xval" } {}
+	{ from by to "{ /xval exch def" do "} for" }
+	def yloop
+	    named from { 0 }
+	    named to { 0 }
+	    named by { 1 }
+	    named do named y { "yval" } {}
+	{ from by to "{ /yval exch def" do "} for" }
+	def zloop
+	    named from { 0 }
+	    named to { 0 }
+	    named by { 1 }
+	    named do named z { "zval" } {}
+	{ from by to "{ /zval exch def" do "} for" }
+
+	def @IfPt
+	   left no
+	   right yes
+	{
+	    points @Case {
+		none @Yield no
+		else @Yield yes
+	    }
+	}
+
+	def @Points
+	{
+	    points @Case {
+		none            @Yield ""
+		plus            @Yield "plus"
+		cross           @Yield "cross"
+		square          @Yield "square"
+		filledsquare    @Yield "filledsquare"
+		diamond         @Yield "diamond"
+		filleddiamond   @Yield "filleddiamond"
+		circle          @Yield "circle"
+		filledcircle    @Yield "filledcircle"
+		triangle        @Yield "triangle"
+		filledtriangle  @Yield "filledtriangle"
+	    }
+	}
+
+	def @Pairs
+	{
+	  pairs @Case {
+	    none       @Yield {}
+	    solid      @Yield { "linesetup solid"   @IfPt "ilinesetup solid"  }
+	    dashed     @Yield { "linesetup cdashed" @IfPt "ilinesetup dashed" }
+	    dotted     @Yield { "linesetup dotted"  @IfPt "ilinesetup dotted" }
+	    surfacexhisto @Yield { "surfacexhisto" }
+	    surfaceyhisto @Yield { "surfaceyhisto" }
+	    xhisto        @Yield { "xhisto" }
+	    yhisto        @Yield { "yhisto" }
+	    filledxhisto  @Yield { "filledxhisto" }
+	    filledyhisto  @Yield { "filledyhisto" }
+	  }
+	}
+
+        def @DataFormat
+        {
+	    dataformat @Case {
+	        xandy     @Yield xandy
+	        yonly     @Yield yonly
+	        xonly     @Yield xonly
+	    }
+        }
+
+	def @Col
+	{
+	    { colour @Case { "none" @Yield color else @Yield colour } } @Case {
+		none		@Yield	{                         }
+		nochange	@Yield	{                         }
+		darkblue	@Yield	{ 0.0 0.0 0.5 setrgbcolor }
+		blue		@Yield	{ 0.0 0.0 1.0 setrgbcolor }
+		lightblue	@Yield	{ 0.5 0.5 1.0 setrgbcolor }
+		darkgreen	@Yield	{ 0.0 0.5 0.0 setrgbcolor }
+		green		@Yield	{ 0.0 1.0 0.0 setrgbcolor }
+		lightgreen	@Yield	{ 0.5 1.0 0.5 setrgbcolor }
+		darkred		@Yield	{ 0.5 0.0 0.0 setrgbcolor }
+		red		@Yield	{ 1.0 0.0 0.0 setrgbcolor }
+		lightred	@Yield	{ 1.0 0.5 0.5 setrgbcolor }
+		darkcyan	@Yield	{ 0.0 0.5 0.5 setrgbcolor }
+		cyan		@Yield	{ 0.0 1.0 1.0 setrgbcolor }
+		lightcyan	@Yield	{ 0.5 1.0 1.0 setrgbcolor }
+		darkmagenta	@Yield	{ 0.5 0.0 0.5 setrgbcolor }
+		magenta		@Yield	{ 1.0 0.0 1.0 setrgbcolor }
+		lightmagenta	@Yield	{ 1.0 0.5 1.0 setrgbcolor }
+		darkyellow	@Yield	{ 0.5 0.5 0.0 setrgbcolor }
+		yellow		@Yield	{ 1.0 1.0 0.0 setrgbcolor }
+		lightyellow	@Yield	{ 1.0 1.0 0.5 setrgbcolor }
+		darkgray	@Yield	{ 0.2 0.2 0.2 setrgbcolor }
+		gray		@Yield	{ 0.5 0.5 0.5 setrgbcolor }
+		lightgray	@Yield	{ 0.7 0.7 0.7 setrgbcolor }
+		darkgrey	@Yield	{ 0.2 0.2 0.2 setrgbcolor }
+		grey		@Yield	{ 0.5 0.5 0.5 setrgbcolor }
+		lightgrey	@Yield	{ 0.7 0.7 0.7 setrgbcolor }
+		black		@Yield	{ 0.0 0.0 0.0 setrgbcolor }
+		white		@Yield	{ 1.0 1.0 1.0 setrgbcolor }
+	    }
+	}
+
+	def @Paint
+	{
+	    paint @Case {
+	       { none no No } @Yield "false"
+	       { yes Yes } @Yield "true"
+	    }
+	}
+
+       "[ [" data "]" dataformat
+	  "{" @Points "}"
+	  "{" @Pairs "}"
+	  "{ /dashlength" dashlength "def"
+	  "  /linewidth"  linewidth  "def" @Col
+	  "  /symbolsize" symbolsize "def }"
+	  "{" @Paint "}"
+       "]"
+    }
+
+    def @Style
+    {
+	style @Case {
+	    frame    @Yield { "framestyle" }
+	    none     @Yield { "nonestyle"  }
+	    axes     @Yield { "axesstyle"  }
+	}
+    }
+
+    def @XExtra
+    {
+	xextra @Case {
+	    "none" @Yield {
+		style @Case {
+	            frame    @Yield { "0.5 cm" }
+	            none     @Yield { "0"  }
+	            axes     @Yield { "0"  }
+		}
+	    }
+	    else @Yield xextra
+	}
+    }
+
+    def @YExtra
+    {
+	yextra @Case {
+	    "none" @Yield {
+		style @Case {
+	            frame @Yield { "0.5 cm" }
+	            none  @Yield { "0"  }
+	            axes  @Yield { "0"  }
+		}
+	    }
+	    else @Yield yextra
+	}
+    }
+
+    def @XDecreasing
+    {
+	xdecreasing @Case {
+	    { No no } @Yield "false"
+	    { Yes yes } @Yield "true"
+	}
+    }
+
+    def @YDecreasing
+    {
+	ydecreasing @Case {
+	    { No no } @Yield "false"
+	    { Yes yes } @Yield "true"
+	}
+    }
+
+    @AddCaptions width @Wide height @High
+    @BackEnd @Case {
+	PostScript @Yield {
+	    {
+		"grestore"
+		save @Case { { Yes yes } @Yield "save" else @Yield {} }
+		"gsave xsize ysize lgraphdict begin /ysize exch def /xsize exch def"
+		"/alldata [" @Body "] def"
+		xticksep "[" xticks "] 0 alldata" xmin xmax xlog
+		  @XExtra @XDecreasing xorigin xticklength "xset"
+		yticksep "[" yticks "] 1 alldata" ymin ymax ylog
+		  @YExtra @YDecreasing yorigin yticklength "yset"
+
+		rticks @Case {
+
+		  ""   @Yield "norset"
+
+		  else @Yield {
+		    rticksep "[" rticks "] 1 alldata" ymin ymax ylog
+		    @YExtra @YDecreasing yorigin rticklength "rset"
+		  }
+		}
+
+		"rundata" @Style // "end"
+		save @Case { { Yes yes } @Yield "restore" else @Yield {} }
+	    } @Graphic { //1rt objects }
+	}
+	PDF @Yield { {"% @Graph UNIMPLEMENTED"} @Graphic { //1rt objects } }
+    }
+
+@End @Graph                  
diff --git a/include/graphf.etc b/include/graphf.etc
new file mode 100644
index 0000000..3e3a6cb
--- /dev/null
+++ b/include/graphf.etc
@@ -0,0 +1,295 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @GraphMath package for @Graph (Version 1.1)                           #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, December 1993.                         #
+#  Version 1.1 by Jeffrey H. Kingston, October 1996.                          #
+#                                                                             #
+#  This package provides mathematics for the @Graph graph drawing package.    #
+#                                                                             #
+###############################################################################
+
+export
+
+    "-0" "-1" "-2" "-3" "-4" "-5" "-6" "-7" "-8" "-9" "-."
+    pi e sqrt abs ceiling floor truncate round cos sin atan
+    exp log rand "*" "/" idiv mod "+" "-"
+    "=" "!=" "<" "<=" ">" ">=" not and xor or
+    if xloop yloop zloop
+
+def @GraphMath
+{
+    def "-0" { "-0" }
+    def "-1" { "-1" }
+    def "-2" { "-2" }
+    def "-3" { "-3" }
+    def "-4" { "-4" }
+    def "-5" { "-5" }
+    def "-6" { "-6" }
+    def "-7" { "-7" }
+    def "-8" { "-8" }
+    def "-9" { "-9" }
+    def "-." { "-." }
+
+    def pi { "3.14159" }
+
+    def e  { "2.71828" }
+
+    def sqrt
+	precedence 40
+	right y
+    {
+	y "sqrt"
+    }
+
+    def abs
+	precedence 40
+	right y
+    {
+	y "abs"
+    }
+
+    def ceiling
+	precedence 40
+	right y
+    {
+	y "ceiling"
+    }
+
+    def floor
+	precedence 40
+	right y
+    {
+	y "floor"
+    }
+
+    def truncate
+	precedence 40
+	right y
+    {
+	y "truncate"
+    }
+
+    def round
+	precedence 40
+	right y
+    {
+	y "round"
+    }
+
+    def cos
+	precedence 40
+	right y
+    {
+	y "cos"
+    }
+
+    def sin
+	precedence 40
+	right y
+    {
+	y "sin"
+    }
+
+    def atan
+	precedence 39
+	left x
+	right y
+    {
+	x y "atan"
+    }
+
+    def exp
+	precedence 38
+	left x
+	right y
+    {
+	x y "exp"
+    }
+
+    def log
+	precedence 37
+	left x
+	right y
+    {
+	x y "dolog"
+    }
+
+    def rand
+	precedence 36
+	left x
+	right y
+    {
+	x y "dorand"
+    }
+
+    def "*"
+	precedence 35
+	left x
+	right y
+    {
+	x y "mul"
+    }
+
+    def "/"
+	precedence 35
+	left x
+	right y
+    {
+	x y "div"
+    }
+
+    def "idiv"
+	precedence 34
+	left x
+	right y
+    {
+	x y "idiv"
+    }
+
+    def "mod"
+	precedence 34
+	left x
+	right y
+    {
+	x y "mod"
+    }
+
+    def "-"
+	precedence 33
+	left x
+	right y
+    {
+	x @Case {
+	    ""   @Yield { y "neg" }
+	    else @Yield { x y "sub" }
+	}
+    }
+
+    def "+"
+	precedence 32
+	left x
+	right y
+    {
+	x @Case {
+	    ""   @Yield { y }
+	    else @Yield { x y "add" }
+	}
+    }
+
+    def "="
+	precedence 30
+	left x
+	right y
+    {
+	x y "eq"
+    }
+
+    def "!="
+	precedence 30
+	left x
+	right y
+    {
+	x y "ne"
+    }
+
+    def "<"
+	precedence 30
+	left x
+	right y
+    {
+	x y "lt"
+    }
+
+    def "<="
+	precedence 30
+	left x
+	right y
+    {
+	x y "le"
+    }
+
+    def ">"
+	precedence 30
+	left x
+	right y
+    {
+	x y "gt"
+    }
+
+    def ">="
+	precedence 30
+	left x
+	right y
+    {
+	x y "ge"
+    }
+
+    def "not"
+	precedence 25
+	right y
+    {
+	y "not"
+    }
+
+    def "and"
+	precedence 24
+	left x
+	right y
+    {
+	x y "and"
+    }
+
+    def "xor"
+	precedence 23
+	left x
+	right y
+    {
+	x y "xor"
+    }
+
+    def "or"
+	precedence 22
+	left x
+	right y
+    {
+	x y "or"
+    }
+
+    def if
+	named cond { true }
+	named then {}
+	named else {}
+    {
+	cond "{" then "} {" else "} ifelse"
+    }
+
+    def xloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named x { "xval" } {}
+    {
+	from by to "{ /xval exch def" do "} for"
+    }
+
+    def yloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named y { "yval" } {}
+    {
+	from by to "{ /yval exch def" do "} for"
+    }
+
+    def zloop
+	named from { 0 }
+	named to { 0 }
+	named by { 1 }
+	named do named z { "zval" } {}
+    {
+	from by to "{ /zval exch def" do "} for"
+    }
+
+}
diff --git a/include/graphf.lpg b/include/graphf.lpg
new file mode 100644
index 0000000..60447f0
--- /dev/null
+++ b/include/graphf.lpg
@@ -0,0 +1,768 @@
+%%BeginResource: procset LoutGraphPrependGraphic
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                    %
+%  PostScript @SysPrependGraphic file for @Graph (Version 1.0)       %
+%                                                                    %
+%  Version 1.0 by Jeffrey H. Kingston, December 1993.                %
+%                                                                    %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+errordict begin
+   /handleerror
+   {
+      {  /Times-Roman findfont 8 pt scalefont setfont
+	 0 setgray 4 pt 4 pt moveto
+	 $error /errorname get
+	 dup lgraphdict exch known
+	 { lgraphdict exch get }
+	 { 30 string cvs } ifelse
+	 show
+	 (  Command: ) show
+	 $error /command get 30 string cvs show
+      } stopped {} if
+      showpage stop
+   } def
+end
+
+/lgraphdict 200 dict def
+lgraphdict begin
+
+% error messages
+/dictfull (dictfull error) def
+/dictstackoverflow (dictstackoverflow error) def
+/execstackoverflow (execstackoverflow error:  expression too complex?) def
+/limitcheck (limitcheck error:  graph too complex or too large?) def
+/syntaxerror (syntaxerror error:  syntax error in text of graph?) def
+/typecheck (typecheck error:  syntax error in text of graph?) def
+/undefined (undefined error:  unknown or misspelt symbol?) def
+/rangecheck (rangecheck error:  undefined expression (e.g. divide by zero)?) def
+/VMError (VMError error:  run out of memory?) def
+
+% random number between x and y inclusive: x y dorand num
+/dorand { 1 index sub 1 add rand exch mod add } def
+
+% log to given base: base num dolog num
+/dolog { ln exch ln div } def
+
+% maximum of two numbers:  <num> <num> max <num>
+/max { 2 copy gt { pop } { exch pop } ifelse } def
+
+% add two points:  <point> <point> padd <point>
+/padd { exch 3 1 roll add 3 1 roll add exch } def
+
+% subtract first point from second:  <point> <point> psub <point>
+/psub { 3 2 roll sub 3 1 roll exch sub exch } def
+
+% distance between two points:  <point> <point> distance <length>
+/distance { psub dup mul exch dup mul add sqrt } def
+
+% point at angle and distance:  <point> <length> <angle> atangle <point>
+/atangle { 2 copy cos mul 3 1 roll sin mul padd } def
+
+% angle from one point to another:  <point> <point> angle <angle>
+/angle { psub 2 copy 0 eq exch 0 eq and {pop} {exch atan} ifelse } def
+
+
+% set up for line
+% - linesetup <length> <dashlength>
+/linesetup
+{ newpath
+  xcurr ycurr trpoint xprev yprev trpoint
+  4 copy moveto lineto distance dashlength
+} def
+
+% set up for icon-avoiding line
+% - ilinesetup <length> <dashlength>
+/ilinesetup
+{ newpath
+  xprev yprev trpoint xcurr ycurr trpoint 4 copy
+  4 copy angle symbolsize 1.5 mul exch 4 2 roll pop pop atangle
+  6 2 roll 4 2 roll
+  4 copy angle symbolsize 1.5 mul exch 4 2 roll pop pop atangle 
+  4 copy moveto lineto distance dashlength
+} def
+
+
+% stroke a solid line:  <length> <dashlength> solid -
+/solid
+{ pop pop [] 0 setdash linewidth setlinewidth stroke
+} def
+  
+% stroke a dashed line:   <length> <dashlength> dashed -
+/dashed
+{  2 copy 2 mul le 1 index 0 le or
+   {  exch pop 1 pt max [ exch dup ] 0 setdash }
+   {  dup [ exch 4 2 roll 2 copy div
+      1 sub 2 div ceiling dup 4 1 roll
+      1 add mul sub exch div ] 0 setdash
+   } ifelse linewidth setlinewidth stroke
+} def
+
+% stroke a cdashed line:  <length> <dashlength> cdashed -
+/cdashed
+{  2 copy le 1 index 0 le or
+   { exch pop 1 pt max [ exch dup ] dup 0 get 2 div setdash }
+   { dup [ 4 2 roll exch 2 copy exch div
+     2 div ceiling div 1 index sub
+     ] exch 2 div setdash
+   } ifelse linewidth setlinewidth stroke
+} def
+
+% stroke a dotted line:  <length> <dashlength> dotted -
+/dotted
+{  2 copy le 1 index 0 le or
+   { exch pop 1 pt max [ exch 0 exch ] 0 setdash }
+   { 1 index exch div ceiling div 0.99999 mul
+     [ 0 3 2 roll ] 0 setdash
+   } ifelse gsave 1 setlinecap linewidth setlinewidth stroke grestore newpath
+} def
+
+% stroke a noline line:  <length> <dashlength> noline -
+/noline
+{ pop pop
+} def
+
+% stroke a y histogram: - yhisto -
+/yhisto
+{ xprev yleft trpoint yextra sub moveto
+  xprev yprev trpoint lineto
+  xcurr yprev trpoint lineto
+  xcurr yleft trpoint yextra sub lineto 
+  linewidth setlinewidth stroke
+} def
+
+% stroke an x histogram: - xhisto -
+/xhisto
+{ xleft yprev trpoint exch xextra sub exch moveto
+  xcurr yprev trpoint lineto
+  xcurr ycurr trpoint lineto
+  xleft ycurr trpoint exch xextra sub exch lineto 
+  linewidth setlinewidth stroke
+} def
+
+% stroke a surface y histogram: - surfaceyhisto -
+/surfaceyhisto
+{ firstpair
+  { xprev yleft trpoint yextra sub moveto
+    xprev yprev trpoint lineto
+  }
+  { xprev yprev trpoint moveto
+  } ifelse
+  xcurr yprev trpoint lineto
+  lastpair
+  { xcurr yleft trpoint yextra sub lineto 
+  }
+  { xcurr ycurr trpoint lineto
+  } ifelse
+  linewidth setlinewidth stroke
+} def
+
+% stroke a surface x histogram: - surfacexhisto -
+/surfacexhisto
+{ firstpair
+  { xleft yprev trpoint exch xextra sub exch moveto
+  }
+  { xprev yprev trpoint moveto
+  } ifelse
+  xcurr yprev trpoint lineto
+  xcurr ycurr trpoint lineto
+  lastpair
+  { xleft ycurr trpoint exch xextra sub exch lineto 
+  } if
+  linewidth setlinewidth stroke
+} def
+
+% stroke a filled y histogram: - filledyhisto -
+/filledyhisto
+{
+  linewidth setlinewidth
+  xprev yleft trpoint exch currentlinewidth 2 div add exch yextra sub moveto
+  xprev yprev trpoint exch currentlinewidth 2 div add exch lineto
+  xcurr yprev trpoint exch currentlinewidth 2 div sub exch lineto
+  xcurr yleft trpoint exch currentlinewidth 2 div sub exch yextra sub lineto 
+  closepath fill
+} def
+
+% stroke a filled x histogram: - filledxhisto -
+/filledxhisto
+{
+  linewidth setlinewidth
+  xleft yprev trpoint currentlinewidth 2 div add exch xextra sub exch moveto
+  xcurr yprev trpoint currentlinewidth 2 div add lineto
+  xcurr ycurr trpoint currentlinewidth 2 div sub lineto
+  xleft ycurr trpoint currentlinewidth 2 div sub exch xextra sub exch lineto 
+  closepath fill
+} def
+
+
+% cross: show a small cross
+/cross
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg symbolsize neg rmoveto
+  symbolsize 2 mul symbolsize 2 mul rlineto
+  0 symbolsize -2 mul rmoveto
+  symbolsize -2 mul symbolsize 2 mul rlineto
+  [] 0 setdash stroke
+} def
+
+% plus: show a small plus
+/plus
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg 0 rmoveto
+  symbolsize 2 mul 0 rlineto
+  symbolsize neg symbolsize neg rmoveto
+  0 symbolsize 2 mul rlineto
+  [] 0 setdash stroke
+} def
+
+% square: show a small square
+/square
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg symbolsize neg rmoveto
+  symbolsize 2 mul 0 rlineto
+  0 symbolsize 2 mul rlineto
+  symbolsize -2 mul 0 rlineto
+  closepath [] 0 setdash stroke
+} def
+
+% filledsquare: show a small filled square
+/filledsquare
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg symbolsize neg rmoveto
+  symbolsize 2 mul 0 rlineto
+  0 symbolsize 2 mul rlineto
+  symbolsize -2 mul 0 rlineto
+  closepath gsave [] 0 setdash stroke grestore fill
+} def
+
+% diamond: show a small diamond
+/diamond
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg 0 rmoveto
+  symbolsize symbolsize neg rlineto
+  symbolsize symbolsize rlineto
+  symbolsize neg symbolsize rlineto
+  closepath [] 0 setdash stroke
+} def
+
+% filleddiamond: show a small filled diamond
+/filleddiamond
+{ newpath
+  xcurr ycurr trpoint moveto
+  symbolsize neg 0 rmoveto
+  symbolsize symbolsize neg rlineto
+  symbolsize symbolsize rlineto
+  symbolsize neg symbolsize rlineto
+  closepath gsave [] 0 setdash stroke grestore fill
+} def
+
+% circle: show a small circle
+/circle
+{ newpath
+  xcurr ycurr trpoint symbolsize 0 360 arc [] 0 setdash stroke
+} def
+
+% filledcircle: show a small filled circle
+/filledcircle
+{ newpath
+  xcurr ycurr trpoint symbolsize 0 360 arc gsave [] 0 setdash stroke grestore fill
+} def
+
+% triangle: show a small triangle
+/triangle
+{ newpath
+  xcurr ycurr trpoint moveto
+  0 symbolsize 1.5 mul rmoveto
+  symbolsize neg symbolsize -2.5 mul rlineto
+  symbolsize 2 mul 0 rlineto
+  closepath [] 0 setdash stroke
+} def
+
+% filledtriangle: show a small filled triangle
+/filledtriangle
+{ newpath
+  xcurr ycurr trpoint moveto
+  0 symbolsize 1.5 mul rmoveto
+  symbolsize neg symbolsize -2.5 mul rlineto
+  symbolsize 2 mul 0 rlineto
+  closepath gsave [] 0 setdash stroke grestore fill
+} def
+
+
+%plog: like log only with a base, and protected from failing if <= 0
+% base x plog res
+/plog { dup 0 le { pop pop 0 } { ln exch ln div } ifelse } def
+
+% xtr: transform one x value logarithmically if xlog > 1
+% <num> xtr <num>
+/xtr
+{ xlog 1 gt
+  { xlog exch plog
+  } if
+} def
+
+% ytr: transform one y value logarithmically if ylog > 1
+% <num> ytr <num>
+/ytr
+{ ylog 1 gt
+  { ylog exch plog
+  } if
+} def
+
+% % trpoint: transform (x, y) in graph space into (x', y') in print space
+% % x y trpoint x' y'
+% /trpoint
+% { exch xtr trxmin sub trxmax trxmin sub div xwidth mul xextra add
+%   exch ytr trymin sub trymax trymin sub div ywidth mul yextra add
+% } def
+
+
+% trpoint: transform (x, y) in graph space into (x', y') in print space
+% x y trpoint x' y'
+/trpoint
+{ exch xtr xdecr { trxmax exch sub } { trxmin sub } ifelse
+  trxmax trxmin sub div xwidth mul xextra add
+
+  exch ytr ydecr { trymax exch sub } { trymin sub } ifelse
+  trymax trymin sub div ywidth mul yextra add
+} def
+
+
+% yonly: interpolate x values 1, 2, ... into data
+% [ data ] yonly [ newdata ]
+/yonly
+{ dup /tmp exch def
+  length [ exch 1 exch 1 exch
+  { dup tmp exch 1 sub get
+  } for
+  ]
+} def
+
+% xonly: interpolate y values 1, 2, ... into data
+% [ data ] yonly [ newdata ]
+/xonly
+{ dup /tmp exch def
+  length [ exch 1 exch 1 exch
+  { dup tmp exch 1 sub get exch
+  } for
+  ]
+} def
+
+% xandy: no interpolation of x or y values
+% [ data ] xandy [ data ]
+/xandy {} def
+
+
+% expstringwidth: calculate width of string containing optional exponent
+% <string> expstringwidth <width>
+/expstringwidth
+{ (^) search
+  { exch pop stringwidth pop exch stringwidth pop 0.7 mul add }
+  { stringwidth pop }
+  ifelse
+} def
+
+% expstringshow: show string containing optional exponent
+% <string> expstringshow -
+/expstringshow
+{ (^) search
+  { exch pop show 0 0.5 ft rmoveto
+    gsave currentfont 0.7 scalefont setfont show grestore
+  }
+  { show
+  }
+  ifelse
+} def
+
+% concatenate two strings: <string> <string> strconcat <string>
+/strconcat
+{ 2 copy length exch length add string
+  dup 0 4 index putinterval
+  dup 3 index length 3 index putinterval
+  3 1 roll pop pop
+} def
+
+% lgen: generate one label automatically
+% num lgen num string
+/lgen { dup 20 string cvs } def
+
+% loglgen: generate one logarithmic label (with exponent)
+% <base> <exponent> loglgen <string>
+/loglgen
+{ 20 string cvs exch 20 string cvs
+  (^) strconcat exch strconcat
+} def
+
+
+% printxtick: print one x tick
+% xpos printxtick -
+/printxtick
+{ newpath
+  yleft trpoint moveto 0 yextra neg rmoveto
+  0 xticklength neg rlineto [] 0 setdash stroke
+} def
+
+% printxlabel: print one x label
+% (xlabel) xpos printxlabel -
+/printxlabel
+{ yleft trpoint moveto 0 yextra neg rmoveto
+  0 xticklength neg rmoveto 0 0.9 ft neg rmoveto
+  xlog 1 gt { 0 0.3 ft neg rmoveto } if
+  dup expstringwidth -2 div 0 rmoveto expstringshow
+} def
+
+% printytick: print one y tick
+% ypos printytick -
+/printytick
+{ newpath
+  xleft exch trpoint moveto xextra neg 0 rmoveto
+  yticklength neg 0 rlineto [] 0 setdash stroke
+} def
+
+% printylabel: print one y label
+% (ylabel) ypos printylabel -
+/printylabel
+{ xleft exch trpoint moveto xextra neg 0 rmoveto
+  yticklength neg 0 rmoveto -0.3 ft -0.3 ft rmoveto
+  dup expstringwidth neg 0 rmoveto expstringshow
+} def
+
+% printrtick: print one r tick
+% ypos printrtick -
+/printrtick
+{ newpath
+  xright exch trpoint moveto xextra 0 rmoveto
+  rticklength 0 rlineto [] 0 setdash stroke
+} def
+
+% printrlabel: print one r label
+% (rlabel) ypos printrlabel -
+/printrlabel
+{ xright exch trpoint moveto xextra 0 rmoveto
+  rticklength 0 rmoveto  0.3 ft -0.3 ft rmoveto
+  expstringshow
+} def
+
+% printticks: print ticks and labels
+% /tickproc /labelproc [ tickandlabeldata ] min printticks -
+/printticks
+{ /prev exch def
+  { dup type dup dup /integertype eq exch /realtype eq or
+    { pop dup /prev exch def 2 index cvx exec
+    }
+    { /stringtype eq
+      { prev 2 index cvx exec
+      }
+      { pop
+      } ifelse
+    } ifelse
+  } forall
+  pop pop
+} def
+
+
+% printxaxistick: print one x axis tick
+% xpos printxaxistick -
+/printxaxistick
+{ newpath
+  yaxis trpoint moveto 0 xticklength -2 div rmoveto
+  0 xticklength rlineto [] 0 setdash stroke
+} def
+
+% printxaxislabel: print one x axis label
+% (xlabel) xpos printxaxislabel -
+/printxaxislabel
+{ yaxis trpoint moveto
+  0 xticklength -2 div rmoveto 0 0.9 ft neg rmoveto
+  xlog 1 gt { 0 0.3 ft neg rmoveto } if
+  dup expstringwidth -2 div 0 rmoveto expstringshow
+} def
+
+% printyaxistick: print one y axis tick
+% ypos printyaxistick -
+/printyaxistick
+{ newpath
+  xaxis exch trpoint moveto
+  yticklength -2 div 0 rmoveto
+  yticklength 0 rlineto [] 0 setdash stroke
+} def
+
+% printyaxislabel: print one y axis label
+% (ylabel) ypos printyaxislabel -
+/printyaxislabel
+{ xaxis exch trpoint moveto
+  yticklength -2 div 0 rmoveto -0.3 ft -0.3 ft rmoveto
+  dup expstringwidth neg 0 rmoveto expstringshow
+} def
+
+
+% <val> minmax -
+% perform minv := min(minv, val); maxv := max(maxv, val)
+% allowing for the possibility of minv, maxv, val being false (undefined)
+/minmax
+{ dup false eq
+  { pop }
+  { minv false eq
+    { dup /minv exch def /maxv exch def }
+    { dup minv lt
+      { /minv exch def }
+      { dup maxv gt
+	{ /maxv exch def }
+	{ pop }
+	ifelse
+      } ifelse
+    } ifelse
+  } ifelse
+} def
+
+% <ticks> ticksundef <ticks> <bool>
+% returns true iff the ticks array is undefined (one false entry)
+/ticksundef
+{ dup length 1 eq
+  { dup 0 get false eq
+  }
+  { false }
+  ifelse
+} def
+
+% <number> integral <boolean>
+% true if the number has an integral value
+/integral { dup round eq } def
+
+% ticksep ticks xory alldata minval maxval axis base ticksandlimits ticks min max base
+% ticksandlimits: sort out value of x or y ticks and limits and log base
+/ticksandlimits
+{ /base exch def
+  /minv false def
+  /maxv false def
+
+  % min and max of user-supplied minval, maxval, and axis
+  minmax minmax minmax
+
+  % min and max of data points
+  { 0 get dup dup length 1 sub 3 index exch 2 exch
+    { get minmax dup
+    } for pop pop
+  } forall
+  pop dup
+
+  % min and max of tick values
+  { dup type /stringtype eq
+    { pop } { minmax } ifelse
+  } forall
+
+  % fix minv and maxv if undefined (false) or equal
+  minv false eq
+  { /minv -1 def /maxv 1 def }
+  { minv maxv eq
+    { minv 0 lt
+      { /minv 2 minv mul def /maxv 0 def
+      }
+      { minv 0 eq
+	{ /minv -1 def /maxv 1 def
+	}
+	{ /minv 0 def /maxv 2 maxv mul def
+	} ifelse
+      } ifelse
+    } if
+  } ifelse
+
+  % invent ticks if undefined
+  ticksundef
+  { pop /ticksep exch def
+
+    % if base is reasonable and minv is positive, logarithmic ticks
+    base 1 gt minv 0 gt and
+    {
+      % get integral log of minv and maxv
+      /logminv base minv plog floor   cvi def
+      /logmaxv base maxv plog ceiling cvi def
+
+      % if minv close to base, make it 1; reset minv and maxv
+      logminv 1 eq logmaxv 4 ge and { /logminv 0 def } if
+      /minv base logminv exp def
+      /maxv base logmaxv exp def
+
+      % ticks := [ base**logminv, ... , base**logmaxv ]
+      [ logminv 1 logmaxv
+	{ dup base exch exp
+	  exch base exch loglgen
+	} for
+      ]
+    }
+    { % non-logarithmic ticks
+      {
+        % fix tick separation if undefined (0) or too small
+	/base 0 def
+        /delta maxv minv sub def
+        ticksep delta 30 div le
+        { /ticksep 10 delta log 1 sub ceiling exp def
+	  ticksep delta 2 div ge
+	  { /ticksep ticksep 2 div def }
+	  { ticksep delta 5 div lt
+	    { /ticksep 2 ticksep mul def
+	    } if
+	  } ifelse
+        } if
+
+        % adjust minv and maxv to be multiples of ticksep
+        /minv minv ticksep div floor   ticksep mul def
+        /maxv maxv ticksep div ceiling ticksep mul def
+        /delta maxv minv sub def
+
+        % if minv or maxv near zero, move to zero and redo
+        minv ticksep eq
+        { /minv 0 def }
+        { maxv ticksep neg eq { /maxv 0 def } { exit } ifelse
+        } ifelse
+      } loop
+
+      % if minv, maxv, and ticksep are all integral, set "makeint" to true
+      /makeint minv integral maxv integral ticksep integral and and def
+
+      % ticks := [ minv, minv+ticksep, ... , maxv ]
+      [ 0 1 delta ticksep div round
+	{ ticksep mul minv add makeint { cvi } if lgen }
+	for
+      ]
+    } ifelse
+  }
+  { exch pop
+  } ifelse
+  minv maxv base
+} def
+
+% xset: set up all data for x axis, including limits and ticks
+% xticksep xticks 0 alldata xmin xmax xlog xextra xdecr xaxis xticklength xset -
+/xset
+{ /xticklength exch def
+  /xaxis exch def
+  /xdecr exch def
+  /xextra exch def
+  xaxis exch ticksandlimits
+  /xlog exch def /xmax exch def /xmin exch def /xticks exch def
+  /xleft xdecr { xmax } { xmin } ifelse def
+  /xright xdecr { xmin } { xmax } ifelse def
+  /xwidth xsize xextra 2 mul sub def
+  /trxmin xmin xtr def /trxmax xmax xtr def
+} def
+
+% yset: set up all data for y axis, including limits and yticks
+% yticksep yticks 0 alldata ymin ymax ylog yextra ydecr yaxis yticklength yset -
+/yset
+{ /yticklength exch def
+  /yaxis exch def
+  /ydecr exch def
+  /yextra exch def
+  yaxis exch ticksandlimits
+  /ylog exch def /ymax exch def /ymin exch def /yticks exch def
+  /yleft ydecr { ymax } { ymin } ifelse def
+  /yright ydecr { ymin } { ymax } ifelse def
+  /ywidth ysize yextra 2 mul sub def
+  /trymin ymin ytr def /trymax ymax ytr def
+} def
+
+% rset: set up all data for y axis (again), but including limits and rticks
+% rticksep rticks 0 alldata ymin ymax ylog yextra ydecr yaxis rticklength rset -
+/rset
+{ /rticklength exch def
+  /yaxis exch def
+  /ydecr exch def
+  /yextra exch def
+  yaxis exch ticksandlimits
+  /ylog exch def /ymax exch def /ymin exch def /rticks exch def
+  /yleft ydecr { ymax } { ymin } ifelse def
+  /yright ydecr { ymin } { ymax } ifelse def
+  /ywidth ysize yextra 2 mul sub def
+  /trymin ymin ytr def /trymax ymax ytr def
+} def
+
+% norset: set up data for no rticks
+% - norset -
+/norset
+{ /rticklength 0 def
+  /rticks [] def
+} def
+
+% framestyle: print a frame around the graph
+/framestyle
+{ 0 0 moveto xsize 0 lineto xsize ysize lineto
+  0 ysize lineto closepath stroke
+  /printxtick /printxlabel xticks xleft printticks
+  /printytick /printylabel yticks ymin printticks
+  /printrtick /printrlabel rticks ymin printticks
+} def
+
+% nonestyle: print nothing around the graph
+/nonestyle
+{
+} def
+
+% axesstyle: print axes for the graph (unless axis values missing)
+/axesstyle
+{
+  xaxis false eq yaxis false eq or
+  { framestyle }
+  { xaxis yaxis trpoint dup 0 exch moveto xsize exch lineto
+    dup 0 moveto ysize lineto stroke
+    /printxaxistick /printxaxislabel xticks xleft printticks
+    /printyaxistick /printyaxislabel yticks ymin printticks
+  } ifelse
+} def
+
+% rundata: run all data sets
+/rundata
+{ alldata
+  { gsave
+    dup dup dup dup
+    4 get /dopaint exch def
+    3 get /initrun exch def
+    2 get /pairs exch def
+    1 get /points exch def
+    0 get /data exch def
+    dopaint
+    { data length 4 ge
+      { initrun
+	newpath
+	data 0 get ymin trpoint yextra sub moveto
+	0 2 data length 2 sub
+	{ dup 1 add
+	  data exch get /ycurr exch def
+	  data exch get /xcurr exch def
+	  xcurr ycurr trpoint lineto
+	} for
+	data dup length 2 sub get ymin trpoint yextra sub lineto
+	closepath fill
+      } if
+    } if
+    initrun
+    data length 2 ge
+    {
+      /xcurr data 0 get def
+      /ycurr data 1 get def
+      points
+      data length 4 ge
+      { 2 2 data length 2 sub
+	{ /xprev xcurr def
+          /yprev ycurr def
+	  dup dup 2 eq /firstpair exch def
+	  data length 2 sub eq /lastpair exch def
+	  dup 1 add
+          data exch get /ycurr exch def
+          data exch get /xcurr exch def
+	  pairs
+	  points
+	} for
+      } if
+    } if
+    grestore
+  } forall
+} def
+
+end
+%%EndResource
diff --git a/include/init b/include/init
new file mode 100644
index 0000000..2718c22
--- /dev/null
+++ b/include/init
@@ -0,0 +1,34 @@
+
+###############################################################################
+#                                                                             #
+#  init                                                                       #
+#                                                                             #
+#  Lout file for initializing run.                                            #
+#                                                                             #
+#  Jeffrey H. Kingston                                                        #
+#  21 September 1994                                                          #
+#                                                                             #
+###############################################################################
+
+
+@SysInclude { fontdefs }			  # font definitions
+@SysInclude { langdefs }			  # language definitions
+@SysInclude { bsf }				  # BasicSetup package
+@SysInclude { dsf }				  # DocumentSetup package
+						  #   including standard.ld
+def @TeX
+{
+    @OneCol { T &0.4fo {-0.2f @VShift E} &0.45fo X }
+}
+
+def @LaTeX
+{
+    @OneCol { L &0.3fo { +0.1f @VShift 0.8f @Font A } &0.4fo @TeX }
+}
+
+@Use { @BasicSetup }
+@Use { @DocumentSetup }
+
+@SysDatabase @Reference { loutrefs }		  # references about Lout
+@SysDatabase @Reference { oldrefs }		  # old references about Lout
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
diff --git a/include/langdefs b/include/langdefs
new file mode 100644
index 0000000..ec3ac3a
--- /dev/null
+++ b/include/langdefs
@@ -0,0 +1,16 @@
+langdef Czech Cesky Cestina			{ czech		. : ! ? .) ?) !) .' !' ?' }
+langdef Danish Dansk				{ danish	. : ! ? .) ?) !) .' !' ?' }
+langdef Dutch Nederlands			{ dutch		. : ! ? .) ?) !) .' !' ?' }
+langdef English					{ english	. : ! ? .) ?) !) .' !' ?' }
+langdef EnglishUK				{ engluk	. : ! ? .) ?) !) .' !' ?' }
+langdef Finnish Suomi				{ finnish	. : ! ? .) ?) !) .' !' ?' }
+langdef French Francais "Fran\347ais"		{ french				  }
+langdef German Deutsch				{ german	. : ! ? .) ?) !) .' !' ?' }
+langdef Hungarian Magyar			{ -		. : ! ? .) ?) !) .' !' ?' }
+langdef	Italian Italiano			{ italian	. : ! ? .) ?) !) .' !' ?' }
+langdef Norwegian Norsk				{ norweg	. : ! ? .) ?) !) .' !' ?' }
+langdef Polish Polski				{ polish	. : ! ? .) ?) !) .' !' ?' }
+langdef Russian "\362\325\323\323\313\311\312"  { russian	. : ! ? .) ?) !) .' !' ?' }
+langdef Slovenian Slovenia Slovenija		{ slovenia	. : ! ? .) ?) !) .' !' ?' }
+langdef Spanish	"Espa\361ol"			{ spanish	. : ! ? .) ?) !) .' !' ?' }
+langdef Swedish	Svenska				{ swedish	. : ! ? .) ?) !) .' !' ?' }
diff --git a/include/latin2 b/include/latin2
new file mode 100644
index 0000000..35ddf2c
--- /dev/null
+++ b/include/latin2
@@ -0,0 +1,9 @@
+#################################################################
+#                                                               #
+#  latin2                                                       #
+#                                                               #
+#  This file includes everything you need for Latin2.           #
+#                                                               #
+#################################################################
+
+@SysInclude { latin2.fd }
diff --git a/include/latin2.fd b/include/latin2.fd
new file mode 100644
index 0000000..5bc648b
--- /dev/null
+++ b/include/latin2.fd
@@ -0,0 +1,143 @@
+##################################################################################################################
+#                                                                                                                #
+#  Latin2 Font definitions.  Use a very wide window to see them clearly.                                         #
+#                                                                                                                #
+#       Lout font       Lout font         PostScript         PostScript font metrics    Lout character Recode/   #
+#       family name     face name         font name          (formerly .AFM) file name  mapping file   NoRecode  #
+#                                                                                                                #
+##################################################################################################################
+
+
+fontdef	AvantGardeCE	Base		{ AvantGarde-Medium		AG-Md		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	Slope		{ AvantGarde-MediumObl		AG-MdO		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	Bold		{ AvantGarde-Bold		AG-Bd		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	BoldSlope	{ AvantGarde-BoldObl		AG-BdO		LtLatin2.LCM	Recode	 }
+
+fontdef	AvantGardeCE	Bold		{ AvantGarde-Bold		AG-Bd		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	BoldObl		{ AvantGarde-BoldObl		AG-BdO		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	Book		{ AvantGarde-Book		AG-Bk		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	BookOblique	{ AvantGarde-BookOblique	AG-BkO		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	CondBold	{ AvantGarde-CondBold		AG-CnBd		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	CondBook	{ AvantGarde-CondBook		AG-CnBk		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	CondDemi	{ AvantGarde-CondDemi		AG-CnDm		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	CondMedium	{ AvantGarde-CondMedium		AG-CnMd		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	Demi		{ AvantGarde-Demi		AG-Dm		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	DemiOblique	{ AvantGarde-DemiOblique	AG-DmO		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	ExtraLight	{ AvantGarde-ExtraLight		AG-ExLt		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	ExtraLightObl	{ AvantGarde-ExtraLightObl	AG-ExLtO	LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	Medium		{ AvantGarde-Medium		AG-Md		LtLatin2.LCM	Recode	 }
+fontdef	AvantGardeCE	MediumObl	{ AvantGarde-MediumObl		AG-MdO		LtLatin2.LCM	Recode	 }
+
+
+fontdef	BookmanCE	Base		{ Bookman-Medium		Bk-Md		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	Slope		{ Bookman-MediumItalic		Bk-MdIt		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	Bold		{ Bookman-Bold			Bk-Bd		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	BoldSlope	{ Bookman-BoldItalic		Bk-BdIt		LtLatin2.LCM	Recode	 }
+
+fontdef	BookmanCE	Bold		{ Bookman-Bold			Bk-Bd		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	BoldItalic	{ Bookman-BoldItalic		Bk-BdIt		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	Demi		{ Bookman-Demi			Bk-Dm		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	DemiItalic	{ Bookman-DemiItalic		Bk-DmIt		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	Light		{ Bookman-Light			Bk-Lt		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	LightItalic	{ Bookman-LightItalic		Bk-LtIt		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	Medium		{ Bookman-Medium		Bk-Md		LtLatin2.LCM	Recode	 }
+fontdef	BookmanCE	MediumItalic	{ Bookman-MediumItalic		Bk-MdIt		LtLatin2.LCM	Recode	 }
+
+
+fontdef	CourierCE	Base		{ Courier			Cr		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	Slope		{ Courier-Oblique		Cr-O		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	Bold		{ Courier-Bold			Cr-Bd		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	BoldSlope	{ Courier-BoldOblique		Cr-BdO		LtLatin2.LCM	Recode	 }
+
+fontdef	CourierCE	Base		{ Courier			Cr		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	Bold		{ Courier-Bold			Cr-Bd		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	BoldOblique	{ Courier-BoldOblique		Cr-BdO		LtLatin2.LCM	Recode	 }
+fontdef	CourierCE	Oblique		{ Courier-Oblique		Cr-O		LtLatin2.LCM	Recode	 }
+
+
+fontdef	HelveticaCE	Base		{ Helvetica			He		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Slope		{ Helvetica-Oblique		He-O		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Bold		{ Helvetica-Bold		He-Bd		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	BoldSlope	{ Helvetica-BoldOblique		He-BdO		LtLatin2.LCM	Recode	 }
+
+fontdef	HelveticaCE	Base		{ Helvetica			He		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Black		{ Helvetica-Black		He-Bl		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	BlackOblique	{ Helvetica-BlackOblique	He-BlO		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Bold		{ Helvetica-Bold		He-Bd		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	BoldOblique	{ Helvetica-BoldOblique		He-BdO		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Compressed	{ Helvetica-Compressed		He-Cm		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Cond		{ Helvetica-Condensed		He-Cn		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondBlack	{ Helvetica-Condensed-Black	He-CnBl		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondBlackObl	{ Helvetica-Condensed-BlackObl	He-CnBlO	LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondBold	{ Helvetica-Condensed-Bold	He-CnBd		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondBoldObl	{ Helvetica-Condensed-BoldObl	He-CnBdO	LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondLight	{ Helvetica-Condensed-Light	He-CnLi		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondLightObl	{ Helvetica-Condensed-LightObl	He-CnLiO	LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	CondOblique	{ Helvetica-Condensed-Oblique	He-CnO		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	ExtraCompressed	{ Helvetica-ExtraCompressed	He-ExtC		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Light		{ Helvetica-Light		He-Lt		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	LightOblique	{ Helvetica-LightOblique	He-LtO		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Narrow		{ Helvetica-Narrow		He-Nr		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	NarrowBold	{ Helvetica-Narrow-Bold		He-NrBd		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	NarrowBoldObl	{ Helvetica-Narrow-BoldOblique	He-NrBdO	LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	NarrowObl	{ Helvetica-Narrow-Oblique	He-NrO		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	Oblique		{ Helvetica-Oblique		He-O		LtLatin2.LCM	Recode	 }
+fontdef	HelveticaCE	UltraCompressed	{ Helvetica-UltraCompressed	He-UlCm		LtLatin2.LCM	Recode	 }
+
+
+fontdef	SchoolbookCE	Base		{ NewCenturySchlbk-Roman	NCS-Rm		LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	Slope		{ NewCenturySchlbk-Italic	NCS-It		LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	Bold		{ NewCenturySchlbk-Bold		NCS-Bd		LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	BoldSlope	{ NewCenturySchlbk-BoldItalic	NCS-BdIt	LtLatin2.LCM	Recode	 }
+
+fontdef	SchoolbookCE	Bold		{ NewCenturySchlbk-Bold		NCS-Bd		LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	BoldItalic	{ NewCenturySchlbk-BoldItalic	NCS-BdIt	LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	Italic		{ NewCenturySchlbk-Italic	NCS-It		LtLatin2.LCM	Recode	 }
+fontdef	SchoolbookCE	Roman		{ NewCenturySchlbk-Roman	NCS-Rm		LtLatin2.LCM	Recode	 }
+
+
+fontdef	PalatinoCE	Base		{ Palatino-Roman		Pa-Rm		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	Slope		{ Palatino-Italic		Pa-It		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	Bold		{ Palatino-Bold			Pa-Bd		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	BoldSlope	{ Palatino-BoldItalic		Pa-BdIt		LtLatin2.LCM	Recode	 }
+
+fontdef	PalatinoCE	Bold		{ Palatino-Bold			Pa-Bd		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	BoldItalic	{ Palatino-BoldItalic		Pa-BdIt		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	BoldItalicOsF	{ Palatino-BoldItalicOsF	Pa-BdItF	LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	BoldOsF		{ Palatino-BoldOsF		Pa-BdF		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	Italic		{ Palatino-Italic		Pa-It		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	ItalicOsF	{ Palatino-ItalicOsF		Pa-ItF		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	Roman		{ Palatino-Roman		Pa-Rm		LtLatin2.LCM	Recode	 }
+fontdef	PalatinoCE	SC		{ Palatino-SC			Pa-SC		LtLatin2.LCM	Recode	 }
+
+
+fontdef	TimesCE		Base		{ Times-Roman			Ti-Rm		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		Slope		{ Times-Italic			Ti-It		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		Bold		{ Times-Bold			Ti-Bd		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		BoldSlope	{ Times-BoldItalic		Ti-BdIt		LtLatin2.LCM	Recode	 }
+
+fontdef	TimesCE		Bold		{ Times-Bold			Ti-Bd		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		BoldItalic	{ Times-BoldItalic		Ti-BdIt		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		BoldItalicOsF	{ Times-BoldItalicOsF		Ti-BdItF	LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		BoldSC		{ Times-BoldSC			Ti-BdSC		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		ExtraBold	{ Times-ExtraBold		Ti-ExBd		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		Italic		{ Times-Italic			Ti-It		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		ItalicOsF	{ Times-ItalicOsF		Ti-ItF		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		Roman		{ Times-Roman			Ti-Rm		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		RomanSC		{ Times-RomanSC			Ti-RmSC		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		Semibold	{ Times-Semibold		Ti-Sm		LtLatin2.LCM	Recode	 }
+fontdef	TimesCE		SemiboldItalic	{ Times-SemiboldItalic		Ti-SmIt		LtLatin2.LCM	Recode	 }
+
+
+fontdef	ChanceryCE	Base		{ ZapfChancery-Roman		ZC-Rm		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Slope		{ ZapfChancery-Italic		ZC-It		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Bold		{ ZapfChancery-Bold		ZC-Bd		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	BoldSlope	{ ZapfChancery-MediumItalic	ZC-MdIt		LtLatin2.LCM	Recode	 }
+
+fontdef	ChanceryCE	Roman		{ ZapfChancery-Roman		ZC-Rm		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Bold		{ ZapfChancery-Bold		ZC-Bd		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Italic		{ ZapfChancery-Italic		ZC-It		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Light		{ ZapfChancery-Light		ZC-Lt		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	Demi		{ ZapfChancery-Demi		ZC-Dm		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	LightItalic	{ ZapfChancery-LightItalic	ZC-LtIt		LtLatin2.LCM	Recode	 }
+fontdef	ChanceryCE	MediumItalic	{ ZapfChancery-MediumItalic	ZC-MdIt		LtLatin2.LCM	Recode	 }
diff --git a/include/modula b/include/modula
new file mode 100644
index 0000000..0f84ad6
--- /dev/null
+++ b/include/modula
@@ -0,0 +1,27 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for Modula-2 program printing                             #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { modulaf } line                                           #
+#                                                                             #
+#  This line causes Lout to read the definitions for Modula-2, and should     #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { modulaf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer the ability to change default options.         #
+#                                                                             #
+###############################################################################
diff --git a/include/modulaf b/include/modulaf
new file mode 100644
index 0000000..2f1221d
--- /dev/null
+++ b/include/modulaf
@@ -0,0 +1,137 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Modula package for formatting Modula-2 programs (Version 1.0)        #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, September 1993.                        #
+#                                                                             #
+#  This package implements the complete Modula-2 language (in a style which   #
+#  claims only to reflect its author's taste) with the following caveats:     #
+#                                                                             #
+#  * The symbol { must be given as lbrace                                     #
+#                                                                             #
+#  * The symbol } must be given as rbrace                                     #
+#                                                                             #
+#  * The symbol # must be given as numbersign                                 #
+#                                                                             #
+#  * Double quotes are used by Lout to delimit literal strings, so they       #
+#    need to be quoted (Modula-2 allows single quoted strings wherever        #
+#    double quoted strings can go; we recommend these be used)                #
+#                                                                             #
+#  * Literal strings should be enclosed in double quotes                      #
+#                                                                             #
+#  * The symbols B, H, C, and E as used in numeric literals will appear       #
+#    in italic font                                                           #
+#                                                                             #
+###############################################################################
+
+export	"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+
+	"*" "/" "~" "+" "-" "=" "<>" ">" ">=" "<" "<=" "("
+	")" "[" "]" "," ";" "." ":" "..." ".." "|" "^" ":=" "'" "`"
+	"&"
+
+	lbrace rbrace numbersign
+
+	AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF
+	END EXPORT EXIT FOR FROM IF IMPLEMENTATION IMPORT IN LOOP
+	MOD MODULE NOT OF OR POINTER PROCEDURE QUALIFIED RECORD
+	REPEAT RETURN SET TO THEN TYPE UNTIL VAR WHILE WITH @Com
+
+def @Modula
+   body @Body
+@Begin
+
+    def @R right x { Base @Font x }
+    def @B right x { Bold @Font x }
+    def @S right x { { Symbol Base } @Font x }
+
+    def "0"	{ @R "0"			}
+    def "1"	{ @R "1"			}
+    def "2"	{ @R "2"			}
+    def "3"	{ @R "3"			}
+    def "4"	{ @R "4"			}
+    def "5"	{ @R "5"			}
+    def "6"	{ @R "6"			}
+    def "7"	{ @R "7"			}
+    def "8"	{ @R "8"			}
+    def "9"	{ @R "9"			}
+
+    def "*"	{ @S @Char "asteriskmath"	}
+    def "/"	{ @R @Char "fraction"		}
+    def "~"	{ @R "~"			}
+    def "+"	{ @S "+"			}
+    def "-"	{ @S "-"			}
+    def "="	{ @S @Char "equal"		}
+    def "<>"	{ @S @Char "notequal"		}
+    def ">"	{ @S @Char "greater"		}
+    def ">="	{ @S @Char "greaterequal"	}
+    def "<"	{ @S @Char "less"		}
+    def "<="	{ @S @Char "lessequal"		}
+    def "("	{ @R "("			}
+    def ")"	{ @R ")"			}
+    def "["	{ @R "["			}
+    def "]"	{ @R "]"			}
+    def ","	{ @R ","			}
+    def ";"	{ @R ";"			}
+    def "."	{ @R "."			}
+    def ":"	{ @R ":"			}
+    def ".."	{ @R ".." &0.1f			}
+    def "..."	{ @R "..." 			}
+    def "|"	{ @R "|"			}
+    def "^"	{ @S 0.8f @Font @Char "arrowup"	}
+    def ":="	{ :{//0.03fo =}			}
+    def "'"	{ @R "'"			}
+    def "`"	{ @R "`"			}
+    def "&"	{ @R "&"			}
+
+    def lbrace		{ @R "{"		}
+    def rbrace		{ @R "}"		}
+    def numbersign	{ @R "#"		}
+
+    def AND		{ @B "and"		}
+    def ARRAY		{ @B "array"		}
+    def BEGIN		{ @B "begin"		}
+    def BY		{ @B "by"		}
+    def CASE		{ @B "case"		}
+    def CONST		{ @B "const"		}
+    def DEFINITION	{ @B "definition"	}
+    def DIV		{ @B "div"		}
+    def DO		{ @B "do"		}
+    def ELSE		{ @B "else"		}
+    def ELSIF		{ @B "elsif"		}
+    def END		{ @B "end"		}
+    def EXPORT		{ @B "export"		}
+    def EXIT		{ @B "exit"		}
+    def FOR		{ @B "for"		}
+    def FROM		{ @B "from"		}
+    def IF		{ @B "if"		}
+    def IMPLEMENTATION	{ @B "implementation"	}
+    def IMPORT		{ @B "import"		}
+    def IN		{ @B "in"		}
+    def LOOP		{ @B "loop"		}
+    def MOD		{ @B "mod"		}
+    def MODULE		{ @B "module"		}
+    def NOT		{ @B "not"		}
+    def OF		{ @B "of"		}
+    def OR		{ @B "or"		}
+    def POINTER		{ @B "pointer"		}
+    def PROCEDURE	{ @B "procedure"	}
+    def QUALIFIED	{ @B "qualified"	}
+    def RECORD		{ @B "record"		}
+    def REPEAT		{ @B "repeat"		}
+    def RETURN		{ @B "return"		}
+    def SET		{ @B "set"		}
+    def TO		{ @B "to"		}
+    def THEN		{ @B "then"		}
+    def TYPE		{ @B "type"		}
+    def UNTIL		{ @B "until"		}
+    def VAR		{ @B "var"		}
+    def WHILE		{ @B "while"		}
+    def WITH		{ @B "with"		}
+
+    def @Com right x	{ @R "{" x @R "}"	}
+
+   Slope @Font lines @Break @Body
+
+@End @Modula
diff --git a/include/mydefs b/include/mydefs
new file mode 100644
index 0000000..e7b7ebb
--- /dev/null
+++ b/include/mydefs
@@ -0,0 +1,9 @@
+
+###############################################################################
+#                                                                             #
+#  mydefs                                                                     #
+#                                                                             #
+#  This empty Lout file is a placeholder which is read by the standard setup  #
+#  files when there is no mydefs file in the user's current directory.        #
+#                                                                             #
+###############################################################################
diff --git a/include/pas b/include/pas
new file mode 100644
index 0000000..b62b24a
--- /dev/null
+++ b/include/pas
@@ -0,0 +1,27 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for Pascal program printing                               #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { pasf } line                                              #
+#                                                                             #
+#  This line causes Lout to read the definitions for Pascal, and should       #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { pasf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer default options that can be changed.           #
+#                                                                             #
+###############################################################################
diff --git a/include/pasf b/include/pasf
new file mode 100644
index 0000000..84dba18
--- /dev/null
+++ b/include/pasf
@@ -0,0 +1,110 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Pas package for formatting Pascal programs (Version 2.0)             #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, June 1991.                             #
+#  Version 2.0 by Jeffrey H. Kingston, 22 December 1992.                      #
+#                                                                             #
+#  See "Eq - a Lout package for typesetting mathematics" for user             #
+#  information.                                                               #
+#                                                                             #
+#  Reference:   Jensen, K. and Wirth, N.  Pascal User Manual and Report.      #
+#               Second Edition, Springer-Verlag, 1975.                        #
+#                                                                             #
+###############################################################################
+
+export	"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+	"." "," ":" ";" "'" "`" "+" "-" "*" "/" "(" ")"
+	"[" "]" "^" ".." "=" "<" ">" "<>" "<=" ">=" ":="
+
+	and array begin case const div do downto else end
+	file for forward function goto if in label mod nil not
+	of or otherwise packed procedure program record repeat
+	set then to type until var while with @Com
+
+def @Pas
+   body @Body
+@Begin
+
+    def @R right x { Base @Font x }
+    def @B right x { Bold @Font x }
+    def @S right x { { Symbol Base } @Font x }
+
+    def "0"	{ @R "0"			}
+    def "1"	{ @R "1"			}
+    def "2"	{ @R "2"			}
+    def "3"	{ @R "3"			}
+    def "4"	{ @R "4"			}
+    def "5"	{ @R "5"			}
+    def "6"	{ @R "6"			}
+    def "7"	{ @R "7"			}
+    def "8"	{ @R "8"			}
+    def "9"	{ @R "9"			}
+    def "."	{ @R "."			}
+    def ","	{ @R ","			}
+    def ":"	{ @R ":"			}
+    def ";"	{ @R ";"			}
+    def "'"	{ @R "'"			}
+    def "`"	{ @R "`"			}
+    def "+"	{ @S "+"			}
+    def "-"	{ @S "-"			}
+    def "*"	{ @S @Char "asteriskmath"	}
+    def "/"	{ @R @Char "fraction"		}
+    def "("	{ @R "("			}
+    def ")"	{ @R ")"			}
+    def "["	{ @R "["			}
+    def "]"	{ @R "]"			}
+    def "^"	{ @S 0.8f @Font @Char "arrowup"	}
+    def ".."	{ @R ".." &0.1f			}
+    def "="	{ @S @Char "equal"		}
+    def "<"	{ @S @Char "less"		}
+    def ">"	{ @S @Char "greater"		}
+    def "<>"	{ @S @Char "notequal"		}
+    def "<="	{ @S @Char "lessequal"		}
+    def ">="	{ @S @Char "greaterequal"	}
+    def ":="	{ :{//0.03fo &0.1f =}		}
+
+    def and		{ @B "and"		}
+    def array		{ @B "array"		}
+    def begin		{ @B "begin"		}
+    def case		{ @B "case"		}
+    def const		{ @B "const"		}
+    def div		{ @B "div"		}
+    def do		{ @B "do"		}
+    def downto		{ @B "downto"		}
+    def else		{ @B "else"		}
+    def end		{ @B "end"		}
+    def file		{ @B "file"		}
+    def for		{ @B "for"		}
+    def forward		{ @B "forward"		}
+    def function	{ @B "function"		}
+    def goto		{ @B "goto"		}
+    def if		{ @B "if"		}
+    def in		{ @B "in"		}
+    def label		{ @B "label"		}
+    def mod		{ @B "mod"		}
+    def nil		{ @B "nil"		}
+    def not		{ @B "not"		}
+    def of		{ @B "of"		}
+    def or		{ @B "or"		}
+    def otherwise	{ @B "otherwise"	}
+    def packed		{ @B "packed"		}
+    def procedure	{ @B "procedure"	}
+    def program		{ @B "program"		}
+    def record		{ @B "record"		}
+    def repeat		{ @B "repeat"		}
+    def set		{ @B "set"		}
+    def then		{ @B "then"		}
+    def to		{ @B "to"		}
+    def type		{ @B "type"		}
+    def until		{ @B "until"		}
+    def var		{ @B "var"		}
+    def while		{ @B "while"		}
+    def with		{ @B "with"		}
+
+    def @Com right x	{ @R "{" x @R "}"	}
+
+   Slope @Font lines @Break @Body
+
+@End @Pas
diff --git a/include/picture b/include/picture
new file mode 100644
index 0000000..55d2f3e
--- /dev/null
+++ b/include/picture
@@ -0,0 +1,254 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for stand-alone illustrations                             #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  @SysInclude commands for standard packages.                                #
+#                                                                             #
+###############################################################################
+
+  @SysInclude { fontdefs	} # font definitions
+  @SysInclude { langdefs	} # language definitions
+  @SysInclude { bsf		} # BasicSetup package
+  @SysInclude { dsf		} # DocumentSetup package
+  @SysInclude { picturef	} # IllustrationSetup extension
+
+
+###############################################################################
+#                                                                             #
+#  @Include command for reading personal definitions from current directory.  #
+#                                                                             #
+###############################################################################
+
+  @Include { mydefs }
+
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup @Use clause - basics, lists, paragraphs, displays.         #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+ 
+@Use { @BasicSetup
+  # @InitialFont	{ Times Base 12p	} # initial font
+  # @InitialBreak	{{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
+  # @InitialSpace	{ lout			} # initial space style
+  # @InitialLanguage	{ English		} # initial language
+  # @InitialColour	{ black			} # initial colour
+  # @OptimizePages	{ No			} # optimize page breaks?
+  # @HeadingFont	{ Bold			} # font for @Heading
+  # @ParaGap		{ 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+  # @ParaIndent		{ 2.00f	@OrIfPlain 5s	} # first-line indent for @PP
+  # @DisplayGap		{ 1.00v	@OrIfPlain 1f	} # gap above, below displays
+  # @DisplayIndent	{ 2.00f	@OrIfPlain 5s	} # @IndentedDisplay indent
+  # @DefaultIndent	{ 0.5rt			} # @Display indent
+  # @DisplayNumStyle	{ (num)			} # style of display numbers
+  # @WideIndent		{ 4.00f	@OrIfPlain 10s	} # @WideTaggedList indent
+  # @VeryWideIndent	{ 8.00f	@OrIfPlain 20s	} # @VeryWideTaggedList indent
+  # @ListOuterGap	{ 1.00v	@OrIfPlain 1f	} # gap before, after lists
+  # @ListGap		{ 1.00v	@OrIfPlain 1f	} # gap between list items
+  # @ListIndent		{ 0s			} # indent of list items
+  # @ListRightIndent	{ 0s			} # right indent of list items
+  # @ListLabelWidth	{ 2.00f	@OrIfPlain 5s	} # width allowed for list tags
+  # @NumberSeparator	{ .			} # separates nums like 2.3.7
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @DocumentSetup @Use clause - page layout plus figures, tables, etc.    #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @DocumentSetup
+  # @PageType		{ A4	@OrIfPlain Other} # page type (width, height)
+  # @PageWidth		{ 80s			} # page width if type Other
+  # @PageHeight		{ 66f			} # page height if type Other
+  # @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+  # @PageBackground	{  			} # background of each page
+  # @TopMargin		{ 2.5c	@OrIfPlain 6f	} # top margin of all pages
+  # @FootMargin		{ 2.5c	@OrIfPlain 6f	} # bottom margin of all pages
+  # @OddLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of odd pages
+  # @OddRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of odd pages
+  # @EvenLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of even pages
+  # @EvenRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of even pages
+  # @PageBoxType	{ None			} # None Box CurveBox ShadowBox
+  # @PageBoxMargin	{ 1.00c			} # page box margin
+  # @PageBoxLineWidth	{			} # page box line thickness
+  # @PageBoxPaint	{ none			} # page box paint
+  # @PageBoxShadow	{ 0.60c			} # shadow margin if ShadowBox
+  # @ColumnNumber	{ 1			} # number of columns (1 to 10)
+  # @ColumnGap		{ 1.00c	@OrIfPlain 6s	} # column gap
+  # @FigureLocation	{ PageTop		} # default figure location
+  # @TableLocation	{ PageTop		} # default table location
+  # @FigureFormat	{ @CC @Body		} # default figure format
+  # @TableFormat	{ @CC @Body		} # default table format
+  # @FigureWord		{ figure		} # "Figure" word else anything
+  # @TableWord		{ table			} # "Table" word else anything
+  # @FigureNumbers	{ Arabic		} # method of numbering figures
+  # @TableNumbers	{ Arabic		} # method of numbering tables
+  # @FigureCaptionPos	{ Below 		} # Above or Below
+  # @TableCaptionPos	{ Below			} # Above or Below
+  # @CaptionFont        {                       } # figure, table caption font
+  # @CaptionBreak       {                       } # figure, table caption break
+  # @CaptionFormat      { @B { number @DotSep @OneCol }	} # figure, table caption format
+  # @MakeFigureContents { No                    } # list of figures at start
+  # @MakeTableContents  { No                    } # list of tables at start
+  # @MakeContents	{ No			} # make contents? Yes or No
+  # @ContentsGap	{ 0.20v	@OrIfPlain 0f	} # extra gap above minor entry
+  # @ContentsGapAbove	{ 0.80v	@OrIfPlain 1f	} # extra gap above major entry
+  # @ContentsGapBelow	{ 0.00v	@OrIfPlain 0f	} # extra gap below major entry
+  # @ContentsFont       { Bold                  } # font for major entry
+  # @ContentsPartGapAbove { 1.00v @OrIfPlain 1f	} # extra gap above `part' entry
+  # @ContentsPartGapBelow { 0.00v @OrIfPlain 0f	} # extra gap below `part' entry
+  # @ContentsFormat	{ number @DotSep title	} # contents entry format
+  # @ContentsLeader	{ ..			} # leader symbol in contents
+  # @ContentsLeaderGap	{ 4s	@OrIfPlain 2s	} # gap between leaders
+  # @ContentsRightWidth	{ 3f	@OrIfPlain 6s	} # page numbers column width
+  # @MakeReferences	{ Yes			} # make references? Yes or No
+  # @RefCiteStyle	{ [cite]		} # citation style
+  # @RefCiteLabels	{ @RefNum		} # citation items
+  # @RefNumbers		{ Arabic		} # reference numbers
+  # @RefListFormat	{ Labels		} # NoLabels, Labels, etc.
+  # @RefListLabels	{ [@RefNum]		} # ref list label format
+  # @RefListTitle	{ references		} # title of reference list
+  # @ChapRefListTitle	{ references		} # title of chapter ref list
+  # @RefListIndent	{ 0s			} # indent to left of labels
+  # @RefListRightIndent	{ 0s			} # indent to right of items
+  # @RefListGap		{ @ListGap		} # gap between ref list items
+  # @RefListFont	{        		} # font used in reference list
+  # @RefListBreak	{        		} # break style of ref list
+  # @RefListLabelWidth 	{ @ListLabelWidth	} # Labels column width
+  # @RefListSortKey	{ @Tag			} # sorting key
+  # @MakeIndex		{ No			} # make index? Yes or No
+  # @IndexFont		{			} # index entries font
+  # @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexColumnNumber	{ 2			} # index columns (1 to 10)
+  # @IndexColumnGap	{ 1.00c	@OrIfPlain 6s	} # index column gap
+  # @MakeIndexA		{ No 			} # make index A? Yes or No
+  # @IndexAFont		{			} # index A entries font
+  # @IndexABreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexAColumnNumber	{ 2			} # index A columns (1 to 10)
+  # @IndexAColumnGap	{ 1.00c	@OrIfPlain 6s	} # index A column gap
+  # @MakeIndexB		{ No 			} # make index B? Yes or No
+  # @IndexBFont		{			} # index B entries font
+  # @IndexBBreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexBColumnNumber	{ 2			} # index B columns (1 to 10)
+  # @IndexBColumnGap	{ 1.00c	@OrIfPlain 6s	} # index B column gap
+  # @TopGap		{ 0.75c	@OrIfPlain 2f	} # gap between figures
+  # @MidGap		{ 0.75c	@OrIfPlain 2f	} # gap above/below body text
+  # @FootNoteNumbers	{ Arabic		} # footnote numbers
+  # @FootNoteThrough	{ No			} # numbered through chapter?
+  # @FootNoteLocation	{ ColFoot		} # where the footnote appears
+  # @FootNoteFont	{ 0.80f			} # font for footnotes
+  # @FootNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for footnotes
+  # @FootNoteFormat     { { number &0.05f } @Insert body } # footnote format
+  # @FootLen		{ 2.00c	@OrIfPlain 10s	} # length of footnote line
+  # @FootAboveGap	{ @DisplayGap		} # gap above footnote line
+  # @FootGap		{ 0.20c	@OrIfPlain 1fx	} # gap between footnotes
+  # @MarginNoteFont	{ 0.80f			} # font of margin notes
+  # @MarginNoteBreak	{ ragged 1.10fx		} # break style of margin notes
+  # @MarginNoteHGap	{ 0.5c   		} # horizontal gap to notes
+  # @MarginNoteVGap	{ @DisplayGap		} # min vertical gap between
+  # @MarginNoteWidth	{ 1.50c  		} # width of margin notes
+  # @EndNoteNumbers	{ Arabic		} # endnote numbers
+  # @EndNoteFont	{ 0.80f			} # font of endnotes
+  # @EndNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for endnotes
+  # @EndNoteFormat	{ { number &0.05f } @Insert body } # endnote format
+  # @EndNoteGap		{ 0.20c	@OrIfPlain 1f	} # gap between endnotes
+  # @TheoremWord	{ theorem		} # "Theorem" word, etc.
+  # @TheoremTitleFormat	{ (title)		} # only if title present
+  # @TheoremFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @DefinitionWord	{ definition		} # "Definition" word, etc.
+  # @DefinitionTitleFormat { (title)		} # only if title present
+  # @DefinitionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ClaimWord		{ claim			} # "Claim" word, etc.
+  # @ClaimTitleFormat	{ (title)		} # only if title present
+  # @ClaimFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @PropositionWord	{ proposition		} # "Proposition" word, etc.
+  # @PropositionTitleFormat { (title)		} # only if title present
+  # @PropositionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @LemmaWord		{ lemma			} # "Lemma" word, etc.
+  # @LemmaTitleFormat	{ (title)		} # only if title present
+  # @LemmaFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @CorollaryWord	{ corollary		} # "Corollary" word, etc.
+  # @CorollaryTitleFormat { (title)		} # only if title present
+  # @CorollaryFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ExampleWord	{ example		} # "Example" word, etc.
+  # @ExampleTitleFormat	{ (title)		} # only if title present
+  # @ExampleFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ProofWord		{ proof			} # "Proof" word, etc.
+  # @PageHeaders	{ Simple		} # None Simple Titles NoTitles
+  # @PageNumbers	{ Arabic		} # page numbers
+  # @FirstPageNumber	{ 1			} # number of first page 
+  # @IntroPageNumbers	{ Roman			} # intro page numbers
+  # @IntroFirstPageNumber{ 1			} # number of first intro page 
+  # @StructPageNums	{ No			} # make structured page numbers
+
+  # @OddTop		{ @Centre{- @PageNum -}	} # Simple page headers
+  # @OddFoot		{ @Null			}
+  # @EvenTop		{ @Centre{- @PageNum -}	}
+  # @EvenFoot		{ @Null			}
+  # @StartOddTop	{ @Null			}
+  # @StartOddFoot	{ @Null			}
+  # @StartEvenTop	{ @Null			}
+  # @StartEvenFoot	{ @Null			}
+  # @IntroOddTop	{ @Null			}
+  # @IntroOddFoot	{ @Centre @PageNum	}
+  # @IntroEvenTop	{ @Null			}
+  # @IntroEvenFoot	{ @Centre @PageNum	}
+  # @IntroStartOddTop	{ @Null			}
+  # @IntroStartOddFoot	{ @Null			}
+  # @IntroStartEvenTop	{ @Null			}
+  # @IntroStartEvenFoot	{ @Null			}
+
+						  # Titles, NoTitles headers
+  # @RunningOddTop  { @I {@MinorNum @DotSep @MinorTitle} @Right @B @PageNum }
+  # @RunningOddFoot		{ @Null					}
+  # @RunningEvenTop { @B @PageNum @Right @I {@MajorNum @DotSep @MajorTitle} }
+  # @RunningEvenFoot		{ @Null					}
+  # @RunningStartOddTop 	{ @Null					}
+  # @RunningStartOddFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningStartEvenTop	{ @Null					}
+  # @RunningStartEvenFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningIntroOddTop		{ @Null					}
+  # @RunningIntroOddFoot	{ @Right @PageNum			}
+  # @RunningIntroEvenTop	{ @Null					}
+  # @RunningIntroEvenFoot	{ @PageNum				}
+  # @RunningIntroStartOddTop	{ @Null					}
+  # @RunningIntroStartOddFoot	{ @Null					}
+  # @RunningIntroStartEvenTop	{ @Null					}
+  # @RunningIntroStartEvenFoot	{ @Null					}
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @IllustrationSetup @Use clause - there are no options for this.        #
+#                                                                             #
+###############################################################################
+
+@Use { @IllustrationSetup
+}
+
+
+###############################################################################
+#                                                                             #
+#  @Database (and @SysDatabase) clauses go here.                              #
+#                                                                             #
+###############################################################################
+
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
diff --git a/include/picturef b/include/picturef
new file mode 100644
index 0000000..fd9177d
--- /dev/null
+++ b/include/picturef
@@ -0,0 +1,37 @@
+
+###########################################################################
+#                                                                         #
+#  @IllustrationSetup extension to @DocumentSetup.                        #
+#                                                                         #
+#  Jeffrey H. Kingston                                                    #
+#  August 1994                                                            #
+#                                                                         #
+#  This package extends DocumentSetup for illustrations.                  #
+#                                                                         #
+###########################################################################
+
+extend @BasicSetup @DocumentSetup
+export @Illustration
+def @IllustrationSetup
+@Begin
+
+    #######################################################################
+    #                                                                     #
+    #  @Illustration                                                      #
+    #                                                                     #
+    #######################################################################
+
+    def @Illustration
+	named @InitialFont { @InitialFont }
+	named @InitialBreak { @InitialBreak }
+	named @InitialSpace { @InitialSpace }
+	named @InitialLanguage { @InitialLanguage }
+	named @InitialColour { @InitialColour }
+	right x
+    {
+        @InitialFont @Font @InitialBreak @Break @InitialLanguage @Language
+	@InitialSpace @Space { @ColourCommand @InitialColour } @SetColour
+	@OneCol @OneRow x
+    }
+
+@End @IllustrationSetup
diff --git a/include/report b/include/report
new file mode 100644
index 0000000..01fdcc6
--- /dev/null
+++ b/include/report
@@ -0,0 +1,372 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for technical reports                                     #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#   17 September 1999                                                         #
+#                                                                             #
+#   Note: this version, released with Lout Version 3.13, is not upwardly      #
+#   compatible with previous versions:  the @Abstract symbol must now         #
+#   be placed before the //, not after.                                       #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  @SysInclude commands for standard packages.                                #
+#                                                                             #
+###############################################################################
+
+  @SysInclude { fontdefs	} # font definitions
+  @SysInclude { langdefs	} # language definitions
+  @SysInclude { bsf		} # BasicSetup package
+  @SysInclude { dsf		} # DocumentSetup package
+  @SysInclude { reportf		} # ReportSetup extension
+
+
+###############################################################################
+#                                                                             #
+#  @Include command for reading personal definitions from current directory.  #
+#                                                                             #
+###############################################################################
+
+  @Include { mydefs }
+
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup @Use clause - basics, lists, paragraphs, displays.         #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+ 
+@Use { @BasicSetup
+  # @InitialFont	{ Times Base 12p	} # initial font
+  # @InitialBreak	{{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
+  # @InitialSpace	{ lout			} # initial space style
+  # @InitialLanguage	{ English		} # initial language
+  # @InitialColour	{ black			} # initial colour
+  # @OptimizePages	{ No			} # optimize page breaks?
+  # @HeadingFont	{ Bold			} # font for @Heading
+  # @ParaGap		{ 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+  # @ParaIndent		{ 2.00f	@OrIfPlain 5s	} # first-line indent for @PP
+  # @DisplayGap		{ 1.00v	@OrIfPlain 1f	} # gap above, below displays
+  # @DisplayIndent	{ 2.00f	@OrIfPlain 5s	} # @IndentedDisplay indent
+  # @DefaultIndent	{ 0.5rt			} # @Display indent
+  # @DisplayNumStyle	{ (num)			} # style of display numbers
+  # @WideIndent		{ 4.00f	@OrIfPlain 10s	} # @WideTaggedList indent
+  # @VeryWideIndent	{ 8.00f	@OrIfPlain 20s	} # @VeryWideTaggedList indent
+  # @ListOuterGap	{ 1.00v	@OrIfPlain 1f	} # gap before, after lists
+  # @ListGap		{ 1.00v	@OrIfPlain 1f	} # gap between list items
+  # @ListIndent		{ 0s			} # indent of list items
+  # @ListRightIndent	{ 0s			} # right indent of list items
+  # @ListLabelWidth	{ 2.00f	@OrIfPlain 5s	} # width allowed for list tags
+  # @NumberSeparator	{ .			} # separates nums like 2.3.7
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @DocumentSetup @Use clause - page layout plus figures, tables, etc.    #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @DocumentSetup
+  # @PageType		{ A4	@OrIfPlain Other} # page type (width, height)
+  # @PageWidth		{ 80s			} # page width if type Other
+  # @PageHeight		{ 66f			} # page height if type Other
+  # @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+  # @PageBackground	{  			} # background of each page
+  # @TopMargin		{ 2.5c	@OrIfPlain 6f	} # top margin of all pages
+  # @FootMargin		{ 2.5c	@OrIfPlain 6f	} # bottom margin of all pages
+  # @OddLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of odd pages
+  # @OddRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of odd pages
+  # @EvenLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of even pages
+  # @EvenRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of even pages
+  # @PageBoxType	{ None			} # None Box CurveBox ShadowBox
+  # @PageBoxMargin	{ 1.00c			} # page box margin
+  # @PageBoxLineWidth	{			} # page box line thickness
+  # @PageBoxPaint	{ none			} # page box paint
+  # @PageBoxShadow	{ 0.60c			} # shadow margin if ShadowBox
+  # @ColumnNumber	{ 1			} # number of columns (1 to 10)
+  # @ColumnGap		{ 1.00c	@OrIfPlain 6s	} # column gap
+  # @FigureLocation	{ PageTop		} # default figure location
+  # @TableLocation	{ PageTop		} # default table location
+  # @FigureFormat	{ @CC @Body		} # default figure format
+  # @TableFormat	{ @CC @Body		} # default table format
+  # @FigureWord		{ figure		} # "Figure" word else anything
+  # @TableWord		{ table			} # "Table" word else anything
+  # @FigureNumbers	{ Arabic		} # method of numbering figures
+  # @TableNumbers	{ Arabic		} # method of numbering tables
+  # @FigureCaptionPos	{ Below 		} # Above or Below
+  # @TableCaptionPos	{ Below			} # Above or Below
+  # @CaptionFont        {                       } # figure, table caption font
+  # @CaptionBreak       {                       } # figure, table caption break
+  # @CaptionFormat      { @B { number @DotSep @OneCol }	} # figure, table caption format
+  # @MakeFigureContents { No                    } # list of figures at start
+  # @MakeTableContents  { No                    } # list of tables at start
+  # @MakeContents	{ No			} # make contents? Yes or No
+  # @ContentsGap	{ 0.20v	@OrIfPlain 0f	} # extra gap above minor entry
+  # @ContentsGapAbove	{ 0.80v	@OrIfPlain 1f	} # extra gap above major entry
+  # @ContentsGapBelow	{ 0.00v	@OrIfPlain 0f	} # extra gap below major entry
+  # @ContentsFont       { Bold                  } # font for major entry
+  # @ContentsPartGapAbove { 1.00v @OrIfPlain 1f	} # extra gap above `part' entry
+  # @ContentsPartGapBelow { 0.00v @OrIfPlain 0f	} # extra gap below `part' entry
+  # @ContentsFormat	{ number @DotSep title	} # contents entry format
+  # @ContentsLeader	{ ..			} # leader symbol in contents
+  # @ContentsLeaderGap	{ 4s	@OrIfPlain 2s	} # gap between leaders
+  # @ContentsRightWidth	{ 3f	@OrIfPlain 6s	} # page numbers column width
+  # @MakeReferences	{ Yes			} # make references? Yes or No
+  # @RefCiteStyle	{ [cite]		} # citation style
+  # @RefCiteLabels	{ @RefNum		} # citation items
+  # @RefNumbers		{ Arabic		} # reference numbers
+  # @RefListFormat	{ Labels		} # NoLabels, Labels, etc.
+  # @RefListLabels	{ [@RefNum]		} # ref list label format
+  # @RefListTitle	{ references		} # title of reference list
+  # @ChapRefListTitle	{ references		} # title of chapter ref list
+  # @RefListIndent	{ 0s			} # indent to left of labels
+  # @RefListRightIndent	{ 0s			} # indent to right of items
+  # @RefListGap		{ @ListGap		} # gap between ref list items
+  # @RefListFont	{        		} # font used in reference list
+  # @RefListBreak	{        		} # break style of ref list
+  # @RefListLabelWidth 	{ @ListLabelWidth	} # Labels column width
+  # @RefListSortKey	{ @Tag			} # sorting key
+  # @MakeIndex		{ No			} # make index? Yes or No
+  # @IndexFont		{			} # index entries font
+  # @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexColumnNumber	{ 2			} # index columns (1 to 10)
+  # @IndexColumnGap	{ 1.00c	@OrIfPlain 6s	} # index column gap
+  # @MakeIndexA		{ No 			} # make index A? Yes or No
+  # @IndexAFont		{			} # index A entries font
+  # @IndexABreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexAColumnNumber	{ 2			} # index A columns (1 to 10)
+  # @IndexAColumnGap	{ 1.00c	@OrIfPlain 6s	} # index A column gap
+  # @MakeIndexB		{ No 			} # make index B? Yes or No
+  # @IndexBFont		{			} # index B entries font
+  # @IndexBBreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexBColumnNumber	{ 2			} # index B columns (1 to 10)
+  # @IndexBColumnGap	{ 1.00c	@OrIfPlain 6s	} # index B column gap
+  # @TopGap		{ 0.75c	@OrIfPlain 2f	} # gap between figures
+  # @MidGap		{ 0.75c	@OrIfPlain 2f	} # gap above/below body text
+  # @FootNoteNumbers	{ Arabic		} # footnote numbers
+  # @FootNoteThrough	{ No			} # numbered through chapter?
+  # @FootNoteLocation	{ ColFoot		} # where the footnote appears
+  # @FootNoteFont	{ 0.80f			} # font for footnotes
+  # @FootNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for footnotes
+  # @FootNoteFormat     { { number &0.05f } @Insert body } # footnote format
+  # @FootLen		{ 2.00c	@OrIfPlain 10s	} # length of footnote line
+  # @FootAboveGap	{ @DisplayGap		} # gap above footnote line
+  # @FootGap		{ 0.20c	@OrIfPlain 1fx	} # gap between footnotes
+  # @MarginNoteFont	{ 0.80f			} # font of margin notes
+  # @MarginNoteBreak	{ ragged 1.10fx		} # break style of margin notes
+  # @MarginNoteHGap	{ 0.5c   		} # horizontal gap to notes
+  # @MarginNoteVGap	{ @DisplayGap  		} # min vertical gap between
+  # @MarginNoteWidth	{ 1.50c  		} # width of margin notes
+  # @EndNoteNumbers	{ Arabic		} # endnote numbers
+  # @EndNoteFont	{ 0.80f			} # font of endnotes
+  # @EndNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for endnotes
+  # @EndNoteFormat	{ { number &0.05f } @Insert body } # endnote format
+  # @EndNoteGap		{ 0.20c	@OrIfPlain 1f	} # gap between endnotes
+  # @TheoremWord	{ theorem		} # "Theorem" word, etc.
+  # @TheoremTitleFormat	{ (title)		} # only if title present
+  # @TheoremFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @DefinitionWord	{ definition		} # "Definition" word, etc.
+  # @DefinitionTitleFormat { (title)		} # only if title present
+  # @DefinitionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ClaimWord		{ claim			} # "Claim" word, etc.
+  # @ClaimTitleFormat	{ (title)		} # only if title present
+  # @ClaimFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @PropositionWord	{ proposition		} # "Proposition" word, etc.
+  # @PropositionTitleFormat { (title)		} # only if title present
+  # @PropositionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @LemmaWord		{ lemma			} # "Lemma" word, etc.
+  # @LemmaTitleFormat	{ (title)		} # only if title present
+  # @LemmaFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @CorollaryWord	{ corollary		} # "Corollary" word, etc.
+  # @CorollaryTitleFormat { (title)		} # only if title present
+  # @CorollaryFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ExampleWord	{ example		} # "Example" word, etc.
+  # @ExampleTitleFormat	{ (title)		} # only if title present
+  # @ExampleFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ProofWord		{ proof			} # "Proof" word, etc.
+  # @PageHeaders	{ Simple		} # None Simple Titles NoTitles
+  # @PageNumbers	{ Arabic		} # page numbers
+  # @FirstPageNumber	{ 1			} # number of first page 
+  # @IntroPageNumbers	{ Roman			} # intro page numbers
+  # @IntroFirstPageNumber{ 1			} # number of first intro page 
+  # @StructPageNums	{ No			} # make structured page numbers
+
+  # @OddTop		{ @Centre{- @PageNum -}	} # Simple page headers
+  # @OddFoot		{ @Null			}
+  # @EvenTop		{ @Centre{- @PageNum -}	}
+  # @EvenFoot		{ @Null			}
+  # @StartOddTop	{ @Null			}
+  # @StartOddFoot	{ @Null			}
+  # @StartEvenTop	{ @Null			}
+  # @StartEvenFoot	{ @Null			}
+  # @IntroOddTop	{ @Null			}
+  # @IntroOddFoot	{ @Centre @PageNum	}
+  # @IntroEvenTop	{ @Null			}
+  # @IntroEvenFoot	{ @Centre @PageNum	}
+  # @IntroStartOddTop	{ @Null			}
+  # @IntroStartOddFoot	{ @Null			}
+  # @IntroStartEvenTop	{ @Null			}
+  # @IntroStartEvenFoot	{ @Null			}
+
+						  # Titles, NoTitles headers
+  # @RunningOddTop  { @I {@MinorNum @DotSep @MinorTitle} @Right @B @PageNum }
+  # @RunningOddFoot		{ @Null					}
+  # @RunningEvenTop { @B @PageNum @Right @I {@MajorNum @DotSep @MajorTitle} }
+  # @RunningEvenFoot		{ @Null					}
+  # @RunningStartOddTop 	{ @Null					}
+  # @RunningStartOddFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningStartEvenTop	{ @Null					}
+  # @RunningStartEvenFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+  # @RunningIntroOddTop		{ @Null					}
+  # @RunningIntroOddFoot	{ @Right @PageNum			}
+  # @RunningIntroEvenTop	{ @Null					}
+  # @RunningIntroEvenFoot	{ @PageNum				}
+  # @RunningIntroStartOddTop	{ @Null					}
+  # @RunningIntroStartOddFoot	{ @Null					}
+  # @RunningIntroStartEvenTop	{ @Null					}
+  # @RunningIntroStartEvenFoot	{ @Null					}
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @ReportSetup @Use clause - options specific to technical reports.      #
+#                                                                             #
+###############################################################################
+
+@Use { @ReportSetup
+  # @CoverSheet			{ Yes		} # make cover sheet
+  # @DisplayAbstract		{ No		} # abstract full width display
+  # @ContentsSeparate		{ No		} # contents on separate pages
+  # @DateLine			{ No		} # Yes, No, or a date
+  # @ReferencesBeforeAppendices	{ No		} # references before appendices
+  # @AbstractWord		{ abstract	} # word for "Abstract"
+  # @ContentsWord		{ contents	} # word for "Contents"
+  # @AppendixWord		{ appendix	} # word for "Appendix"
+  # @IndexWord			{ index		} # word for "Index"
+  # @IndexAWord			{ index		} # word for "Index" (A)
+  # @IndexBWord			{ index		} # word for "Index" (B)
+  # @SectionNumbers		{ Arabic	} # kind of section numbers
+  # @FirstSectionNumber		{ 1		} # first section num (Arabic)
+  # @SubSectionNumbers		{ Arabic	} # kind of subsection numbers
+  # @FirstSubSectionNumber	{ 1		} # first subsect num (Arabic)
+  # @SubSubSectionNumbers	{ Arabic	} # kind of sub-subsect numbers
+  # @FirstSubSubSectionNumber	{ 1		} # first subsub. num (Arabic)
+  # @AppendixNumbers		{ UCAlpha	} # kind of appendix numbers
+  # @FirstAppendixNumber	{ 1		} # first appendix num (Arabic)
+  # @SubAppendixNumbers		{ Arabic	} # kind of subappendix numbers
+  # @FirstSubAppendixNumber	{ 1		} # first sub-app. num (Arabic)
+  # @SubSubAppendixNumbers	{ Arabic	} # kind of sub-subapp. numbers
+  # @FirstSubSubAppendixNumber	{ 1		} # first sub-sub. num (Arabic)
+  # @AbstractHeadingFont	{ Bold			} # abstract head font
+  # @AbstractHeadingBreak	{ ragged 1.2fx nohyphen	} # abstract head break
+  # @AbstractHeadingFormat	{ title			} # abstract head fmt
+  # @ContentsHeadingFont	{ Bold			} # contents head font
+  # @ContentsHeadingBreak	{ ragged 1.2fx nohyphen	} # contents head break
+  # @ContentsHeadingFormat	{ title			} # contents head fmt
+  # @SectionHeadingFont		{ Bold			} # section head font
+  # @SectionHeadingBreak	{ ragged 1.2fx nohyphen	} # section head break
+  # @SectionHeadingFormat	{ number @DotSep title	} # section head fmt
+  # @SubSectionHeadingFont	{ Bold			} # subsection head font
+  # @SubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # subsection head break
+  # @SubSectionHeadingFormat	{ number @DotSep title	} # subsection head fmt
+  # @SubSubSectionHeadingFont	{ Slope			} # sub-subs. head font
+  # @SubSubSectionHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-subs. head break
+  # @SubSubSectionHeadingFormat	{ number @DotSep title	} # sub-subs. head fmt
+  # @AppendixHeadingFont	{ Bold			} # appendix head font
+  # @AppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # appendix head break
+  # @AppendixHeadingFormat	{ number @DotSep title	} # appendix head fmt
+  # @SubAppendixHeadingFont	{ Bold			} # subapp. head font
+  # @SubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # subapp. head break
+  # @SubAppendixHeadingFormat	{ number @DotSep title	} # subapp. head fmt
+  # @SubSubAppendixHeadingFont	{ Slope			} # sub-subapp. head font
+  # @SubSubAppendixHeadingBreak	{ ragged 1.2fx nohyphen	} # sub-subapp head break
+  # @SubSubAppendixHeadingFormat{ number @DotSep title	} # sub-subapp. head fmt
+  # @ReferencesHeadingFont	{ Bold			} # references head font
+  # @ReferencesHeadingBreak	{ ragged 1.2fx nohyphen	} # references head break
+  # @ReferencesHeadingFormat	{ title			} # references head fmt
+  # @IndexHeadingFont		{ Bold			} # index head font
+  # @IndexHeadingBreak		{ ragged 1.2fx nohyphen	} # index head break
+  # @IndexHeadingFormat		{ title			} # index head fmt
+  # @IndexAHeadingFont		{ Bold			} # index A head font
+  # @IndexAHeadingBreak		{ ragged 1.2fx nohyphen	} # index A head break
+  # @IndexAHeadingFormat	{ title			} # index A head fmt
+  # @IndexBHeadingFont		{ Bold			} # index B head font
+  # @IndexBHeadingBreak		{ ragged 1.2fx nohyphen	} # index B head break
+  # @IndexBHeadingFormat	{ title			} # index B head fmt
+  # @SectionGap			{ 2.0v	@OrIfPlain 3f	} # between sections
+  # @SubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between subsects
+  # @SubSubSectionGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subs.
+  # @AppendixGap		{ 2.0v	@OrIfPlain 3f	} # between appendices
+  # @SubAppendixGap		{ 1.5v	@OrIfPlain 2f	} # between subappendices
+  # @SubSubAppendixGap		{ 1.5v	@OrIfPlain 2f	} # between sub-subapps
+  # @SectionInContents		{ Yes		} # add sections to contents
+  # @SubSectionInContents	{ Yes		} # add subsections to contents
+  # @SubSubSectionInContents	{ No		} # add sub-subsects to contents
+  # @AppendixInContents		{ Yes		} # add appendices to contents
+  # @SubAppendixInContents	{ Yes		} # add subappendices to contents
+  # @SubSubAppendixInContents	{ No		} # add sub-subapps to contents
+  # @ReferencesInContents	{ Yes		} # add references to contents
+  # @IndexInContents		{ Yes		} # add index to contents
+  # @IndexAInContents		{ Yes		} # add index A to contents
+  # @IndexBInContents		{ Yes		} # add index B to contents
+  # @SectionNumInTheorems	{ No		} # theorem num has section num
+  # @SubSectionNumInTheorems	{ No		} # theorem num has subsect num
+  # @SubSubSectionNumInTheorems	{ No		} # theorem num has sub-ss. num
+  # @AppendixNumInTheorems	{ No		} # theorem num has appendix num
+  # @SubAppendixNumInTheorems	{ No		} # theorem num has sub-app num
+  # @SubSubAppendixNumInTheorems{ No		} # theorem num has sub-sa. num
+  # @SectionNumInDisplays	{ Yes		} # display num has section num
+  # @SubSectionNumInDisplays	{ No		} # display num has subsect num
+  # @SubSubSectionNumInDisplays	{ No		} # display num has sub-ss. num
+  # @AppendixNumInDisplays	{ Yes		} # display num has appendix num
+  # @SubAppendixNumInDisplays	{ No		} # display num has sub-app num
+  # @SubSubAppendixNumInDisplays{ No		} # display num has sub-sa. num
+  # @SectionNumInFigures	{ No		} # figure num has section num
+  # @SubSectionNumInFigures	{ No		} # figure num has subsect num
+  # @SubSubSectionNumInFigures	{ No		} # figure num has sub-ss. num
+  # @AppendixNumInFigures	{ No		} # figure num has appendix num
+  # @SubAppendixNumInFigures	{ No		} # figure num has sub-app num
+  # @SubSubAppendixNumInFigures	{ No		} # figure num has sub-sa. num
+  # @SectionNumInTables		{ No		} # table num has section num
+  # @SubSectionNumInTables	{ No		} # table num has subsect num
+  # @SubSubSectionNumInTables	{ No		} # table num has sub-ss. num
+  # @AppendixNumInTables	{ No		} # table num has appendix num
+  # @SubAppendixNumInTables	{ No		} # table num has sub-app num
+  # @SubSubAppendixNumInTables	{ No		} # table num has sub-sa. num
+  # @SectionNumInRunners 	{ Yes		} # runners have section num
+  # @SubSectionNumInRunners 	{ No		} # runners have subsect num
+  # @SubSubSectionNumInRunners 	{ No		} # runners have sub-ss. num
+  # @AppendixNumInRunners 	{ Yes		} # runners have appendix num
+  # @SubAppendixNumInRunners 	{ No		} # runners have sub-app num
+  # @SubSubAppendixNumInRunners { No		} # runners have sub-sa. num
+  # @FigureContentsPrefix	{		} # for structured page nums
+  # @TableContentsPrefix	{		} # for structured page nums
+  # @SectionPrefix		{		} # for structured page nums
+  # @AppendixPrefix		{		} # for structured page nums
+  # @ReferencesPrefix		{		} # for structured page nums
+  # @IndexPrefix		{		} # for structured page nums
+  # @IndexAPrefix		{		} # for structured page nums
+  # @IndexBPrefix		{		} # for structured page nums
+}
+
+
+###############################################################################
+#                                                                             #
+#  @Database (and @SysDatabase) clauses go here.                              #
+#                                                                             #
+###############################################################################
+
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
diff --git a/include/reportf b/include/reportf
new file mode 100644
index 0000000..f1a62a9
--- /dev/null
+++ b/include/reportf
@@ -0,0 +1,895 @@
+
+###########################################################################
+#                                                                         #
+#  @ReportSetup extension to @DocumentSetup.                              #
+#                                                                         #
+#  Jeffrey H. Kingston                                                    #
+#  August 1994                                                            #
+#                                                                         #
+#  This package extends DocumentSetup with definitions for reports.       #
+#                                                                         #
+###########################################################################
+
+extend @BasicSetup @DocumentSetup
+export @Report @Section @Appendix
+def @ReportSetup
+    named @CoverSheet			{ Yes			}
+    named @ContentsSeparate		{ No			}
+    named @DateLine			{ No			}
+    named @AbstractDisplay		{ Yes			}
+    named @AbstractTitle		{ dft			}
+    named @ReferencesBeforeAppendices	{ No			}
+
+    named @AbstractWord			{ abstract		}
+    named @ContentsWord			{ contents		}
+    named @AppendixWord			{ appendix		}
+    named @IndexWord			{ index			}
+    named @IndexAWord			{ index			}
+    named @IndexBWord			{ index			}
+
+    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 @AbstractHeadingFont		{ Bold			}
+    named @AbstractHeadingBreak		{ ragged 1.2fx nohyphen }
+    named @AbstractHeadingFormat
+	    right title			{ title			}
+
+    named @ContentsHeadingFont		{ Bold			}
+    named @ContentsHeadingBreak		{ ragged 1.2fx nohyphen }
+    named @ContentsHeadingFormat
+	    right title			{ 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			}
+    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 @ReferencesHeadingFont	{ Bold			}
+    named @ReferencesHeadingBreak	{ ragged 1.2fx nohyphen	}
+    named @ReferencesHeadingFormat
+	    right title			{ title			}
+
+    named @IndexHeadingFont		{ Bold			}
+    named @IndexHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexHeadingFormat
+	    right title			{ title			}
+
+    named @IndexAHeadingFont		{ Bold			}
+    named @IndexAHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexAHeadingFormat
+	    right title			{ title			}
+
+    named @IndexBHeadingFont		{ Bold			}
+    named @IndexBHeadingBreak		{ ragged 1.2fx nohyphen	}
+    named @IndexBHeadingFormat
+	    right title			{ title			}
+
+    named @SectionGap			{ 2.0v  @OrIfPlain 3f	}
+    named @SubSectionGap		{ 1.5v  @OrIfPlain 2f	}
+    named @SubSubSectionGap		{ 1.5v  @OrIfPlain 2f	}
+    named @AppendixGap			{ 2.0v  @OrIfPlain 3f	}
+    named @SubAppendixGap		{ 1.5v  @OrIfPlain 2f	}
+    named @SubSubAppendixGap		{ 1.5v  @OrIfPlain 2f	}
+
+    named @SectionInContents		{ Yes			}
+    named @SubSectionInContents		{ Yes			}
+    named @SubSubSectionInContents	{ No			}
+    named @AppendixInContents		{ Yes			}
+    named @SubAppendixInContents	{ Yes			}
+    named @SubSubAppendixInContents	{ No			}
+    named @ReferencesInContents		{ Yes			}
+    named @IndexInContents		{ Yes			}
+    named @IndexAInContents		{ Yes			}
+    named @IndexBInContents		{ Yes			}
+
+    named @SectionNumInTheorems		{ No			}
+    named @SubSectionNumInTheorems	{ No			}
+    named @SubSubSectionNumInTheorems	{ No			}
+    named @AppendixNumInTheorems	{ No			}
+    named @SubAppendixNumInTheorems	{ No			}
+    named @SubSubAppendixNumInTheorems	{ No			}
+
+    named @SectionNumInDisplays		{ Yes			}
+    named @SubSectionNumInDisplays	{ No			}
+    named @SubSubSectionNumInDisplays	{ No			}
+    named @AppendixNumInDisplays	{ Yes			}
+    named @SubAppendixNumInDisplays	{ No			}
+    named @SubSubAppendixNumInDisplays	{ No			}
+
+    named @SectionNumInFigures		{ No			}
+    named @SubSectionNumInFigures	{ No			}
+    named @SubSubSectionNumInFigures	{ No			}
+    named @AppendixNumInFigures		{ No			}
+    named @SubAppendixNumInFigures	{ No			}
+    named @SubSubAppendixNumInFigures	{ No			}
+
+    named @SectionNumInTables		{ No			}
+    named @SubSectionNumInTables	{ No			}
+    named @SubSubSectionNumInTables	{ No			}
+    named @AppendixNumInTables		{ No			}
+    named @SubAppendixNumInTables	{ No			}
+    named @SubSubAppendixNumInTables	{ No			}
+
+    named @SectionNumInRunners		{ Yes			}
+    named @SubSectionNumInRunners	{ No			}
+    named @SubSubSectionNumInRunners	{ No			}
+    named @AppendixNumInRunners		{ Yes			}
+    named @SubAppendixNumInRunners	{ No			}
+    named @SubSubAppendixNumInRunners	{ No			}
+
+    named @FigureContentsPrefix		{			}
+    named @TableContentsPrefix		{			}
+    named @SectionPrefix		{			}
+    named @AppendixPrefix		{			}
+    named @ReferencesPrefix		{			}
+    named @IndexPrefix			{			}
+    named @IndexAPrefix			{			}
+    named @IndexBPrefix			{			}
+@Begin
+
+    #######################################################################
+    #                                                                     #
+    #  Lists of sections, subsections, etc.                               #
+    #                                                                     #
+    #######################################################################
+
+    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
+        //@AppendixGap	@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
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  @Full - this sends text to a full-width place.                     #
+    #                                                                     #
+    #######################################################################
+
+    def @Full force into { @FullPlace&&following } right x
+    {
+        x
+    }
+
+    def @NoForceFull into { @FullPlace&&following } right x
+    {
+        x
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  @Report                                                            #
+    #                                                                     #
+    #######################################################################
+
+    def @Report
+        named @Title {}
+        named @Author {}
+        named @Institution {}
+        named @DateLine { @DateLine }
+        named @CoverSheet { @CoverSheet }
+        named @ContentsSeparate { @ContentsSeparate }
+        named @AtEnd { dft }
+        named @InitialFont { @InitialFont }
+        named @InitialBreak { @InitialBreak }
+        named @InitialSpace { @InitialSpace }
+        named @InitialLanguage { @InitialLanguage }
+	named @PageOrientation { @PageOrientation }
+        named @PageHeaders { @PageHeaders }
+        named @ColumnNumber { @ColumnNumber }
+        named @FirstPageNumber { @FirstPageNumber }
+	named @OptimizePages { @OptimizePages }
+	named @AbstractDisplay { @AbstractDisplay }
+	named @AbstractTitle { @AbstractTitle }
+	named @Abstract {}
+    {
+
+	def @Cntr right x
+	{
+	    x @Case {
+		""	@Yield @Null
+		else	@Yield { |0.5rt x | }
+	    }
+	}
+
+	def @DateValue right indent
+	{
+	    @DateLine @Case {
+		No	@Yield {}
+		Yes	@Yield @Date
+		else	@Yield @DateLine
+	    }
+	}
+
+	def @TitleMaterial
+	{
+	    //1i    @B {clines 1.4vx} @Break @Cntr @Title
+	    //1.00v @I clines @Break { |0.5rt @Author | }
+	    //1.00v clines @Break @Cntr @Institution
+	    //1.00v clines @Break @Cntr @DateValue
+	}
+
+	def @AbstractPart
+	{
+	    def @Title
+	    {
+		@AbstractHeadingFont @Font @AbstractHeadingBreak @Break
+		@AbstractHeadingFormat {
+		    @AbstractTitle @Dft { abstract @WordVal @AbstractWord }
+		}
+	    }
+
+	    @Abstract @Case {
+
+		"" @Yield @Null
+
+		else @Yield @AbstractDisplay @Case {
+		    
+		    No @Yield { @Title @DP @Abstract }
+
+		    Yes @Yield { |0.5rt @Title |
+				 @DP
+				 |@DisplayIndent @Abstract |@DisplayIndent
+				}
+		}
+	    }
+	}
+
+	def @ContentsPart
+	{
+	    //	|0.5rt @ContentsHeadingFont @Font @ContentsHeadingBreak @Break
+		       @ContentsHeadingFormat { contents @WordVal @ContentsWord } |
+	    //@DisplayGap  @ContentsSection
+	    //  NonStart @Runner @MajorTitle {contents @WordVal @ContentsWord}
+	}
+
+	def @ReferencesPart
+	    named @Tag {}
+	{
+
+           @LargeScaleStructure
+                tag { @Tag }
+                type { Major }
+                initiallanguage { @InitialLanguage }
+                title { @RefHeading @RefListTitle }
+		sendheader { @Body }
+                headingfont { @ReferencesHeadingFont }
+                headingbreak { @ReferencesHeadingBreak }
+                headingformat { @ReferencesHeadingFormat @Body }
+                incontents { @ReferencesInContents }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { @RefHeading @RefListTitle }
+                prefix { @ReferencesPrefix }
+                inrunners { Yes }
+                { //@RefListGap @ReferencesSection }
+	}
+
+        def @IndexPart
+	    named @Tag {}
+        {
+
+            def @Run
+            {
+                NonStart @Runner
+                    @MajorNum {}
+                    @MajorTitle { index @WordVal @IndexWord }
+                    @MinorNum {}
+                    @MinorTitle {}
+                    @Owner { @Tag }
+                    @Prefix { @IndexPrefix }
+            }
+
+            @LargeScaleStructure
+                tag { @Tag }
+                type { Major }
+                initiallanguage { @InitialLanguage }
+                title { index @WordVal @IndexWord }
+                headingfont { @IndexHeadingFont }
+                headingbreak { @IndexHeadingBreak }
+                headingformat { @IndexHeadingFormat @Body }
+                incontents { @IndexInContents }
+                prefix { @IndexPrefix }
+                inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexWord }
+                sendheader { @Full @Body }
+                innergap { @SectionGap }
+		wantindefinite { Yes }
+                @IndexSection @Run
+
+        }
+
+        def @IndexAPart
+	    named @Tag {}
+        {
+            def @Run
+            {
+                NonStart @Runner
+                    @MajorNum {}
+                    @MajorTitle { index @WordVal @IndexAWord }
+                    @MinorNum {}
+                    @MinorTitle {}
+                    @Owner { @Tag }
+                    @Prefix { @IndexAPrefix }
+            }
+
+            @LargeScaleStructure
+                tag { @Tag }
+                type { Major }
+                initiallanguage { @InitialLanguage }
+                title { index @WordVal @IndexAWord }
+                headingfont { @IndexAHeadingFont }
+                headingbreak { @IndexAHeadingBreak }
+                headingformat { @IndexAHeadingFormat @Body }
+                incontents { @IndexAInContents }
+                prefix { @IndexAPrefix }
+                inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexAWord }
+                sendheader { @Full @Body }
+                innergap { @SectionGap }
+		wantindefinite { Yes }
+                @IndexASection @Run
+
+        }
+
+        def @IndexBPart
+	    named @Tag {}
+        {
+            def @Run
+            {
+                NonStart @Runner
+                    @MajorNum {}
+                    @MajorTitle { index @WordVal @IndexBWord }
+                    @MinorNum {}
+                    @MinorTitle {}
+                    @Owner { @Tag }
+                    @Prefix { @IndexBPrefix }
+            }
+
+            @LargeScaleStructure
+                tag { @Tag }
+                type { Major }
+                initiallanguage { @InitialLanguage }
+                title { index @WordVal @IndexBWord }
+                headingfont { @IndexBHeadingFont }
+                headingbreak { @IndexBHeadingBreak }
+                headingformat { @IndexBHeadingFormat @Body }
+                incontents { @IndexBInContents }
+                prefix { @IndexBPrefix }
+                inrunners { Yes }
+		majornum {}
+		majortitle {}
+		minornum {}
+		minortitle { index @WordVal @IndexBWord }
+                sendheader { @Full @Body }
+                innergap { @SectionGap }
+		wantindefinite { Yes }
+                @IndexBSection @Run
+
+        }
+
+	def @ContentsGap
+	{
+	    @ContentsSeparate @Case {
+		No  @Yield @SectionGap
+		Yes @Yield 2b
+	    }
+	}
+
+        def @ReportBodyWithoutCoverSheet force into { @ColPlace&&following }
+	    named @Optimize { @OptimizePages }
+        {
+
+	      			Start @Runner
+	    //			@AbstractDisplay @NoDo @AbstractPart
+	    //@ContentsGap	@ContentsPart
+	    //@ContentsGap	@SectionList @FirstSectionNumber
+	    //@SectionGap	@ReferencesBeforeAppendices @Do {
+				    @MakeReferences @Do @ReferencesPart
+				}
+            //@AppendixGap	@AppendixList @FirstAppendixNumber
+	    //@SectionGap	@EndFigureList
+	    //@SectionGap	@EndNoteList 1
+	    //@SectionGap	@ReferencesBeforeAppendices @NoDo {
+				    @MakeReferences @Do @ReferencesPart
+				}
+	    //			@MakeIndexA @Do @IndexAPart
+	    //			@MakeIndexB @Do @IndexBPart
+	    //			@MakeIndex  @Do @IndexPart
+        }
+
+        def @ReportCoverSheet into { @IntroColPlace&&preceding }
+	    named @Optimize { @OptimizePages }
+        {
+	    //                  Start @Runner
+	    //			@TitleMaterial
+	    //@DisplayGap	@DP @AbstractPart
+	}
+
+        def @ReportBodyWithCoverSheet force into { @ColPlace&&preceding }
+	    named @Optimize { @OptimizePages }
+        {
+
+	      	 		Start @Runner
+	    //@SectionGap	@ContentsPart
+	    //@SectionGap	@SectionList @FirstSectionNumber
+	    //@SectionGap	@ReferencesBeforeAppendices @Do {
+				    @MakeReferences @Do @ReferencesPart
+				}
+            //@AppendixGap	@AppendixList @FirstAppendixNumber
+	    //@SectionGap	@ReferencesBeforeAppendices @NoDo {
+				    @MakeReferences @Do @ReferencesPart
+				}
+	    //@SectionGap	@EndFigureList
+	    //@SectionGap	@EndNoteList 1
+	    //			@MakeIndexA @Do @IndexAPart
+	    //			@MakeIndexB @Do @IndexBPart
+	    //			@MakeIndex  @Do @IndexPart
+        }
+
+        @InitialFont @Font @InitialBreak @Break @InitialLanguage @Language
+	@InitialSpace @Space { @ColourCommand @InitialColour } @SetColour
+        {
+	    @CoverSheet @Case {
+
+		No @Yield {
+		        @FootNoteThrough @Do @BeginFootNoteCounter
+		    //	Yes @BeginAllCounters {}
+		    //	Yes @BeginDisplayCounter {}
+		    //	Yes @BeginFigureCounter {}
+		    //	Yes @BeginTableCounter {}
+		    //  @AbstractDisplay @Do { @NoForceFull @AbstractPart }
+		    //  @ReportBodyWithoutCoverSheet
+		    //  @PageList
+			    @ColumnNumber { @ColumnNumber }
+			    @PageHeaders { @PageHeaders }
+			    @Orient { @PageOrientation }
+			    # extra { Yes }
+			    @AtTop { @TitleMaterial }
+			    @FirstPageNumber
+		    //	NonStart @Runner
+		    //  @AtEnd @Case {
+			    dft @Yield @Null
+			    else @Yield
+				 @EvenPage @Orient { @PageOrientation } @AtEnd
+			}
+		}
+
+		Yes @Yield {
+		        @FootNoteThrough @Do @BeginFootNoteCounter
+		    //	Yes @BeginAllCounters {}
+		    //	Yes @BeginDisplayCounter {}
+		    //	Yes @BeginFigureCounter {}
+		    //	Yes @BeginTableCounter {}
+		    //  @SimpleOddOrEvenIntroPageList
+			    @ColumnNumber { 1 }
+			    @PageHeaders { Simple }
+			    @Orient { @PageOrientation }
+			    1
+		    //	@ReportCoverSheet
+		    //	@PageList
+			    @ColumnNumber { @ColumnNumber }
+			    @PageHeaders { @PageHeaders }
+			    @Orient { @PageOrientation }
+			    # extra { Yes }
+			    @AtTop { @TitleMaterial }
+			    @FirstPageNumber
+		    //	@ReportBodyWithCoverSheet
+		    //	NonStart @Runner
+		    //  @AtEnd @Case {
+			    dft @Yield @Null
+			    else @Yield
+				 @EvenPage @Orient { @PageOrientation } @AtEnd
+			}
+		}
+	    }
+        }
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  Sections.                                                          #
+    #                                                                     #
+    #######################################################################
+
+    export @BeginSubSections @EndSubSections @SubSection
+    def @Section force into { @SectionList&&preceding }
+	named @Tag {}
+	named @Title {}
+	named @RunningTitle { dft }
+	named @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 {
+		    @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 { 6f }
+		    numbers { @SubSubSectionNumbers }
+		    attachnum { @SubSubSectionList&&preceding @Tagged @Tag }
+		    retrievenum { @SubSubSectionList&&@Tag @Open { num } }
+		    bypassnumber { @BypassNumber }
+		    prefix { @SubSectionShortNum }
+		    majornum {}
+		    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 { 3f }
+		numbers { @SubSectionNumbers }
+		attachnum { @SubSectionList&&preceding @Tagged @Tag }
+		retrievenum { @SubSectionList&&@Tag @Open { num } }
+		bypassnumber { @BypassNumber }
+		prefix { @SectionShortNum }
+		majornum {}
+		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 { 0f }
+	    numbers { @SectionNumbers }
+	    attachnum { @SectionList&&preceding @Tagged @Tag }
+	    retrievenum { @SectionList&&@Tag @Open { num } }
+	    bypassnumber { @BypassNumber }
+	    prefix { @SectionPrefix }
+	    majornum {}
+	    majortitle {}
+	    intheorems { @SectionNumInTheorems }
+	    indisplays { @SectionNumInDisplays }
+	    infigures { @SectionNumInFigures }
+	    intables { @SectionNumInTables }
+	    inrunners { @SectionNumInRunners }
+	    @Body
+
+    }
+
+
+    #######################################################################
+    #                                                                     #
+    #  Appendices.                                                        #
+    #                                                                     #
+    #######################################################################
+
+    export @BeginSubAppendices @EndSubAppendices @SubAppendix
+    def @Appendix force into { @AppendixList&&preceding }
+        named @Tag {}
+        named @Title {}
+        named @RunningTitle { dft }
+	named @InitialLanguage {}
+	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 @AppendixLongNum
+        {
+            @AppendixNumbers @Then {
+		@InitialLanguage @Language {
+		    appendix @WordVal @AppendixWord  @AppendixShortNum
+		}
+	    }
+        }
+
+        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 {}
+		    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 {}
+		majortitle {}
+		intheorems { @SubAppendixNumInTheorems }
+		indisplays { @SubAppendixNumInDisplays }
+		infigures { @SubAppendixNumInFigures }
+		intables { @SubAppendixNumInTables }
+		inrunners { @SubAppendixNumInRunners }
+		@Body
+
+        }
+
+	@LargeScaleStructure
+	    tag { @Tag }
+	    type { Minor }
+	    initiallanguage { @InitialLanguage }
+	    title { @Title }
+	    runningtitle { @RunningTitle }
+	    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 }
+	    prefix { @AppendixPrefix }
+	    majornum {}
+	    majortitle {}
+	    intheorems { @AppendixNumInTheorems }
+	    indisplays { @AppendixNumInDisplays }
+	    infigures { @AppendixNumInFigures }
+	    intables { @AppendixNumInTables }
+	    inrunners { Yes }
+	    @Body
+    }
+
+@End @ReportSetup
diff --git a/include/russian b/include/russian
new file mode 100644
index 0000000..d0f5a53
--- /dev/null
+++ b/include/russian
@@ -0,0 +1,10 @@
+#################################################################
+#                                                               #
+#  russian                                                      #
+#                                                               #
+#  This file includes everything you need for Russian.          #
+#                                                               #
+#################################################################
+
+# Commented out because these fonts are not distributed with Lout.
+# @SysInclude { russian.fd }
diff --git a/include/russian.fd b/include/russian.fd
new file mode 100644
index 0000000..f145530
--- /dev/null
+++ b/include/russian.fd
@@ -0,0 +1,38 @@
+##################################################################################################################
+#                                                                                                                #
+#  Russian font definitions.  Use a very wide window to see them clearly.                                        #
+#                                                                                                                #
+#       Lout font       Lout font         PostScript         PostScript font metrics    Lout character  Recode/  #
+#       family name     face name         font name          (formerly .AFM) file name  mapping file   NoRecode  #
+#                                                                                                                #
+##################################################################################################################
+
+fontdef Academy		Base		{ Academy			Aca		koi8r.LCM	Recode	 }
+fontdef Academy		Slope		{ Academy-Italic		Aca-It		koi8r.LCM	Recode	 }
+fontdef Academy		Bold		{ Academy-Bold			Aca-Bd		koi8r.LCM	Recode	 }
+fontdef Academy		BoldSlope	{ Academy-Italic		Aca-It		koi8r.LCM	Recode	 }
+fontdef Academy		Italic		{ Academy-Italic		Aca-It		koi8r.LCM	Recode	 }
+														 
+fontdef Antiqua		Base		{ Antiqua			Ant		koi8r.LCM	Recode	 }
+fontdef Antiqua		Slope		{ Antiqua-Italic		Ant-It		koi8r.LCM	Recode	 }
+fontdef Antiqua		Bold		{ Antiqua-Bold			Ant-Bd		koi8r.LCM	Recode	 }
+fontdef Antiqua		BoldSlope	{ Antiqua-Italic		Ant-It		koi8r.LCM	Recode	 }
+fontdef Antiqua		Italic		{ Antiqua-Italic		Ant-It		koi8r.LCM	Recode	 }
+														 
+fontdef College		Base		{ College			Col		koi8r.LCM	Recode	 }
+fontdef College		Slope		{ College-Italic		Col-It		koi8r.LCM	Recode	 }
+fontdef College		Bold		{ College-Bold			Col-Bd		koi8r.LCM	Recode	 }
+fontdef College		BoldSlope	{ College-Italic		Col-It		koi8r.LCM	Recode	 }
+fontdef College		Italic		{ College-Italic		Col-It		koi8r.LCM	Recode	 }
+														 
+fontdef Magazine	Base		{ Magazine			Mag		koi8r.LCM	Recode	 }
+fontdef Magazine	Slope		{ Magazine-Italic		Mag-It		koi8r.LCM	Recode	 }
+fontdef Magazine	Bold		{ Magazine-Bold			Mag-Bd		koi8r.LCM	Recode	 }
+fontdef Magazine	BoldSlope	{ Magazine-Italic		Mag-It		koi8r.LCM	Recode	 }
+fontdef Magazine	Italic		{ Magazine-Italic		Mag-It		koi8r.LCM	Recode	 }
+														 
+fontdef Textbook	Base		{ Textbook			Txt		koi8r.LCM	Recode	 }
+fontdef Textbook	Slope		{ Textbook-Italic		Txt-It		koi8r.LCM	Recode	 }
+fontdef Textbook	Bold		{ Textbook-Bold			Txt-Bd		koi8r.LCM	Recode	 }
+fontdef Textbook	BoldSlope	{ Textbook-Italic		Txt-It		koi8r.LCM	Recode	 }
+fontdef Textbook	Italic		{ Textbook-Italic		Txt-It		koi8r.LCM	Recode	 }
diff --git a/include/slides b/include/slides
new file mode 100644
index 0000000..7833f60
--- /dev/null
+++ b/include/slides
@@ -0,0 +1,299 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for overhead transparencies                               #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  @SysInclude commands for standard packages.                                #
+#                                                                             #
+###############################################################################
+
+  @SysInclude { fontdefs	} # font definitions
+  @SysInclude { langdefs	} # language definitions
+  @SysInclude { bsf		} # BasicSetup package
+  @SysInclude { dsf		} # DocumentSetup package
+  @SysInclude { slidesf		} # OverheadSetup extension
+
+
+###############################################################################
+#                                                                             #
+#  @Include command for reading personal definitions from current directory.  #
+#                                                                             #
+###############################################################################
+
+  @Include { mydefs }
+
+
+###############################################################################
+#                                                                             #
+#  The @BasicSetup @Use clause - basics, lists, paragraphs, displays.         #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+ 
+@Use { @BasicSetup
+  # @InitialFont	{ Times Base 12p	} # initial font
+    @InitialFont	{ Times Base 20p	} # initial font
+  # @InitialBreak	{{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
+    @InitialBreak	{ ragged 1.20fx nohyphen} # initial break
+  # @InitialSpace	{ lout			} # initial space style
+  # @InitialLanguage	{ English		} # initial language
+  # @InitialColour	{ black			} # initial colour
+  # @OptimizePages	{ No			} # optimize page breaks?
+  # @HeadingFont	{ Bold			} # font for @Heading
+  # @ParaGap		{ 1.3vx @OrIfPlain 1f	} # gap between paragraphs
+  # @ParaIndent		{ 2.00f	@OrIfPlain 5s	} # first-line indent for @PP
+  # @DisplayGap		{ 1.00v	@OrIfPlain 1f	} # gap above, below displays
+  # @DisplayIndent	{ 2.00f	@OrIfPlain 5s	} # @IndentedDisplay indent
+  # @DefaultIndent	{ 0.5rt			} # @Display indent
+  # @DisplayNumStyle	{ (num)			} # style of display numbers
+  # @WideIndent		{ 4.00f	@OrIfPlain 10s	} # @WideTaggedList indent
+  # @VeryWideIndent	{ 8.00f	@OrIfPlain 20s	} # @VeryWideTaggedList indent
+  # @ListOuterGap	{ 1.00v	@OrIfPlain 1f	} # gap before, after lists
+  # @ListGap		{ 1.00v	@OrIfPlain 1f	} # gap between list items
+  # @ListIndent		{ 0s			} # indent of list items
+  # @ListRightIndent	{ 0s			} # right indent of list items
+  # @ListLabelWidth	{ 2.00f	@OrIfPlain 5s	} # width allowed for list tags
+  # @NumberSeparator	{ .			} # separates nums like 2.3.7
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @DocumentSetup @Use clause - page layout plus figures, tables, etc.    #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+ 
+@Use { @DocumentSetup
+  # @PageType		{ A4	@OrIfPlain Other} # page type (width, height)
+  # @PageWidth		{ 80s			} # page width if type Other
+  # @PageHeight		{ 66f			} # page height if type Other
+  # @PageOrientation	{ Portrait		} # Portrait, Landscape, etc.
+  # @PageBackground	{  			} # background of each page
+  # @TopMargin		{ 2.5c	@OrIfPlain 6f	} # top margin of all pages
+  # @FootMargin		{ 2.5c	@OrIfPlain 6f	} # bottom margin of all pages
+    @FootMargin		{ 5.00c			} # bottom margin of all pages
+  # @OddLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of odd pages
+  # @OddRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of odd pages
+  # @EvenLeftMargin	{ 2.5c	@OrIfPlain 10s	} # left margin of even pages
+  # @EvenRightMargin	{ 2.5c	@OrIfPlain 10s	} # right margin of even pages
+  # @PageBoxType	{ None			} # None Box CurveBox ShadowBox
+  # @PageBoxMargin	{ 1.00c			} # page box margin
+  # @PageBoxLineWidth	{			} # page box line thickness
+  # @PageBoxPaint	{ none			} # page box paint
+  # @PageBoxShadow	{ 0.60c			} # shadow margin if ShadowBox
+  # @ColumnNumber	{ 1			} # number of columns (1 to 10)
+  # @ColumnGap		{ 1.00c	@OrIfPlain 6s	} # column gap
+  # @FigureLocation	{ PageTop		} # default figure location
+  # @TableLocation	{ PageTop		} # default table location
+  # @FigureFormat	{ @CC @Body		} # default figure format
+  # @TableFormat	{ @CC @Body		} # default table format
+  # @FigureWord		{ figure		} # "Figure" word else anything
+  # @TableWord		{ table			} # "Table" word else anything
+  # @FigureNumbers	{ Arabic		} # method of numbering figures
+  # @TableNumbers	{ Arabic		} # method of numbering tables
+  # @FigureCaptionPos	{ Below 		} # Above or Below
+  # @TableCaptionPos	{ Below			} # Above or Below
+  # @CaptionFont        {                       } # figure, table caption font
+  # @CaptionBreak       {                       } # figure, table caption break
+  # @CaptionFormat      { @B { number @DotSep @OneCol }	} # figure, table caption format
+  # @MakeFigureContents { No                    } # list of figures at start
+  # @MakeTableContents  { No                    } # list of tables at start
+  # @MakeContents	{ No			} # make contents? Yes or No
+  # @ContentsGap	{ 0.20v	@OrIfPlain 0f	} # extra gap above minor entry
+    @ContentsGapAbove	{ 0.00v	@OrIfPlain 1f	} # extra gap above major entry
+  # @ContentsGapBelow	{ 0.00v	@OrIfPlain 0f	} # extra gap below major entry
+    @ContentsFont       { Base                  } # font for major entry
+  # @ContentsPartGapAbove { 1.00v @OrIfPlain 1f	} # extra gap above `part' entry
+  # @ContentsPartGapBelow { 0.00v @OrIfPlain 0f	} # extra gap below `part' entry
+  # @ContentsFormat	{ number @DotSep title	} # contents entry format
+  # @ContentsLeader	{ ..			} # leader symbol in contents
+  # @ContentsLeaderGap	{ 4s	@OrIfPlain 2s	} # gap between leaders
+  # @ContentsRightWidth	{ 3f	@OrIfPlain 6s	} # page numbers column width
+  # @MakeReferences	{ Yes			} # make references? Yes or No
+  # @RefCiteStyle	{ [cite]		} # citation style
+  # @RefCiteLabels	{ @RefNum		} # citation items
+  # @RefNumbers		{ Arabic		} # reference numbers
+  # @RefListFormat	{ Labels		} # NoLabels, Labels, etc.
+  # @RefListLabels	{ [@RefNum]		} # ref list label format
+  # @RefListTitle	{ references		} # title of reference list
+  # @ChapRefListTitle	{ references		} # title of chapter ref list
+  # @RefListIndent	{ 0s			} # indent to left of labels
+  # @RefListRightIndent	{ 0s			} # indent to right of items
+  # @RefListGap		{ @ListGap		} # gap between ref list items
+  # @RefListFont	{        		} # font used in reference list
+  # @RefListBreak	{        		} # break style of ref list
+  # @RefListLabelWidth 	{ @ListLabelWidth	} # Labels column width
+  # @RefListSortKey	{ @Tag			} # sorting key
+  # @MakeIndex		{ No			} # make index? Yes or No
+  # @IndexFont		{			} # index entries font
+  # @IndexBreak		{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexColumnNumber	{ 2			} # index columns (1 to 10)
+  # @IndexColumnGap	{ 1.00c	@OrIfPlain 6s	} # index column gap
+  # @MakeIndexA		{ No 			} # make index A? Yes or No
+  # @IndexAFont		{			} # index A entries font
+  # @IndexABreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexAColumnNumber	{ 2			} # index A columns (1 to 10)
+  # @IndexAColumnGap	{ 1.00c	@OrIfPlain 6s	} # index A column gap
+  # @MakeIndexB		{ No 			} # make index B? Yes or No
+  # @IndexBFont		{			} # index B entries font
+  # @IndexBBreak	{ {oragged 1.2fx} @OrIfPlain {oragged 1fx} } # and break
+  # @IndexBColumnNumber	{ 2			} # index B columns (1 to 10)
+  # @IndexBColumnGap	{ 1.00c	@OrIfPlain 6s	} # index B column gap
+  # @TopGap		{ 0.75c	@OrIfPlain 2f	} # gap between figures
+  # @MidGap		{ 0.75c	@OrIfPlain 2f	} # gap above/below body text
+  # @FootNoteNumbers	{ Arabic		} # footnote numbers
+  # @FootNoteThrough	{ No			} # numbered through chapter?
+  # @FootNoteLocation	{ ColFoot		} # where the footnote appears
+  # @FootNoteFont	{ 0.80f			} # font for footnotes
+  # @FootNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for footnotes
+  # @FootNoteFormat     { { number &0.05f } @Insert body } # footnote format
+  # @FootLen		{ 2.00c	@OrIfPlain 10s	} # length of footnote line
+  # @FootAboveGap	{ @DisplayGap		} # gap above footnote line
+  # @FootGap		{ 0.20c	@OrIfPlain 1fx	} # gap between footnotes
+  # @MarginNoteFont	{ 0.80f			} # font of margin notes
+  # @MarginNoteBreak	{ ragged 1.10fx		} # break style of margin notes
+  # @MarginNoteHGap	{ 0.5c   		} # horizontal gap to notes
+  # @MarginNoteVGap	{ @DisplayGap		} # min vertical gap between
+  # @MarginNoteWidth	{ 1.50c  		} # width of margin notes
+  # @EndNoteNumbers	{ Arabic		} # endnote numbers
+  # @EndNoteFont	{ 0.80f			} # font of endnotes
+  # @EndNoteBreak	{ 1.2fx	@OrIfPlain 1fx	} # break for endnotes
+  # @EndNoteFormat	{ { number &0.05f } @Insert body } # endnote format
+  # @EndNoteGap		{ 0.20c	@OrIfPlain 1f	} # gap between endnotes
+  # @TheoremWord	{ theorem		} # "Theorem" word, etc.
+  # @TheoremTitleFormat	{ (title)		} # only if title present
+  # @TheoremFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @DefinitionWord	{ definition		} # "Definition" word, etc.
+  # @DefinitionTitleFormat { (title)		} # only if title present
+  # @DefinitionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ClaimWord		{ claim			} # "Claim" word, etc.
+  # @ClaimTitleFormat	{ (title)		} # only if title present
+  # @ClaimFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @PropositionWord	{ proposition		} # "Proposition" word, etc.
+  # @PropositionTitleFormat { (title)		} # only if title present
+  # @PropositionFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @LemmaWord		{ lemma			} # "Lemma" word, etc.
+  # @LemmaTitleFormat	{ (title)		} # only if title present
+  # @LemmaFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @CorollaryWord	{ corollary		} # "Corollary" word, etc.
+  # @CorollaryTitleFormat { (title)		} # only if title present
+  # @CorollaryFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ExampleWord	{ example		} # "Example" word, etc.
+  # @ExampleTitleFormat	{ (title)		} # only if title present
+  # @ExampleFormat	{ {@B { word @NumSep number title: } &2s} @Insert body }
+  # @ProofWord		{ proof			} # "Proof" word, etc.
+  # @PageHeaders	{ Simple		} # None Simple Titles NoTitles
+    @PageHeaders	{ Titles		} # None Simple Titles NoTitles
+  # @PageNumbers	{ Arabic		} # page numbers
+  # @FirstPageNumber	{ 1			} # number of first page 
+  # @IntroPageNumbers	{ Roman			} # intro page numbers
+  # @IntroFirstPageNumber{ 1			} # number of first intro page 
+  # @StructPageNums	{ No			} # make structured page numbers
+
+  # @OddTop		{ @Centre{- @PageNum -}	} # Simple page headers
+  # @OddFoot		{ @Null			}
+  # @EvenTop		{ @Centre{- @PageNum -}	}
+  # @EvenFoot		{ @Null			}
+  # @StartOddTop	{ @Null			}
+  # @StartOddFoot	{ @Null			}
+  # @StartEvenTop	{ @Null			}
+  # @StartEvenFoot	{ @Null			}
+  # @IntroOddTop	{ @Null			}
+  # @IntroOddFoot	{ @Centre @PageNum	}
+  # @IntroEvenTop	{ @Null			}
+  # @IntroEvenFoot	{ @Centre @PageNum	}
+  # @IntroStartOddTop	{ @Null			}
+  # @IntroStartOddFoot	{ @Null			}
+  # @IntroStartEvenTop	{ @Null			}
+  # @IntroStartEvenFoot	{ @Null			}
+
+						  # Titles, NoTitles headers
+  # @RunningOddTop  { @I {@MinorNum @DotSep @MinorTitle} @Right @B @PageNum }
+    @RunningOddTop  { 8p @Font {@MajorTitle @MinorNum @Right @PageNum} }
+  # @RunningOddFoot		{ @Null					}
+    @RunningOddFoot		{ @Null					}
+  # @RunningEvenTop { @B @PageNum @Right @I {@MajorNum @DotSep @MajorTitle} }
+    @RunningEvenTop { 8p @Font {@MajorTitle @MinorNum @Right @PageNum} }
+  # @RunningEvenFoot		{ @Null					}
+    @RunningEvenFoot		{ @Null					}
+  # @RunningStartOddTop 	{ @Null					}
+    @RunningStartOddTop 	{ 8p @Font { @MajorTitle @MinorNum @Right @PageNum } }
+  # @RunningStartOddFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+    @RunningStartOddFoot	{ @Null					}
+  # @RunningStartEvenTop	{ @Null					}
+    @RunningStartEvenTop	{ 8p @Font { @MajorTitle @MinorNum @Right @PageNum } }
+  # @RunningStartEvenFoot	{ @Centre { Bold 0.8f } @Font @PageNum	}
+    @RunningStartEvenFoot	{ @Null					}
+  # @RunningIntroOddTop		{ @Null					}
+  # @RunningIntroOddFoot	{ @Right @PageNum			}
+  # @RunningIntroEvenTop	{ @Null					}
+  # @RunningIntroEvenFoot	{ @PageNum				}
+  # @RunningIntroStartOddTop	{ @Null					}
+  # @RunningIntroStartOddFoot	{ @Null					}
+  # @RunningIntroStartEvenTop	{ @Null					}
+  # @RunningIntroStartEvenFoot	{ @Null					}
+}
+
+
+###############################################################################
+#                                                                             #
+#  The @OverheadSetup @Use clause - options specific to overheads.            #
+#                                                                             #
+###############################################################################
+
+@Use { @OverheadSetup
+  # @DateLine			{ No		} # No, Yes, or a date
+  # @ContentsWord		{ contents	} # word for "Contents"
+  # @LectureWord		{ lecture       } # word for "Lecture"
+  # @OverheadWord               {               } # word for "Overhead"
+  # @LectureNumbers		{ Arabic	} # kind of lecture numbers
+  # @FirstLectureNumber		{ 1		} # first lecture num
+  # @OverheadNumbers		{ Arabic	} # kind of overhead numbers
+  # @FirstOverheadNumber	{ 1		} # first overhead num
+  # @TitlePageFont		{ Helvetica Base 1.5f 	} # title page font
+  # @LectureHeadingFont		{ Bold 1.20f		} # lecture head font
+  # @LectureHeadingBreak	{ clines 1.2fx nohyphen	} # lecture head break
+  # @LectureHeadingFormat	{ @Centre number @DP @Centre title @DP }
+  # @AboveLectureGap		{ 3.0f			} # gap above lec head
+  # @OverheadHeadingFont	{ Bold			} # overhead head font
+  # @OverheadHeadingBreak	{ 1.2fx nohyphen	} # overhead head break
+  # @OverheadHeadingFormat	{ @Centre title @DP	} # overhead head format
+  # @OverheadFormat		{ @Body			} # overhead body format
+  # @AboveOverheadGap		{ 1.0f			} # gap above over head
+  # @LectureInContents		{ Yes		} # add lectures to contents
+  # @OverheadInContents		{ No		} # add overheads to contents
+  # @ReferencesInContents	{ Yes		} # add references to contents
+  # @LectureNumInTheorems	{ Yes		} # theorem num has lecture num
+  # @OverheadNumInTheorems	{ No		} # theorem num has overhead num
+  # @LectureNumInDisplays	{ Yes		} # display num has lecture num
+  # @OverheadNumInDisplays	{ No		} # display num has overhead num
+  # @LectureNumInFigures	{ Yes		} # figure num has lecture num
+  # @OverheadNumInFigures	{ No		} # figure num has overhead num
+  # @LectureNumInTables		{ Yes		} # table num has lecture num
+  # @OverheadNumInTables	{ No		} # table num has overhead num
+  # @LectureNumInRunners	{ Yes		} # running head has lecture num
+  # @OverheadNumInRunners	{ Yes		} # running head has overhd num
+  # @LecturePrefix		{		} # for structured page nums
+  # @OverheadPrefix		{		} # for structured page nums
+}
+
+
+###############################################################################
+#                                                                             #
+#  @Database (and @SysDatabase) clauses go here.                              #
+#                                                                             #
+###############################################################################
+
+@SysDatabase @RefStyle { refstyle }		  # reference printing styles
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
diff --git a/include/tab b/include/tab
new file mode 100644
index 0000000..02311d4
--- /dev/null
+++ b/include/tab
@@ -0,0 +1,29 @@
+###############################################################################
+#                                                                             #
+#   Lout setup file for table printing                                        #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+#   This package is OBSOLETE; use tbl instead.                                #
+#                                                                             #
+###############################################################################
+
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { tabf } line                                              #
+#                                                                             #
+#  This line causes Lout to read the definitions for tables, and should       #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+
+@SysInclude { tabf }
+
+
+###############################################################################
+#                                                                             #
+#  This package does not offer default options that can be changed.           #
+#                                                                             #
+###############################################################################
diff --git a/include/tabf b/include/tabf
new file mode 100644
index 0000000..bc1e0c8
--- /dev/null
+++ b/include/tabf
@@ -0,0 +1,936 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Tab package for formatting tables (Version 2.0)                      #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, September 1991.                        #
+#  Version 2.0 by Jeffrey H. Kingston, 22 December 1992.                      #
+#  Version 3.0 by Jeffrey H. Kingston, 13 September 1993.                     #
+#                                                                             #
+#  The only change between Versions 2 and 3 is to make the linewidth          #
+#  option accept a Lout length rather than a Fig length.  See the User's      #
+#  Guide for user information.                                                #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { "tabf.lpg" }
+
+export	@CC @RR @Rule @DoubleRule @Line @DoubleLine @NP
+	@Rowa @Rowb @Rowc @Rowd @Rowe @Rowf @Rowg @Rowh @Rowi @Rowj
+	@MarkRowa @MarkRowb @MarkRowc @MarkRowd @MarkRowe @MarkRowf 
+	@MarkRowg @MarkRowh @MarkRowi @MarkRowj 
+	@FirstRowa @FirstRowb @FirstRowc @FirstRowd @FirstRowe @FirstRowf 
+	@FirstRowg @FirstRowh @FirstRowi @FirstRowj 
+
+def @Tab                 
+
+    named above     { no      }
+    named below     { no      }
+    named between   { no      }
+    named side      { no      }
+    named hmargin   { 0.3c    }
+    named vmargin	{
+    	@BackEnd @Case {
+    		PostScript @Yield 0.2v
+    		PDF @Yield 0.2v		# VT: PDF case added
+    		PlainText @Yield 0.5v
+    	}
+    }
+
+    named linewidth
+		named c left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" cm" }
+		    	PDF        @Yield { "__mul(__cm, "x")" }
+		    }
+		}
+		named i left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" in" }
+		    	PDF        @Yield { "__mul(__in, "x")" }
+		    }
+		}
+		named e left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" em" }
+		    	PDF        @Yield { "__mul(__em, "x")" }
+		    }
+		}
+		named p left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" pt" }
+		    	PDF        @Yield { "__mul(__pt, "x")" }
+		    }
+		}
+		named f left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" ft" }
+		    	PDF        @Yield { "__mul(__loutf, "x")" }
+		    }
+		}
+		named s left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" sp" }
+		    	PDF        @Yield { "__mul(__louts, "x")" }
+		    }
+		}
+		named v left x {
+		    @BackEnd @Case {
+		    	PostScript @Yield { x" vs" }
+		    	PDF        @Yield { "__mul(__loutv, "x")" }
+		    }
+		}
+		    { 0.5p    }
+
+    named @Fmta
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtb
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtc
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtd
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmte
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtf
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtg
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmth
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmti
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    named @Fmtj
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named "!"     precedence 10 left x named between { dft } right y {}
+	named "!!"    precedence 10 left x right y {}
+	named "!!!"   precedence 10 left x right y {}
+	named "@Over" precedence 11 left x right y { x // y }
+	named ","     precedence 12 left x right y {}
+	named @Col    precedence 12        right x {}
+	named @CC     right x { clines @Break { & x & } }
+	named @RR     right x { rlines @Break { & x & } }
+    {}
+
+    body @Body
+
+@Begin
+
+    macro @NP { /1.1b }
+
+    def @CC right x { clines @Break { & x & } }
+    def @RR right x { rlines @Break { & x & } }
+#
+#	VT: these definitions have been modified for PDF support
+#
+    def @HSingle	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhs   }
+	  PDF        @Yield { "0 0 m __xsize 0 l" linewidth "w 0 J S" }
+    	}
+    }
+
+    def @HSingleProject	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhsp  }
+	  PDF        @Yield { "0 0 m __xsize 0 l" linewidth "w 2 J S" }
+    	}
+    }
+
+    def @HDouble	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhd   }
+	  PDF        @Yield {		#   dup dup
+	  	"0 0 m __xsize 0 l"	#   0 0 moveto xsize 0 lineto
+	  	"0 __mul(3, " linewidth ") m __xsize __mul(3, " linewidth ") l"	#  0 exch 3 mul moveto xsize exch 3 mul lineto
+	  	linewidth "w 0 J S"	#   setlinewidth 0 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @HDoubleBelow	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhdb  }
+	  PDF        @Yield {		#   dup dup
+		"0 0 m __xsize 0 l"	#   0 0 moveto xsize 0 lineto
+		"0 __mul(-3, "linewidth") m __xsize __mul(-3, "linewidth") l"	#  0 exch -3 mul moveto xsize exch -3 mul lineto
+		linewidth "w 0 J S"	#   setlinewidth 0 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @HDoubleNW	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhdnw  }
+	  PDF        @Yield {		#   dup dup dup dup
+		"0 0 m __xsize 0 l"	#   0 0 moveto xsize 0 lineto
+		"__xsize __mul(3, "linewidth") m"	#	xsize exch 3 mul moveto
+		"__mul(-3, "linewidth") __mul(3, "linewidth") l"	#	-3 mul exch 3 mul lineto
+		"__mul(-3, "linewidth") 0 l"	#	-3 mul 0 lineto
+		linewidth "w 0 j 2 J S"	#   setlinewidth 0 setlinejoin 2 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @HDoubleNE	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhdne  }
+	  PDF        @Yield {		#   dup dup dup dup
+		"0 0 m __xsize 0 l"	#   0 0 moveto xsize 0 lineto
+		"0 __mul(3, "linewidth") m"	#	0 exch 3 mul moveto
+		"__add(__xsize, __mul(3, "linewidth")) __mul(3, "linewidth") l"	#	3 mul xsize add exch 3 mul lineto
+		"__add(__xsize, __mul(3, "linewidth")) 0 l"	#	3 mul xsize add 0 lineto
+		linewidth "w 0 j 2 J S"	#   setlinewidth 0 setlinejoin 2 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @HDoubleSW	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhdsw  }
+	  PDF        @Yield {		#   dup dup dup dup
+		"0 0 m __xsize 0 l"	#	0 0 moveto xsize 0 lineto
+		"__xsize __mul(-3, "linewidth") m"	#	xsize exch -3 mul moveto
+		"__mul(-3, "linewidth") __mul(-3, "linewidth") l"	#	-3 mul exch -3 mul lineto
+		"__mul(-3, "linewidth") 0 l"	#	-3 mul 0 lineto
+		linewidth "w 0 j 2 J S"	#   setlinewidth 0 setlinejoin 2 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @HDoubleSE	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabhdse  }
+	  PDF        @Yield {		#   dup dup dup dup
+		"0 0 m __xsize 0 l"	#	0 0 moveto xsize 0 lineto
+		"0 __mul(-3, "linewidth") m"	#	0 exch -3 mul moveto
+		"__add(__xsize, __mul(-3, "linewidth")) __mul(-3, "linewidth") l"	#	3 mul xsize add exch -3 mul lineto
+		"__add(__xsize, __mul( 3, "linewidth")) 0 l"	#	3 mul xsize add 0 lineto
+		linewidth "w 0 j 2 J S"	#   setlinewidth 0 setlinejoin 2 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @VSingle	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabvs  }
+	  PDF        @Yield {
+		"0 0 m 0 __ysize l"	#	0 0 moveto 0 ysize lineto
+		linewidth "w 0 J S"	#	setlinewidth 0 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @VDouble	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabvd  }
+	  PDF        @Yield {	#	dup dup
+		"0 0 m 0 __ysize l"	#	0 0 moveto 0 ysize lineto
+		"__mul(-3, "linewidth") 0 m __mul(-3, "linewidth") __ysize l"	#	-3 mul 0 moveto -3 mul ysize lineto
+		linewidth "w 0 J S"	#	setlinewidth 0 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @VDoubleRight	{
+	@BackEnd @Case {
+	  PostScript @Yield { linewidth ltabvdr  }
+	  PDF        @Yield {	#	dup dup
+		"0 0 m 0 __ysize l"	#	0 0 moveto 0 ysize lineto
+		"__mul(3, "linewidth") 0 m __mul(3, "linewidth") __ysize l"		#	3 mul 0 moveto 3 mul ysize lineto
+		linewidth "w 0 J S"	#	setlinewidth 0 setlinecap stroke
+	  }
+    	}
+    }
+
+    def @MidHRule
+	left rule
+	right x
+    {
+	rule @Case
+	{
+	    no				@Yield { @OneCol x }
+	    { yes single }		@Yield { @HSingle @Graphic x }
+	    { double doubleboxabove }	@Yield { @HDouble @Graphic x }
+	    doubleboxbelow		@Yield { @HDoubleBelow @Graphic x }
+	}
+    }
+
+    def @LeftHRule
+	left rule
+	right x
+    {
+	rule @Case
+	{
+	    no			@Yield { @OneCol x }
+	    { yes single }	@Yield { @HSingleProject @Graphic x }
+	    double		@Yield { @HDouble @Graphic x }
+	    doubleboxabove	@Yield { @HDoubleNW @Graphic x }
+	    doubleboxbelow	@Yield { @HDoubleSW @Graphic x }
+	}
+    }
+
+    def @RightHRule
+	left rule
+	right x
+    {
+	rule @Case
+	{
+	    no			@Yield { @OneCol x }
+	    { yes single }	@Yield { @HSingleProject @Graphic x }
+	    double		@Yield { @HDouble @Graphic x }
+	    doubleboxabove	@Yield { @HDoubleNE @Graphic x }
+	    doubleboxbelow	@Yield { @HDoubleSE @Graphic x }
+	}
+    }
+
+    def @HSRule
+	left rule
+    {
+	rule @Case
+	{
+	    no		   @Yield {}
+	    { yes single } @Yield { @HSingle @Graphic {} }
+	    double	   @Yield { @HDouble @Graphic {} }
+	    doubleboxabove @Yield { @HDouble @Graphic {} }
+	    doubleboxbelow @Yield { @HDoubleBelow @Graphic {} }
+	}
+    }
+
+    def @ZeroWidth
+	right x
+    { @OneCol { |0io x |0io }
+    }
+
+    def @Line
+    { single @HSRule
+    }
+
+    def @DoubleLine
+    { double @HSRule
+    }
+
+    def @Rule
+    {
+	@OneRow
+	{
+	    @ZeroWidth @HSingle @Graphic { ^|hmargin }
+	    / @Line /
+	    &1rt @ZeroWidth @HSingle @Graphic { |hmargin }
+	}
+    }
+
+    def @DoubleRule
+    {
+	@OneRow
+	{
+	    @ZeroWidth @HDouble @Graphic { ^|hmargin }
+	    / @DoubleLine /
+	    &1rt @ZeroWidth @HDouble @Graphic { |hmargin }
+	}
+    }
+
+    def @VRule
+	left rule
+	right x
+    {
+	rule @Case
+	{
+	    no		   @Yield {}
+	    { yes single } @Yield @OneRow { /0io @VSingle @Graphic x /0io }
+	    double	   @Yield @OneRow { /0io @VDouble @Graphic x /0io }
+	}
+    }
+
+    def @VRuleRight
+	left rule
+	right x
+    {
+	rule @Case
+	{
+	    no		 @Yield {}
+	    {yes single} @Yield @OneRow { /0io @VSingle @Graphic x /0io }
+	    double	 @Yield @OneRow { /0io @VDoubleRight @Graphic x /0io }
+	}
+    }
+
+    def @VSRule
+	left rule
+    {
+	rule @Case
+	{
+	    no		   @Yield {}
+	    { yes single } @Yield { @VSingle @Graphic {} }
+	    double	   @Yield { @VDouble @Graphic {} }
+	}
+    }
+
+    def @VSRuleRight
+	left rule
+    {
+	rule @Case
+	{
+	    no		 @Yield {}
+	    {yes single} @Yield { @VSingle @Graphic {} }
+	    double	 @Yield { @VDoubleRight @Graphic {} }
+	}
+    }
+
+    def @Wrap
+	named ur { no }			# Rule up above entry
+	named dr { no }			# Rule down below entry
+	named vm { vmargin }		# Vertical margin
+	right x				# The object to be wrapped
+    {
+	      ur @HSRule
+	^/vm  @OneCol @OneRow x
+	 /vm  dr @HSRule
+    }
+
+    def @Sep
+	left x
+	named ur { no }			# Rule up above entry
+	named dr { no }			# Rule down below entry
+	named sr { no }			# Rule separating x from y
+	named hm { hmargin }		# Horizontal margin
+	named vm { vmargin }		# Vertical margin
+	right y
+    {
+	def vr
+	{
+	    sr @Case
+	    {	dft	@Yield between 
+		else	@Yield sr
+	    }
+	}
+
+	x | @OneCol
+	{      ur @MidHRule {|hm}
+	  /vm
+	  /vm  dr @MidHRule {|hm}
+	}
+	| @OneCol
+	{      vr @VRule { /vm }  |  ur @MidHRule {|hm}
+	  /vm  vr @VSRule         |
+	  /vm  vr @VRule {^/vm }  |  dr @MidHRule {|hm}
+	}
+	| y
+    }
+
+    def @NSep
+	left x
+	named hm { hmargin }
+	right y
+    {
+	x | @OneCol { |hm } | @OneCol { |hm } | y
+    }
+
+    def @LeftEdge
+	named ur { no }			# Rule up above entry
+	named dr { no }			# Rule down below entry
+	named sr { no }			# Rule separating x from y
+	named hm { hmargin }		# Horizontal margin
+	named vm { vmargin }		# Vertical margin
+	right x
+    {
+	sr @Case
+	{
+	    no @Yield { x }
+	    else @Yield
+	    { @OneCol
+	      {
+		      sr @VRule { /vm }	 |  ur @LeftHRule { |hm }
+	         ^/vm sr @VSRule	 |
+		  /vm sr @VRule { ^/vm } |  dr @LeftHRule { |hm }
+	      }
+	      | x
+	    }
+	}
+    }
+
+    def @RightEdge
+	left x
+	named ur { no }			# Rule up above entry
+	named dr { no }			# Rule down below entry
+	named sr { no }			# Rule separating x from y
+	named hm { hmargin }		# Horizontal margin
+	named vm { vmargin }		# Vertical margin
+    {
+	sr @Case
+	{
+	    no @Yield { x }
+	    else @Yield
+	    {
+	      x | @OneCol
+	      {
+		    ur @RightHRule { |hm }
+		/vm
+		/vm dr @RightHRule { |hm }
+	      }
+	      | @OneCol
+	      {
+		     sr @VRuleRight { /vm }
+		/vm  sr @VSRuleRight
+		/vm  sr @VRuleRight { ^/vm }
+	      }
+	    }
+	}
+    }
+
+    def @DoRowa
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmta
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowb
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtb
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowc
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtc
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowd
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtd
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowe
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmte
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowf
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtf
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowg
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtg
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowh
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmth
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowi
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmti
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    def @DoRowj
+	named A {} named B {} named C {} named D {} named E {}
+	named F {} named G {} named H {} named I {} named J {}
+	named K {} named L {} named M {} named N {} named O {}
+	named P {} named Q {} named R {} named S {} named T {}
+	named U {} named V {} named W {} named X {} named Y {}
+	named Z {}
+	named above	{ above   }
+	named below	{ below   }
+	named side 	{ side    }
+	named vmargin   { vmargin }
+    {
+	@LeftEdge ur { above } dr { below } sr { side } vm { vmargin }
+	@Fmtj
+	  A { A }  B { B }  C { C }  D { D }  E { E }
+	  F { F }  G { G }  H { H }  I { I }  J { J }
+	  K { K }  L { L }  M { M }  N { N }  O { O }
+	  P { P }  Q { Q }  R { R }  S { S }  T { T }
+	  U { U }  V { V }  W { W }  X { X }  Y { Y }
+	  Z { Z }
+	  @Col { @Wrap ur {above} dr {below} vm {vmargin} x}
+	  !    { x @Sep ur {above} dr {below} sr { between } vm {vmargin} y}
+	  !!   { x @Sep ur {above} dr {below} sr { single  } vm {vmargin} y}
+	  !!!  { x @Sep ur {above} dr {below} sr { double  } vm {vmargin} y}
+	  ,    { x @NSep y }
+	@RightEdge ur { above } dr { below } sr { side } vm { vmargin }
+    }
+
+    macro @Rowa { / @DoRowa }
+    macro @Rowb { / @DoRowb }
+    macro @Rowc { / @DoRowc }
+    macro @Rowd { / @DoRowd }
+    macro @Rowe { / @DoRowe }
+    macro @Rowf { / @DoRowf }
+    macro @Rowg { / @DoRowg }
+    macro @Rowh { / @DoRowh }
+    macro @Rowi { / @DoRowi }
+    macro @Rowj { / @DoRowj }
+
+    macro @FirstRowa { @DoRowa }
+    macro @FirstRowb { @DoRowb }
+    macro @FirstRowc { @DoRowc }
+    macro @FirstRowd { @DoRowd }
+    macro @FirstRowe { @DoRowe }
+    macro @FirstRowf { @DoRowf }
+    macro @FirstRowg { @DoRowg }
+    macro @FirstRowh { @DoRowh }
+    macro @FirstRowi { @DoRowi }
+    macro @FirstRowj { @DoRowj }
+
+    macro @MarkRowa { ^/ @DoRowa }
+    macro @MarkRowb { ^/ @DoRowb }
+    macro @MarkRowc { ^/ @DoRowc }
+    macro @MarkRowd { ^/ @DoRowd }
+    macro @MarkRowe { ^/ @DoRowe }
+    macro @MarkRowf { ^/ @DoRowf }
+    macro @MarkRowg { ^/ @DoRowg }
+    macro @MarkRowh { ^/ @DoRowh }
+    macro @MarkRowi { ^/ @DoRowi }
+    macro @MarkRowj { ^/ @DoRowj }
+
+
+    @Body
+
+@End @Tab
diff --git a/include/tabf.lpg b/include/tabf.lpg
new file mode 100644
index 0000000..c0dd9a0
--- /dev/null
+++ b/include/tabf.lpg
@@ -0,0 +1,115 @@
+%%BeginResource: procset LoutTabPrependGraphic
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                  %
+%  PostScript @SysPrependGraphic file for @Tab     %
+%                                                  %
+%  To assist in avoiding name clashes, the names   %
+%  of all these symbols begin with "ltab".         %
+%                                                  %
+%  Jeffrey H. Kingston                             %
+%  24 September 1991                               %
+%  22 December 1992                                %
+%                                                  %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% linewidth ltabhs -
+% horizontal single line
+/ltabhs
+{  0 0 moveto xsize 0 lineto
+   setlinewidth 0 setlinecap stroke
+} def
+
+% linewidth ltabhsp -
+% horizontal single line with projecting ends
+/ltabhsp
+{  0 0 moveto xsize 0 lineto
+   setlinewidth 2 setlinecap stroke
+} def
+
+% linewidth ltabhd -
+% horizontal double line
+/ltabhd
+{  dup dup
+   0 0 moveto xsize 0 lineto
+   0 exch 3 mul moveto xsize exch 3 mul lineto
+   setlinewidth 0 setlinecap stroke
+} def
+
+% linewidth ltabhdb -
+% horizontal double line below mark
+/ltabhdb
+{  dup dup
+   0 0 moveto xsize 0 lineto
+   0 exch -3 mul moveto xsize exch -3 mul lineto
+   setlinewidth 0 setlinecap stroke
+} def
+
+% linewidth ltabhdnw -
+% horizontal double line with northwest corner
+/ltabhdnw
+{  dup dup dup dup
+   0 0 moveto xsize 0 lineto
+   xsize exch 3 mul moveto
+   -3 mul exch 3 mul lineto
+   -3 mul 0 lineto
+   setlinewidth 0 setlinejoin 2 setlinecap stroke
+} def
+
+% linewidth ltabhdne -
+% horizontal double line with northeast corner
+/ltabhdne
+{  dup dup dup dup
+   0 0 moveto xsize 0 lineto
+   0 exch 3 mul moveto
+   3 mul xsize add exch 3 mul lineto
+   3 mul xsize add 0 lineto
+   setlinewidth 0 setlinejoin 2 setlinecap stroke
+} def
+
+% linewidth ltabhdsw -
+% horizontal double line with southwest corner
+/ltabhdsw
+{  dup dup dup dup
+   0 0 moveto xsize 0 lineto
+   xsize exch -3 mul moveto
+   -3 mul exch -3 mul lineto
+   -3 mul 0 lineto
+   setlinewidth 0 setlinejoin 2 setlinecap stroke
+} def
+
+% linewidth ltabhdse -
+% horizontal double line with southeast corner
+/ltabhdse
+{  dup dup dup dup
+   0 0 moveto xsize 0 lineto
+   0 exch -3 mul moveto
+   3 mul xsize add exch -3 mul lineto
+   3 mul xsize add 0 lineto
+   setlinewidth 0 setlinejoin 2 setlinecap stroke
+} def
+
+% linewidth ltabvs -
+% vertical single line
+/ltabvs
+{  0 0 moveto 0 ysize lineto
+   setlinewidth 0 setlinecap stroke
+} def
+
+% linewidth ltabvd -
+% vertical double line
+/ltabvd
+{  dup dup
+   0 0 moveto 0 ysize lineto
+   -3 mul 0 moveto -3 mul ysize lineto
+   setlinewidth 0 setlinecap stroke
+} def
+
+% linewidth ltabvdr -
+% vertical double line to right of mark
+/ltabvdr
+{  dup dup
+   0 0 moveto 0 ysize lineto
+   3 mul 0 moveto 3 mul ysize lineto
+   setlinewidth 0 setlinecap stroke
+} def
+%%EndResource
diff --git a/include/tbl b/include/tbl
new file mode 100644
index 0000000..0574bf0
--- /dev/null
+++ b/include/tbl
@@ -0,0 +1,79 @@
+
+###############################################################################
+#                                                                             #
+#   Lout setup file for table printing                                        #
+#                                                                             #
+#   Jeffrey H. Kingston                                                       #
+#   5 February 1999                                                           #
+#                                                                             #
+###############################################################################
+
+###############################################################################
+#                                                                             #
+#  The @SysInclude { tblf } line                                              #
+#                                                                             #
+#  This line causes Lout to read the definitions for diagrams, and should     #
+#  not be touched.                                                            #
+#                                                                             #
+###############################################################################
+ 
+@SysInclude { tblf }
+
+
+###############################################################################
+#                                                                             #
+#  The @TbleSetup @Use clause                                                 #
+#                                                                             #
+#  To change the default value of any option, delete the # at the start of    #
+#  its line and change the value between braces.                              #
+#                                                                             #
+###############################################################################
+
+@Use { @TblSetup
+    # paint                { nopaint            } # colour of background
+    # background           {                    } # object in background
+    # font                 {                    } # font
+    # break                {                    } # paragraph breaking style
+    # width                {                    } # fixed width or "expand"
+    # height               {                    } # fixed height
+    # indent               {                    } # horizontal indent
+    # indentvertical       {                    } # vertical indent
+    # strut                { yes                } # vertical strut
+    # struthorizontal      { no                 } # horizontal strut
+    # margin               {                    } # margin all round
+    # marginhorizontal     { 0.6f @OrIfPlain 2s } # margin left, right of entry
+    # marginleft           {                    } # margin left of entry
+    # marginright          {                    } # margin right of entry
+    # marginvertical       { 0.3f @OrIfPlain 2f } # margin above, below entry
+    # marginabove          {                    } # margin above entry
+    # marginbelow          {                    } # margin below entry
+    # rule                 { no                 } # rule all round cell
+    # rulehorizontal       {                    } # rule above and below cell
+    # ruleabove            {                    } # rule above cell
+    # rulebelow            {                    } # rule below cell
+    # rulevertical         {                    } # rule left and right of cell
+    # ruleleft             {                    } # rule left of cell
+    # ruleright            {                    } # rule right of cell
+    # rulewidth            { 0.05f              } # width (thickness) of rule
+    # rulehorizontalwidth  { {} @OrIfPlain 1f   } # width of above, below rules
+    # ruleabovewidth       {                    } # width of above rule
+    # rulebelowwidth       {                    } # width of below rule
+    # ruleverticalwidth    { {} @OrIfPlain 1s   } # width of left, right rules
+    # ruleleftwidth        {                    } # width of left rule
+    # rulerightwidth       {                    } # width of right rule
+    # rulegap              { 0.15f              } # gap between double rules
+    # rulehorizontalgap    { {} @OrIfPlain 0f   } # gap between dbl a&b rules
+    # ruleabovegap         {                    } # gap between dbl above rules
+    # rulebelowgap         {                    } # gap between dbl below rules
+    # ruleverticalgap      { {} @OrIfPlain 0s   } # gap between dbl l&r rules
+    # ruleleftgap          {                    } # gap between dbl left rules
+    # rulerightgap         {                    } # gap between dbl right rules
+    # rulecolour           { black              } # color of rules
+    # rulehorizontalcolour {                    } # color of above, below rules
+    # ruleabovecolour      {                    } # color of above rules
+    # rulebelowcolour      {                    } # color of below rules
+    # ruleverticalcolour   {                    } # color of left, right rules
+    # ruleleftcolour       {                    } # color of left rules
+    # rulerightcolour      {                    } # color of right rules
+    # ruleplainchar        { .                  } # plain text rule characters
+}
diff --git a/include/tblf b/include/tblf
new file mode 100644
index 0000000..c8f0019
--- /dev/null
+++ b/include/tblf
@@ -0,0 +1,3127 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Tbl package for tables                                               #
+#                                                                             #
+#  Version 1.0 (22 November 1998)                                             #
+#  Jeffrey H. Kingston                                                        #
+#                                                                             #
+#  Based on the @Tab package (Jeffrey H. Kingston, September 1991).           #
+#                                                                             #
+###############################################################################
+
+@SysPrependGraphic { tblf.lpg }
+
+export @OrIfPlain
+def @TOIP {
+
+    def @OrIfPlain
+	left ps
+	right plain
+    {
+	@BackEnd @Case {
+	    PlainText @Yield plain
+	    else      @Yield ps
+	}
+    }
+}
+
+export @Tbl
+def @TblSetup
+    import @TOIP named paint		p	{ nopaint }
+    import @TOIP named background	bg	{}
+    import @TOIP named font		f	{}
+    import @TOIP named break		b	{}
+    import @TOIP named width		w	{}
+    import @TOIP named height		h	{}
+    import @TOIP named indent		i	{}
+    import @TOIP named indentvertical	iv	{}
+    import @TOIP named strut		s	{ yes }
+    import @TOIP named struthorizontal	sh	{ no }
+    import @TOIP named margin		m	{}
+    import @TOIP named marginhorizontal	mh	{ 0.6f @OrIfPlain 2s }
+    import @TOIP named marginleft	ml	{}
+    import @TOIP named marginright	mr	{}
+    import @TOIP named marginvertical	mv	{ 0.3f @OrIfPlain 2f }
+    import @TOIP named marginabove	ma	{}
+    import @TOIP named marginbelow	mb	{}
+    import @TOIP named rule		r	{ no }
+    import @TOIP named rulehorizontal	rh	{}
+    import @TOIP named ruleabove	ra	{}
+    import @TOIP named rulebelow	rb	{}
+    import @TOIP named rulevertical	rv	{}
+    import @TOIP named ruleleft		rl	{}
+    import @TOIP named ruleright	rr	{}
+    import @TOIP named rulewidth	rw	{ 0.05f }
+    import @TOIP named rulehorizontalwidth rhw	{ {} @OrIfPlain 1f }
+    import @TOIP named ruleabovewidth	raw	{}
+    import @TOIP named rulebelowwidth	rbw	{}
+    import @TOIP named ruleverticalwidth rvw	{ {} @OrIfPlain 1s }
+    import @TOIP named ruleleftwidth	rlw	{}
+    import @TOIP named rulerightwidth	rrw	{}
+    import @TOIP named rulegap		rg	{ 0.15f }
+    import @TOIP named rulehorizontalgap rhg	{ {} @OrIfPlain 0f }
+    import @TOIP named ruleabovegap	rag	{}
+    import @TOIP named rulebelowgap	rbg	{}
+    import @TOIP named ruleverticalgap	rvg	{ {} @OrIfPlain 0s }
+    import @TOIP named ruleleftgap	rlg	{}
+    import @TOIP named rulerightgap	rrg	{}
+    import @TOIP named rulecolour rulecolor	rc	{ black }
+    import @TOIP named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+    import @TOIP named ruleabovecolour ruleabovecolor		rac	{}
+    import @TOIP named rulebelowcolour rulebelowcolor		rbc	{}
+    import @TOIP named ruleverticalcolour ruleverticalcolor	rvc	{}
+    import @TOIP named ruleleftcolour ruleleftcolor		rlc	{}
+    import @TOIP named rulerightcolour rulerightcolor		rrc	{}
+    import @TOIP named ruleplainchar	rpc	{ . }
+
+@Begin
+
+    def @Else
+	precedence 20
+	associativity right
+	left x
+	right y
+    {
+	x @Case {
+	    ""   @Yield y
+	    else @Yield x
+	}
+    }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Specific option values as the setup file knows them (i.e. Level 1)     #
+    #                                                                         #
+    ###########################################################################
+
+    def setupp    { p   }
+    def setupbg   { bg  }
+    def setupf    { f   }
+    def setupb    { b   }
+    def setupw    { w   }
+    def setuph    { h   }
+    def setupi    { i   }
+    def setupiv   { iv  }
+    def setups    { s   }
+    def setupsh   { sh  }
+    def setupml   { ml  @Else mh  @Else m  }
+    def setupmr   { mr  @Else mh  @Else m  }
+    def setupma   { ma  @Else mv  @Else m  }
+    def setupmb   { mb  @Else mv  @Else m  }
+    def setupra   { ra  @Else rh  @Else r  }
+    def setuprb   { rb  @Else rh  @Else r  }
+    def setuprl   { rl  @Else rv  @Else r  }
+    def setuprr   { rr  @Else rv  @Else r  }
+    def setupraw  { raw @Else rhw @Else rw }
+    def setuprbw  { rbw @Else rhw @Else rw }
+    def setuprlw  { rlw @Else rvw @Else rw }
+    def setuprrw  { rrw @Else rvw @Else rw }
+    def setuprag  { rag @Else rhg @Else rg }
+    def setuprbg  { rbg @Else rhg @Else rg }
+    def setuprlg  { rlg @Else rvg @Else rg }
+    def setuprrg  { rrg @Else rvg @Else rg }
+    def setuprac  { rac @Else rhc @Else rc }
+    def setuprbc  { rbc @Else rhc @Else rc }
+    def setuprlc  { rlc @Else rvc @Else rc }
+    def setuprrc  { rrc @Else rvc @Else rc }
+    def setuprpc  { rpc }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  @Tbl symbol                                                            #
+    #                                                                         #
+    ###########################################################################
+
+    export
+
+	@Row
+	@Rowa
+	@Rowb
+	@Rowc
+	@Rowd
+	@Rowe
+	@Rowf
+	@Rowg
+	@Rowh
+
+	@FirstRow
+	@FirstRowa
+	@FirstRowb
+	@FirstRowc
+	@FirstRowd
+	@FirstRowe
+	@FirstRowf
+	@FirstRowg
+	@FirstRowh
+
+	@MarkRow
+	@MarkRowa
+	@MarkRowb
+	@MarkRowc
+	@MarkRowd
+	@MarkRowe
+	@MarkRowf
+	@MarkRowg
+	@MarkRowh
+
+	@NoBreakRow
+	@NoBreakRowa
+	@NoBreakRowb
+	@NoBreakRowc
+	@NoBreakRowd
+	@NoBreakRowe
+	@NoBreakRowf
+	@NoBreakRowg
+	@NoBreakRowh
+
+	@NP
+
+    def @Tbl
+
+	# parameters for formatting the entire table
+	named paint			p	{}
+	named background		bg	{}
+	named font			f	{}
+	named break			b	{}
+	named width			w	{}
+	named height			h	{}
+	named indent			i	{}
+	named indentvertical		iv	{}
+	named strut			s	{}
+	named struthorizontal		sh	{}
+	named margin			m	{}
+	named marginhorizontal		mh	{}
+	named marginleft		ml	{}
+	named marginright		mr	{}
+	named marginvertical		mv	{}
+	named marginabove		ma	{}
+	named marginbelow		mb	{}
+	named rule			r	{}
+	named rulehorizontal		rh	{}
+	named ruleabove			ra	{}
+	named rulebelow			rb	{}
+	named rulevertical		rv	{}
+	named ruleleft			rl	{}
+	named ruleright			rr	{}
+	named rulewidth			rw	{}
+	named rulehorizontalwidth	rhw	{}
+	named ruleabovewidth		raw	{}
+	named rulebelowwidth		rbw	{}
+	named ruleverticalwidth		rvw	{}
+	named ruleleftwidth		rlw	{}
+	named rulerightwidth		rrw	{}
+	named rulegap			rg	{}
+	named rulehorizontalgap		rhg	{}
+	named ruleabovegap		rag	{}
+	named rulebelowgap		rbg	{}
+	named ruleverticalgap		rvg	{}
+	named ruleleftgap		rlg	{}
+	named rulerightgap		rrg	{}
+	named rulecolour rulecolor			rc	{}
+	named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	named ruleabovecolour ruleabovecolor		rac	{}
+	named rulebelowcolour rulebelowcolor		rbc	{}
+	named ruleverticalcolour ruleverticalcolor	rvc	{}
+	named ruleleftcolour ruleleftcolor		rlc	{}
+	named rulerightcolour rulerightcolor		rrc	{}
+	named ruleplainchar		rpc	{}
+
+	# parameters for formatting @Rowa rows
+	named apaint			ap	{}
+	named abackground		abg	{}
+	named afont			af	{}
+	named abreak			ab	{}
+	named awidth			aw	{}
+	named aheight			ah	{}
+	named aindent			ai	{}
+	named aindentvertical		aiv	{}
+	named astrut			as	{}
+	named astruthorizontal		ash	{}
+	named amargin			am	{}
+	named amarginhorizontal		amh	{}
+	named amarginleft		aml	{}
+	named amarginright		amr	{}
+	named amarginvertical		amv	{}
+	named amarginabove		ama	{}
+	named amarginbelow		amb	{}
+	named arule			ar	{}
+	named arulehorizontal		arh	{}
+	named aruleabove		ara	{}
+	named arulebelow		arb	{}
+	named arulevertical		arv	{}
+	named aruleleft			arl	{}
+	named aruleright		arr	{}
+	named arulewidth		arw	{}
+	named arulehorizontalwidth	arhw	{}
+	named aruleabovewidth		araw	{}
+	named arulebelowwidth		arbw	{}
+	named aruleverticalwidth	arvw	{}
+	named aruleleftwidth		arlw	{}
+	named arulerightwidth		arrw	{} 
+	named arulegap			arg	{}
+	named arulehorizontalgap	arhg	{}
+	named aruleabovegap		arag	{}
+	named arulebelowgap		arbg	{}
+	named aruleverticalgap		arvg	{}
+	named aruleleftgap		arlg	{}
+	named arulerightgap		arrg	{}
+	named arulecolour arulecolor			arc	{}
+	named arulehorizontalcolour arulehorizontalcolor arhc	{}
+	named aruleabovecolour aruleabovecolor		arac	{}
+	named arulebelowcolour arulebelowcolor		arbc	{}
+	named aruleverticalcolour aruleverticalcolor	arvc	{}
+	named aruleleftcolour aruleleftcolor		arlc	{}
+	named arulerightcolour arulerightcolor		arrc	{}
+	named aruleplainchar		arpc	{}
+	named aformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowb rows
+	named bpaint			bp	{}
+	named bbackground		bbg	{}
+	named bfont			bf	{}
+	named bbreak			bb	{}
+	named bwidth			bw	{}
+	named bheight			bh	{}
+	named bindent			bi	{}
+	named bindentvertical		biv	{}
+	named bstrut			bs	{}
+	named bstruthorizontal		bsh	{}
+	named bmargin			bm	{}
+	named bmarginhorizontal		bmh	{}
+	named bmarginleft		bml	{}
+	named bmarginright		bmr	{}
+	named bmarginvertical		bmv	{}
+	named bmarginabove		bma	{}
+	named bmarginbelow		bmb	{}
+	named brule			br	{}
+	named brulehorizontal		brh	{}
+	named bruleabove		bra	{}
+	named brulebelow		brb	{}
+	named brulevertical		brv	{}
+	named bruleleft			brl	{}
+	named bruleright		brr	{}
+	named brulewidth		brw	{}
+	named brulehorizontalwidth	brhw	{}
+	named bruleabovewidth		braw	{}
+	named brulebelowwidth		brbw	{}
+	named bruleverticalwidth	brvw	{}
+	named bruleleftwidth		brlw	{}
+	named brulerightwidth		brrw	{} 
+	named brulegap			brg	{}
+	named brulehorizontalgap	brhg	{}
+	named bruleabovegap		brag	{}
+	named brulebelowgap		brbg	{}
+	named bruleverticalgap		brvg	{}
+	named bruleleftgap		brlg	{}
+	named brulerightgap		brrg	{}
+	named brulecolour brulecolor			brc	{}
+	named brulehorizontalcolour brulehorizontalcolor brhc	{}
+	named bruleabovecolour bruleabovecolor		brac	{}
+	named brulebelowcolour brulebelowcolor		brbc	{}
+	named bruleverticalcolour bruleverticalcolor	brvc	{}
+	named bruleleftcolour bruleleftcolor		brlc	{}
+	named brulerightcolour brulerightcolor		brrc	{}
+	named bruleplainchar		brpc	{}
+	named bformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowc rows
+	named cpaint			cp	{}
+	named cbackground		cbg	{}
+	named cfont			cf	{}
+	named cbreak			cb	{}
+	named cwidth			cw	{}
+	named cheight			ch	{}
+	named cindent			ci	{}
+	named cindentvertical		civ	{}
+	named cstrut			cs	{}
+	named cstruthorizontal		csh	{}
+	named cmargin			cm	{}
+	named cmarginhorizontal		cmh	{}
+	named cmarginleft		cml	{}
+	named cmarginright		cmr	{}
+	named cmarginvertical		cmv	{}
+	named cmarginabove		cma	{}
+	named cmarginbelow		cmb	{}
+	named crule			cr	{}
+	named crulehorizontal		crh	{}
+	named cruleabove		cra	{}
+	named crulebelow		crb	{}
+	named crulevertical		crv	{}
+	named cruleleft			crl	{}
+	named cruleright		crr	{}
+	named crulewidth		crw	{}
+	named crulehorizontalwidth	crhw	{}
+	named cruleabovewidth		craw	{}
+	named crulebelowwidth		crbw	{}
+	named cruleverticalwidth	crvw	{}
+	named cruleleftwidth		crlw	{}
+	named crulerightwidth		crrw	{} 
+	named crulegap			crg	{}
+	named crulehorizontalgap	crhg	{}
+	named cruleabovegap		crag	{}
+	named crulebelowgap		crbg	{}
+	named cruleverticalgap		crvg	{}
+	named cruleleftgap		crlg	{}
+	named crulerightgap		crrg	{}
+	named crulecolour crulecolor			crc	{}
+	named crulehorizontalcolour crulehorizontalcolor crhc	{}
+	named cruleabovecolour cruleabovecolor		crac	{}
+	named crulebelowcolour crulebelowcolor		crbc	{}
+	named cruleverticalcolour cruleverticalcolor	crvc	{}
+	named cruleleftcolour cruleleftcolor		crlc	{}
+	named crulerightcolour crulerightcolor		crrc	{}
+	named cruleplainchar		crpc	{}
+	named cformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowd rows
+	named dpaint			dp	{}
+	named dbackground		dbg	{}
+	named dfont			df	{}
+	named dbreak			db	{}
+	named dwidth			dw	{}
+	named dheight			dh	{}
+	named dindent			di	{}
+	named dindentvertical		div	{}
+	named dstrut			ds	{}
+	named dstruthorizontal		dsh	{}
+	named dmargin			dm	{}
+	named dmarginhorizontal		dmh	{}
+	named dmarginleft		dml	{}
+	named dmarginright		dmr	{}
+	named dmarginvertical		dmv	{}
+	named dmarginabove		dma	{}
+	named dmarginbelow		dmb	{}
+	named drule			dr	{}
+	named drulehorizontal		drh	{}
+	named druleabove		dra	{}
+	named drulebelow		drb	{}
+	named drulevertical		drv	{}
+	named druleleft			drl	{}
+	named druleright		drr	{}
+	named drulewidth		drw	{}
+	named drulehorizontalwidth	drhw	{}
+	named druleabovewidth		draw	{}
+	named drulebelowwidth		drbw	{}
+	named druleverticalwidth	drvw	{}
+	named druleleftwidth		drlw	{}
+	named drulerightwidth		drrw	{} 
+	named drulegap			drg	{}
+	named drulehorizontalgap	drhg	{}
+	named druleabovegap		drag	{}
+	named drulebelowgap		drbg	{}
+	named druleverticalgap		drvg	{}
+	named druleleftgap		drlg	{}
+	named drulerightgap		drrg	{}
+	named drulecolour drulecolor			drc	{}
+	named drulehorizontalcolour drulehorizontalcolor drhc	{}
+	named druleabovecolour druleabovecolor		drac	{}
+	named drulebelowcolour drulebelowcolor		drbc	{}
+	named druleverticalcolour druleverticalcolor	drvc	{}
+	named druleleftcolour druleleftcolor		drlc	{}
+	named drulerightcolour drulerightcolor		drrc	{}
+	named druleplainchar		drpc	{}
+	named dformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowe rows
+	named epaint			ep	{}
+	named ebackground		ebg	{}
+	named efont			ef	{}
+	named ebreak			eb	{}
+	named ewidth			ew	{}
+	named eheight			eh	{}
+	named eindent			ei	{}
+	named eindentvertical		eiv	{}
+	named estrut			es	{}
+	named estruthorizontal		esh	{}
+	named emargin			em	{}
+	named emarginhorizontal		emh	{}
+	named emarginleft		eml	{}
+	named emarginright		emr	{}
+	named emarginvertical		emv	{}
+	named emarginabove		ema	{}
+	named emarginbelow		emb	{}
+	named erule			er	{}
+	named erulehorizontal		erh	{}
+	named eruleabove		era	{}
+	named erulebelow		erb	{}
+	named erulevertical		erv	{}
+	named eruleleft			erl	{}
+	named eruleright		err	{}
+	named erulewidth		erw	{}
+	named erulehorizontalwidth	erhw	{}
+	named eruleabovewidth		eraw	{}
+	named erulebelowwidth		erbw	{}
+	named eruleverticalwidth	ervw	{}
+	named eruleleftwidth		erlw	{}
+	named erulerightwidth		errw	{} 
+	named erulegap			erg	{}
+	named erulehorizontalgap	erhg	{}
+	named eruleabovegap		erag	{}
+	named erulebelowgap		erbg	{}
+	named eruleverticalgap		ervg	{}
+	named eruleleftgap		erlg	{}
+	named erulerightgap		errg	{}
+	named erulecolour erulecolor			erc	{}
+	named erulehorizontalcolour erulehorizontalcolor erhc	{}
+	named eruleabovecolour eruleabovecolor		erac	{}
+	named erulebelowcolour erulebelowcolor		erbc	{}
+	named eruleverticalcolour eruleverticalcolor	ervc	{}
+	named eruleleftcolour eruleleftcolor		erlc	{}
+	named erulerightcolour erulerightcolor		errc	{}
+	named eruleplainchar		erpc	{}
+	named eformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowf rows
+	named fpaint			fp	{}
+	named fbackground		fbg	{}
+	named ffont			ff	{}
+	named fbreak			fb	{}
+	named fwidth			fw	{}
+	named fheight			fh	{}
+	named findent			fi	{}
+	named findentvertical		fiv	{}
+	named fstrut			fs	{}
+	named fstruthorizontal		fsh	{}
+	named fmargin			fm	{}
+	named fmarginhorizontal		fmh	{}
+	named fmarginleft		fml	{}
+	named fmarginright		fmr	{}
+	named fmarginvertical		fmv	{}
+	named fmarginabove		fma	{}
+	named fmarginbelow		fmb	{}
+	named frule			fr	{}
+	named frulehorizontal		frh	{}
+	named fruleabove		fra	{}
+	named frulebelow		frb	{}
+	named frulevertical		frv	{}
+	named fruleleft			frl	{}
+	named fruleright		frr	{}
+	named frulewidth		frw	{}
+	named frulehorizontalwidth	frhw	{}
+	named fruleabovewidth		fraw	{}
+	named frulebelowwidth		frbw	{}
+	named fruleverticalwidth	frvw	{}
+	named fruleleftwidth		frlw	{}
+	named frulerightwidth		frrw	{} 
+	named frulegap			frg	{}
+	named frulehorizontalgap	frhg	{}
+	named fruleabovegap		frag	{}
+	named frulebelowgap		frbg	{}
+	named fruleverticalgap		frvg	{}
+	named fruleleftgap		frlg	{}
+	named frulerightgap		frrg	{}
+	named frulecolour frulecolor			frc	{}
+	named frulehorizontalcolour frulehorizontalcolor frhc	{}
+	named fruleabovecolour fruleabovecolor		frac	{}
+	named frulebelowcolour frulebelowcolor		frbc	{}
+	named fruleverticalcolour fruleverticalcolor	frvc	{}
+	named fruleleftcolour fruleleftcolor		frlc	{}
+	named frulerightcolour frulerightcolor		frrc	{}
+	named fruleplainchar		frpc	{}
+	named fformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowg rows
+	named gpaint			gp	{}
+	named gbackground		gbg	{}
+	named gfont			gf	{}
+	named gbreak			gb	{}
+	named gwidth			gw	{}
+	named gheight			gh	{}
+	named gindent			gi	{}
+	named gindentvertical		giv	{}
+	named gstrut			gs	{}
+	named gstruthorizontal		gsh	{}
+	named gmargin			gm	{}
+	named gmarginhorizontal		gmh	{}
+	named gmarginleft		gml	{}
+	named gmarginright		gmr	{}
+	named gmarginvertical		gmv	{}
+	named gmarginabove		gma	{}
+	named gmarginbelow		gmb	{}
+	named grule			gr	{}
+	named grulehorizontal		grh	{}
+	named gruleabove		gra	{}
+	named grulebelow		grb	{}
+	named grulevertical		grv	{}
+	named gruleleft			grl	{}
+	named gruleright		grr	{}
+	named grulewidth		grw	{}
+	named grulehorizontalwidth	grhw	{}
+	named gruleabovewidth		graw	{}
+	named grulebelowwidth		grbw	{}
+	named gruleverticalwidth	grvw	{}
+	named gruleleftwidth		grlw	{}
+	named grulerightwidth		grrw	{} 
+	named grulegap			grg	{}
+	named grulehorizontalgap	grhg	{}
+	named gruleabovegap		grag	{}
+	named grulebelowgap		grbg	{}
+	named gruleverticalgap		grvg	{}
+	named gruleleftgap		grlg	{}
+	named grulerightgap		grrg	{}
+	named grulecolour grulecolor			grc	{}
+	named grulehorizontalcolour grulehorizontalcolor grhc	{}
+	named gruleabovecolour gruleabovecolor		grac	{}
+	named grulebelowcolour grulebelowcolor		grbc	{}
+	named gruleverticalcolour gruleverticalcolor	grvc	{}
+	named gruleleftcolour gruleleftcolor		grlc	{}
+	named grulerightcolour grulerightcolor		grrc	{}
+	named gruleplainchar		grpc	{}
+	named gformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	# parameters for formatting @Rowh rows
+	named hpaint			hp	{}
+	named hbackground		hbg	{}
+	named hfont			hf	{}
+	named hbreak			hb	{}
+	named hwidth			hw	{}
+	named hheight			hh	{}
+	named hindent			hi	{}
+	named hindentvertical		hiv	{}
+	named hstrut			hs	{}
+	named hstruthorizontal		hsh	{}
+	named hmargin			hm	{}
+	named hmarginhorizontal		hmh	{}
+	named hmarginleft		hml	{}
+	named hmarginright		hmr	{}
+	named hmarginvertical		hmv	{}
+	named hmarginabove		hma	{}
+	named hmarginbelow		hmb	{}
+	named hrule			hr	{}
+	named hrulehorizontal		hrh	{}
+	named hruleabove		hra	{}
+	named hrulebelow		hrb	{}
+	named hrulevertical		hrv	{}
+	named hruleleft			hrl	{}
+	named hruleright		hrr	{}
+	named hrulewidth		hrw	{}
+	named hrulehorizontalwidth	hrhw	{}
+	named hruleabovewidth		hraw	{}
+	named hrulebelowwidth		hrbw	{}
+	named hruleverticalwidth	hrvw	{}
+	named hruleleftwidth		hrlw	{}
+	named hrulerightwidth		hrrw	{} 
+	named hrulegap			hrg	{}
+	named hrulehorizontalgap	hrhg	{}
+	named hruleabovegap		hrag	{}
+	named hrulebelowgap		hrbg	{}
+	named hruleverticalgap		hrvg	{}
+	named hruleleftgap		hrlg	{}
+	named hrulerightgap		hrrg	{}
+	named hrulecolour hrulecolor			hrc	{}
+	named hrulehorizontalcolour hrulehorizontalcolor hrhc	{}
+	named hruleabovecolour hruleabovecolor		hrac	{}
+	named hrulebelowcolour hrulebelowcolor		hrbc	{}
+	named hruleverticalcolour hruleverticalcolor	hrvc	{}
+	named hruleleftcolour hruleleftcolor		hrlc	{}
+	named hrulerightcolour hrulerightcolor		hrrc	{}
+	named hruleplainchar		hrpc	{}
+	named hformat
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	    named @Cell
+		named paint			p	{}
+		named background		bg	{}
+		named font			f	{}
+		named break			b	{}
+		named width			w	{}
+		named height			h	{}
+		named indent			i	{}
+		named indentvertical		iv	{}
+		named strut			s	{}
+		named struthorizontal		sh	{}
+		named margin			m	{}
+		named marginhorizontal		mh	{}
+		named marginleft		ml	{}
+		named marginright		mr	{}
+		named marginvertical		mv	{}
+		named marginabove		ma	{}
+		named marginbelow		mb	{}
+		named rule			r	{}
+		named rulehorizontal		rh	{}
+		named ruleabove			ra	{}
+		named rulebelow			rb	{}
+		named rulevertical		rv	{}
+		named ruleleft			rl	{}
+		named ruleright			rr	{}
+		named rulewidth			rw	{}
+		named rulehorizontalwidth	rhw	{}
+		named ruleabovewidth		raw	{}
+		named rulebelowwidth		rbw	{}
+		named ruleverticalwidth		rvw	{}
+		named ruleleftwidth		rlw	{}
+		named rulerightwidth		rrw	{}
+		named rulegap			rg	{}
+		named rulehorizontalgap		rhg	{}
+		named ruleabovegap		rag	{}
+		named rulebelowgap		rbg	{}
+		named ruleverticalgap		rvg	{}
+		named ruleleftgap		rlg	{}
+		named rulerightgap		rrg	{}
+		named rulecolour rulecolor			rc	{}
+		named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+		named ruleabovecolour ruleabovecolor		rac	{}
+		named rulebelowcolour rulebelowcolor		rbc	{}
+		named ruleverticalcolour ruleverticalcolor	rvc	{}
+		named ruleleftcolour ruleleftcolor		rlc	{}
+		named rulerightcolour rulerightcolor		rrc	{}
+		named ruleplainchar		rpc	{}
+		right x
+	    {}
+	{}
+
+	body @Body   # this is the right parameter of @Tbl
+
+    {
+
+	#######################################################################
+	#                                                                     #
+	#  Specific option values as @Tbl knows them (i.e. Level 2)           #
+	#                                                                     #
+	#######################################################################
+
+	def tblp    { p				@Else setupp   }
+	def tblbg   { bg			@Else setupbg  }
+	def tblf    { f				@Else setupf   }
+	def tblb    { b				@Else setupb   }
+	def tblw    { w				@Else setupw   }
+	def tblh    { h				@Else setuph   }
+	def tbli    { i				@Else setupi   }
+	def tbliv   { iv			@Else setupiv  }
+	def tbls    { s				@Else setups   }
+	def tblsh   { sh			@Else setupsh  }
+	def tblml   { ml  @Else mh  @Else m	@Else setupml  }
+	def tblmr   { mr  @Else mh  @Else m	@Else setupmr  }
+	def tblma   { ma  @Else mv  @Else m	@Else setupma  }
+	def tblmb   { mb  @Else mv  @Else m	@Else setupmb  }
+	def tblra   { ra  @Else rh  @Else r	@Else setupra  }
+	def tblrb   { rb  @Else rh  @Else r	@Else setuprb  }
+	def tblrl   { rl  @Else rv  @Else r	@Else setuprl  }
+	def tblrr   { rr  @Else rv  @Else r	@Else setuprr  }
+	def tblraw  { raw @Else rhw @Else rw	@Else setupraw }
+	def tblrbw  { rbw @Else rhw @Else rw	@Else setuprbw }
+	def tblrlw  { rlw @Else rvw @Else rw	@Else setuprlw }
+	def tblrrw  { rrw @Else rvw @Else rw	@Else setuprrw }
+	def tblrag  { rag @Else rhg @Else rg	@Else setuprag }
+	def tblrbg  { rbg @Else rhg @Else rg	@Else setuprbg }
+	def tblrlg  { rlg @Else rvg @Else rg	@Else setuprlg }
+	def tblrrg  { rrg @Else rvg @Else rg	@Else setuprrg }
+	def tblrac  { rac @Else rhc @Else rc	@Else setuprac }
+	def tblrbc  { rbc @Else rhc @Else rc	@Else setuprbc }
+	def tblrlc  { rlc @Else rvc @Else rc	@Else setuprlc }
+	def tblrrc  { rrc @Else rvc @Else rc	@Else setuprrc }
+	def tblrpc  { rpc			@Else setuprpc }
+
+
+	def @DoCell
+	    named compulsory p    {}
+	    named compulsory bg   {}
+	    named compulsory f    {}
+	    named compulsory b    {}
+	    named compulsory w    {}
+	    named compulsory h    {}
+	    named compulsory i    {}
+	    named compulsory iv   {}
+	    named compulsory s    {}
+	    named compulsory sh   {}
+	    named compulsory ml   {}
+	    named compulsory mr   {}
+	    named compulsory ma   {}
+	    named compulsory mb   {}
+	    named compulsory ra   {}
+	    named compulsory rb   {}
+	    named compulsory rl   {}
+	    named compulsory rr   {}
+	    named compulsory raw  {}
+	    named compulsory rbw  {}
+	    named compulsory rlw  {}
+	    named compulsory rrw  {}
+	    named compulsory rag  {}
+	    named compulsory rbg  {}
+	    named compulsory rlg  {}
+	    named compulsory rrg  {}
+	    named compulsory rac  {}
+	    named compulsory rbc  {}
+	    named compulsory rlc  {}
+	    named compulsory rrc  {}
+	    named compulsory rpc  {}
+	    right @Body
+	{
+
+	    def @ZeroWidth right x
+	    {
+		@OneCol { |0io x |0io }
+	    }
+
+	    def @ZeroHeight right x
+	    {
+		@OneRow { /0io x /0io }
+	    }
+
+	    def @PDFColourCommand right col
+	    {
+	        def @ColourCoords
+	        {
+	            col @Case {
+			nochange	@Yield  { nochange    }
+	                darkblue        @Yield  { 0.0 0.0 0.5 }
+	                blue            @Yield  { 0.0 0.0 1.0 }
+	                lightblue       @Yield  { 0.5 0.5 1.0 }
+	                darkgreen       @Yield  { 0.0 0.5 0.0 }
+	                green           @Yield  { 0.0 1.0 0.0 }
+	                lightgreen      @Yield  { 0.5 1.0 0.5 }
+	                darkred         @Yield  { 0.5 0.0 0.0 }
+	                red             @Yield  { 1.0 0.0 0.0 }
+	                lightred        @Yield  { 1.0 0.5 0.5 }
+	                darkcyan        @Yield  { 0.0 0.5 0.5 }
+	                cyan            @Yield  { 0.0 1.0 1.0 }
+	                lightcyan       @Yield  { 0.5 1.0 1.0 }
+	                darkmagenta     @Yield  { 0.5 0.0 0.5 }
+	                magenta         @Yield  { 1.0 0.0 1.0 }
+	                lightmagenta    @Yield  { 1.0 0.5 1.0 }
+	                darkyellow      @Yield  { 0.5 0.5 0.0 }
+	                yellow          @Yield  { 1.0 1.0 0.0 }
+	                lightyellow     @Yield  { 1.0 1.0 0.5 }
+	                darkgray        @Yield  { 0.2 0.2 0.2 }
+	                gray            @Yield  { 0.5 0.5 0.5 }
+	                lightgray       @Yield  { 0.8 0.8 0.8 }
+	                darkgrey        @Yield  { 0.2 0.2 0.2 }
+	                grey            @Yield  { 0.5 0.5 0.5 }
+	                lightgrey       @Yield  { 0.8 0.8 0.8 }
+	                black           @Yield  { 0.0 0.0 0.0 }
+                	white           @Yield  { 1.0 1.0 1.0 }
+		    }
+	        }
+
+		@ColourCoords "rg" @ColourCoords "RG"
+	    }
+
+	    def @PDFAddPaint right col
+	    {
+	        col @Case {
+	            none @Yield ""
+	            nochange @Yield "q f Q"
+	            else @Yield { "q" @PDFColourCommand col "f Q" }
+	        }
+	    }
+
+	    def @FillBox left col right x
+	    {
+	      @BackEnd @Case {
+		PostScript @Yield {{"LoutBox ltbl"col} @Graphic x}
+		PDF        @Yield {{
+				     "0 0 m __xsize 0 l __xsize __ysize l 0 __ysize l h"
+				     @PDFAddPaint col "S"
+				   } @Graphic x}
+		PlainText  @Yield { rpc @PlainGraphic x }
+	      }
+	    }
+
+	    def @PaintBox left col right x
+	    {
+	      @BackEnd @Case {
+		PostScript @Yield {{"LoutBox ltbl"col} @Graphic x}
+		PDF        @Yield {{
+				     "0 0 m __xsize 0 l __xsize __ysize l 0 __ysize l h"
+				     @PDFAddPaint col "S"
+				   } @Graphic x}
+		PlainText  @Yield { x }
+	      }
+	    }
+
+	    def @HRule left col right thick
+	    {
+		@ZeroHeight thick @High col @FillBox {}
+		# thick @High col @FillBox {}
+	    }
+
+	    def @VRule left col right thick
+	    {
+		@ZeroWidth thick @Wide col @FillBox {}
+		# thick @Wide col @FillBox {}
+	    }
+
+	    def @DoubleHRule
+		left col
+		named gap {}
+		right thick
+	    {
+		@OneCol { col @HRule thick /gap col @HRule thick }
+	    }
+
+	    def @DoubleVRule
+		left col
+		named gap {}
+		right thick
+	    {
+		@OneRow { col @VRule thick /gap col @VRule thick }
+	    }
+
+	    def @MakeHRule
+		left col
+		named thick {}
+		named gap {}
+		right type
+	    {
+		type @Case {
+		    { none "" no } @Yield {}
+		    { yes single } @Yield col @HRule thick
+		    { double } @Yield col @DoubleHRule gap { gap } thick
+		}
+	    }
+
+	    def @MakeVRule
+		left col
+		named thick {}
+		named gap {}
+		right type
+	    {
+		type @Case {
+		    { none "" no } @Yield {}
+		    { yes single } @Yield col @VRule thick
+		    { double } @Yield col @DoubleVRule gap { gap } thick
+		}
+	    }
+
+	    def @RuleBox
+		left col
+		named hthick {}
+		named vthick {}
+		named htype {}
+		named vtype {}
+	    {
+		htype @Case {
+		    { none "" no } @Yield {}
+		    else @Yield vtype @Case {
+			{ none "" no } @Yield {}
+			else @Yield {
+			    @ZeroWidth @ZeroHeight hthick @Wide vthick @High
+			    col @FillBox {}
+			}
+		    }
+		}
+	    }
+
+	    def @AddRules
+		right x
+	    {
+		{
+		  rlc @MakeVRule thick { rlw } gap { rlg } rl
+		  |0rt |1rt
+		  rrc @MakeVRule thick { rrw } gap { rrg } rr
+		} @Background
+		{ rac @MakeHRule thick { raw } gap { rag } ra
+		  /0rt
+		  /1rt
+		  rbc @MakeHRule thick { rbw } gap { rbg } rb
+		} @Background
+		{
+		  |1rt rac @RuleBox hthick { rrw } vthick { raw } htype { rr } vtype { ra }
+		  /0rt
+		  /1rt |1rt
+		  rbc @RuleBox hthick { rrw } vthick { rbw } htype { rr } vtype { rb }
+		} @Background x
+
+	    }
+
+	    def @AddMargins
+		right x
+	    {
+		@OneCol @OneRow {
+		          ^|ml    |mr
+		    ^/ma   |    x |
+		     /mb   |      |
+		}
+	    }
+
+	    def @AddPaint
+		right x
+	    {
+		p @Case {
+		    { none nopaint no } @Yield x
+		    else                @Yield { p @PaintBox x }
+		}
+	    }
+
+	    def @Strut right x
+	    {
+		def strutval right x
+		{
+		    x @Case {
+			{ no No "" } @Yield "0.0f"
+			{ yes Yes  } @Yield "1.0f"
+			else         @Yield x
+		    }
+		}
+
+		def vs { "0.5w" @VShift { { strutval s  } @High } }
+		def hs {                { strutval sh } @Wide   }
+
+		@OneCol @OneRow { ^| hs ^/ vs | x }
+	    }
+
+	    def @VSize right x
+	    {
+		h @Case {
+		    ""   @Yield x
+		    else @Yield { h @High x }
+		}
+	    }
+
+	    def @HSize right x
+	    {
+		w @Case {
+		    ""       @Yield x
+		    "expand" @Yield { "40c" @Wide x }
+		    else     @Yield { w @Wide x }
+		}
+	    }
+
+	    def @HIndent right x
+	    {
+		i @Case {
+		    left  @Yield @OneCol { | x }
+		    ctr   @Yield @OneCol { |"0.5rt" x }
+		    right @Yield @OneCol { |"1.0rt" x }
+		    mctr  @Yield @OneCol { |"0.5bx" x }
+		    ""    @Yield @OneCol x
+		    else  @Yield @OneCol { |i x }
+		}
+	    }
+
+	    def @VIndent right x
+	    {
+		iv @Case {
+		    top   @Yield @OneRow { / x }
+		    ctr   @Yield @OneRow { /"0.5rt" x }
+		    foot  @Yield @OneRow { /"1.0rt" x }
+		    mctr  @Yield @OneRow { /"0.5bx" x }
+		    ""    @Yield @OneRow x
+		    else  @Yield @OneRow { /iv x }
+		}
+	    }
+
+	    @HSize @VSize @AddPaint bg @Background @AddRules
+	    @HIndent @VIndent @AddMargins f @Font b @Break @Strut @Body
+	}
+
+	# symbol for producing @Row rows
+	def @DoRow
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named compulsory format
+		named A {} named B {} named C {} named D {} named E {}
+		named F {} named G {} named H {} named I {} named J {}
+		named K {} named L {} named M {} named N {} named O {}
+		named P {} named Q {} named R {} named S {} named T {}
+		named U {} named V {} named W {} named X {} named Y {}
+		named Z {}
+		named @Cell
+		    named paint			p	{}
+		    named background		bg	{}
+		    named font			f	{}
+		    named break			b	{}
+		    named width			w	{}
+		    named height		h	{}
+		    named indent		i	{}
+		    named indentvertical	iv	{}
+		    named strut			s	{}
+		    named struthorizontal	sh	{}
+		    named margin		m	{}
+		    named marginhorizontal	mh	{}
+		    named marginleft		ml	{}
+		    named marginright		mr	{}
+		    named marginvertical	mv	{}
+		    named marginabove		ma	{}
+		    named marginbelow		mb	{}
+		    named rule			r	{}
+		    named rulehorizontal	rh	{}
+		    named ruleabove		ra	{}
+		    named rulebelow		rb	{}
+		    named rulevertical		rv	{}
+		    named ruleleft		rl	{}
+		    named ruleright		rr	{}
+		    named rulewidth		rw	{}
+		    named rulehorizontalwidth	rhw	{}
+		    named ruleabovewidth	raw	{}
+		    named rulebelowwidth	rbw	{}
+		    named ruleverticalwidth	rvw	{}
+		    named ruleleftwidth		rlw	{}
+		    named rulerightwidth	rrw	{}
+		    named rulegap		rg	{}
+		    named rulehorizontalgap	rhg	{}
+		    named ruleabovegap		rag	{}
+		    named rulebelowgap		rbg	{}
+		    named ruleverticalgap	rvg	{}
+		    named ruleleftgap		rlg	{}
+		    named rulerightgap		rrg	{}
+		    named rulecolour rulecolor			rc	{}
+		    named rulehorizontalcolour rulehorizontalcolor rhc	{}
+		    named ruleabovecolour ruleabovecolor	rac	{}
+		    named rulebelowcolour rulebelowcolor	rbc	{}
+		    named ruleverticalcolour ruleverticalcolor	rvc	{}
+		    named ruleleftcolour ruleleftcolor		rlc	{}
+		    named rulerightcolour rulerightcolor	rrc	{}
+		    named ruleplainchar		rpc	{}
+		    right x
+		{}
+	    {}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values as @Row knows them (i.e. Level 6)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tblp   }
+	    def rowbg   { bg				@Else tblbg  }
+	    def rowf    { f				@Else tblf   }
+	    def rowb    { b				@Else tblb   }
+	    def roww    { w				@Else tblw   }
+	    def rowh    { h				@Else tblh   }
+	    def rowi    { i				@Else tbli   }
+	    def rowiv   { iv				@Else tbliv  }
+	    def rows    { s				@Else tbls   }
+	    def rowsh   { sh				@Else tblsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tblml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tblmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tblma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tblmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tblra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tblrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tblrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tblrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tblraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tblrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tblrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tblrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tblrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tblrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tblrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tblrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tblrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tblrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tblrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tblrrc }
+	    def rowrpc  { rpc				@Else tblrpc }
+
+	    format
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 7)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowa rows
+	def @DoRowa
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "aoption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { ap				@Else tblp   }
+	    def tbxbg   { abg				@Else tblbg  }
+	    def tbxf    { af				@Else tblf   }
+	    def tbxb    { ab				@Else tblb   }
+	    def tbxw    { aw				@Else tblw   }
+	    def tbxh    { ah				@Else tblh   }
+	    def tbxi    { ai				@Else tbli   }
+	    def tbxiv   { aiv				@Else tbliv  }
+	    def tbxs    { as				@Else tbls   }
+	    def tbxsh   { ash				@Else tblsh  }
+	    def tbxml   { aml  @Else amh  @Else am	@Else tblml  }
+	    def tbxmr   { amr  @Else amh  @Else am	@Else tblmr  }
+	    def tbxma   { ama  @Else amv  @Else am	@Else tblma  }
+	    def tbxmb   { amb  @Else amv  @Else am	@Else tblmb  }
+	    def tbxra   { ara  @Else arh  @Else ar	@Else tblra  }
+	    def tbxrb   { arb  @Else arh  @Else ar	@Else tblrb  }
+	    def tbxrl   { arl  @Else arv  @Else ar	@Else tblrl  }
+	    def tbxrr   { arr  @Else arv  @Else ar	@Else tblrr  }
+	    def tbxraw  { araw @Else arhw @Else arw	@Else tblraw }
+	    def tbxrbw  { arbw @Else arhw @Else arw	@Else tblrbw }
+	    def tbxrlw  { arlw @Else arvw @Else arw	@Else tblrlw }
+	    def tbxrrw  { arrw @Else arvw @Else arw	@Else tblrrw }
+	    def tbxrag  { arag @Else arhg @Else arg	@Else tblrag }
+	    def tbxrbg  { arbg @Else arhg @Else arg	@Else tblrbg }
+	    def tbxrlg  { arlg @Else arvg @Else arg	@Else tblrlg }
+	    def tbxrrg  { arrg @Else arvg @Else arg	@Else tblrrg }
+	    def tbxrac  { arac @Else arhc @Else arc	@Else tblrac }
+	    def tbxrbc  { arbc @Else arhc @Else arc	@Else tblrbc }
+	    def tbxrlc  { arlc @Else arvc @Else arc	@Else tblrlc }
+	    def tbxrrc  { arrc @Else arvc @Else arc	@Else tblrrc }
+	    def tbxrpc  { arpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowa level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    aformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowb rows
+	def @DoRowb
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "boption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { bp				@Else tblp   }
+	    def tbxbg   { bbg				@Else tblbg  }
+	    def tbxf    { bf				@Else tblf   }
+	    def tbxb    { bb				@Else tblb   }
+	    def tbxw    { bw				@Else tblw   }
+	    def tbxh    { bh				@Else tblh   }
+	    def tbxi    { bi				@Else tbli   }
+	    def tbxiv   { biv				@Else tbliv  }
+	    def tbxs    { bs				@Else tbls   }
+	    def tbxsh   { bsh				@Else tblsh  }
+	    def tbxml   { bml  @Else bmh  @Else bm	@Else tblml  }
+	    def tbxmr   { bmr  @Else bmh  @Else bm	@Else tblmr  }
+	    def tbxma   { bma  @Else bmv  @Else bm	@Else tblma  }
+	    def tbxmb   { bmb  @Else bmv  @Else bm	@Else tblmb  }
+	    def tbxra   { bra  @Else brh  @Else br	@Else tblra  }
+	    def tbxrb   { brb  @Else brh  @Else br	@Else tblrb  }
+	    def tbxrl   { brl  @Else brv  @Else br	@Else tblrl  }
+	    def tbxrr   { brr  @Else brv  @Else br	@Else tblrr  }
+	    def tbxraw  { braw @Else brhw @Else brw	@Else tblraw }
+	    def tbxrbw  { brbw @Else brhw @Else brw	@Else tblrbw }
+	    def tbxrlw  { brlw @Else brvw @Else brw	@Else tblrlw }
+	    def tbxrrw  { brrw @Else brvw @Else brw	@Else tblrrw }
+	    def tbxrag  { brag @Else brhg @Else brg	@Else tblrag }
+	    def tbxrbg  { brbg @Else brhg @Else brg	@Else tblrbg }
+	    def tbxrlg  { brlg @Else brvg @Else brg	@Else tblrlg }
+	    def tbxrrg  { brrg @Else brvg @Else brg	@Else tblrrg }
+	    def tbxrac  { brac @Else brhc @Else brc	@Else tblrac }
+	    def tbxrbc  { brbc @Else brhc @Else brc	@Else tblrbc }
+	    def tbxrlc  { brlc @Else brvc @Else brc	@Else tblrlc }
+	    def tbxrrc  { brrc @Else brvc @Else brc	@Else tblrrc }
+	    def tbxrpc  { brpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowb level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    bformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowc rows
+	def @DoRowc
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "coption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { cp				@Else tblp   }
+	    def tbxbg   { cbg				@Else tblbg  }
+	    def tbxf    { cf				@Else tblf   }
+	    def tbxb    { cb				@Else tblb   }
+	    def tbxw    { cw				@Else tblw   }
+	    def tbxh    { ch				@Else tblh   }
+	    def tbxi    { ci				@Else tbli   }
+	    def tbxiv   { civ				@Else tbliv  }
+	    def tbxs    { cs				@Else tbls   }
+	    def tbxsh   { csh				@Else tblsh  }
+	    def tbxml   { cml  @Else cmh  @Else cm	@Else tblml  }
+	    def tbxmr   { cmr  @Else cmh  @Else cm	@Else tblmr  }
+	    def tbxma   { cma  @Else cmv  @Else cm	@Else tblma  }
+	    def tbxmb   { cmb  @Else cmv  @Else cm	@Else tblmb  }
+	    def tbxra   { cra  @Else crh  @Else cr	@Else tblra  }
+	    def tbxrb   { crb  @Else crh  @Else cr	@Else tblrb  }
+	    def tbxrl   { crl  @Else crv  @Else cr	@Else tblrl  }
+	    def tbxrr   { crr  @Else crv  @Else cr	@Else tblrr  }
+	    def tbxraw  { craw @Else crhw @Else crw	@Else tblraw }
+	    def tbxrbw  { crbw @Else crhw @Else crw	@Else tblrbw }
+	    def tbxrlw  { crlw @Else crvw @Else crw	@Else tblrlw }
+	    def tbxrrw  { crrw @Else crvw @Else crw	@Else tblrrw }
+	    def tbxrag  { crag @Else crhg @Else crg	@Else tblrag }
+	    def tbxrbg  { crbg @Else crhg @Else crg	@Else tblrbg }
+	    def tbxrlg  { crlg @Else crvg @Else crg	@Else tblrlg }
+	    def tbxrrg  { crrg @Else crvg @Else crg	@Else tblrrg }
+	    def tbxrac  { crac @Else crhc @Else crc	@Else tblrac }
+	    def tbxrbc  { crbc @Else crhc @Else crc	@Else tblrbc }
+	    def tbxrlc  { crlc @Else crvc @Else crc	@Else tblrlc }
+	    def tbxrrc  { crrc @Else crvc @Else crc	@Else tblrrc }
+	    def tbxrpc  { crpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowc level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    cformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowd rows
+	def @DoRowd
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "doption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { dp				@Else tblp   }
+	    def tbxbg   { dbg				@Else tblbg  }
+	    def tbxf    { df				@Else tblf   }
+	    def tbxb    { db				@Else tblb   }
+	    def tbxw    { dw				@Else tblw   }
+	    def tbxh    { dh				@Else tblh   }
+	    def tbxi    { di				@Else tbli   }
+	    def tbxiv   { div				@Else tbliv  }
+	    def tbxs    { ds				@Else tbls   }
+	    def tbxsh   { dsh				@Else tblsh  }
+	    def tbxml   { dml  @Else dmh  @Else dm	@Else tblml  }
+	    def tbxmr   { dmr  @Else dmh  @Else dm	@Else tblmr  }
+	    def tbxma   { dma  @Else dmv  @Else dm	@Else tblma  }
+	    def tbxmb   { dmb  @Else dmv  @Else dm	@Else tblmb  }
+	    def tbxra   { dra  @Else drh  @Else dr	@Else tblra  }
+	    def tbxrb   { drb  @Else drh  @Else dr	@Else tblrb  }
+	    def tbxrl   { drl  @Else drv  @Else dr	@Else tblrl  }
+	    def tbxrr   { drr  @Else drv  @Else dr	@Else tblrr  }
+	    def tbxraw  { draw @Else drhw @Else drw	@Else tblraw }
+	    def tbxrbw  { drbw @Else drhw @Else drw	@Else tblrbw }
+	    def tbxrlw  { drlw @Else drvw @Else drw	@Else tblrlw }
+	    def tbxrrw  { drrw @Else drvw @Else drw	@Else tblrrw }
+	    def tbxrag  { drag @Else drhg @Else drg	@Else tblrag }
+	    def tbxrbg  { drbg @Else drhg @Else drg	@Else tblrbg }
+	    def tbxrlg  { drlg @Else drvg @Else drg	@Else tblrlg }
+	    def tbxrrg  { drrg @Else drvg @Else drg	@Else tblrrg }
+	    def tbxrac  { drac @Else drhc @Else drc	@Else tblrac }
+	    def tbxrbc  { drbc @Else drhc @Else drc	@Else tblrbc }
+	    def tbxrlc  { drlc @Else drvc @Else drc	@Else tblrlc }
+	    def tbxrrc  { drrc @Else drvc @Else drc	@Else tblrrc }
+	    def tbxrpc  { drpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowd level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    dformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowe rows
+	def @DoRowe
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "eoption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { ep				@Else tblp   }
+	    def tbxbg   { ebg				@Else tblbg  }
+	    def tbxf    { ef				@Else tblf   }
+	    def tbxb    { eb				@Else tblb   }
+	    def tbxw    { ew				@Else tblw   }
+	    def tbxh    { eh				@Else tblh   }
+	    def tbxi    { ei				@Else tbli   }
+	    def tbxiv   { eiv				@Else tbliv  }
+	    def tbxs    { es				@Else tbls   }
+	    def tbxsh   { esh				@Else tblsh  }
+	    def tbxml   { eml  @Else emh  @Else em	@Else tblml  }
+	    def tbxmr   { emr  @Else emh  @Else em	@Else tblmr  }
+	    def tbxma   { ema  @Else emv  @Else em	@Else tblma  }
+	    def tbxmb   { emb  @Else emv  @Else em	@Else tblmb  }
+	    def tbxra   { era  @Else erh  @Else er	@Else tblra  }
+	    def tbxrb   { erb  @Else erh  @Else er	@Else tblrb  }
+	    def tbxrl   { erl  @Else erv  @Else er	@Else tblrl  }
+	    def tbxrr   { err  @Else erv  @Else er	@Else tblrr  }
+	    def tbxraw  { eraw @Else erhw @Else erw	@Else tblraw }
+	    def tbxrbw  { erbw @Else erhw @Else erw	@Else tblrbw }
+	    def tbxrlw  { erlw @Else ervw @Else erw	@Else tblrlw }
+	    def tbxrrw  { errw @Else ervw @Else erw	@Else tblrrw }
+	    def tbxrag  { erag @Else erhg @Else erg	@Else tblrag }
+	    def tbxrbg  { erbg @Else erhg @Else erg	@Else tblrbg }
+	    def tbxrlg  { erlg @Else ervg @Else erg	@Else tblrlg }
+	    def tbxrrg  { errg @Else ervg @Else erg	@Else tblrrg }
+	    def tbxrac  { erac @Else erhc @Else erc	@Else tblrac }
+	    def tbxrbc  { erbc @Else erhc @Else erc	@Else tblrbc }
+	    def tbxrlc  { erlc @Else ervc @Else erc	@Else tblrlc }
+	    def tbxrrc  { errc @Else ervc @Else erc	@Else tblrrc }
+	    def tbxrpc  { erpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowe level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    eformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowf rows
+	def @DoRowf
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "foption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { fp				@Else tblp   }
+	    def tbxbg   { fbg				@Else tblbg  }
+	    def tbxf    { ff				@Else tblf   }
+	    def tbxb    { fb				@Else tblb   }
+	    def tbxw    { fw				@Else tblw   }
+	    def tbxh    { fh				@Else tblh   }
+	    def tbxi    { fi				@Else tbli   }
+	    def tbxiv   { fiv				@Else tbliv  }
+	    def tbxs    { fs				@Else tbls   }
+	    def tbxsh   { fsh				@Else tblsh  }
+	    def tbxml   { fml  @Else fmh  @Else fm	@Else tblml  }
+	    def tbxmr   { fmr  @Else fmh  @Else fm	@Else tblmr  }
+	    def tbxma   { fma  @Else fmv  @Else fm	@Else tblma  }
+	    def tbxmb   { fmb  @Else fmv  @Else fm	@Else tblmb  }
+	    def tbxra   { fra  @Else frh  @Else fr	@Else tblra  }
+	    def tbxrb   { frb  @Else frh  @Else fr	@Else tblrb  }
+	    def tbxrl   { frl  @Else frv  @Else fr	@Else tblrl  }
+	    def tbxrr   { frr  @Else frv  @Else fr	@Else tblrr  }
+	    def tbxraw  { fraw @Else frhw @Else frw	@Else tblraw }
+	    def tbxrbw  { frbw @Else frhw @Else frw	@Else tblrbw }
+	    def tbxrlw  { frlw @Else frvw @Else frw	@Else tblrlw }
+	    def tbxrrw  { frrw @Else frvw @Else frw	@Else tblrrw }
+	    def tbxrag  { frag @Else frhg @Else frg	@Else tblrag }
+	    def tbxrbg  { frbg @Else frhg @Else frg	@Else tblrbg }
+	    def tbxrlg  { frlg @Else frvg @Else frg	@Else tblrlg }
+	    def tbxrrg  { frrg @Else frvg @Else frg	@Else tblrrg }
+	    def tbxrac  { frac @Else frhc @Else frc	@Else tblrac }
+	    def tbxrbc  { frbc @Else frhc @Else frc	@Else tblrbc }
+	    def tbxrlc  { frlc @Else frvc @Else frc	@Else tblrlc }
+	    def tbxrrc  { frrc @Else frvc @Else frc	@Else tblrrc }
+	    def tbxrpc  { frpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowf level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    fformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowg rows
+	def @DoRowg
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "doption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { gp				@Else tblp   }
+	    def tbxbg   { gbg				@Else tblbg  }
+	    def tbxf    { gf				@Else tblf   }
+	    def tbxb    { gb				@Else tblb   }
+	    def tbxw    { gw				@Else tblw   }
+	    def tbxh    { gh				@Else tblh   }
+	    def tbxi    { gi				@Else tbli   }
+	    def tbxiv   { giv				@Else tbliv  }
+	    def tbxs    { gs				@Else tbls   }
+	    def tbxsh   { gsh				@Else tblsh  }
+	    def tbxml   { gml  @Else gmh  @Else gm	@Else tblml  }
+	    def tbxmr   { gmr  @Else gmh  @Else gm	@Else tblmr  }
+	    def tbxma   { gma  @Else gmv  @Else gm	@Else tblma  }
+	    def tbxmb   { gmb  @Else gmv  @Else gm	@Else tblmb  }
+	    def tbxra   { gra  @Else grh  @Else gr	@Else tblra  }
+	    def tbxrb   { grb  @Else grh  @Else gr	@Else tblrb  }
+	    def tbxrl   { grl  @Else grv  @Else gr	@Else tblrl  }
+	    def tbxrr   { grr  @Else grv  @Else gr	@Else tblrr  }
+	    def tbxraw  { graw @Else grhw @Else grw	@Else tblraw }
+	    def tbxrbw  { grbw @Else grhw @Else grw	@Else tblrbw }
+	    def tbxrlw  { grlw @Else grvw @Else grw	@Else tblrlw }
+	    def tbxrrw  { grrw @Else grvw @Else grw	@Else tblrrw }
+	    def tbxrag  { grag @Else grhg @Else grg	@Else tblrag }
+	    def tbxrbg  { grbg @Else grhg @Else grg	@Else tblrbg }
+	    def tbxrlg  { grlg @Else grvg @Else grg	@Else tblrlg }
+	    def tbxrrg  { grrg @Else grvg @Else grg	@Else tblrrg }
+	    def tbxrac  { grac @Else grhc @Else grc	@Else tblrac }
+	    def tbxrbc  { grbc @Else grhc @Else grc	@Else tblrbc }
+	    def tbxrlc  { grlc @Else grvc @Else grc	@Else tblrlc }
+	    def tbxrrc  { grrc @Else grvc @Else grc	@Else tblrrc }
+	    def tbxrpc  { grpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowg level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    gformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	# symbol for producing @Rowh rows
+	def @DoRowh
+	    named paint			p	{}
+	    named background		bg	{}
+	    named font			f	{}
+	    named break			b	{}
+	    named width			w	{}
+	    named height		h	{}
+	    named indent		i	{}
+	    named indentvertical	iv	{}
+	    named strut			s	{}
+	    named struthorizontal	sh	{}
+	    named margin		m	{}
+	    named marginhorizontal	mh	{}
+	    named marginleft		ml	{}
+	    named marginright		mr	{}
+	    named marginvertical	mv	{}
+	    named marginabove		ma	{}
+	    named marginbelow		mb	{}
+	    named rule			r	{}
+	    named rulehorizontal	rh	{}
+	    named ruleabove		ra	{}
+	    named rulebelow		rb	{}
+	    named rulevertical		rv	{}
+	    named ruleleft		rl	{}
+	    named ruleright		rr	{}
+	    named rulewidth		rw	{}
+	    named rulehorizontalwidth	rhw	{}
+	    named ruleabovewidth	raw	{}
+	    named rulebelowwidth	rbw	{}
+	    named ruleverticalwidth	rvw	{}
+	    named ruleleftwidth		rlw	{}
+	    named rulerightwidth	rrw	{}
+	    named rulegap		rg	{}
+	    named rulehorizontalgap	rhg	{}
+	    named ruleabovegap		rag	{}
+	    named rulebelowgap		rbg	{}
+	    named ruleverticalgap	rvg	{}
+	    named ruleleftgap		rlg	{}
+	    named rulerightgap		rrg	{}
+	    named rulecolour rulecolor				rc	{}
+	    named rulehorizontalcolour rulehorizontalcolor	rhc	{}
+	    named ruleabovecolour ruleabovecolor		rac	{}
+	    named rulebelowcolour rulebelowcolor		rbc	{}
+	    named ruleverticalcolour ruleverticalcolor		rvc	{}
+	    named ruleleftcolour ruleleftcolor			rlc	{}
+	    named rulerightcolour rulerightcolor		rrc	{}
+	    named ruleplainchar		rpc	{}
+	    named A {} named B {} named C {} named D {} named E {}
+	    named F {} named G {} named H {} named I {} named J {}
+	    named K {} named L {} named M {} named N {} named O {}
+	    named P {} named Q {} named R {} named S {} named T {}
+	    named U {} named V {} named W {} named X {} named Y {}
+	    named Z {}
+	{
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at "hoption" level (i.e. Level 3)       #
+	    #                                                                 #
+	    ###################################################################
+
+	    def tbxp    { hp				@Else tblp   }
+	    def tbxbg   { hbg				@Else tblbg  }
+	    def tbxf    { hf				@Else tblf   }
+	    def tbxb    { hb				@Else tblb   }
+	    def tbxw    { hw				@Else tblw   }
+	    def tbxh    { hh				@Else tblh   }
+	    def tbxi    { hi				@Else tbli   }
+	    def tbxiv   { hiv				@Else tbliv  }
+	    def tbxs    { hs				@Else tbls   }
+	    def tbxsh   { hsh				@Else tblsh  }
+	    def tbxml   { hml  @Else hmh  @Else hm	@Else tblml  }
+	    def tbxmr   { hmr  @Else hmh  @Else hm	@Else tblmr  }
+	    def tbxma   { hma  @Else hmv  @Else hm	@Else tblma  }
+	    def tbxmb   { hmb  @Else hmv  @Else hm	@Else tblmb  }
+	    def tbxra   { hra  @Else hrh  @Else hr	@Else tblra  }
+	    def tbxrb   { hrb  @Else hrh  @Else hr	@Else tblrb  }
+	    def tbxrl   { hrl  @Else hrv  @Else hr	@Else tblrl  }
+	    def tbxrr   { hrr  @Else hrv  @Else hr	@Else tblrr  }
+	    def tbxraw  { hraw @Else hrhw @Else hrw	@Else tblraw }
+	    def tbxrbw  { hrbw @Else hrhw @Else hrw	@Else tblrbw }
+	    def tbxrlw  { hrlw @Else hrvw @Else hrw	@Else tblrlw }
+	    def tbxrrw  { hrrw @Else hrvw @Else hrw	@Else tblrrw }
+	    def tbxrag  { hrag @Else hrhg @Else hrg	@Else tblrag }
+	    def tbxrbg  { hrbg @Else hrhg @Else hrg	@Else tblrbg }
+	    def tbxrlg  { hrlg @Else hrvg @Else hrg	@Else tblrlg }
+	    def tbxrrg  { hrrg @Else hrvg @Else hrg	@Else tblrrg }
+	    def tbxrac  { hrac @Else hrhc @Else hrc	@Else tblrac }
+	    def tbxrbc  { hrbc @Else hrhc @Else hrc	@Else tblrbc }
+	    def tbxrlc  { hrlc @Else hrvc @Else hrc	@Else tblrlc }
+	    def tbxrrc  { hrrc @Else hrvc @Else hrc	@Else tblrrc }
+	    def tbxrpc  { hrpc				@Else tblrpc }
+
+	    ###################################################################
+	    #                                                                 #
+	    #  Specific option values at @Rowh level (i.e. Level 4)           #
+	    #                                                                 #
+	    ###################################################################
+
+	    def rowp    { p				@Else tbxp   }
+	    def rowbg   { bg				@Else tbxbg  }
+	    def rowf    { f				@Else tbxf   }
+	    def rowb    { b				@Else tbxb   }
+	    def roww    { w				@Else tbxw   }
+	    def rowh    { h				@Else tbxh   }
+	    def rowi    { i				@Else tbxi   }
+	    def rowiv   { iv				@Else tbxiv  }
+	    def rows    { s				@Else tbxs   }
+	    def rowsh   { sh				@Else tbxsh  }
+	    def rowml   { ml  @Else mh  @Else m		@Else tbxml  }
+	    def rowmr   { mr  @Else mh  @Else m		@Else tbxmr  }
+	    def rowma   { ma  @Else mv  @Else m		@Else tbxma  }
+	    def rowmb   { mb  @Else mv  @Else m		@Else tbxmb  }
+	    def rowra   { ra  @Else rh  @Else r		@Else tbxra  }
+	    def rowrb   { rb  @Else rh  @Else r		@Else tbxrb  }
+	    def rowrl   { rl  @Else rv  @Else r		@Else tbxrl  }
+	    def rowrr   { rr  @Else rv  @Else r		@Else tbxrr  }
+	    def rowraw  { raw @Else rhw @Else rw	@Else tbxraw }
+	    def rowrbw  { rbw @Else rhw @Else rw	@Else tbxrbw }
+	    def rowrlw  { rlw @Else rvw @Else rw	@Else tbxrlw }
+	    def rowrrw  { rrw @Else rvw @Else rw	@Else tbxrrw }
+	    def rowrag  { rag @Else rhg @Else rg	@Else tbxrag }
+	    def rowrbg  { rbg @Else rhg @Else rg	@Else tbxrbg }
+	    def rowrlg  { rlg @Else rvg @Else rg	@Else tbxrlg }
+	    def rowrrg  { rrg @Else rvg @Else rg	@Else tbxrrg }
+	    def rowrac  { rac @Else rhc @Else rc	@Else tbxrac }
+	    def rowrbc  { rbc @Else rhc @Else rc	@Else tbxrbc }
+	    def rowrlc  { rlc @Else rvc @Else rc	@Else tbxrlc }
+	    def rowrrc  { rrc @Else rvc @Else rc	@Else tbxrrc }
+	    def rowrpc  { rpc				@Else tbxrpc }
+
+	    hformat
+		A { A } B { B } C { C } D { D } E { E } F { F }
+		G { G } H { H } I { I } J { J } K { K } L { L }
+		M { M } N { N } O { O } P { P } Q { Q } R { R }
+		S { S } T { T } U { U } V { V } W { W } X { X }
+		Y { Y } Z { Z }
+		@Cell {
+		
+		    @DoCell
+
+			#######################################################
+			#                                                     #
+			#  Specific option values to @Cell (i.e. Level 5)     #
+			#                                                     #
+			#######################################################
+
+			p    { p			@Else rowp   }
+			bg   { bg			@Else rowbg  }
+			f    { f			@Else rowf   }
+			b    { b			@Else rowb   }
+			w    { w			@Else roww   }
+			h    { h			@Else rowh   }
+			i    { i			@Else rowi   }
+			iv   { iv			@Else rowiv  }
+			s    { s			@Else rows   }
+			sh   { sh			@Else rowsh  }
+			ml   { ml  @Else mh  @Else m	@Else rowml  }
+			mr   { mr  @Else mh  @Else m	@Else rowmr  }
+			ma   { ma  @Else mv  @Else m	@Else rowma  }
+			mb   { mb  @Else mv  @Else m	@Else rowmb  }
+			ra   { ra  @Else rh  @Else r	@Else rowra  }
+			rb   { rb  @Else rh  @Else r	@Else rowrb  }
+			rl   { rl  @Else rv  @Else r	@Else rowrl  }
+			rr   { rr  @Else rv  @Else r	@Else rowrr  }
+			raw  { raw @Else rhw @Else rw	@Else rowraw }
+			rbw  { rbw @Else rhw @Else rw	@Else rowrbw }
+			rlw  { rlw @Else rvw @Else rw	@Else rowrlw }
+			rrw  { rrw @Else rvw @Else rw	@Else rowrrw }
+			rag  { rag @Else rhg @Else rg	@Else rowrag }
+			rbg  { rbg @Else rhg @Else rg	@Else rowrbg }
+			rlg  { rlg @Else rvg @Else rg	@Else rowrlg }
+			rrg  { rrg @Else rvg @Else rg	@Else rowrrg }
+			rac  { rac @Else rhc @Else rc	@Else rowrac }
+			rbc  { rbc @Else rhc @Else rc	@Else rowrbc }
+			rlc  { rlc @Else rvc @Else rc	@Else rowrlc }
+			rrc  { rrc @Else rvc @Else rc	@Else rowrrc }
+			rpc  { rpc			@Else rowrpc }
+
+			x
+		}
+	}
+
+	macro @Row		{ /  @DoRow  }
+	macro @Rowa		{ /  @DoRowa }
+	macro @Rowb		{ /  @DoRowb }
+	macro @Rowc		{ /  @DoRowc }
+	macro @Rowd		{ /  @DoRowd }
+	macro @Rowe		{ /  @DoRowe }
+	macro @Rowf		{ /  @DoRowf }
+	macro @Rowg		{ /  @DoRowg }
+	macro @Rowh		{ /  @DoRowh }
+
+	macro @FirstRow		{    @DoRow  }
+	macro @FirstRowa	{    @DoRowa }
+	macro @FirstRowb	{    @DoRowb }
+	macro @FirstRowc	{    @DoRowc }
+	macro @FirstRowd	{    @DoRowd }
+	macro @FirstRowe	{    @DoRowe }
+	macro @FirstRowf	{    @DoRowf }
+	macro @FirstRowg	{    @DoRowg }
+	macro @FirstRowh	{    @DoRowh }
+
+	macro @MarkRow		{ ^/ @DoRow  }
+	macro @MarkRowa		{ ^/ @DoRowa }
+	macro @MarkRowb		{ ^/ @DoRowb }
+	macro @MarkRowc		{ ^/ @DoRowc }
+	macro @MarkRowd		{ ^/ @DoRowd }
+	macro @MarkRowe		{ ^/ @DoRowe }
+	macro @MarkRowf		{ ^/ @DoRowf }
+	macro @MarkRowg		{ ^/ @DoRowg }
+	macro @MarkRowh		{ ^/ @DoRowh }
+
+	macro @NoBreakRow	{ /0iu @DoRow  }
+	macro @NoBreakRowa	{ /0iu @DoRowa }
+	macro @NoBreakRowb	{ /0iu @DoRowb }
+	macro @NoBreakRowc	{ /0iu @DoRowc }
+	macro @NoBreakRowd	{ /0iu @DoRowd }
+	macro @NoBreakRowe	{ /0iu @DoRowe }
+	macro @NoBreakRowf	{ /0iu @DoRowf }
+	macro @NoBreakRowg	{ /0iu @DoRowg }
+	macro @NoBreakRowh	{ /0iu @DoRowh }
+
+	macro @NP               { /"1.1b" }
+
+	@Body
+    }
+
+@End @TblSetup
diff --git a/include/tblf.lpg b/include/tblf.lpg
new file mode 100644
index 0000000..a31c30f
--- /dev/null
+++ b/include/tblf.lpg
@@ -0,0 +1,41 @@
+%%BeginResource: procset LoutTblPrependGraphic
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                                                                    %
+%  PostScript @SysPrependGraphic file for @Tbl  Jeffrey H. Kingston  %
+%  Version 1.0                                             June 1998 %
+%                                                                    %
+%  To assist in avoiding name clashes, the names of all symbols      %
+%  defined here begin with "ltbl".                                   %
+%                                                                    %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% painting (i.e. filling): - ltblwhite - (etc.)
+/ltblnopaint		{			       } def
+/ltblnochange		{ 			  fill } def
+/ltbldarkblue		{ 0.0 0.0 0.5 setrgbcolor fill } def
+/ltblblue		{ 0.0 0.0 1.0 setrgbcolor fill } def
+/ltbllightblue		{ 0.5 0.5 1.0 setrgbcolor fill } def
+/ltbldarkgreen		{ 0.0 0.5 0.0 setrgbcolor fill } def
+/ltblgreen		{ 0.0 1.0 0.0 setrgbcolor fill } def
+/ltbllightgreen	        { 0.5 1.0 0.5 setrgbcolor fill } def
+/ltbldarkred		{ 0.5 0.0 0.0 setrgbcolor fill } def
+/ltblred		{ 1.0 0.0 0.0 setrgbcolor fill } def
+/ltbllightred		{ 1.0 0.5 0.5 setrgbcolor fill } def
+/ltbldarkcyan		{ 0.0 0.5 0.5 setrgbcolor fill } def
+/ltblcyan		{ 0.0 1.0 1.0 setrgbcolor fill } def
+/ltbllightcyan		{ 0.5 1.0 1.0 setrgbcolor fill } def
+/ltbldarkmagenta	{ 0.5 0.0 0.5 setrgbcolor fill } def
+/ltblmagenta		{ 1.0 0.0 1.0 setrgbcolor fill } def
+/ltbllightmagenta	{ 1.0 0.5 1.0 setrgbcolor fill } def
+/ltbldarkyellow        	{ 0.5 0.5 0.0 setrgbcolor fill } def
+/ltblyellow		{ 1.0 1.0 0.0 setrgbcolor fill } def
+/ltbllightyellow	{ 1.0 1.0 0.5 setrgbcolor fill } def
+/ltbldarkgray		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/ltblgray		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/ltbllightgray		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/ltbldarkgrey		{ 0.2 0.2 0.2 setrgbcolor fill } def
+/ltblgrey		{ 0.5 0.5 0.5 setrgbcolor fill } def
+/ltbllightgrey		{ 0.8 0.8 0.8 setrgbcolor fill } def
+/ltblblack		{ 0.0 0.0 0.0 setrgbcolor fill } def
+/ltblwhite		{ 1.0 1.0 1.0 setrgbcolor fill } def
+%%EndResource
diff --git a/include/ts b/include/ts
new file mode 100644
index 0000000..d78ed14
--- /dev/null
+++ b/include/ts
@@ -0,0 +1,105 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @ToySetup package (Jeff Kingston, July 1993, updated October 1994)    #
+#                                                                             #
+#  In response to a user request I have put together this tiny package for    #
+#  people to play with who want to start learning how to do page layout and   #
+#  galleys with Lout.  It produces a very simple sequence of pages.  To       #
+#  invoke the package, run "lout myfile > op" where myfile looks like this:   #
+#                                                                             #
+#     @SysInclude { ts }                                                      #
+#     @Use { @ToySetup }                                                      #
+#     @Document                                                               #
+#     //                                                                      #
+#     @Text {                                                                 #
+#     Any text you like here, using @I, @B, @Heading, @PP, @LP, @DP,          #
+#     @LeftDisplay, @IndentedDisplay, and @CenteredDisplay just as in         #
+#     DocumentSetup.                                                          #
+#     }                                                                       #
+#                                                                             #
+###############################################################################
+
+@SysInclude { fontdefs }
+@SysInclude { langdefs }
+
+export @I @B @Heading @PP @LP @DP @NP
+       @LeftDisplay @IndentedDisplay @CenteredDisplay
+       @Text @Document
+
+def @ToySetup
+    named @PageWidth  { 21.0c }
+    named @PageHeight { 29.7c }
+@Begin
+
+    ###########################################################################
+    #                                                                         #
+    #  Font changes, headings, and paragraphs.                                #
+    #                                                                         #
+    ###########################################################################
+
+    def @I       right x { Slope @Font x      }
+    def @B       right x { Bold @Font x       }
+    def @Heading right x { ragged @Break @B x }
+
+    macro @PP        { //1.3vx 1.0f @Wide &0i }
+    macro @LP        { //1.3vx                }
+    macro @DP        { //0.5v                 }
+    macro @NP        { //1.1b                 }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Displays.                                                              #
+    #                                                                         #
+    ###########################################################################
+
+    def @DispPlace { @Galley }
+
+    def @Disp into { @DispPlace&&preceding }
+	right x
+    {
+	@OneRow x
+    }
+
+    macro @LeftDisplay     { @DP |       @DispPlace  |  @DP // @Disp   }
+    macro @IndentedDisplay { @DP |2f     @DispPlace  |  @DP // @Disp   }
+    macro @CenteredDisplay { @DP |0.5rt  @DispPlace  |  @DP // @Disp   }
+
+
+    ###########################################################################
+    #                                                                         #
+    #  Page layout.                                                           #
+    #                                                                         #
+    ###########################################################################
+
+    def @TextPlace { @Galley }
+
+    def @Text force into { @TextPlace&&preceding }
+        right x
+    {
+	x
+    }
+
+    def @Page right x
+    {
+	@PageWidth @Wide @PageHeight @High
+	{ Times Base 12p } @Font
+	{ adjust nohyphen 14px } @Break
+	English @Language { 0 0 0 } @SetColour
+	{   //1i ||1i
+	    @HExpand @VExpand x
+	    ||1i //1i
+	}
+    }
+
+    def @PageList right num
+    {
+	@Page { |0.5rt - num - //0.4i @TextPlace }
+	//
+	@PageList @Next num
+    }
+
+    def @Document { @PageList 1 }
+
+@End @ToySetup