summaryrefslogtreecommitdiff
path: root/fonts/auncial-new
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/auncial-new
Initial commit
Diffstat (limited to 'fonts/auncial-new')
-rw-r--r--fonts/auncial-new/README103
-rw-r--r--fonts/auncial-new/auncial.dtx739
-rw-r--r--fonts/auncial-new/auncial.ins114
-rw-r--r--fonts/auncial-new/auncial.pdfbin0 -> 160037 bytes
-rw-r--r--fonts/auncial-new/auncl10.afm276
-rw-r--r--fonts/auncial-new/auncl10.pfbbin0 -> 98831 bytes
-rw-r--r--fonts/auncial-new/auncl10.tfmbin0 -> 1412 bytes
-rw-r--r--fonts/auncial-new/aunclb10.afm276
-rw-r--r--fonts/auncial-new/aunclb10.pfbbin0 -> 103998 bytes
-rw-r--r--fonts/auncial-new/aunclb10.tfmbin0 -> 1412 bytes
-rw-r--r--fonts/auncial-new/aunclmfb.dtx640
-rw-r--r--fonts/auncial-new/aunclmfc.dtx4563
-rw-r--r--fonts/auncial-new/aunclmft.dtx2173
-rw-r--r--fonts/auncial-new/tryauncial.pdfbin0 -> 195807 bytes
-rw-r--r--fonts/auncial-new/tryauncial.tex29
15 files changed, 8913 insertions, 0 deletions
diff --git a/fonts/auncial-new/README b/fonts/auncial-new/README
new file mode 100644
index 0000000000..5a4220c0f1
--- /dev/null
+++ b/fonts/auncial-new/README
@@ -0,0 +1,103 @@
+ The auncial bundle provides packages and fonts for a script based
+on the Artificial Uncial manuscript book-hand used between the 6th & 10th
+century AD. The script consists of minuscules and digits, with some
+appropriate period punctuation marks. Both normal and bold versions are
+provided. This is one of a series for bookhand fonts.
+
+ The font follows the B1 encoding developed for bookhands. Access to
+this is essential. The encoding mainly follows the regular T1 encoding.
+
+ If there are any questions please ask them on the comp.text.tex newsgroup.
+
+Changes in version 2.0 (2005/11/27)
+o Font supplied as Postscript Type1 instead of MetaFont
+o Only B1 encoding supported
+o Major code rewrite
+
+Changes in version 1.0 (1999/05/22)
+o First public release
+
+------------------------------------------------------------------
+ Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+ Copyright 1999--2005 Peter R. Wilson
+
+ This work may be distributed and/or modified under the
+ conditions of the Latex Project Public License, either
+ version 1.3 of this license or (at your option) any
+ later version.
+ The latest version of the license is in
+ http://www.latex-project.org/lppl.txt
+ and version 1.3 or later is part of all distributions of
+ LaTeX version 2003/06/01 or later.
+
+ This work has the LPPL maintenance status "author-maintained".
+
+ This work consists of the files:
+ README (this file)
+ auncial.dtx
+ aunclmfb.dtx
+ aunclmft.dtx
+ aunclmfc.dtx
+ auncial.ins
+ auncial.pdf
+ and the derived files
+ auncial.sty
+ b1auncl.fd
+ auncial.map
+ auncl*.mf files
+
+
+------------------------------------------------------------------
+ The distribution consists of the following files:
+README (this file)
+auncial.dtx
+aunclmfb.dtx
+aunclmft.dtx
+aunclmfc.dtx
+auncial.ins
+auncial.pdf (user manual)
+tryauncial.tex (example usage)
+tryauncial.pdf
+auncl10.afm
+auncl10.pfb
+auncl10.tfm
+aunclb10.afm
+aunclb10.pfb
+aunclb10.tfm
+
+ To install the bundle:
+o If you want MetaFont sources uncomment the appropriate lines in auncial.ins.
+o run: latex auncial.ins, which will generate:
+ auncial.sty
+ *.fd files
+ auncial.map
+ and possibly several *.mf files
+o Move *.sty and *.fd files to a location where LaTeX will find them
+ e.g., .../texmf-local/tex/latex/auncial
+o Move *.afm, *.pfb and *.tfm files to where LaTeX looks for font information
+ e.g., .../texmf-var/fonts/afm/public/bookhands/*.afm
+ .../texmf-var/fonts/type1/public/bookhands/*.pfb
+ .../texmf-var/fonts/tfm/public/bookhands/*.tfm
+o Add the *.map information to the dvips/pdftex font maps
+ If you want the MetaFont version as well:
+ o Move the *.mf files to, e.g., .../texmf-var/fonts/source/public/auncial
+ o Add a line like the following to the (texmf/fontname/)special.map file:
+ auncl10.mf public auncial
+ aunclb10.mf public auncial
+o Refresh the database
+ (for more information on the above see the FAQ).
+
+o run: (pdf)latex tryauncial for a test of the font
+
+ If you want a full manual with all the MetaFont and LaTeX code and
+commentry, comment out the \OnlyDescription line in auncial.dtx.
+o run: (pdf)latex auncial.dtx
+o (for an index run: makeindex -s gind.ist *.idx)
+o run: (pdf)latex *.dtx
+o Print *.(pdf|dvi) for a hardcopy of the package manual
+
+2005/11/27
+Peter Wilson
+herries dot press at earthlink dot net
+
+
diff --git a/fonts/auncial-new/auncial.dtx b/fonts/auncial-new/auncial.dtx
new file mode 100644
index 0000000000..38d774ed6d
--- /dev/null
+++ b/fonts/auncial-new/auncial.dtx
@@ -0,0 +1,739 @@
+% \iffalse meta-comment
+%
+% auncial.dtx
+%
+% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+% Copyright 1999--2005 Peter R. Wilson
+%
+% This work may be distributed and/or modified under the
+% conditions of the Latex Project Public License, either
+% version 1.3 of this license or (at your option) any
+% later version.
+% The latest version of the license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of
+% LaTeX version 2003/06/01 or later.
+%
+% This work has the LPPL maintenance status "author-maintained".
+%
+% This work consists of the files listed in the README file.
+%
+% If you do not have the docmfp package (available from CTAN in
+% tex-archive/macros/latex/contrib/supported), comment out the
+% \usepackage{docmfp} line below and uncomment the line following it.
+%
+%<*driver>
+\documentclass[twoside]{ltxdoc}
+%%%%\usepackage{docmfp}
+%%%%%% \providecommand{\DescribeVariable}[1]{} \newenvironment{routine}[1]{}{}
+\usepackage{url}
+\usepackage[draft=false,
+ plainpages=false,
+ pdfpagelabels,
+ bookmarksnumbered,
+ hyperindex=false
+ ]{hyperref}
+\providecommand{\phantomsection}{}
+\OnlyDescription %% comment this out for the full glory
+\EnableCrossrefs
+\CodelineIndex
+\setcounter{StandardModuleDepth}{1}
+\makeatletter
+ \@mparswitchfalse
+\makeatother
+\renewcommand{\MakeUppercase}[1]{#1}
+\pagestyle{headings}
+\newenvironment{addtomargins}[1]{%
+ \begin{list}{}{%
+ \topsep 0pt%
+ \addtolength{\leftmargin}{#1}%
+ \addtolength{\rightmargin}{#1}%
+ \listparindent \parindent
+ \itemindent \parindent
+ \parsep \parskip}%
+ \item[]}{\end{list}}
+\begin{document}
+ \raggedbottom
+ \DocInput{auncial.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{132}
+%
+% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
+% \DoNotIndex{\@centercr,\@cite}
+% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
+% \DoNotIndex{\@input,\@ixpt,\@m}
+% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
+% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
+% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
+% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
+% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
+% \DoNotIndex{\advance,\Alph,\alph}
+% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
+% \DoNotIndex{\bullet}
+% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
+% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
+% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
+% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
+% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
+% \DoNotIndex{\fbox}
+% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
+% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
+% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
+% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
+% \DoNotIndex{\input}
+% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
+% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
+% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
+% \DoNotIndex{\NeedsTeXFormat,\newdimen}
+% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
+% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
+% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
+% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
+% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
+% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
+% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
+% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
+% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
+% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
+% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
+% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
+% \DoNotIndex{\wd,\xiipt,\year,\z@}
+%
+% \changes{v1.0}{1999/05/22}{First public release}
+% \changes{v1.0a}{2001/01/02}{Fixed missing * in fd files}
+% \changes{v2.0}{2005/11/27}{Major rewrite, 'full' T1 encoding, PostScript Type 1}
+%
+% \def\fileversion{v1.0} \def\filedate{1999/05/22}
+% \def\fileversion{v1.0a} \def\filedate{2001/01/02}
+% \def\fileversion{v2.0} \def\filedate{2005/11/27}
+% \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package
+% \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option
+% \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file
+% \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter
+% \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle
+% \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment
+% \newcommand*{\AD}{\textsc{ad}}
+% \newcommand*{\thisfont}{Artificial Uncial}
+%
+% \title{The \Lpack{Artificial Uncial} fonts\thanks{This
+% file has version number \fileversion, last revised
+% \filedate.}}
+%
+% \author{%
+% Peter Wilson\footnote{\texttt{herries dot press at earthlink dot net}}\\
+% Herries Press }
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+% The \Lpack{auncial} bundle provides a PostScript Type1 set of
+% \thisfont{} bookhands
+% as used
+% for manuscripts in the 6th to the 10th century. This is one in a series
+% of manuscript fonts.
+%
+% The font is only supplied in the special bookhands B1 encoding.
+% \end{abstract}
+% \tableofcontents
+% \listoftables
+%
+%
+%
+% \section{Introduction}
+%
+% The \Lpack{auncial} bundle provides a PostScript Type1 version of a
+% Metafont~\cite{METAFONT} rendition
+% of the \thisfont{} manuscript book-hand that was in use between about the
+% sixth and tenth centuries~\AD. It is part of a project to provide fonts
+% covering the major manuscript hands between the first century~\AD{} and
+% the invention of printing. The principal resources used in this project
+% are listed in the Bibliography.
+%
+% The font is only supplied in the special bookhands B1 encoding.
+%
+% This manual is typeset according to the conventions of the
+% \LaTeX{} \textsc{docstrip} utility which enables the automatic
+% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}.
+% The \Lpack{docmfp} package is used for documenting the Metafont portions
+% of the distribution~\cite{DOCMFP}.
+%
+% Section~\ref{sec:usc} describes the usage of the package.
+%
+% \subsection{Manuscript book-hands}
+%
+% Before the invention of printing all books were written by hand. The book-hands
+% used by the scribes and copyists for the manuscripts changed as time
+% went on. Table~\ref{tab:1} lists some of the common book-hands which were used
+% between the 1st and 15th centuries. The later book-hands formed the basis of the
+% fonts used by the early printers, which in turn form the basis of the printing
+% fonts in use today.
+%
+% The manuscript book-hands were written with a broad nibbed reed or quill
+% pen. Among the distinguishing characteristics of a hand, apart from the
+% actual shape of the letters, are the angle of the pen (which controls the
+% variation between thick and thin strokes) and the height of a letter compared
+% to the width of the nib. The lower the ratio of the letter height to nib
+% width, the more condensed is the script. The scripts also varied in their
+% typical height.
+%
+% Table~\ref{tab:1} gives an `average' x-height for each
+% script, which I obtained by measuring a sample of photographs of
+% manuscripts written in the various hands. About a dozen examples
+% of each book-hand were measured. This figure should not be taken too
+% seriously.
+%
+% There was not a sharp division between the use of one hand and another.
+% Many manuscripts exhibit a variety of hands in the same document. For example,
+% the scribe writing in an Uncial hand may have used Roman Rustic letters
+% for capitals. Usually the same pen was used for the two different scripts.
+%
+% Generally speaking, as a hand got older it became more embelished, and
+% therefore took longer to write. As this happened a new hand would appear that
+% was faster, and which would eventually make the earlier one obsolete.
+%
+% Many of the book-hands were single-cased; that is, they did not have an
+% upper- and lower-case as we do nowadays in Western scripts. On the other
+% hand, a script might be majuscule or minuscule. A \textit{majuscule} script
+% is one, like our upper-case, where the letters are drawn between two lines
+% and are of a uniform height with no ascenders or descenders.
+% A \textit{minuscule} script, like our lower-case, is drawn between four lines
+% and has ascenders and descenders.
+%
+% \begin{table}
+% \centering
+% \caption{The main manuscript book-hands} \label{tab:1}
+% \begin{tabular}{lccccc} \hline
+% Name & Century & x-height & Height & Pen & Normalised \\
+% & & (mm) & (nib widths) & angle & height \\ \hline
+% Roman Rustic & 1--6 & 5.7 & 4--6 & 45 & 1.90 \\
+% Uncial & 3--6 & 4.1 & 4--5 & 30 & 1.37 \\
+% Half Uncial & 3--9 & 3.2 & 3--6 & 20--30 & 1.07 \\
+% Artificial Uncial & 6--10 & 4.2 & 3--6 & 10 & 1.40 \\
+% Insular majuscule & 6--9 & 4.2 & 5 & 0--20 & 1.40 \\
+% Insular minuscule & 6 onward & 4.1 & 5--6 & 45--70 & 1.37 \\
+% Carolingian minuscule & 8--12 & 3.0 & 3--5 & 45 & 1.00 \\
+% Early Gothic & 11--12 & 3.8 & 4--6 & 20--45 & 1.27 \\
+% Gothic Textura & 13--15 & 3.9 & 3--5 & 30--45 & 1.30 \\
+% Gothic Prescius & 13 onward & 3.3 & 4--5 & 45 & 1.10 \\
+% Rotunda & 13--15 & 3.2 & 4--6 & 30 & 1.07 \\
+% Humanist minuscule & 14 onward & 3.0 & 4--5 & 30--40 & 1.00 \\ \hline
+% \end{tabular}
+% \end{table}
+%
+% During the period under consideration arabic numerals were effectively
+% not used. At the beginning they were unknown and even though some knew
+% of them towards the end, the glyphs used for them are not recognisable ---
+% to me they look somewhat like cryllic letters --- and each locality
+% and time had its own highly individualistic rendering. The general rule
+% when using one of these book-hands is to write all numbers using
+% roman numerals.
+%
+% The Roman alphabet consisted of 23 capital letters --- the J, U and W
+% were absent. The book-hands initially used both a `u' and a `v' interchangeably
+% but by the 10th century the practice had become to use the `v' before a vowel
+% and the `u' otherwise. The letter corresponding to the W sound appeared
+% in England around the 7th century in
+% the form of the runic \textit{wen} character and by about the 11th century
+% the `w' chacter was generally used. The `J' is the newest letter of all, not
+% appearing until about the mid 16th century.
+%
+% In the first century punctuation was virtually unknown, and typically
+% would not even be any additional space between individual words, never
+% mind denoting ends of sentences. Sometimes a dot at mid-height would be
+% used as a word seperator, or to mark off the end of a paragraph. Effectively
+% a text was a continuous stream of letters. By the time that printing was
+% invented, though, all of our modern punctuation marks were being used.
+%
+% Among all these manuscript hands, the Carolingian minuscule is the
+% most important as our modern fonts are based on its letter shapes, and it is
+% also at this point in time where the division occured between the black letter
+% scripts as used even today in Germany, and the lighter fonts used elesewhere.
+% The Rotunda and Humanist minuscule hands were developed in Italy and were
+% essentially a rediscovery of the Carolingian minusucle. Guthenberg took the
+% Gothic scripts as the model for his types. Later printers,
+% such as Nicholas Jenson of Venice,
+% took the Humanist scripts as their models.
+%
+%
+% \subsection{The \thisfont{} script}
+%
+% The \thisfont{} hand, which is a minuscule script, was in use for some five
+% centuries and was, in a sense, the sucessor to the Uncial book-hand. It was
+% a much more calligraphic script, and as time went on it became even more
+% decorated, until it was too time consuming to use. Usually the
+% lettering in a manuscript was all one size. If the scribe felt the need
+% for `capital' letters then, using the same pen, would either write a larger
+% \thisfont{} letter or a Roman Capital letter. The capitals were only used at
+% the start of a line, and were either fully or partially in the margin. The
+% capitals were large, perhaps two to four times the size of a normal letter,
+% and were the start of versals. As versals for use with other book-hands,
+% the script lived on until the end of the Middle Ages.
+%
+% I have provided a set of `capital' letters that are only a little larger
+% than the normal letters for use in running text. If you want to typeset
+% using versals, then I suggest Daniel Flipo's \Lpack{lettrine}
+% package~\cite{LETTRINE}.
+% During the time the \thisfont{} script was used the alphabet only had 24
+% letters. I have included the missing J.
+%
+% Arabic numerals were unknown at this time, so all numbers were written
+% using the roman numbering system. I have provided Uncial versions of
+% the arabic digits.
+%
+% Punctuation was used, but not with the frequency of today.
+% A sentence might be ended with
+% a dot at mid-height or a paragraph ended with a colon, also at mid-height.
+% The start
+% of a paragraph might be marked with a capital letter (as a versal).
+% The comma was was a small pointed
+% slash; the semi-colon was known, as was the single quotation
+% mark which was represented by a raised comma.
+%
+%
+% \section{The \Lpack{auncial} and \Lpack{allauncl} packages} \label{sec:usc}
+%
+% The \thisfont{} font family is called |auncl|. The font is supplied in
+% only the special bookhands B1 encoding. Thus, to use the font in a document
+% you need to at least have: \\
+% \verb?\usepackage[B1,...]{fontenc}? \\
+% in the preamble. You also need to have installed the files: \\
+% \file{b1enc.def}, \file{b1cmr.fd}, and possibly \file{TeXB1.enc}.\\
+% These are available from the CTAN \file{bookhands} directory as the
+% pair \file{bhenc.dtx} and \file{bhenc.ins}.
+%
+% \subsection{The \Lpack{auncial} package}
+%
+% This is intended for the occasions when some short pieces of text have
+% to be written in \thisfont{} while the majority of the document is in another
+% font. The normal baselineskips are used.
+%
+% \DescribeMacro{\aunclfamily}
+% The |\aunclfamily| declaration starts typesetting with the \thisfont{} fonts.
+% Use of the \thisfont{} font will continue until either there is another |\...family|
+% declaration or the current group (e.g., environment) is closed.
+%
+% \DescribeMacro{\textuncl}
+% The command |\textuncl{|\meta{text}|}| will typeset \meta{text} using the
+% \thisfont{} fonts.
+%
+% \subsection{The \Lpack{allauncl} package}
+%
+%
+% This package is for when the entire document will be typeset with the
+% \thisfont font. The baselineskips are set to those appropriate to the
+% book-hand.
+%
+% This is a minimalist package. Apart from declaring \thisfont{} to be the
+% default font and setting the baselineskips appropriately, it makes no other
+% alterations.
+% Vertical spacing
+% before and after section titles and before and after lists, etc., will be
+% too small as the \LaTeX{} design assumes a font comparable in size to
+% normal printing fonts, and the book-hand is much taller.
+% To capture more of the flavour of the time, all numbers
+% should be written using roman numerals.
+% The \Lpack{romannum} package~\cite{ROMANNUM}
+% can be used so that \LaTeX{} will typeset the numbers that it generates,
+% like sectioning or caption numbers, using roman numerals instead of arabic
+% digits.
+%
+% \DescribeMacro{\cmrfamily}
+% \DescribeMacro{\textcmr}
+% \DescribeMacro{\cmssfamily}
+% \DescribeMacro{\textcmss}
+% \DescribeMacro{\cmttfamily}
+% \DescribeMacro{\textcmtt}
+% The |...family| declarations start typesetting with the Computer Modern Roman
+% (|\cmrfamily|), the Computer Modern Sans (|\cmssfamily|), and the Computer
+% Modern Typewriter (|\cmttfamily|) font families. The |\textcm..{|\meta{text}|}|
+% commands will typeset \meta{text} in the corresponding Computer Modern font.
+%
+% The \Lpack{allauncl} package automatically loads the \Lpack{auncial} package,
+% so its font commands are available if necessary.
+%
+%
+%
+% \StopEventually{
+% \bibliographystyle{alpha}
+% \renewcommand{\refname}{Bibliography}
+% \begin{thebibliography}{GMS94}
+% \addcontentsline{toc}{section}{\refname}
+%
+% \bibitem[And69]{ANDERSON69}
+% Donald M.~Anderson.
+% \newblock \emph{The Art of Written Forms: The Theory and Practice of Calligraphy}.
+% \newblock Holt, Rinehart and Winston, 1969.
+%
+% \bibitem[Bol95]{BOLOGNA95}
+% Giulia Bologna.
+% \newblock \emph{Illuminated Manuscripts: The Book before Gutenberg}.
+% \newblock Crescent Books, 1995.
+%
+% \bibitem[Day95]{DAY95}
+% Lewis F.~Day.
+% \newblock \emph{Alphabets Old \& New}.
+% \newblock (3rd edition originally published by B.~T.~Batsford, 1910)
+% \newblock Senate, 1995.
+%
+% \bibitem[Dro80]{DROGIN80}
+% Marc Drogin.
+% \newblock \emph{Medieval Calligraphy: Its History and Technique}.
+% \newblock Allenheld, Osmun \& Co., 1980.
+%
+% \bibitem[Dru95]{DRUCKER95}
+% Johanna Drucker.
+% \newblock \emph{The Alphabetic Labyrinth}.
+% \newblock Thames \& Hudson, 1995.
+%
+% \bibitem[Fir93]{FIRMAGE93}
+% Richard A.~Firmage.
+% \newblock \emph{The Alphabet Abecedarium}.
+% \newblock David R~Goodine, 1993.
+%
+% \bibitem[Fli98]{LETTRINE}
+% Daniel Flipo.
+% \newblock \emph{The LETTRINE package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1998.
+%
+% \bibitem[Har95]{HARRIS95}
+% David Harris.
+% \newblock \emph{The Art of Calligraphy}.
+% \newblock DK Publishing, 1995.
+%
+% \bibitem[Jen95]{BETON}
+% Frank Jensen.
+% \newblock \emph{The BETON package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1995.
+%
+% \bibitem[Joh71]{JOHNSTON75}
+% Edward Johnston (ed. Heather Child).
+% \newblock \emph{Formal Penship and Other Papers}.
+% \newblock Penthalic, 1971.
+%
+% \bibitem[Knu87]{CM}
+% Donald E.~Knuth.
+% \newblock \emph{Computer Modern Typefaces}.
+% \newblock Addison-Wesley, 1987.
+%
+% \bibitem[Knu92]{METAFONT}
+% Donald E.~Knuth.
+% \newblock \emph{The METAFONTbook}.
+% \newblock Addison-Wesley, 1992.
+%
+% \bibitem[GMS94]{GOOSSENS94}
+% Michel Goossens, Frank Mittelbach, and Alexander Samarin.
+% \newblock \emph{The LaTeX Companion}.
+% \newblock Addison-Wesley Publishing Company, 1994.
+%
+% \bibitem[Tho75]{THOMAS75}
+% Alan G.~Thomas.
+% \newblock \emph{Great Books and Book Collectors}.
+% \newblock Weidenfield and Nichoson, 1975.
+%
+% \bibitem[Wil99]{DOCMFP}
+% Peter R.~Wilson.
+% \newblock \emph{The DOCMFP Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \bibitem[Wil99b]{ROMANNUM}
+% Peter R.~Wilson.
+% \newblock \emph{The ROMANNUM Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+%
+% \section{The font definition files} \label{sec:fd}
+%
+% The font comes in normal and bold weights only.
+%
+% \begin{macrocode}
+%<*fdot1>
+\DeclareFontFamily{OT1}{auncl}{}
+ \DeclareFontShape{OT1}{auncl}{m}{n}{ <-8.5> auncl7 <8.5-15> auncl10 <15-> auncl17 }{}
+ \DeclareFontShape{OT1}{auncl}{m}{sl}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{OT1}{auncl}{m}{it}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{OT1}{auncl}{m}{sc}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{OT1}{auncl}{m}{u}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{OT1}{auncl}{bx}{n}{ <-8.5> aunclb7 <8.5-15> aunclb10 <15-> aunclb17 }{}
+ \DeclareFontShape{OT1}{auncl}{bx}{it}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{OT1}{auncl}{bx}{sl}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{OT1}{auncl}{b}{n}{ <-> sub * auncl/bx/n }{}
+%</fdot1>
+% \end{macrocode}
+%
+%
+% \begin{macrocode}
+%<*fdt1>
+\DeclareFontFamily{T1}{auncl}{}
+ \DeclareFontShape{T1}{auncl}{m}{n}{ <-8.5> auncl7 <8.5-15> auncl10 <15-> auncl17 }{}
+ \DeclareFontShape{T1}{auncl}{m}{sl}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{T1}{auncl}{m}{it}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{T1}{auncl}{m}{sc}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{T1}{auncl}{m}{u}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{T1}{auncl}{bx}{n}{ <-8.5> aunclb7 <8.5-15> aunclb10 <15-> aunclb17 }{}
+ \DeclareFontShape{T1}{auncl}{bx}{it}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{T1}{auncl}{bx}{sl}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{T1}{auncl}{b}{n}{ <-> sub * auncl/bx/n }{}
+%</fdt1>
+% \end{macrocode}
+%
+% \begin{macrocode}
+%<*fdb1>
+\DeclareFontFamily{B1}{auncl}{}
+ \DeclareFontShape{B1}{auncl}{m}{n}{ <-> auncl10 }{}
+ \DeclareFontShape{B1}{auncl}{m}{sl}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{B1}{auncl}{m}{it}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{B1}{auncl}{m}{sc}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{B1}{auncl}{m}{u}{ <-> sub * auncl/m/n }{}
+ \DeclareFontShape{B1}{auncl}{bx}{n}{ <-> aunclb10 }{}
+ \DeclareFontShape{B1}{auncl}{bx}{it}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{B1}{auncl}{bx}{sl}{ <-> sub * auncl/bx/n }{}
+ \DeclareFontShape{B1}{auncl}{b}{n}{ <-> sub * auncl/bx/n }{}
+%</fdb1>
+% \end{macrocode}
+%
+% \section{The package code} \label{sec:code}
+%
+% \subsection{The \Lpack{auncial} package}
+%
+% The \Lpack{auncial} package is for typesetting short pieces of text
+% in the \thisfont{} fonts.
+%
+% Announce the name and version of the package, which requires
+% \LaTeXe{}.
+% \begin{macrocode}
+%<*usc>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{auncial}[2005/11/27 v2.0 package for Artificial Uncial fonts]
+% \end{macrocode}
+%
+% \begin{macro}{\aunclfamily}
+% Selects the \thisfont{} font family in the B1 encoding.
+% \changes{v1.1}{2005/07/26}{Providing B1 encoding only}
+% \begin{macrocode}
+\newcommand{\aunclfamily}{\usefont{B1}{auncl}{m}{n}}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textuncl}
+% Text command for the \thisfont{} font family.
+% \begin{macrocode}
+\DeclareTextFontCommand{\textauncl}{\aunclfamily}
+% \end{macrocode}
+% \end{macro}
+%
+% The end of this package.
+% \begin{macrocode}
+%</usc>
+% \end{macrocode}
+%
+% \subsection{The \Lpack{allauncl} package}
+%
+% The \Lpack{allauncl} package is intended for use when the entire document
+% will be typeset in the book-hand. This is a minimal package. Because the
+% book-hand should not contain arabic digits a fuller package would redefine
+% anything numbered in \LaTeX{} to use roman instead of arabic numbering.
+% Also, because of the large |\baselineskip| many other aspects of \LaTeX{}
+% to do with vertical positioning should also be redefined.
+%
+%
+% Announce the name and version of the package, which requires
+% \LaTeXe{}. It also uses the \Lpack{auncial} package.
+% \begin{macrocode}
+%<*uscall>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{allauncl}[2005/11/27 v2.0 package for all Artificial Uncial fonts]
+\RequirePackage{auncial}
+% \end{macrocode}
+%
+% \begin{macro}{\Tienc}
+% A macro for testing the value of |\encodingdefault|.
+% \begin{macrocode}
+\providecommand{\Tienc}{OT1}
+% \end{macrocode}
+% \end{macro}
+%
+% Redefine the default fonts to be \thisfont, which has only one family
+% member.
+% \begin{macro}{\rmdefault}
+% \begin{macro}{\sfdefault}
+% \begin{macro}{\ttdefault}
+% \begin{macrocode}
+\renewcommand{\rmdefault}{auncl}
+\renewcommand{\sfdefault}{auncl}
+\renewcommand{\ttdefault}{auncl}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% The `leading' in the book-hand is the same as the |x-height|, which is much
+% greater than for the CMR fonts. I have borrowed code from Frank Jensen's
+% \Lpack{beton} package~\cite{BETON} to do this. The |x-height| (in points)
+% for the CMR
+% fonts is given in Table~\ref{tab:cmrx}. Note that the CMR design sizes are
+% 5--10, 12, and 17.28 points. The other values given are scaled from these
+% figures.
+%
+% \begin{table}
+% \centering
+% \caption{The x heights of the CMR and \thisfont{} fonts} \label{tab:cmrx}
+% \begin{tabular}{ccc} \hline
+% Design & CMR & \thisfont \\
+% Size & X Height & X Height \\ \hline
+% 5 & 2.14 & 3.00 \\
+% 6 & 2.58 & 3.61 \\
+% 7 & 3.00 & 4.22 \\
+% 8 & 3.44 & 4.82 \\
+% 9 & 3.86 & 5.40 \\
+% 10 & 4.31 & 6.03 \\
+% 11 & 4.74 & 6.64 \\
+% 12 & 5.17 & 7.24 \\
+% 14 & 6.03 & 8.44 \\
+% 17 & 7.44 & 10.42 \\
+% 20 & 8.75 & 12.25 \\
+% 25 & 10.94 & 15.32 \\ \hline
+% \end{tabular}
+% \end{table}
+%
+% \begin{macro}{\auncial@baselineskip@table}
+% A table of the normal font sizes and the corresponding baselineskip.
+% The distance between baselines for \thisfont{} is over twice
+% the |x-height|.
+%
+% \begin{macrocode}
+\newcommand{\auncial@baselineskip@table}{%
+ <\@vpt>6.6%
+ <\@vipt>7.9%
+ <\@viipt>9.3%
+ <\@viiipt>10.6%
+ <\@ixpt>11.9%
+ <\@xpt>13.3%
+ <\@xipt>14.6%
+ <\@xiipt>16.5%
+ <\@xivpt>18.6%
+ <\@xviipt>22.9%
+ <\@xxpt>26.9%
+ <\@xxvpt>33.7}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\auncial@new@setfontsize}
+% This is a macro that replaces the |\@setfontsize| macro which is called by
+% the font size changing commands.
+% \begin{macrocode}
+\newcommand{\auncial@new@setfontsize}[3]{%
+ \edef\@tempa{\def\noexpand\@tempb####1<#2}%
+ \@tempa>##2<##3\@nil{\def\auncial@baselineskip@value{##2}}%
+ \edef\@tempa{\noexpand\@tempb\auncial@baselineskip@table<#2}%
+ \@tempa><\@nil
+ \ifx\auncial@baselineskip@value\@empty
+ \def\auncial@baselineskip@value{#3}%
+ \fi
+ \auncial@old@setfontsize{#1}{#2}\auncial@baselineskip@value}
+% \end{macrocode}
+% \end{macro}
+%
+% We had better give an author a means of using The Computer Modern fonts
+% if necessary.
+%
+% \begin{macro}{\cmrfamily}
+% \begin{macro}{\cmssfamily}
+% \begin{macro}{\cmttfamily}
+% These macros select the Computer Modern Roman, Sans, and Typewriter
+% font families in either the T1 or OT1 encodings.
+% \begin{macrocode}
+\ifx\Tienc\encodingdefault
+ \providecommand{\cmrfamily}{\usefont{OT1}{cmr}{m}{n}}
+ \providecommand{\cmssfamily}{\usefont{OT1}{cmss}{m}{n}}
+ \providecommand{\cmttfamily}{\usefont{OT1}{cmtt}{m}{n}}
+\else
+ \providecommand{\cmrfamily}{\usefont{T1}{cmr}{m}{n}}
+ \providecommand{\cmssfamily}{\usefont{T1}{cmss}{m}{n}}
+ \providecommand{\cmttfamily}{\usefont{T1}{cmtt}{m}{n}}
+\fi
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\textcmr}
+% Text command for the Computer Modern Roman font family.
+% \begin{macrocode}
+\DeclareTextFontCommand{\textcmr}{\cmrfamily}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textcmss}
+% Text command for the Computer Modern Sans font family.
+% \begin{macrocode}
+\DeclareTextFontCommand{\textcmss}{\cmssfamily}
+% \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textcmtt}
+% Text command for the Computer Modern Typewriter font family.
+% \begin{macrocode}
+\DeclareTextFontCommand{\textcmtt}{\cmttfamily}
+% \end{macrocode}
+% \end{macro}
+%
+%
+% At the start of the document, change the |\@setfontsize| macro and call
+% the normal font to implement the change.
+% \begin{macrocode}
+\AtBeginDocument{%
+ \let\auncial@old@setfontsize=\@setfontsize
+ \let\@setfontsize=\auncial@new@setfontsize}
+\AtBeginDocument{\normalsize}
+% \end{macrocode}
+%
+% The end of this package.
+% \begin{macrocode}
+%</uscall>
+% \end{macrocode}
+%
+% \section{The map file}
+%
+% Just a short file.
+% \changes{v1.1}{2005/07/26}{Added map file}
+%
+% \begin{macrocode}
+%<*map>
+auncl10 Bookhands-Artificial-Uncial <auncl10.pfb
+aunclb10 Bookhands-Artificial-Uncial-Bold <aunclb10.pfb
+%</map>
+% \end{macrocode}
+%
+%
+% \Finale
+%
+\endinput
+
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+
+
diff --git a/fonts/auncial-new/auncial.ins b/fonts/auncial-new/auncial.ins
new file mode 100644
index 0000000000..49eaade1f9
--- /dev/null
+++ b/fonts/auncial-new/auncial.ins
@@ -0,0 +1,114 @@
+%% auncial.ins
+%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+%% Copyright 1999--2005 Peter R. Wilson
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the Latex Project Public License, either
+%% version 1.3 of this license or (at your option) any
+%% later version.
+%% The latest version of the license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of
+%% LaTeX version 2003/06/01 or later.
+%%
+%% This work has the LPPL maintenance status "author-maintained".
+%%
+%% This work consists of the files listed in the README file.
+%%
+%% This file will generate fast loadable files from the doc files
+%% in this work when run through LaTeX
+%%
+%% --------------------- start of docstrip commands --------------
+%%
+\def\batchfile{auncial.ins}
+\input docstrip.tex
+\preamble
+------------------------------------------------------------------
+ Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+ Copyright 1999--2005 Peter R. Wilson
+
+ This work may be distributed and/or modified under the
+ conditions of the Latex Project Public License, either
+ version 1.3 of this license or (at your option) any
+ later version.
+ The latest version of the license is in
+ http://www.latex-project.org/lppl.txt
+ and version 1.3 or later is part of all distributions of
+ LaTeX version 2003/06/01 or later.
+
+ This work has the LPPL maintenance status "author-maintained".
+
+ This work consists of the files listed in the README file.
+------------------------------------------------------------------
+\endpreamble
+
+\keepsilent
+
+%%%%%% Do not try to generate any driver file. This is only here for
+%%%%%% historical purposes.
+%%% \Msg{*** Generating the driver file ***}
+%%% \generateFile{auncial.drv}{t}{\from{auncial.dtx}{driver}}
+
+\Msg{*** Generating the Metafont files ***}
+\usepostamble\empty
+
+%%\generateFile{auncl10.mf}{t}{\from{aunclmfb.dtx}{base10}}
+%%\generateFile{aunclb10.mf}{t}{\from{aunclmfb.dtx}{base10b}}
+%%\generateFile{auncltitle.mf}{t}{\from{aunclmft.dtx}{mfd}}
+%%\generateFile{auncllow.mf}{t}{\from{aunclmfc.dtx}{low}}
+%%\generateFile{aunclsci.mf}{t}{\from{aunclmfc.dtx}{ascii}}
+%%\generateFile{aunclmid.mf}{t}{\from{aunclmfc.dtx}{mid}}
+%%\generateFile{auncltop.mf}{t}{\from{aunclmfc.dtx}{top}}
+
+
+\Msg{*** Generating the Font Definition files ***}
+\usepostamble\defaultpostamble
+
+%%\generateFile{ot1auncl.fd}{t}{\from{auncial.dtx}{fdot1}}
+%%\generateFile{t1auncl.fd}{t}{\from{auncial.dtx}{fdt1}}
+\generateFile{b1auncl.fd}{t}{\from{auncial.dtx}{fdb1}}
+
+\Msg{*** Generating the LaTeX2e package files ***}
+
+\generateFile{auncial.sty}{t}{\from{auncial.dtx}{usc}}
+\generateFile{allauncl.sty}{t}{\from{auncial.dtx}{uscall}}
+
+\Msg{*** Generating the map files ***}
+\usepreamble\empty
+\usepostamble\empty
+
+\generateFile{auncial.map}{t}{\from{auncial.dtx}{map}}
+
+\Msg{***********************************************************}
+\Msg{*}
+\Msg{* To continue with the installation move these into the LaTeX macro area:}
+\Msg{* \space\space b1auncl.fd}
+\Msg{* \space\space auncial.sty}
+\Msg{* \space\space allauncl.sty}
+\Msg{*}
+\Msg{* Further instructions are in the README}
+\Msg{*}
+\Msg{* If you wish to install for MetaFont you have to move the following}
+\Msg{* files into directories searched by TeX, and make appropriate changes}
+\Msg{* to dvips' special.ps file:}
+\Msg{*}
+\Msg{* Move these into the font source area:}
+\Msg{* \space\space auncl10.mf}
+\Msg{* \space\space aunclb10.mf}
+\Msg{* \space\space auncltitle.mf}
+\Msg{* \space\space auncllow.mf}
+\Msg{* \space\space aunclsci.mf}
+\Msg{* \space\space aunclmid.mf}
+\Msg{* \space\space auncltop.mf}
+\Msg{*}
+\Msg{* To produce the documentation run the files ending with}
+\Msg{* `.dtx' through LaTeX.}
+\Msg{* Process any name.idx file by:}
+\Msg{* \space\space\space\space makeindex -s gind.ist name}
+\Msg{* Process any name.glo file by:}
+\Msg{* \space\space\space\space makeindex -s gglo.ist -o name.gls name.glo}
+\Msg{*}
+\Msg{* Happy TeXing}
+\Msg{***********************************************************}
+
+\endinput
diff --git a/fonts/auncial-new/auncial.pdf b/fonts/auncial-new/auncial.pdf
new file mode 100644
index 0000000000..7e6652c137
--- /dev/null
+++ b/fonts/auncial-new/auncial.pdf
Binary files differ
diff --git a/fonts/auncial-new/auncl10.afm b/fonts/auncial-new/auncl10.afm
new file mode 100644
index 0000000000..5103c357d7
--- /dev/null
+++ b/fonts/auncial-new/auncl10.afm
@@ -0,0 +1,276 @@
+StartFontMetrics 2.0
+Comment Generated by pfaedit
+Comment Creation Date: Sun Nov 27 18:00:20 2005
+FontName Bookhands-Artifical-Uncial
+FullName Bookhands Artificial Uncial
+FamilyName Bookhands
+Weight Book
+Notice (Generated from MetaFont bitmap by mftrace 1.1.5, http://www.cs.uu.nl/~hanwen/mftrace/ Copyright 2005 Peter R. Wilson)
+ItalicAngle 0
+IsFixedPitch false
+UnderlinePosition -100
+UnderlineThickness 50
+Version 001.001
+EncodingScheme TeXB1
+FontBBox -43 -503 1977 1307
+CapHeight 754
+XHeight 603
+Ascender 805
+Descender -401
+StartCharMetrics 254
+C 0 ; WX 0 ; N .notdef ; B 0 0 0 0 ;
+C 1 ; WX 446 ; N acute ; B 145 605 391 805 ;
+C 2 ; WX 446 ; N circumflex ; B 16 605 430 806 ;
+C 3 ; WX 781 ; N tilde ; B 174 643 608 729 ;
+C 4 ; WX 781 ; N dieresis ; B 139 523 642 729 ;
+C 5 ; WX 781 ; N hungarumlaut ; B 192 551 589 820 ;
+C 6 ; WX 446 ; N ring ; B 66 536 381 806 ;
+C 7 ; WX 446 ; N caron ; B 16 605 430 805 ;
+C 8 ; WX 446 ; N breve ; B 15 606 430 805 ;
+C 9 ; WX 781 ; N macron ; B 233 670 548 703 ;
+C 11 ; WX 230 ; N cedilla ; B 46 -268 276 15 ;
+C 12 ; WX 230 ; N ogonek ; B -43 -254 213 16 ;
+C 14 ; WX 348 ; N guilsinglleft ; B 17 59 332 544 ;
+C 15 ; WX 348 ; N guilsinglright ; B 16 59 331 544 ;
+C 16 ; WX 835 ; N quotedblleft ; B 42 461 662 819 ;
+C 17 ; WX 835 ; N quotedblright ; B 174 460 794 819 ;
+C 18 ; WX 835 ; N quotedblbase ; B 174 -42 793 316 ;
+C 19 ; WX 585 ; N guillemotleft ; B 17 59 569 544 ;
+C 20 ; WX 585 ; N guillemotright ; B 16 59 568 544 ;
+C 21 ; WX 658 ; N endash ; B 13 220 632 391 ;
+C 22 ; WX 1261 ; N emdash ; B 14 151 1234 467 ;
+C 23 ; WX 446 ; N grave ; B 56 605 302 805 ;
+C 24 ; WX 446 ; N dotaccent ; B 120 583 326 788 ;
+C 25 ; WX 405 ; N dotlessi ; B 55 -202 351 605 ;
+C 26 ; WX 405 ; N dotlessj ; B 55 -402 351 605 ;
+C 27 ; WX 1372 ; N ff ; B 55 -403 1316 604 ; L l ffl ; L i ffi ;
+C 28 ; WX 1064 ; N fi ; B 56 -403 1008 605 ;
+C 29 ; WX 1372 ; N fl ; B 55 -403 1317 604 ;
+C 30 ; WX 1722 ; N ffi ; B 56 -403 1666 605 ;
+C 31 ; WX 2031 ; N ffl ; B 56 -403 1977 604 ;
+C 32 ; WX 0 ; N space ; B 0 0 0 0 ;
+C 33 ; WX 269 ; N exclam ; B 40 -13 228 805 ;
+C 34 ; WX 835 ; N quotedbl ; B 174 460 794 819 ;
+C 35 ; WX 1059 ; N numbersign ; B 56 -197 1003 801 ;
+C 36 ; WX 865 ; N dollar ; B 55 -217 810 971 ;
+C 37 ; WX 714 ; N percent ; B 54 -16 661 820 ;
+C 38 ; WX 1166 ; N ampersand ; B 52 -202 1188 622 ;
+C 39 ; WX 572 ; N quoteright ; B 174 259 530 618 ;
+C 40 ; WX 535 ; N parenleft ; B 56 -418 546 1021 ;
+C 41 ; WX 535 ; N parenright ; B -12 -418 480 1021 ;
+C 42 ; WX 639 ; N asterisk ; B 51 446 588 1005 ;
+C 43 ; WX 743 ; N plus ; B 55 45 688 633 ;
+C 44 ; WX 572 ; N comma ; B 173 -42 530 316 ;
+C 45 ; WX 538 ; N hyphen ; B 14 233 511 377 ;
+C 46 ; WX 243 ; N period ; B 41 222 202 381 ;
+C 47 ; WX 639 ; N slash ; B 17 -418 623 1021 ;
+C 48 ; WX 714 ; N zero ; B 55 -23 658 701 ;
+C 49 ; WX 714 ; N one ; B 210 -201 506 699 ;
+C 50 ; WX 714 ; N two ; B 54 -117 659 701 ;
+C 51 ; WX 714 ; N three ; B 54 -28 659 706 ;
+C 52 ; WX 714 ; N four ; B 56 -1 736 699 ;
+C 53 ; WX 714 ; N five ; B 55 0 659 679 ;
+C 54 ; WX 714 ; N six ; B 54 -1 659 680 ;
+C 55 ; WX 714 ; N seven ; B 41 -1 658 680 ;
+C 56 ; WX 714 ; N eight ; B 55 -23 660 701 ;
+C 57 ; WX 714 ; N nine ; B 55 0 659 678 ;
+C 58 ; WX 243 ; N colon ; B 41 122 202 481 ;
+C 59 ; WX 572 ; N semicolon ; B 174 -143 531 481 ;
+C 60 ; WX 743 ; N less ; B 55 86 687 593 ;
+C 61 ; WX 743 ; N equal ; B 55 244 687 434 ;
+C 62 ; WX 743 ; N greater ; B 56 85 688 592 ;
+C 63 ; WX 714 ; N question ; B 41 -73 659 805 ;
+C 64 ; WX 1152 ; N at ; B 54 -221 1093 656 ;
+C 65 ; WX 1035 ; N A ; B 55 -1 971 725 ;
+C 66 ; WX 1035 ; N B ; B 57 -2 981 754 ;
+C 67 ; WX 865 ; N C ; B 54 0 810 767 ;
+C 68 ; WX 1116 ; N D ; B 56 0 1061 1042 ;
+C 69 ; WX 865 ; N E ; B 55 0 810 766 ;
+C 70 ; WX 865 ; N F ; B 56 -453 809 755 ;
+C 71 ; WX 865 ; N G ; B 54 -503 810 767 ;
+C 72 ; WX 1035 ; N H ; B 58 -2 981 1006 ;
+C 73 ; WX 405 ; N I ; B 55 -201 351 755 ; L J IJ ;
+C 74 ; WX 405 ; N J ; B 55 -452 351 755 ;
+C 75 ; WX 1116 ; N K ; B 55 -201 1120 1006 ;
+C 76 ; WX 865 ; N L ; B 57 -138 810 1007 ;
+C 77 ; WX 1618 ; N M ; B 55 -1 1563 754 ;
+C 78 ; WX 1206 ; N N ; B 55 -202 1148 754 ;
+C 79 ; WX 990 ; N O ; B 55 -22 934 777 ;
+C 80 ; WX 990 ; N P ; B 55 -453 935 764 ;
+C 81 ; WX 990 ; N Q ; B 55 -452 935 754 ;
+C 82 ; WX 1116 ; N R ; B 55 -202 1060 763 ;
+C 83 ; WX 865 ; N S ; B 55 1 811 755 ;
+C 84 ; WX 1116 ; N T ; B 42 -2 1060 755 ;
+C 85 ; WX 1286 ; N U ; B 55 -1 1229 755 ;
+C 86 ; WX 1161 ; N V ; B 57 0 1106 755 ;
+C 87 ; WX 1618 ; N W ; B 55 -1 1562 754 ;
+C 88 ; WX 1286 ; N X ; B 56 -252 1230 754 ;
+C 89 ; WX 1116 ; N Y ; B 55 -503 1062 969 ;
+C 90 ; WX 990 ; N Z ; B 41 -137 935 755 ;
+C 91 ; WX 385 ; N bracketleft ; B 54 -402 396 1006 ;
+C 92 ; WX 639 ; N backslash ; B 16 -418 622 1021 ;
+C 93 ; WX 385 ; N bracketright ; B -11 -403 331 1005 ;
+C 94 ; WX 446 ; N asciicircum ; B 16 605 430 806 ;
+C 95 ; WX 743 ; N underscore ; B 56 -1 687 40 ;
+C 96 ; WX 572 ; N quoteleft ; B 42 461 398 819 ;
+C 97 ; WX 850 ; N a ; B 55 0 790 584 ;
+C 98 ; WX 850 ; N b ; B 57 -2 796 604 ;
+C 99 ; WX 714 ; N c ; B 54 0 659 615 ; L t c_t ;
+C 100 ; WX 915 ; N d ; B 54 -1 860 827 ;
+C 101 ; WX 714 ; N e ; B 54 -1 659 614 ; L t e_t ;
+C 102 ; WX 714 ; N f ; B 56 -403 658 604 ; L l fl ; L i fi ; L f ff ;
+C 103 ; WX 714 ; N g ; B 54 -404 659 614 ;
+C 104 ; WX 850 ; N h ; B 58 -2 796 805 ;
+C 105 ; WX 405 ; N i ; B 55 -202 351 605 ; L j ij ;
+C 106 ; WX 405 ; N j ; B 55 -402 351 605 ;
+C 107 ; WX 915 ; N k ; B 55 -202 923 805 ;
+C 108 ; WX 714 ; N l ; B 57 -137 660 806 ;
+C 109 ; WX 1317 ; N m ; B 55 -1 1262 604 ;
+C 110 ; WX 987 ; N n ; B 55 -202 929 604 ;
+C 111 ; WX 814 ; N o ; B 55 -22 758 627 ;
+C 112 ; WX 814 ; N p ; B 55 -402 758 610 ;
+C 113 ; WX 814 ; N q ; B 56 -402 759 604 ;
+C 114 ; WX 915 ; N r ; B 55 -202 859 607 ;
+C 115 ; WX 714 ; N s ; B 55 0 659 604 ;
+C 116 ; WX 915 ; N t ; B 41 -1 859 604 ;
+C 117 ; WX 1051 ; N u ; B 56 -2 994 610 ;
+C 118 ; WX 951 ; N v ; B 57 0 896 605 ;
+C 119 ; WX 1317 ; N w ; B 56 -1 1262 610 ;
+C 120 ; WX 1051 ; N x ; B 56 -202 995 604 ;
+C 121 ; WX 915 ; N y ; B 55 -402 860 819 ;
+C 122 ; WX 814 ; N z ; B 41 -137 759 604 ;
+C 123 ; WX 611 ; N braceleft ; B 55 -402 584 1005 ;
+C 124 ; WX 190 ; N bar ; B 55 -403 135 1006 ;
+C 125 ; WX 611 ; N braceright ; B 27 -402 556 1005 ;
+C 126 ; WX 781 ; N asciitilde ; B 55 625 725 748 ;
+C 127 ; WX 538 ; N hyphen ; B 14 233 511 377 ;
+C 128 ; WX 572 ; N quotesinglbase ; B 173 -42 530 316 ;
+C 129 ; WX 1035 ; N Aogonek ; B 55 -173 971 725 ;
+C 130 ; WX 865 ; N Cacute ; B 54 0 810 996 ;
+C 131 ; WX 865 ; N Ccaron ; B 54 0 810 996 ;
+C 132 ; WX 1116 ; N Dcaron ; B 56 0 1061 1307 ;
+C 133 ; WX 865 ; N Ecaron ; B 55 0 810 1055 ;
+C 134 ; WX 865 ; N Eogonek ; B 55 -253 810 767 ;
+C 135 ; WX 990 ; N paragraph ; B 56 -452 936 754 ;
+C 136 ; WX 865 ; N Lacute ; B 57 -138 810 1307 ;
+C 137 ; WX 865 ; N Lcaron ; B 57 -138 810 1021 ;
+C 138 ; WX 865 ; N Lslash ; B 9 -137 811 1006 ;
+C 139 ; WX 1206 ; N Nacute ; B 55 -202 1148 1055 ;
+C 140 ; WX 1206 ; N Ncaron ; B 55 -202 1148 1055 ;
+C 141 ; WX 1035 ; N Eng ; B 55 -272 981 755 ;
+C 142 ; WX 990 ; N Ohungarumlaut ; B 55 -22 934 1146 ;
+C 143 ; WX 1116 ; N Racute ; B 55 -202 1060 1055 ;
+C 144 ; WX 1116 ; N Rcaron ; B 55 -202 1060 1055 ;
+C 145 ; WX 865 ; N Sacute ; B 55 1 811 1055 ;
+C 146 ; WX 865 ; N Scaron ; B 55 1 811 1055 ;
+C 147 ; WX 1629 ; N slong_t ; B 55 -1 1573 605 ;
+C 148 ; WX 1116 ; N Tcaron ; B 42 -2 1060 1055 ;
+C 149 ; WX 915 ; N r.half ; B 55 -202 859 607 ;
+C 150 ; WX 1286 ; N Uhungarumlaut ; B 55 -1 1229 1124 ;
+C 151 ; WX 1286 ; N Uring ; B 55 -1 1229 1125 ;
+C 152 ; WX 1116 ; N Ydieresis ; B 55 -503 1062 1033 ;
+C 153 ; WX 990 ; N Zacute ; B 41 -137 935 1055 ;
+C 154 ; WX 990 ; N Zcaron ; B 41 -137 935 1055 ;
+C 155 ; WX 990 ; N Zdot ; B 41 -137 935 1092 ;
+C 156 ; WX 700 ; N IJ ; B 55 -452 646 755 ;
+C 157 ; WX 405 ; N Idot ; B 55 -201 374 1092 ;
+C 158 ; WX 915 ; N dcroat ; B 55 0 861 944 ;
+C 159 ; WX 814 ; N section ; B 53 -283 761 888 ;
+C 160 ; WX 714 ; N slong ; B 55 0 659 604 ; L t slong_t ;
+C 161 ; WX 850 ; N aogonek ; B 55 -169 790 584 ;
+C 162 ; WX 714 ; N cacute ; B 54 0 659 846 ;
+C 163 ; WX 714 ; N ccaron ; B 54 0 659 846 ;
+C 164 ; WX 915 ; N dcaron ; B 54 -1 860 1106 ;
+C 165 ; WX 714 ; N ecaron ; B 54 -1 659 905 ;
+C 166 ; WX 714 ; N eogonek ; B 55 -253 659 614 ;
+C 167 ; WX 1629 ; N e_t ; B 54 -1 1573 614 ;
+C 168 ; WX 714 ; N lacute ; B 57 -137 660 1106 ;
+C 169 ; WX 714 ; N lcaron ; B 57 -137 660 820 ;
+C 170 ; WX 714 ; N lslash ; B 9 -137 660 805 ;
+C 171 ; WX 987 ; N nacute ; B 55 -202 929 905 ;
+C 172 ; WX 987 ; N ncaron ; B 55 -202 929 905 ;
+C 173 ; WX 850 ; N eng ; B 55 -221 796 605 ;
+C 174 ; WX 814 ; N ohungarumlaut ; B 55 -22 758 996 ;
+C 175 ; WX 915 ; N racute ; B 55 -202 859 905 ;
+C 176 ; WX 915 ; N rcaron ; B 55 -202 859 905 ;
+C 177 ; WX 714 ; N sacute ; B 55 0 659 905 ;
+C 178 ; WX 714 ; N scaron ; B 55 0 659 905 ;
+C 179 ; WX 1629 ; N s_t ; B 55 -1 1573 605 ;
+C 180 ; WX 915 ; N tcaron ; B 41 -1 859 905 ;
+C 181 ; WX 1629 ; N c_t ; B 54 -1 1573 615 ;
+C 182 ; WX 1051 ; N uhungarumlaut ; B 56 -2 994 974 ;
+C 183 ; WX 1051 ; N uring ; B 56 -2 994 975 ;
+C 184 ; WX 915 ; N ydieresis ; B 55 -402 860 883 ;
+C 185 ; WX 814 ; N zacute ; B 41 -137 759 905 ;
+C 186 ; WX 814 ; N zcaron ; B 41 -137 759 905 ;
+C 187 ; WX 814 ; N zdot ; B 41 -137 759 942 ;
+C 188 ; WX 700 ; N ij ; B 55 -403 646 605 ;
+C 189 ; WX 269 ; N exclamdown ; B 40 -1 228 818 ;
+C 190 ; WX 714 ; N questiondown ; B 55 0 673 877 ;
+C 191 ; WX 865 ; N sterling ; B 56 -137 811 1072 ;
+C 192 ; WX 1035 ; N Agrave ; B 55 -1 971 996 ;
+C 193 ; WX 1035 ; N Aacute ; B 55 -1 971 996 ;
+C 194 ; WX 1035 ; N Acircumflex ; B 55 -1 971 996 ;
+C 195 ; WX 1035 ; N Atilde ; B 55 -1 971 856 ;
+C 196 ; WX 1035 ; N Adieresis ; B 55 -1 971 974 ;
+C 197 ; WX 1035 ; N Aring ; B 55 -1 971 1007 ;
+C 198 ; WX 1430 ; N AE ; B 55 -1 1376 768 ;
+C 199 ; WX 865 ; N Ccedilla ; B 54 -289 810 767 ;
+C 200 ; WX 865 ; N Egrave ; B 55 0 810 1055 ;
+C 201 ; WX 865 ; N Eacute ; B 55 0 810 1055 ;
+C 202 ; WX 865 ; N Ecircumflex ; B 55 0 810 1055 ;
+C 203 ; WX 865 ; N Edieresis ; B 55 0 810 1033 ;
+C 204 ; WX 405 ; N Igrave ; B 55 -201 394 1055 ;
+C 205 ; WX 405 ; N Iacute ; B 55 -201 394 1055 ;
+C 206 ; WX 405 ; N Icircumflex ; B 55 -201 477 1055 ;
+C 207 ; WX 405 ; N Idieresis ; B 19 -201 522 1033 ;
+C 208 ; WX 1116 ; N Eth ; B 55 -1 1062 1170 ;
+C 209 ; WX 1206 ; N Ntilde ; B 55 -202 1148 915 ;
+C 210 ; WX 990 ; N Ograve ; B 55 -22 934 1077 ;
+C 211 ; WX 990 ; N Oacute ; B 55 -22 934 1077 ;
+C 212 ; WX 990 ; N Ocircumflex ; B 55 -22 934 1077 ;
+C 213 ; WX 990 ; N Otilde ; B 55 -22 934 937 ;
+C 214 ; WX 990 ; N Odieresis ; B 55 -22 934 1055 ;
+C 215 ; WX 1447 ; N OE ; B 55 -42 1392 795 ;
+C 216 ; WX 990 ; N Oslash ; B 41 -22 948 775 ;
+C 217 ; WX 1286 ; N Ugrave ; B 55 -1 1229 1055 ;
+C 218 ; WX 1286 ; N Uacute ; B 55 -1 1229 1055 ;
+C 219 ; WX 1286 ; N Ucircumflex ; B 55 -1 1229 1055 ;
+C 220 ; WX 1286 ; N Udieresis ; B 55 -1 1229 1033 ;
+C 221 ; WX 1116 ; N Yacute ; B 55 -503 1062 1055 ;
+C 222 ; WX 990 ; N Thorn ; B 55 -452 935 754 ;
+C 223 ; WX 1485 ; N Germandbls ; B 55 -1 1430 754 ;
+C 224 ; WX 850 ; N agrave ; B 55 0 790 846 ;
+C 225 ; WX 850 ; N aacute ; B 55 0 790 846 ;
+C 226 ; WX 850 ; N acircumflex ; B 55 0 790 846 ;
+C 227 ; WX 850 ; N atilde ; B 55 0 790 706 ;
+C 228 ; WX 850 ; N adieresis ; B 55 0 790 824 ;
+C 229 ; WX 850 ; N aring ; B 55 0 790 857 ;
+C 230 ; WX 1015 ; N ae ; B 55 0 960 612 ;
+C 231 ; WX 714 ; N ccedilla ; B 54 -281 659 615 ;
+C 232 ; WX 714 ; N egrave ; B 54 -1 659 905 ;
+C 233 ; WX 714 ; N eacute ; B 54 -1 659 905 ;
+C 234 ; WX 714 ; N ecircumflex ; B 54 -1 659 905 ;
+C 235 ; WX 714 ; N edieresis ; B 54 -1 659 883 ;
+C 236 ; WX 405 ; N igrave ; B 55 -202 394 905 ;
+C 237 ; WX 405 ; N iacute ; B 55 -202 394 905 ;
+C 238 ; WX 405 ; N icircumflex ; B 55 -202 477 905 ;
+C 239 ; WX 405 ; N idieresis ; B 19 -202 522 883 ;
+C 240 ; WX 915 ; N eth ; B 55 0 861 944 ;
+C 241 ; WX 987 ; N ntilde ; B 55 -202 929 765 ;
+C 242 ; WX 814 ; N ograve ; B 55 -22 758 927 ;
+C 243 ; WX 814 ; N oacute ; B 55 -22 758 927 ;
+C 244 ; WX 814 ; N ocircumflex ; B 55 -22 758 927 ;
+C 245 ; WX 814 ; N otilde ; B 55 -22 758 787 ;
+C 246 ; WX 814 ; N odieresis ; B 55 -22 758 905 ;
+C 247 ; WX 1180 ; N oe ; B 54 -42 1125 645 ;
+C 248 ; WX 814 ; N oslash ; B 42 -22 772 625 ;
+C 249 ; WX 1051 ; N ugrave ; B 56 -2 994 905 ;
+C 250 ; WX 1051 ; N uacute ; B 56 -2 994 905 ;
+C 251 ; WX 1051 ; N ucircumflex ; B 56 -2 994 905 ;
+C 252 ; WX 1051 ; N udieresis ; B 56 -2 994 883 ;
+C 253 ; WX 915 ; N yacute ; B 55 -402 860 905 ;
+C 254 ; WX 814 ; N thorn ; B 55 -452 759 604 ;
+C 255 ; WX 850 ; N germandbls ; B 55 -403 795 804 ;
+EndCharMetrics
+EndFontMetrics
diff --git a/fonts/auncial-new/auncl10.pfb b/fonts/auncial-new/auncl10.pfb
new file mode 100644
index 0000000000..890e9f193f
--- /dev/null
+++ b/fonts/auncial-new/auncl10.pfb
Binary files differ
diff --git a/fonts/auncial-new/auncl10.tfm b/fonts/auncial-new/auncl10.tfm
new file mode 100644
index 0000000000..bbc60305d2
--- /dev/null
+++ b/fonts/auncial-new/auncl10.tfm
Binary files differ
diff --git a/fonts/auncial-new/aunclb10.afm b/fonts/auncial-new/aunclb10.afm
new file mode 100644
index 0000000000..7aa644c30f
--- /dev/null
+++ b/fonts/auncial-new/aunclb10.afm
@@ -0,0 +1,276 @@
+StartFontMetrics 2.0
+Comment Generated by pfaedit
+Comment Creation Date: Sun Nov 27 18:05:31 2005
+FontName Bookhands-Artificial-Uncial-Bold
+FullName Bookhands Artificial Uncial Bold
+FamilyName Bookhands
+Weight Bold
+Notice (Generated from MetaFont bitmap by mftrace 1.1.5, http://www.cs.uu.nl/~hanwen/mftrace/ Copyright 2005 Peter R. wilson)
+ItalicAngle 0
+IsFixedPitch false
+UnderlinePosition -100
+UnderlineThickness 50
+Version 001.001
+EncodingScheme TeXB1
+FontBBox -60 -504 2363 1436
+CapHeight 755
+XHeight 603
+Ascender 805
+Descender -401
+StartCharMetrics 254
+C 0 ; WX 0 ; N .notdef ; B 0 0 0 0 ;
+C 1 ; WX 702 ; N acute ; B 287 521 638 805 ;
+C 2 ; WX 702 ; N circumflex ; B 56 521 646 805 ;
+C 3 ; WX 1276 ; N tilde ; B 329 575 948 696 ;
+C 4 ; WX 1276 ; N dieresis ; B 280 404 996 697 ;
+C 5 ; WX 1276 ; N hungarumlaut ; B 355 444 921 827 ;
+C 6 ; WX 702 ; N ring ; B 126 422 577 806 ;
+C 7 ; WX 702 ; N caron ; B 55 521 646 806 ;
+C 8 ; WX 702 ; N breve ; B 55 521 648 805 ;
+C 9 ; WX 1276 ; N macron ; B 413 613 863 659 ;
+C 11 ; WX 331 ; N cedilla ; B 68 -381 394 22 ;
+C 12 ; WX 331 ; N ogonek ; B -60 -361 306 22 ;
+C 14 ; WX 534 ; N guilsinglleft ; B 8 52 526 549 ;
+C 15 ; WX 534 ; N guilsinglright ; B 8 54 526 551 ;
+C 16 ; WX 1369 ; N quotedblleft ; B 63 314 1024 826 ;
+C 17 ; WX 1369 ; N quotedblright ; B 345 314 1306 825 ;
+C 18 ; WX 1369 ; N quotedblbase ; B 345 -189 1307 323 ;
+C 19 ; WX 940 ; N guillemotleft ; B 8 52 932 549 ;
+C 20 ; WX 940 ; N guillemotright ; B 8 54 932 551 ;
+C 21 ; WX 787 ; N endash ; B 13 202 756 411 ;
+C 22 ; WX 1511 ; N emdash ; B 12 120 1480 502 ;
+C 23 ; WX 702 ; N grave ; B 63 521 415 805 ;
+C 24 ; WX 702 ; N dotaccent ; B 204 489 498 781 ;
+C 25 ; WX 632 ; N dotlessi ; B 63 -201 483 606 ;
+C 26 ; WX 632 ; N dotlessj ; B 63 -402 484 606 ;
+C 27 ; WX 1638 ; N ff ; B 63 -402 1574 605 ; L l ffl ; L i ffi ;
+C 28 ; WX 1420 ; N fi ; B 64 -402 1354 606 ;
+C 29 ; WX 1638 ; N fl ; B 63 -402 1575 605 ;
+C 30 ; WX 2207 ; N ffi ; B 64 -402 2141 605 ;
+C 31 ; WX 2426 ; N ffl ; B 64 -402 2363 605 ;
+C 32 ; WX 0 ; N space ; B 0 0 0 0 ;
+C 33 ; WX 399 ; N exclam ; B 42 -20 309 805 ;
+C 34 ; WX 1369 ; N quotedbl ; B 345 314 1306 825 ;
+C 35 ; WX 1752 ; N numbersign ; B 64 -196 1688 799 ;
+C 36 ; WX 1032 ; N dollar ; B 63 -223 969 976 ;
+C 37 ; WX 851 ; N percent ; B 63 -22 787 827 ;
+C 38 ; WX 1394 ; N ampersand ; B 61 -202 1442 622 ;
+C 39 ; WX 917 ; N quoteright ; B 345 113 854 624 ;
+C 40 ; WX 638 ; N parenleft ; B 63 -425 663 1028 ;
+C 41 ; WX 638 ; N parenright ; B -25 -424 575 1028 ;
+C 42 ; WX 761 ; N asterisk ; B 50 328 711 1005 ;
+C 43 ; WX 1211 ; N plus ; B 64 -170 1147 848 ;
+C 44 ; WX 917 ; N comma ; B 344 -188 855 323 ;
+C 45 ; WX 643 ; N hyphen ; B 12 217 612 393 ;
+C 46 ; WX 353 ; N period ; B 62 187 291 416 ;
+C 47 ; WX 761 ; N slash ; B 7 -424 753 1028 ;
+C 48 ; WX 851 ; N zero ; B 62 -23 788 702 ;
+C 49 ; WX 851 ; N one ; B 216 -201 636 708 ;
+C 50 ; WX 851 ; N two ; B 62 -168 788 700 ;
+C 51 ; WX 851 ; N three ; B 63 -40 788 718 ;
+C 52 ; WX 851 ; N four ; B 64 -1 897 706 ;
+C 53 ; WX 851 ; N five ; B 62 0 789 680 ;
+C 54 ; WX 851 ; N six ; B 64 0 789 680 ;
+C 55 ; WX 851 ; N seven ; B 44 -2 787 680 ;
+C 56 ; WX 851 ; N eight ; B 63 -23 789 700 ;
+C 57 ; WX 851 ; N nine ; B 62 0 788 678 ;
+C 58 ; WX 353 ; N colon ; B 62 87 291 516 ;
+C 59 ; WX 917 ; N semicolon ; B 345 -289 855 515 ;
+C 60 ; WX 1211 ; N less ; B 64 -22 1147 701 ;
+C 61 ; WX 1211 ; N equal ; B 64 202 1147 476 ;
+C 62 ; WX 1211 ; N greater ; B 64 -23 1147 700 ;
+C 63 ; WX 851 ; N question ; B 44 -105 788 805 ;
+C 64 ; WX 1447 ; N at ; B 63 -228 1378 735 ;
+C 65 ; WX 1324 ; N A ; B 63 0 1246 710 ;
+C 66 ; WX 1324 ; N B ; B 65 -14 1262 755 ;
+C 67 ; WX 1032 ; N C ; B 62 0 969 766 ;
+C 68 ; WX 1333 ; N D ; B 63 0 1270 1081 ;
+C 69 ; WX 1032 ; N E ; B 63 -1 969 765 ;
+C 70 ; WX 1032 ; N F ; B 64 -452 968 755 ;
+C 71 ; WX 1032 ; N G ; B 63 -504 969 764 ;
+C 72 ; WX 1324 ; N H ; B 65 -1 1260 1006 ;
+C 73 ; WX 632 ; N I ; B 63 -201 484 756 ; L J IJ ;
+C 74 ; WX 632 ; N J ; B 64 -453 484 756 ;
+C 75 ; WX 1333 ; N K ; B 63 -201 1353 1007 ;
+C 76 ; WX 1032 ; N L ; B 65 -196 969 1006 ;
+C 77 ; WX 1936 ; N M ; B 63 -2 1872 755 ;
+C 78 ; WX 1617 ; N N ; B 64 -201 1552 755 ;
+C 79 ; WX 1183 ; N O ; B 64 -22 1119 777 ;
+C 80 ; WX 1183 ; N P ; B 64 -452 1120 767 ;
+C 81 ; WX 1183 ; N Q ; B 64 -452 1120 754 ;
+C 82 ; WX 1333 ; N R ; B 64 -201 1269 762 ;
+C 83 ; WX 1032 ; N S ; B 63 -1 969 755 ;
+C 84 ; WX 1333 ; N T ; B 44 -1 1269 754 ;
+C 85 ; WX 1626 ; N U ; B 63 -2 1561 769 ;
+C 86 ; WX 1475 ; N V ; B 65 -1 1412 756 ;
+C 87 ; WX 1936 ; N W ; B 64 -1 1873 769 ;
+C 88 ; WX 1626 ; N X ; B 64 -252 1562 754 ;
+C 89 ; WX 1333 ; N Y ; B 64 -503 1270 1061 ;
+C 90 ; WX 1183 ; N Z ; B 44 -195 1121 755 ;
+C 91 ; WX 457 ; N bracketleft ; B 62 -404 481 1007 ;
+C 92 ; WX 761 ; N backslash ; B 8 -425 754 1027 ;
+C 93 ; WX 457 ; N bracketright ; B -24 -404 395 1007 ;
+C 94 ; WX 702 ; N asciicircum ; B 56 521 646 805 ;
+C 95 ; WX 1211 ; N underscore ; B 64 -1 1147 57 ;
+C 96 ; WX 917 ; N quoteleft ; B 63 314 572 826 ;
+C 97 ; WX 1085 ; N a ; B 63 0 1016 579 ;
+C 98 ; WX 1085 ; N b ; B 65 -5 1022 605 ;
+C 99 ; WX 851 ; N c ; B 64 0 788 614 ; L t c_t ;
+C 100 ; WX 1092 ; N d ; B 64 0 1028 854 ;
+C 101 ; WX 851 ; N e ; B 62 0 788 613 ; L t e_t ;
+C 102 ; WX 851 ; N f ; B 64 -402 787 605 ; L l fl ; L i fi ; L f ff ;
+C 103 ; WX 851 ; N g ; B 64 -403 788 613 ;
+C 104 ; WX 1085 ; N h ; B 65 -1 1022 805 ;
+C 105 ; WX 632 ; N i ; B 63 -201 483 606 ; L j ij ;
+C 106 ; WX 632 ; N j ; B 63 -402 484 606 ;
+C 107 ; WX 1092 ; N k ; B 64 -202 1121 806 ;
+C 108 ; WX 851 ; N l ; B 65 -195 788 806 ;
+C 109 ; WX 1574 ; N m ; B 64 -2 1510 605 ;
+C 110 ; WX 1319 ; N n ; B 64 -201 1253 605 ;
+C 111 ; WX 972 ; N o ; B 64 -22 909 627 ;
+C 112 ; WX 972 ; N p ; B 63 -402 909 611 ;
+C 113 ; WX 972 ; N q ; B 64 -402 910 604 ;
+C 114 ; WX 1092 ; N r ; B 64 -202 1028 606 ;
+C 115 ; WX 851 ; N s ; B 62 0 788 604 ;
+C 116 ; WX 1092 ; N t ; B 44 -1 1028 605 ;
+C 117 ; WX 1326 ; N u ; B 64 -2 1261 625 ;
+C 118 ; WX 1206 ; N v ; B 65 0 1144 606 ;
+C 119 ; WX 1574 ; N w ; B 64 -1 1511 625 ;
+C 120 ; WX 1326 ; N x ; B 64 -201 1263 603 ;
+C 121 ; WX 1092 ; N y ; B 63 -401 1028 911 ;
+C 122 ; WX 972 ; N z ; B 44 -195 910 604 ;
+C 123 ; WX 729 ; N braceleft ; B 64 -403 697 1006 ;
+C 124 ; WX 263 ; N bar ; B 75 -403 189 1006 ;
+C 125 ; WX 729 ; N braceright ; B 32 -403 665 1006 ;
+C 126 ; WX 1276 ; N asciitilde ; B 64 535 1213 737 ;
+C 127 ; WX 643 ; N hyphen ; B 12 217 612 393 ;
+C 128 ; WX 917 ; N quotesinglbase ; B 344 -188 855 323 ;
+C 129 ; WX 1324 ; N Aogonek ; B 63 -249 1246 710 ;
+C 130 ; WX 1032 ; N Cacute ; B 62 0 969 1099 ;
+C 131 ; WX 1032 ; N Ccaron ; B 62 0 969 1100 ;
+C 132 ; WX 1333 ; N Dcaron ; B 63 0 1270 1436 ;
+C 133 ; WX 1032 ; N Ecaron ; B 63 -1 969 1184 ;
+C 134 ; WX 1032 ; N Eogonek ; B 63 -361 969 766 ;
+C 135 ; WX 1183 ; N paragraph ; B 64 -452 1120 754 ;
+C 136 ; WX 1032 ; N Lacute ; B 65 -196 969 1435 ;
+C 137 ; WX 1032 ; N Lcaron ; B 65 -196 969 1026 ;
+C 138 ; WX 1032 ; N Lslash ; B -3 -195 969 1006 ;
+C 139 ; WX 1617 ; N Nacute ; B 64 -201 1552 1183 ;
+C 140 ; WX 1617 ; N Ncaron ; B 64 -201 1552 1184 ;
+C 141 ; WX 1324 ; N Eng ; B 64 -280 1262 755 ;
+C 142 ; WX 1183 ; N Ohungarumlaut ; B 64 -22 1119 1305 ;
+C 143 ; WX 1333 ; N Racute ; B 64 -201 1269 1183 ;
+C 144 ; WX 1333 ; N Rcaron ; B 64 -201 1269 1184 ;
+C 145 ; WX 1032 ; N Sacute ; B 63 -1 969 1183 ;
+C 146 ; WX 1032 ; N Scaron ; B 63 -1 969 1184 ;
+C 147 ; WX 1943 ; N slong_t ; B 63 -1 1879 605 ;
+C 148 ; WX 1333 ; N Tcaron ; B 44 -1 1269 1184 ;
+C 149 ; WX 1092 ; N r.half ; B 64 -202 1028 606 ;
+C 150 ; WX 1626 ; N Uhungarumlaut ; B 63 -2 1561 1283 ;
+C 151 ; WX 1626 ; N Uring ; B 63 -2 1561 1283 ;
+C 152 ; WX 1333 ; N Ydieresis ; B 64 -503 1270 1153 ;
+C 153 ; WX 1183 ; N Zacute ; B 44 -195 1121 1183 ;
+C 154 ; WX 1183 ; N Zcaron ; B 44 -195 1121 1184 ;
+C 155 ; WX 1183 ; N Zdot ; B 44 -195 1121 1237 ;
+C 156 ; WX 1137 ; N IJ ; B 63 -453 905 756 ;
+C 157 ; WX 632 ; N Idot ; B 63 -201 517 1237 ;
+C 158 ; WX 1092 ; N dcroat ; B 64 0 1028 960 ;
+C 159 ; WX 972 ; N section ; B 62 -307 911 910 ;
+C 160 ; WX 851 ; N slong ; B 62 0 788 604 ; L t slong_t ;
+C 161 ; WX 1085 ; N aogonek ; B 63 -239 1016 579 ;
+C 162 ; WX 851 ; N cacute ; B 64 0 788 949 ;
+C 163 ; WX 851 ; N ccaron ; B 64 0 788 950 ;
+C 164 ; WX 1092 ; N dcaron ; B 64 0 1028 1235 ;
+C 165 ; WX 851 ; N ecaron ; B 62 0 788 1034 ;
+C 166 ; WX 851 ; N eogonek ; B 64 -362 788 613 ;
+C 167 ; WX 1943 ; N e_t ; B 64 -1 1879 614 ;
+C 168 ; WX 851 ; N lacute ; B 65 -195 788 1234 ;
+C 169 ; WX 851 ; N lcaron ; B 65 -195 884 825 ;
+C 170 ; WX 851 ; N lslash ; B -3 -195 788 805 ;
+C 171 ; WX 1319 ; N nacute ; B 64 -201 1253 1033 ;
+C 172 ; WX 1319 ; N ncaron ; B 64 -201 1253 1034 ;
+C 173 ; WX 1085 ; N eng ; B 64 -230 1023 604 ;
+C 174 ; WX 972 ; N ohungarumlaut ; B 64 -22 909 1155 ;
+C 175 ; WX 1092 ; N racute ; B 64 -202 1028 1033 ;
+C 176 ; WX 1092 ; N rcaron ; B 64 -202 1028 1034 ;
+C 177 ; WX 851 ; N sacute ; B 62 0 788 1033 ;
+C 178 ; WX 851 ; N scaron ; B 62 0 788 1034 ;
+C 179 ; WX 1943 ; N s_t ; B 63 -1 1879 605 ;
+C 180 ; WX 1092 ; N tcaron ; B 44 -1 1028 1034 ;
+C 181 ; WX 1943 ; N c_t ; B 63 -1 1879 614 ;
+C 182 ; WX 1326 ; N uhungarumlaut ; B 64 -2 1261 1133 ;
+C 183 ; WX 1326 ; N uring ; B 64 -2 1261 1133 ;
+C 184 ; WX 1092 ; N ydieresis ; B 63 -401 1057 1003 ;
+C 185 ; WX 972 ; N zacute ; B 44 -195 910 1033 ;
+C 186 ; WX 972 ; N zcaron ; B 44 -195 910 1034 ;
+C 187 ; WX 972 ; N zdot ; B 44 -195 910 1087 ;
+C 188 ; WX 1137 ; N ij ; B 63 -403 905 606 ;
+C 189 ; WX 399 ; N exclamdown ; B 42 -1 309 823 ;
+C 190 ; WX 851 ; N questiondown ; B 63 -1 807 909 ;
+C 191 ; WX 1032 ; N sterling ; B 64 -195 1047 1050 ;
+C 192 ; WX 1324 ; N Agrave ; B 63 0 1246 1099 ;
+C 193 ; WX 1324 ; N Aacute ; B 63 0 1246 1099 ;
+C 194 ; WX 1324 ; N Acircumflex ; B 63 0 1246 1099 ;
+C 195 ; WX 1324 ; N Atilde ; B 63 0 1246 899 ;
+C 196 ; WX 1324 ; N Adieresis ; B 63 0 1246 1068 ;
+C 197 ; WX 1324 ; N Aring ; B 63 0 1246 1114 ;
+C 198 ; WX 1710 ; N AE ; B 63 0 1647 770 ;
+C 199 ; WX 1032 ; N Ccedilla ; B 62 -412 969 766 ;
+C 200 ; WX 1032 ; N Egrave ; B 63 -1 969 1184 ;
+C 201 ; WX 1032 ; N Eacute ; B 63 -1 969 1183 ;
+C 202 ; WX 1032 ; N Ecircumflex ; B 63 -1 969 1184 ;
+C 203 ; WX 1032 ; N Edieresis ; B 63 -1 969 1153 ;
+C 204 ; WX 632 ; N Igrave ; B 63 -201 546 1184 ;
+C 205 ; WX 632 ; N Iacute ; B 63 -201 546 1183 ;
+C 206 ; WX 632 ; N Icircumflex ; B 63 -201 665 1184 ;
+C 207 ; WX 632 ; N Idieresis ; B 12 -201 728 1153 ;
+C 208 ; WX 1333 ; N Eth ; B 64 0 1270 1186 ;
+C 209 ; WX 1617 ; N Ntilde ; B 64 -201 1552 984 ;
+C 210 ; WX 1183 ; N Ograve ; B 64 -22 1119 1206 ;
+C 211 ; WX 1183 ; N Oacute ; B 64 -22 1119 1205 ;
+C 212 ; WX 1183 ; N Ocircumflex ; B 64 -22 1119 1206 ;
+C 213 ; WX 1183 ; N Otilde ; B 64 -22 1119 1006 ;
+C 214 ; WX 1183 ; N Odieresis ; B 64 -22 1119 1176 ;
+C 215 ; WX 1644 ; N OE ; B 63 -51 1581 802 ;
+C 216 ; WX 1183 ; N Oslash ; B 44 -22 1138 776 ;
+C 217 ; WX 1626 ; N Ugrave ; B 63 -2 1561 1184 ;
+C 218 ; WX 1626 ; N Uacute ; B 63 -2 1561 1183 ;
+C 219 ; WX 1626 ; N Ucircumflex ; B 63 -2 1561 1184 ;
+C 220 ; WX 1626 ; N Udieresis ; B 63 -2 1561 1153 ;
+C 221 ; WX 1333 ; N Yacute ; B 64 -503 1270 1183 ;
+C 222 ; WX 1183 ; N Thorn ; B 63 -452 1119 754 ;
+C 223 ; WX 1774 ; N Germandbls ; B 63 -2 1711 755 ;
+C 224 ; WX 1085 ; N agrave ; B 63 0 1016 949 ;
+C 225 ; WX 1085 ; N aacute ; B 63 0 1016 949 ;
+C 226 ; WX 1085 ; N acircumflex ; B 63 0 1016 949 ;
+C 227 ; WX 1085 ; N atilde ; B 63 0 1016 749 ;
+C 228 ; WX 1085 ; N adieresis ; B 63 0 1016 918 ;
+C 229 ; WX 1085 ; N aring ; B 63 0 1016 964 ;
+C 230 ; WX 1213 ; N ae ; B 64 0 1150 613 ;
+C 231 ; WX 851 ; N ccedilla ; B 64 -401 788 614 ;
+C 232 ; WX 851 ; N egrave ; B 62 0 788 1034 ;
+C 233 ; WX 851 ; N eacute ; B 62 0 788 1033 ;
+C 234 ; WX 851 ; N ecircumflex ; B 62 0 788 1034 ;
+C 235 ; WX 851 ; N edieresis ; B 62 0 788 1003 ;
+C 236 ; WX 632 ; N igrave ; B 63 -201 546 1034 ;
+C 237 ; WX 632 ; N iacute ; B 63 -201 546 1033 ;
+C 238 ; WX 632 ; N icircumflex ; B 63 -201 665 1034 ;
+C 239 ; WX 632 ; N idieresis ; B 12 -201 728 1003 ;
+C 240 ; WX 1092 ; N eth ; B 64 0 1028 960 ;
+C 241 ; WX 1319 ; N ntilde ; B 64 -201 1253 834 ;
+C 242 ; WX 972 ; N ograve ; B 64 -22 909 1056 ;
+C 243 ; WX 972 ; N oacute ; B 64 -22 909 1055 ;
+C 244 ; WX 972 ; N ocircumflex ; B 64 -22 909 1056 ;
+C 245 ; WX 972 ; N otilde ; B 64 -22 909 855 ;
+C 246 ; WX 972 ; N odieresis ; B 64 -22 909 1026 ;
+C 247 ; WX 1341 ; N oe ; B 63 -50 1278 654 ;
+C 248 ; WX 972 ; N oslash ; B 44 -23 928 626 ;
+C 249 ; WX 1326 ; N ugrave ; B 64 -2 1261 1034 ;
+C 250 ; WX 1326 ; N uacute ; B 64 -2 1261 1033 ;
+C 251 ; WX 1326 ; N ucircumflex ; B 64 -2 1261 1034 ;
+C 252 ; WX 1326 ; N udieresis ; B 64 -2 1261 1003 ;
+C 253 ; WX 1092 ; N yacute ; B 63 -401 1028 1033 ;
+C 254 ; WX 972 ; N thorn ; B 64 -452 908 604 ;
+C 255 ; WX 1085 ; N germandbls ; B 64 -402 1022 805 ;
+EndCharMetrics
+EndFontMetrics
diff --git a/fonts/auncial-new/aunclb10.pfb b/fonts/auncial-new/aunclb10.pfb
new file mode 100644
index 0000000000..79a1e77f8e
--- /dev/null
+++ b/fonts/auncial-new/aunclb10.pfb
Binary files differ
diff --git a/fonts/auncial-new/aunclb10.tfm b/fonts/auncial-new/aunclb10.tfm
new file mode 100644
index 0000000000..ae43add608
--- /dev/null
+++ b/fonts/auncial-new/aunclb10.tfm
Binary files differ
diff --git a/fonts/auncial-new/aunclmfb.dtx b/fonts/auncial-new/aunclmfb.dtx
new file mode 100644
index 0000000000..accaf9f9b5
--- /dev/null
+++ b/fonts/auncial-new/aunclmfb.dtx
@@ -0,0 +1,640 @@
+% \iffalse meta-comment
+%
+% aunclmfb.dtx
+%
+% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+% Copyright 1999--2005 Peter R. Wilson
+%
+% This work may be distributed and/or modified under the
+% conditions of the Latex Project Public License, either
+% version 1.3 of this license or (at your option) any
+% later version.
+% The latest version of the license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of
+% LaTeX version 2003/06/01 or later.
+%
+% This work has the LPPL maintenance status "author-maintained".
+%
+% This work consists of the files listed in the README file.
+%
+% If you do not have the docmfp package (available from CTAN in
+% tex-archive/macros/latex/contrib/supported), comment out the
+% \usepackage{docmfp} line below and uncomment the line following it.
+%
+%<*driver>
+\documentclass[twoside]{ltxdoc}
+\usepackage{docmfp}
+%%%%%% \providecommand{\DescribeVariable}[1]{} \newenvironment{routine}[1]{}{}
+\usepackage{url}
+\usepackage[draft=false,
+ plainpages=false,
+ pdfpagelabels,
+ bookmarksnumbered,
+ hyperindex=false
+ ]{hyperref}
+\providecommand{\phantomsection}{}
+\OnlyDescription %% comment this out for the full glory
+\EnableCrossrefs
+\CodelineIndex
+\setcounter{StandardModuleDepth}{1}
+\makeatletter
+ \@mparswitchfalse
+\makeatother
+\renewcommand{\MakeUppercase}[1]{#1}
+\pagestyle{headings}
+\newenvironment{addtomargins}[1]{%
+ \begin{list}{}{%
+ \topsep 0pt%
+ \addtolength{\leftmargin}{#1}%
+ \addtolength{\rightmargin}{#1}%
+ \listparindent \parindent
+ \itemindent \parindent
+ \parsep \parskip}%
+ \item[]}{\end{list}}
+\begin{document}
+ \raggedbottom
+ \DocInput{aunclmfb.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{132}
+%
+% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
+% \DoNotIndex{\@centercr,\@cite}
+% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
+% \DoNotIndex{\@input,\@ixpt,\@m}
+% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
+% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
+% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
+% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
+% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
+% \DoNotIndex{\advance,\Alph,\alph}
+% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
+% \DoNotIndex{\bullet}
+% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
+% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
+% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
+% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
+% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
+% \DoNotIndex{\fbox}
+% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
+% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
+% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
+% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
+% \DoNotIndex{\input}
+% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
+% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
+% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
+% \DoNotIndex{\NeedsTeXFormat,\newdimen}
+% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
+% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
+% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
+% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
+% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
+% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
+% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
+% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
+% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
+% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
+% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
+% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
+% \DoNotIndex{\wd,\xiipt,\year,\z@}
+%
+% \changes{v1.0}{1999/05/22}{First public release}
+%
+% \def\fileversion{v1.0} \def\filedate{1999/05/22}
+% \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package
+% \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option
+% \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file
+% \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter
+% \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle
+% \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment
+% \newcommand*{\AD}{\textsc{ad}}
+% \newcommand*{\thisfont}{Artificial Uncial}
+%
+% \title{\Lpack{Artificial Uncial}: MetaFont base code\thanks{This
+% file has version number \fileversion, last revised
+% \filedate.}}
+%
+% \author{%
+% Peter Wilson\footnote{\texttt{herries dot press at earthlink dot net}}\\
+% Herries Press }
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+% The \Lpack{auncial} bundle provides a PostScript Type1 set of
+% \thisfont{} bookhands
+% as used
+% for manuscripts in the 6th to the 10th century. This is one in a series
+% of manuscript fonts.
+%
+% This document contains the MetaFont base code.
+% \end{abstract}
+% \tableofcontents
+% \listoftables
+%
+%
+%
+% \section{Introduction}
+%
+% The \Lpack{auncial} bundle provides a PostScript Type1 version of a
+% Metafont~\cite{METAFONT} rendition
+% of the \thisfont{} manuscript book-hand that was in use between about the
+% sixth and tenth centuries~\AD. It is part of a project to provide fonts
+% covering the major manuscript hands between the first century~\AD{} and
+% the invention of printing.
+
+% this document contains the MetaFont base code for the font.
+%
+% This manual is typeset according to the conventions of the
+% \LaTeX{} \textsc{docstrip} utility which enables the automatic
+% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}.
+% The \Lpack{docmfp} package is used for documenting the MetaFont portions
+% of the distribution~\cite{DOCMFP}.
+%
+%
+% \section{The Metafont code} \label{sec:mf}
+%
+%
+% As previously noted, this work is part of a larger project to provide
+% fonts covering the main manuscript book-hands. As such, one of the
+% aims is to produce a coordinated set of fonts, especially as multiple
+% hands might be used in a single document.
+%
+% Noting that the hands tend to be somewhat larger than the typical 10pt
+% size (where the x-height is approximately 1.5mm) used for modern books,
+% I have also designed the fonts
+% at a larger than normal size, then applied some non-linear factors when reducing
+% them down to a 10pt size.
+% Further, I have used the height of the Carolingian minuscule as a
+% normalising factor when deciding on the absolute height of any particular
+% script. The x-height of the Carolingian font is made equal to the
+% x-height of the Computer Modern Roman (CMR) font.
+%
+% Modern fonts are effectively drawn. That is, the outline of the letter is
+% drawn carefully and the center is filled with ink. This is shown to good
+% effect in the Metafont code for the Computer Modern fonts~\cite{CM}.
+% In contrast, the manuscript letters were inked by single pen strokes in
+% a calligraphic manner. I have tried to repeat this calligraphic style
+% in the Metafont code.
+%
+% As much as possible I have tried to use parameter values from the
+% Computer Modern Roman (CMR) fonts in order to reduce possible
+% infelicities if the CM and manuscript fonts are used together. However,
+% few of the CMR parameters are applicable to the calligraphic style.
+%
+%
+% \StopEventually{
+% \bibliographystyle{alpha}
+% \renewcommand{\refname}{Bibliography}
+% \begin{thebibliography}{GMS94}
+% \addcontentsline{toc}{section}{\refname}
+%
+% \bibitem[And69]{ANDERSON69}
+% Donald M.~Anderson.
+% \newblock \emph{The Art of Written Forms: The Theory and Practice of Calligraphy}.
+% \newblock Holt, Rinehart and Winston, 1969.
+%
+% \bibitem[Bol95]{BOLOGNA95}
+% Giulia Bologna.
+% \newblock \emph{Illuminated Manuscripts: The Book before Gutenberg}.
+% \newblock Crescent Books, 1995.
+%
+% \bibitem[Day95]{DAY95}
+% Lewis F.~Day.
+% \newblock \emph{Alphabets Old \& New}.
+% \newblock (3rd edition originally published by B.~T.~Batsford, 1910)
+% \newblock Senate, 1995.
+%
+% \bibitem[Dro80]{DROGIN80}
+% Marc Drogin.
+% \newblock \emph{Medieval Calligraphy: Its History and Technique}.
+% \newblock Allenheld, Osmun \& Co., 1980.
+%
+% \bibitem[Dru95]{DRUCKER95}
+% Johanna Drucker.
+% \newblock \emph{The Alphabetic Labyrinth}.
+% \newblock Thames \& Hudson, 1995.
+%
+% \bibitem[Fir93]{FIRMAGE93}
+% Richard A.~Firmage.
+% \newblock \emph{The Alphabet Abecedarium}.
+% \newblock David R~Goodine, 1993.
+%
+% \bibitem[Fli98]{LETTRINE}
+% Daniel Flipo.
+% \newblock \emph{The LETTRINE package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1998.
+%
+% \bibitem[Har95]{HARRIS95}
+% David Harris.
+% \newblock \emph{The Art of Calligraphy}.
+% \newblock DK Publishing, 1995.
+%
+% \bibitem[Jen95]{BETON}
+% Frank Jensen.
+% \newblock \emph{The BETON package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1995.
+%
+% \bibitem[Joh71]{JOHNSTON75}
+% Edward Johnston (ed. Heather Child).
+% \newblock \emph{Formal Penship and Other Papers}.
+% \newblock Penthalic, 1971.
+%
+% \bibitem[Knu87]{CM}
+% Donald E.~Knuth.
+% \newblock \emph{Computer Modern Typefaces}.
+% \newblock Addison-Wesley, 1987.
+%
+% \bibitem[Knu92]{METAFONT}
+% Donald E.~Knuth.
+% \newblock \emph{The METAFONTbook}.
+% \newblock Addison-Wesley, 1992.
+%
+% \bibitem[GMS94]{GOOSSENS94}
+% Michel Goossens, Frank Mittelbach, and Alexander Samarin.
+% \newblock \emph{The LaTeX Companion}.
+% \newblock Addison-Wesley Publishing Company, 1994.
+%
+% \bibitem[Tho75]{THOMAS75}
+% Alan G.~Thomas.
+% \newblock \emph{Great Books and Book Collectors}.
+% \newblock Weidenfield and Nichoson, 1975.
+%
+% \bibitem[Wil99]{DOCMFP}
+% Peter R.~Wilson.
+% \newblock \emph{The DOCMFP Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \bibitem[Wil99b]{ROMANNUM}
+% Peter R.~Wilson.
+% \newblock \emph{The ROMANNUM Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+%
+% \section{The base parameter file}
+%
+% We deal with the parameter files first, and start by announcing
+% what they are for. The \thisfont{} font comes in three sizes and also as a normal
+% and a bold font.
+% \begin{macrocode}
+%<*base7|base10|base17|base7b|base10b|base17b>
+%<base7>%%% AUNCL7.MF Artificial Uncial at 7 point design size.
+%<base10>%%% AUNCL10.MF Artificial Uncial at 10 point design size.
+%<base17>%%% AUNCL17.MF Artificial Uncial at 17 point design size.
+%<base7b>%%% AUNCLB7.MF Artificial Uncial Bold at 7 point design size.
+%<base10b>%%% AUNCLB10.MF Artificial Uncial Bold at 10 point design size.
+%<base17b>%%% AUNCLB17.MF Artificial Uncial Bold at 17 point design size.
+%
+% \end{macrocode}
+% Parameters from CMR are used as much as possible. We also
+% make sure that \Lpack{cmbase} is loaded as well as plain Metafont.
+% \begin{macrocode}
+if unknown cmbase: input cmbase fi
+
+%<base7>font_identifier:="AUNCL"; font_size 7pt#;
+%<base10>font_identifier:="AUNCL"; font_size 10pt#;
+%<base17>font_identifier:="AUNCL"; font_size 17.28pt#;
+%<base7b>font_identifier:="AUNCLB"; font_size 7pt#;
+%<base10b>font_identifier:="AUNCLB"; font_size 10pt#;
+%<base17b>font_identifier:="AUNCLB"; font_size 17.28pt#;
+
+% \end{macrocode}
+%
+% \DescribeVariable{jutstretch}
+% The CMR scaling for lowercase serifs wrt 17pt size.
+% \begin{macrocode}
+%<base7|base7b> jutstretch:=1.19;
+%<base10|base10b> jutstretch:=1.152;
+%<base17|base17b> jutstretch:=1.0;
+% \end{macrocode}
+%
+% \DescribeVariable{stemstretch}
+% The CMR scaling for lowercase stem widths wrt 17pt size.
+% \begin{macrocode}
+%<base7|base7b> stemstretch:=1.50;
+%<base10|base10b> stemstretch:=1.31;
+%<base17|base17b> stemstretch:=1.0;
+% \end{macrocode}
+%
+% \DescribeVariable{caprat}
+% The scaling for `capitals' wrt `lowercase'. This is pretty much a guess.
+% \begin{macrocode}
+ caprat:=1.25; % ratio of capital height to minuscule height
+% \end{macrocode}
+%
+% \DescribeVariable{cap_jutstretch}
+% The CMR scaling for uppercase serifs wrt 17pt size.
+% \begin{macrocode}
+%<base7|base7b> cap_jutstretch:=1.3;
+%<base10|base10b> cap_jutstretch:=1.2;
+%<base17|base17b> cap_jutstretch:=1.0;
+% \end{macrocode}
+%
+% \DescribeVariable{cap_stemstretch}
+% The CMR scaling for uppercase stem width wrt 17pt size.
+% \begin{macrocode}
+%<base7|base7b> cap_stemstretch:=1.45;
+%<base10|base10b> cap_stemstretch:=1.31;
+%<base17|base17b> cap_stemstretch:=1.0;
+% \end{macrocode}
+%
+% \DescribeVariable{bfudge}
+% Letter width scaling for bold font wrt normal font.
+% \begin{macrocode}
+%<base7|base10|base17> bfudge:=1.0;
+%<base7b|base10b|base17b> bfudge:=1.2;
+% \end{macrocode}
+%
+% \DescribeVariable{szfudge}
+% Width scaling wrt 17pt letter width.
+% \begin{macrocode}
+%<base7|base7b> szfudge:=1.18;
+%<base10|base10b> szfudge:=1.0;
+%<base17|base17b> szfudge:=1.0;
+% \end{macrocode}
+%
+% \DescribeVariable{hstretch}
+% Horizontal stretching factor wrt 17pt size letter width.
+% \begin{macrocode}
+ hstretch:=szfudge*bfudge;
+% \end{macrocode}
+%
+% \DescribeVariable{carol_height}
+% The x-height of the Carolingian minuscule font.
+% \begin{macrocode}
+%<base7|base7b> carol_height#:=108.5/36pt#;
+%<base10|base10b> carol_height#:=155/36pt#;
+%<base17|base17b> carol_height#:=268/36pt#;
+% \end{macrocode}
+%
+% \DescribeVariable{vstretch}
+% The height of this font wrt the Carolingian font.
+% \begin{macrocode}
+ vstretch:=1.4;
+
+% \end{macrocode}
+%
+% \DescribeVariable{x_height}
+% The x-height of lower case letters. Scaled from the Carolingian font.
+% \begin{macrocode}
+ x_height#:=vstretch*carol_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{u}
+% The unit width. The CMR values are used.
+% \begin{macrocode}
+%<base7> u#:=15.5/36pt#;
+%<base10> u#:=20/36pt#;
+%<base17> u#:=32.5/36pt#;
+%<base7b> u#:=17.9/36pt#;
+%<base10b> u#:=23/36pt#;
+%<base17b> u#:=37/36pt#;
+% \end{macrocode}
+%
+% \DescribeVariable{width_adj}
+% \DescribeVariable{serif_fit}
+% \DescribeVariable{cap_serif_fit}
+% \DescribeVariable{letter_fit}
+% The majority of these parameters and values are constant.
+% They are for fine adjustements of characters. The CM values are used.
+% \begin{macrocode}
+ width_adj#:=0pt#; % width adjustment for certain characters
+ serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+%<base7|base7b> cap_serif_fit#:=3.5/36pt#; % extra sidebar near uppercase serifs
+%<base10|base10b> cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+%<base17|base17b> cap_serif_fit#:=8/36pt#; % extra sidebar near uppercase serifs
+%<base7|base7b> letter_fit#:=0pt#; % extra space added to all sidebars
+%<base10|base10b> letter_fit#:=0pt#; % extra space added to all sidebars
+%<base17|base17b> letter_fit#:=-0.1pt#; % extra space added to all sidebars
+
+% \end{macrocode}
+%
+% \DescribeVariable{cap_height}
+% The height of capital letters.
+% \begin{macrocode}
+%<base7|base7b> cap_height#:=172.2/36pt#; % height of caps
+%<base10|base10b> cap_height#:=246/36pt#; % height of caps
+%<base17|base17b> cap_height#:=425/36pt#; % height of caps
+% \end{macrocode}
+%
+% \DescribeVariable{thickfudge}
+% The reciprocal of the font height in nib widths. Normal font height
+% is 5 nib widths and the bold font height is 3.5 nib widths.
+% \begin{macrocode}
+%<base7|base10|base17> thickfudge:=1/5;
+%<base7b|base10b|base17b> thickfudge:=1/3.5;
+% \end{macrocode}
+%
+% \DescribeVariable{thinfudge}
+% The nib sharpness.
+% \begin{macrocode}
+thinfudge:=1/6;
+% \end{macrocode}
+%
+% \DescribeVariable{thick}
+% The maximum nib width.
+% That is, the width of the thickest line that can be penned.
+% \begin{macrocode}
+thick#:=stemstretch*thickfudge*x_height#; % max pen breadth
+% \end{macrocode}
+%
+% \DescribeVariable{thin}
+% The nib thinness.
+% That is, the width of the thinnest line that can be penned.
+% \begin{macrocode}
+thin#:=thinfudge*thick#;
+% \end{macrocode}
+%
+% \DescribeVariable{pangle}
+% The pen angle (in degrees).
+% \begin{macrocode}
+pangle:=10; % pen angle
+% \end{macrocode}
+%
+% \DescribeVariable{asc_height}
+% The height of lower case ascenders.
+% \begin{macrocode}
+ asc_height#:=4/3x_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{desc_depth}
+% The depth of lower case descenders.
+% \begin{macrocode}
+ desc_depth#:=2/3x_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{fig_height}
+% The height of numerals. Make these midway between normal and capital
+% letters.
+% \begin{macrocode}
+ fig_height#:=(0.5[1,caprat])*x_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{fig_width}
+% The width of numerals. All numerals are the same width (roughly, an `o').
+% \begin{macrocode}
+ fig_width#:=hstretch*(x_height#);
+% \end{macrocode}
+%
+% \DescribeVariable{body_height}
+% The height of the tallest character.
+% \begin{macrocode}
+ body_height#:=caprat*asc_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{body_depth}
+% The depth of the lowest character.
+% \begin{macrocode}
+ body_depth#:=caprat*desc_depth#;
+% \end{macrocode}
+%
+% \DescribeVariable{half_height}
+% Half the normal letter height.
+% \begin{macrocode}
+ half_height#:=1/2x_height#; % half the height of x height letters
+
+% \end{macrocode}
+%
+% \DescribeVariable{side}
+% We might be using a square for the character design.
+% \begin{macrocode}
+side#:=x_height#;
+% \end{macrocode}
+%
+% \DescribeVariable{rule_thickness}
+% Thickness of rules (in math symbols). The CMR values are used.
+% \begin{macrocode}
+%<base7|base7b> rule_thickness#:=.34pt#;
+%<base10|base10b> rule_thickness#:=.4pt#;
+%<base17|base17b> rule_thickness#:=.6pt#;
+
+% \end{macrocode}
+%
+% \DescribeVariable{jutfudge}
+% Controls the protrusion of serifs.
+% \begin{macrocode}
+jutfudge:= 3/4;
+% \end{macrocode}
+%
+% \DescribeVariable{jut}
+% The lowercase serif protrusion.
+% \begin{macrocode}
+jut#:=jutstretch*jutfudge*thick#;
+% \end{macrocode}
+%
+% \DescribeVariable{srad}
+% |srad| with |0 < srad < 1| controls the serif radius.
+% \begin{macrocode}
+srad:=0.5;
+% \end{macrocode}
+%
+% \DescribeVariable{o}
+% Amount of overshoot for curves (as in an `o'). Use CMR values.
+% \begin{macrocode}
+%<base7|base7b> o#:=5/36pt#;
+%<base10|base10b> o#:=8/36pt#;
+%<base17|base17b> o#:=10/36pt#;
+
+% \end{macrocode}
+%
+% \DescribeVariable{slant}
+% |slant| is the amount the font slopes to the right.
+% \begin{macrocode}
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+
+% \end{macrocode}
+%
+% \DescribeVariable{monospace}
+% We are generating a variable-width font.
+% \begin{macrocode}
+monospace:=false; % should all characters have the same width?
+
+% \end{macrocode}
+%
+% \DescribeVariable{dot_size}
+% The size of (punctuation) dots.
+% \begin{macrocode}
+dot_size#:=5thin#; % size of dots
+% \end{macrocode}
+%
+% \DescribeVariable{comma_width}
+% The horizontal width of a comma.
+% \begin{macrocode}
+comma_width#:=2.5dot_size#;
+
+% \end{macrocode}
+%
+% \DescribeVariable{accent_ysize}
+% \DescribeVariable{accent_thickness}
+% |accent_ysize| is the height/depth of an accent and |accent_thickness| is
+% the width of the pen for drawing accents.
+% \begin{macrocode}
+accent_ysize#:=3/2thick#;
+accent_thickness#:=4/16[thin#,thick#];
+% \end{macrocode}
+%
+% \DescribeVariable{accent_gap}
+% |accent_gap| is the space between the top of a character and the bottom
+% of a (top) accent.
+% \begin{macrocode}
+accent_gap#:=1/2accent_ysize#;
+
+% \end{macrocode}
+%
+%
+%
+% \DescribeVariable{accent_angle}
+% \DescribeVariable{sin_accent_angle}
+% \DescribeVariable{cos_accent_angle}
+% The angle that an accent makes with the horizontal, with its sin and cosine.
+% \begin{macrocode}
+accent_angle:=45;
+sin_accent_angle:= sind(accent_angle);
+cos_accent_angle:= cosd(accent_angle);
+
+% \end{macrocode}
+%
+% Finally, call the driver file for the font.
+% \begin{macrocode}
+generate auncltitle %% switch to the driver file
+
+% \end{macrocode}
+%
+% The end of this code section.
+% \begin{macrocode}
+%</base7|base10|base17|base7b|base10b|base17b>
+% \end{macrocode}
+%
+% \Finale
+%
+\endinput
+
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+
+
diff --git a/fonts/auncial-new/aunclmfc.dtx b/fonts/auncial-new/aunclmfc.dtx
new file mode 100644
index 0000000000..bda201adfe
--- /dev/null
+++ b/fonts/auncial-new/aunclmfc.dtx
@@ -0,0 +1,4563 @@
+% \iffalse meta-comment
+%
+% aunclmfc.dtx
+%
+% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+% Copyright 1999--2005 Peter R. Wilson
+%
+% This work may be distributed and/or modified under the
+% conditions of the Latex Project Public License, either
+% version 1.3 of this license or (at your option) any
+% later version.
+% The latest version of the license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of
+% LaTeX version 2003/06/01 or later.
+%
+% This work has the LPPL maintenance status "author-maintained".
+%
+% This work consists of the files listed in the README file.
+%
+% If you do not have the docmfp package (available from CTAN in
+% tex-archive/macros/latex/contrib/supported), comment out the
+% \usepackage{docmfp} line below and uncomment the line following it.
+%
+%<*driver>
+\documentclass[twoside]{ltxdoc}
+\usepackage{docmfp}
+%%%%%% \providecommand{\DescribeVariable}[1]{} \newenvironment{routine}[1]{}{}
+\usepackage{url}
+\usepackage[draft=false,
+ plainpages=false,
+ pdfpagelabels,
+ bookmarksnumbered,
+ hyperindex=false
+ ]{hyperref}
+\providecommand{\phantomsection}{}
+\OnlyDescription %% comment this out for the full glory
+\EnableCrossrefs
+\CodelineIndex
+\setcounter{StandardModuleDepth}{1}
+\makeatletter
+ \@mparswitchfalse
+\makeatother
+\renewcommand{\MakeUppercase}[1]{#1}
+\pagestyle{headings}
+\newenvironment{addtomargins}[1]{%
+ \begin{list}{}{%
+ \topsep 0pt%
+ \addtolength{\leftmargin}{#1}%
+ \addtolength{\rightmargin}{#1}%
+ \listparindent \parindent
+ \itemindent \parindent
+ \parsep \parskip}%
+ \item[]}{\end{list}}
+\begin{document}
+ \raggedbottom
+ \DocInput{aunclmfc.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{132}
+%
+% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
+% \DoNotIndex{\@centercr,\@cite}
+% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
+% \DoNotIndex{\@input,\@ixpt,\@m}
+% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
+% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
+% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
+% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
+% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
+% \DoNotIndex{\advance,\Alph,\alph}
+% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
+% \DoNotIndex{\bullet}
+% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
+% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
+% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
+% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
+% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
+% \DoNotIndex{\fbox}
+% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
+% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
+% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
+% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
+% \DoNotIndex{\input}
+% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
+% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
+% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
+% \DoNotIndex{\NeedsTeXFormat,\newdimen}
+% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
+% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
+% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
+% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
+% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
+% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
+% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
+% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
+% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
+% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
+% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
+% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
+% \DoNotIndex{\wd,\xiipt,\year,\z@}
+%
+% \changes{v1.0}{2005/11/27}{First public release}
+% \changes{v1.0}{2005/11/27}{Major rewrite from auncial.dtx}
+%
+% \def\fileversion{v1.0} \def\filedate{2005/11/27}
+% \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package
+% \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option
+% \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file
+% \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter
+% \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle
+% \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment
+% \newcommand*{\AD}{\textsc{ad}}
+% \newcommand*{\thisfont}{Artificial Uncial}
+%
+% \title{\Lpack{Artificial Uncial}: MetaFont code for the characters\thanks{This
+% file has version number \fileversion, last revised
+% \filedate.}}
+%
+% \author{%
+% Peter Wilson\footnote{\texttt{herries dot press at earthlink dot net}}\\
+% Herries Press }
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+% The \Lpack{auncial} bundle provides a PostScript Type1 set of
+% \thisfont{} bookhands
+% as used
+% for manuscripts in the 6th to the 10th century. This is one in a series
+% of manuscript fonts. This document contains the MetaFont code for the
+% characters.
+% \end{abstract}
+% \tableofcontents
+% \listoftables
+%
+%
+%
+% \section{Introduction}
+%
+% The \Lpack{auncial} bundle provides a PostScript Type1 version of a
+% Metafont~\cite{METAFONT} rendition
+% of the \thisfont{} manuscript book-hand that was in use between about the
+% sixth and tenth centuries~\AD. It is part of a project to provide fonts
+% covering the major manuscript hands between the first century~\AD{} and
+% the invention of printing.
+%
+% The font is supplied in only the special bookhands B1 encoding.
+%
+% This manual is typeset according to the conventions of the
+% \LaTeX{} \textsc{docstrip} utility which enables the automatic
+% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}.
+% The \Lpack{docmfp} package is used for documenting the Metafont portions
+% of the distribution~\cite{DOCMFP}.
+%
+%
+%
+% \section{The Metafont code} \label{sec:mf}
+%
+%
+% As previously noted, this work is part of a larger project to provide
+% fonts covering the main manuscript book-hands. As such, one of the
+% aims is to produce a coordinated set of fonts, especially as multiple
+% hands might be used in a single document.
+%
+% Noting that the hands tend to be somewhat larger than the typical 10pt
+% size (where the x-height is approximately 1.5mm) used for modern books,
+% I have also designed the fonts
+% at a larger than normal size, then applied some non-linear factors when reducing
+% them down to a 10pt size.
+% Further, I have used the height of the Carolingian minuscule as a
+% normalising factor when deciding on the absolute height of any particular
+% script. The x-height of the Carolingian font is made equal to the
+% x-height of the Computer Modern Roman (CMR) font.
+%
+% Modern fonts are effectively drawn. That is, the outline of the letter is
+% drawn carefully and the center is filled with ink. This is shown to good
+% effect in the Metafont code for the Computer Modern fonts~\cite{CM}.
+% In contrast, the manuscript letters were inked by single pen strokes in
+% a calligraphic manner. I have tried to repeat this calligraphic style
+% in the Metafont code.
+%
+% As much as possible I have tried to use parameter values from the
+% Computer Modern Roman (CMR) fonts in order to reduce possible
+% infelicities if the CM and manuscript fonts are used together. However,
+% few of the CMR parameters are applicable to the calligraphic style.
+%
+%
+% \StopEventually{
+% \bibliographystyle{alpha}
+% \renewcommand{\refname}{Bibliography}
+% \begin{thebibliography}{GMS94}
+% \addcontentsline{toc}{section}{\refname}
+%
+% \bibitem[And69]{ANDERSON69}
+% Donald M.~Anderson.
+% \newblock \emph{The Art of Written Forms: The Theory and Practice of Calligraphy}.
+% \newblock Holt, Rinehart and Winston, 1969.
+%
+% \bibitem[Bol95]{BOLOGNA95}
+% Giulia Bologna.
+% \newblock \emph{Illuminated Manuscripts: The Book before Gutenberg}.
+% \newblock Crescent Books, 1995.
+%
+% \bibitem[Day95]{DAY95}
+% Lewis F.~Day.
+% \newblock \emph{Alphabets Old \& New}.
+% \newblock (3rd edition originally published by B.~T.~Batsford, 1910)
+% \newblock Senate, 1995.
+%
+% \bibitem[Dro80]{DROGIN80}
+% Marc Drogin.
+% \newblock \emph{Medieval Calligraphy: Its History and Technique}.
+% \newblock Allenheld, Osmun \& Co., 1980.
+%
+% \bibitem[Dru95]{DRUCKER95}
+% Johanna Drucker.
+% \newblock \emph{The Alphabetic Labyrinth}.
+% \newblock Thames \& Hudson, 1995.
+%
+% \bibitem[Fir93]{FIRMAGE93}
+% Richard A.~Firmage.
+% \newblock \emph{The Alphabet Abecedarium}.
+% \newblock David R~Goodine, 1993.
+%
+% \bibitem[Fli98]{LETTRINE}
+% Daniel Flipo.
+% \newblock \emph{The LETTRINE package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1998.
+%
+% \bibitem[Har95]{HARRIS95}
+% David Harris.
+% \newblock \emph{The Art of Calligraphy}.
+% \newblock DK Publishing, 1995.
+%
+% \bibitem[Jen95]{BETON}
+% Frank Jensen.
+% \newblock \emph{The BETON package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1995.
+%
+% \bibitem[Joh71]{JOHNSTON75}
+% Edward Johnston (ed. Heather Child).
+% \newblock \emph{Formal Penship and Other Papers}.
+% \newblock Penthalic, 1971.
+%
+% \bibitem[Knu87]{CM}
+% Donald E.~Knuth.
+% \newblock \emph{Computer Modern Typefaces}.
+% \newblock Addison-Wesley, 1987.
+%
+% \bibitem[Knu92]{METAFONT}
+% Donald E.~Knuth.
+% \newblock \emph{The METAFONTbook}.
+% \newblock Addison-Wesley, 1992.
+%
+% \bibitem[GMS94]{GOOSSENS94}
+% Michel Goossens, Frank Mittelbach, and Alexander Samarin.
+% \newblock \emph{The LaTeX Companion}.
+% \newblock Addison-Wesley Publishing Company, 1994.
+%
+% \bibitem[Tho75]{THOMAS75}
+% Alan G.~Thomas.
+% \newblock \emph{Great Books and Book Collectors}.
+% \newblock Weidenfield and Nichoson, 1975.
+%
+% \bibitem[Wil99]{DOCMFP}
+% Peter R.~Wilson.
+% \newblock \emph{The DOCMFP Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \bibitem[Wil99b]{ROMANNUM}
+% Peter R.~Wilson.
+% \newblock \emph{The ROMANNUM Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+%
+% \section{The code for characters 0 through 31}
+%
+% The following code is for characters in slots below the ASCII set which
+% starts in slot 32.
+%
+% \begin{macrocode}
+%<*low>
+%%%% AUNCLLOW.MF Program file for Artificial Uncial below-ASCII characters.
+
+% \end{macrocode}
+%
+% I'm leaving slots (o000/h00/d0), (o012,h0A,d10), and (o015/h0D/d13) empty.
+%
+% \begin{routine}{acute}
+% The acute accent. (o001/h01/d1)
+% \begin{macrocode}
+cmchar "acute";
+beginchar(oct "001", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+rt x1=w-pcshiftx; top y1=h;
+draw_acute(1);
+penlabels(1);
+endchar; % end "acute accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{circumflex}
+% The circumflex accent. (o002/h02/d2)
+% \begin{macrocode}
+cmchar "circumflex";
+beginchar(oct "002", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; top y1catm=h;
+draw_circumflex(1);
+penlabels(1);
+endchar; % end "circumflex accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{tilde}
+% The tilde accent. (o003/h03/d3)
+% \begin{macrocode}
+cmchar "tilde";
+beginchar(oct "003", 2u#+hstretch*(4cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1=h-1/2accent_ysize;
+draw_tildea(1);
+penlabels(1);
+endchar; % end "tilde accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{dieresis}
+% The dieresis (double dot) accent. (o004/h04/d4)
+% \begin{macrocode}
+cmchar "dieresis";
+beginchar(oct "004", 2u#+hstretch*(4cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1ddab=h-accent_ysize;
+draw_dieresis(1);
+penlabels(1);
+endchar; % end "double dot accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{hungarumlaut}
+% The long umlaut accent. (o005/h05/d5)
+% \begin{macrocode}
+cmchar "hungarumlaut";
+beginchar(oct "005", 2u#+hstretch*(4cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1=h;
+draw_lumlaut(1);
+penlabels(1);
+endchar; % end "long umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ring}
+% The ring accent. (o006/h06/d6)
+% \begin{macrocode}
+cmchar "ring";
+beginchar(oct "006", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; top y1=h;
+draw_ring(1);
+penlabels(1);
+endchar; % end "ring accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{caron}
+% The caron/hachek accent. (o007/h07/d7)
+% \begin{macrocode}
+cmchar "caron";
+beginchar(oct "007", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; top y1hatl=h;
+draw_hachek(1);
+penlabels(1);
+endchar; % end "hachek accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{breve}
+% The breve accent. (o010/h08/d8)
+% \begin{macrocode}
+cmchar "breve";
+beginchar(oct "010", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; top y1batl=h;
+draw_breve(1);
+penlabels(1);
+endchar; % end "breve accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{macron}
+% The macron accent. (o011/h08/d9)
+% \begin{macrocode}
+cmchar "macron";
+beginchar(oct "011", 2u#+hstretch*(4cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1=h-1/2accent_ysize;
+draw_macron(1);
+penlabels(1);
+endchar; % end "macron accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{cedilla}
+% The cedilla. (o013/h0B/d11)
+% \begin{macrocode}
+cmchar "cedilla";
+beginchar(oct "013", 2u#+hstretch*(1/2accent_ysize#), 0, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1=0;
+draw_cedilla(1);
+penlabels(1);
+endchar; % end "cedilla"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+% \begin{routine}{ogonek}
+% The ogonek. (o014/h0C/d12)
+% \begin{macrocode}
+cmchar "ogonek";
+beginchar(oct "014", 2u#+hstretch*(1/2accent_ysize#), 0, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1=0;
+draw_ogonek(1);
+penlabels(1);
+endchar; % end "ogonek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{guilsinglleft}
+% The left guillemot. (o016/h0E/d14)
+% \begin{macrocode}
+cmchar "guilsinglleft";
+beginchar(oct "016", 2u#+hstretch*(accent_ysize#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=w-pcshiftx; y1lgqm=1/2h;
+draw_leftguill(1, 3/4h, (w-2pcshiftx));
+penlabels(1);
+endchar; % end "left guillemot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{guilsinglright}
+% The right guillemot. (o017/h0F/d15)
+% \begin{macrocode}
+cmchar "guilsinglright";
+beginchar(oct "017", 2u#+hstretch*(accent_ysize#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=pcshiftx; y1rgqm=1/2h;
+draw_rightguill(1, 3/4h, (w-2pcshiftx));
+penlabels(1);
+endchar; % end "right guillemot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quotedblleft}
+% The ```' ligature. (o020/h10/d16)
+% \begin{macrocode}
+cmchar "quotedblleft";
+beginchar(oct "020",2u#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=pcshiftx+(0.5hstretch*dot_size); y1=y2=h;
+x2=x1+(2hstretch*dot_size);
+draw_plq(1,dot_size,comma_width); % left
+draw_plq(2,dot_size,comma_width); % right
+penlabels(1,2);
+endchar; % end of "``"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quotedblright}
+% The `''' ligature. (o021/h11/d17)
+% \begin{macrocode}
+cmchar "quotedblright";
+beginchar(oct "021",2u#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h;
+x2=x1-(2hstretch*dot_size);
+draw_pcomma(1,dot_size,comma_width); % right
+draw_pcomma(2,dot_size,comma_width); % left
+penlabels(1,2);
+endchar; % end of "''"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quotedblbase}
+% The double quote at the baseline. (o022/h12/d18)
+% \begin{macrocode}
+cmchar "quotedblbase";
+beginchar(oct "022",2u#+hstretch*(comma_width#+3dot_size#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h/2;
+x2=x1-(2hstretch*dot_size);
+draw_pcomma(1,dot_size,comma_width); % right
+draw_pcomma(2,dot_size,comma_width); % left
+penlabels(1,2);
+endchar; % end of "''"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{guillemotleft}
+% The double left guillemot. (o023/h13/d19)
+% \begin{macrocode}
+cmchar "guillemotleft";
+beginchar(oct "023", 2u#+hstretch*(2accent_ysize#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=w-pcshiftx; y1lgqm=1/2h;
+x2lgqm=pcshiftx; y2lgqm=y1lgqm;
+draw_leftguill(1, 3/4h, (1/2w-pcshiftx));
+draw_leftguill(2, 3/4h, (1/2w-pcshiftx));
+penlabels(1,2);
+endchar; % end "double left guillemot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{guillemotright}
+% The double right guillemot. (o024/h14/d20)
+% \begin{macrocode}
+cmchar "guillemotright";
+beginchar(oct "024", 2u#+hstretch*(2accent_ysize#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=pcshiftx; y1rgqm=1/2h;
+x2rgqm=w-pcshiftx; y2rgqm=y1rgqm;
+draw_rightguill(1, 3/4h, (1/2w-pcshiftx));
+draw_rightguill(2, 3/4h, (1/2w-pcshiftx));
+penlabels(1,2);
+endchar; % end "double right guillemot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{endash}
+% The en dash (o025/h15/d21)
+% \begin{macrocode}
+cmchar "endash";
+beginchar(oct "025",u#+hstretch*(x_height#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u/2; pickup quill;
+numeric alpha; alpha:=w/8;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw z1--z2; % bar
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+penlabels(1,2);
+endchar; % end of "en dash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{emdash}
+% The em dash is twice the width of the en dash. (o026/h16/d22)
+% \begin{macrocode}
+cmchar "emdash";
+beginchar(oct "026",u#+hstretch*(2x_height#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u/2; pickup quill;
+numeric alpha; alpha:=w/8;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw z1--z2; % bar
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+penlabels(1,2);
+endchar; % end of "em dash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{nought}
+% Zero sized character. (o027/h17/d23) (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "AUncial zero sized character (nought)";
+%%%beginchar(oct "000", 0,0,0);
+%%%endchar; % end "nought"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{grave}
+% The grave accent (moved from o000 to o027). (o027/h17/d23)
+% \begin{macrocode}
+cmchar "grave";
+beginchar(oct "027", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1=pcshiftx; top y1=h;
+draw_grave(1);
+penlabels(1);
+endchar; % end "grave accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{small_zero}
+% The small zero for adding to the percent sign. (o030/h18/d24)
+% (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "AUncial small zero sign";
+%%%beginchar(oct "000", 2u#+hstretch*(1/2x_height#)-1/2thick#, 1/2asc_height#, 0);
+%%%adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+%%%x11=pcshiftx; y11=0; rt x12=w-pcshiftx; y12=h;
+%%%draw_small_zero(11,12);
+%%%ductus:=false;
+%%%penlabels(1,2,11,12,21,22);
+%%%endchar; % end "small zero"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{dotaccent}
+% The dot accent (moved from o012 to o030). (o030/h18/d24)
+% \begin{macrocode}
+cmchar "dotaccent";
+beginchar(oct "030", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; y1dab=h-accent_ysize;
+draw_dota(1);
+penlabels(1);
+endchar; % end "dot accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{dotlessi}
+% The dotless i (which is the same as the regular i). (o031/h19/d25)
+% \begin{macrocode}
+cmchar "dotlessi";
+beginchar(oct "031", 2u#+hstretch*(thick#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+penlabels(555,666);
+endchar; % end "dotless i"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{dotlessj}
+% The dotless j (which is the same as the regular j). (o032/h1A/d26)
+% \begin{macrocode}
+cmchar "dotlessj";
+beginchar(oct "032", 2u#+hstretch*(thick#+jut#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=-1/2d;
+draw_j(555,666);
+penlabels(555,666);
+endchar; % end "dotless j"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ff}
+% ff pair (o033/h1B/d27)
+% \begin{macrocode}
+cmchar "ff";
+beginchar(oct "033", 3u#+hstretch*(16/8x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x888=w-pcshiftx; x666=1/2w-1/2pcshiftx; x444=x555;
+x888-x777 = x666-x555; y555=y777=0; y666=y888=h;
+y444=y333=-d/2;
+draw_f(555,666,444);
+draw_f(777,888,333);
+penlabels(555,666,444,777,888,333);
+endchar; % end "fi"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{fi}
+% fi pair (o034/h1C/d28)
+% \begin{macrocode}
+cmchar "fi";
+beginchar(oct "034", 3u#+hstretch*(x_height#+thick#+jut#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x888=x777=w-pcshiftx-thick; x666=x777-jut-pcshiftx; x444=x555;
+y555=y777=0; y666=y888=h;
+y444=y333=-d/2;
+draw_f(555,666,444);
+draw_i(777,888);
+penlabels(555,666,444,777,888,333);
+endchar; % end "fi"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{fl}
+% fl pair (o035/h1D/d29)
+% \begin{macrocode}
+cmchar "fl";
+beginchar(oct "035", 3u#+hstretch*(16/8x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x888=w-pcshiftx; x666=1/2w-1/2pcshiftx; x444=x555;
+x888-x777 = x666-x555; y555=y777=0; y666=y888=h;
+y444=y333=-d/2;
+draw_f(555,666,444);
+draw_l(777,888);
+penlabels(555,666,444,777,888,333);
+endchar; % end "fl"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ffi}
+% ffi triple (o036/h1E/d30)
+% \begin{macrocode}
+cmchar "ffi";
+beginchar(oct "036", 4u#+hstretch*(16/8x_height#+thick#+jut#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x888=x777=w-pcshiftx-thick;
+x669=x777-pcshiftx-jut;
+x559-x666=pcshiftx+jut; x666-x555 = x669-x559;
+y555=y559=y777=0; y666=y669=y888=h;
+y444=y333=-d/2;
+draw_f(555,666,444);
+draw_f(559,669,333);
+draw_i(777,888);
+penlabels(555,666,444,777,888,333,559,569);
+endchar; % end "ffi"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ffl}
+% ffl triple (o037/h1F/d31)
+% \begin{macrocode}
+cmchar "ffl";
+beginchar(oct "037", 4u#+hstretch*(24/8x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x888=w-pcshiftx;
+x669=x777-pcshiftx-jut; x559-x666=x777-x669;
+x666-x555 = x669-x559 = x888-x777;
+y555=y559=y777=0; y666=y669=y888=h;
+y444=y333=-d/2;
+draw_f(555,666,444);
+draw_f(559,669,333);
+draw_l(777,888);
+penlabels(555,666,444,777,888,333,559,569);
+endchar; % end "ffl"
+
+% \end{macrocode}
+% \end{routine}
+%
+% The end of this file.
+%
+% \begin{macrocode}
+%</low>
+% \end{macrocode}
+%
+% \section{The ASCII characters}
+%
+% Here we implement the ASCII character set.
+%
+% \begin{macrocode}
+%<*ascii>
+%%%% AUNCLSCI.MF Program file for Artificial Uncial ASCII character set
+
+% \end{macrocode}
+%
+% \subsection{Space through slash}
+%
+% \begin{routine}{visible_space}
+% A denoted space.
+% \begin{macrocode}
+cmchar "space";
+beginchar(oct "040", 2u#+9u#, x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1=pcshiftx; rt x4=w-pcshiftx; y1=y4=2/3h;
+x2=x1; x3=x4; bot y2= bot y3 =0;
+%%draw z1--z2--z3--z4;
+penlabels(1,2,3,4);
+endchar; % end "visible space"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{exclam}
+% Exclamation mark. (o041/h21/d33)
+% \begin{macrocode}
+cmchar "exclam";
+beginchar(oct "041", 2u#+hstretch*(thick#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+lft x1=pcshiftx; top y1=h;
+x2=x3=x1; y3=1/2thick; y2=1/3h;
+draw z1--z2; draw_pdot(3, thick);
+penlabels(1,2,3,4);
+endchar; % end "exclamation"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quotedbl}
+% The ASCII \verb?"? character. (o042/h22/d34)
+% \begin{macrocode}
+cmchar "quotedbl";
+beginchar(oct "042",2u#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h;
+x2=x1-(2hstretch*dot_size);
+draw_pcomma(1,dot_size,comma_width); % right
+draw_pcomma(2,dot_size,comma_width); % left
+penlabels(1,2);
+endchar; % end of "
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{numbersign}
+% Hash mark (octothorpe). (o043/h23/d35)
+% \begin{macrocode}
+cmchar "numbersign";
+beginchar(oct "043", 2u#+hstretch*(6thick#), asc_height#, 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+lft x1=pcshiftx; rt x2=w-pcshiftx; top y5=h; bot y6 = -d;
+x3=x1; x4=x2; y7=y5; y8=y6;
+x6=4/16w; x8=8/16w; x5=8/16w; x7=12/16w;
+y3=y4=1/2[h,-d]-thick; y1=y2=1/2[h,-d]+thick;
+pickup quill;
+draw z1--z2; draw z3--z4;
+pickup accentpen;
+draw z5--z6; draw z7--z8;
+penlabels(1,2,3,4,5,6,7,8);
+endchar; % end "hash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{dollar}
+% The dollar sign. (o044/h24/d37)
+% \begin{macrocode}
+cmchar "dollar";
+beginchar(oct "044", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+x222=x223=1/2w; y222=h+1/2desc_depth; y223=-1/2desc_depth;
+pickup accentpen;
+draw z222--z223;
+penlabels(555,666,444);
+endchar; % end "dollar"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{percent}
+% The percent sign. (o045/h25/d37)
+% \begin{macrocode}
+cmchar "percent";
+beginchar(oct "045", 2u#+hstretch*(x_height#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+% left 0
+lft x11=pcshiftx; y11=1/2h; x12=1/2w-1/2thick; y12=h;
+draw_small_zero(11,12);
+% right 0
+x21=1/2w+1/2thick; y21=0; rt x22=w-pcshiftx; y22=1/2h;
+draw_small_zero(21,22);
+x1=1/2[x11,x12]; y1=0; x2=1/2[x21,x22]; y2=h;
+draw z1--z2;
+penlabels(1,2,11,12,21,22);
+endchar; % end "percent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ampersand}
+% The ampersand (which is really an `et' ligature). (o046/h26/d38)
+% \begin{macrocode}
+cmchar "ampersand";
+beginchar("&", 2u#+hstretch*(7/4x_height#), x_height#, 0.5desc_depth#);
+adjust_fit(0,0); pcshiftx:=u; pickup quill;
+numeric alpha; alpha:=4/7w-u;
+% for the e part
+lft x1=pcshiftx; rt x3= alpha; y1=y3=h/2;
+x2=x4=alpha/2; top y2=h; bot y4=0;
+x5=x6=x3; y5=0.1h;
+top y6=0.95h; y6'=top y6; y6''=bot y6; x6''=lft x6;
+pickup stylus;
+rt x16=alpha; top y16=y6';
+x17=x6; y17=y16-jut;
+lft x18=x6''; bot y18=y6'';
+pickup quill;
+% the bar
+x7=x1; y7=y1; x8=w-pcshiftx; y8=y7;
+% the t part
+lft x31=alpha+2thin; y31=y8;
+x32=x31; bot y32=-d;
+x33=rt x8-0.5thin; y33=top y31-0.5thin;
+if ductus:
+ pickup stylus;
+fi
+draw z5{-pdir}..{left}z4..z1..z2..z6; % the bowl
+draw_tstem(31,32,srad); % t stem
+draw z7--z8; % the (top) bar
+draw_rtriangle(33,jut); % t bar serif
+pickup stylus;
+filldraw z17..z18--z16--cycle; % e serif
+penlabels(1,2,3,4,5,6,7,8,9,10,16,17,18,31,32,33);
+endchar; % end of "&"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quoteright}
+% The closing quote character. (o047/h27/d39)
+% \begin{macrocode}
+cmchar "quoteright";
+beginchar(oct "047",2u#+hstretch*(comma_width#+dot_size#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=h;
+draw_pcomma(1,dot_size,comma_width);
+penlabels(1);
+endchar; % end of "'"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{parenleft}
+% The left parenthesis. (o050/h28/d40)
+% \begin{macrocode}
+cmchar "parenleft";
+beginchar(oct "050", 3/2u#+hstretch*(6/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=x3=w-1/2pcshiftx; lft x2=pcshiftx; y1=h; y3=-d; y2=1/2[y1,y3];
+draw z1..z2..z3;
+penlabels(1,2,3);
+endchar; % end "left parenthesis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{parenright}
+% The right parenthesis. (o051/h29/d41)
+% \begin{macrocode}
+cmchar "parenright";
+beginchar(oct "051", 3/2u#+hstretch*(6/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=x3=1/2pcshiftx; rt x2=w-pcshiftx; y1=h; y3=-d; y2=1/2[y1,y3];
+draw z1..z2..z3;
+penlabels(1,2,3);
+endchar; % end "right parenthesis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{asterisk}
+% The asterisk (o052/h2A/d42)
+% \begin{macrocode}
+cmchar "asterisk";
+beginchar(oct "052", 2u#+hstretch*(7/8x_height#), body_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=x2=1/2w; top y1=h; y1-y2=w-2pcshiftx; z0=1/2[z1,z2];
+z3=z1 rotatedaround (z0,60); z5=z1 rotatedaround (z0,120);
+z4=z3 rotatedaround (z0,180); z6=z5 rotatedaround(z0,180);
+draw z1--z2; draw z3--z4; draw z5--z6;
+penlabels(1,2,3,4,5,6);
+endchar; % end "asterisk"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{plus}
+% The plus sign (o053/h2B/d43)
+% \begin{macrocode}
+cmchar "plus";
+beginchar(oct "053", 2u#+hstretch*(4thick#), fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=x2=1/2w; y3=y4=1/2h;
+lft x3=pcshiftx; rt x4=w-pcshiftx;
+z0=1/2[z3,z4]; y1-y0 = x3-x0 = y0-y2;
+draw z1--z2; draw z3--z4;
+penlabels(1,2,3,4,5,6);
+endchar; % end "plus"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{comma}
+% The `,' character. (o054/h2C/d44)
+% \begin{macrocode}
+cmchar "comma";
+beginchar(",",2u#+hstretch*(comma_width#+dot_size#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=h/2;
+draw_pcomma(1,dot_size,comma_width);
+penlabels(1);
+endchar; % end of ","
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{hyphen}
+% The `-' character. (o055/h2D/d45)
+% \begin{macrocode}
+cmchar "hyphen";
+beginchar(oct "055",u#+hstretch*(0.8x_height#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u/2; pickup quill;
+numeric alpha; alpha:=w/8;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw z1--z2; % bar
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+penlabels(1,2);
+endchar; % end of "hyphen"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{period}
+% The `.' character. (o056/h2E/d46)
+% \begin{macrocode}
+cmchar "period";
+beginchar(".",2u#+hstretch*(dot_size#),x_height#,0);
+pcshiftx:=u; x1=w/2; y1=h/2;
+draw_pdot(1,dot_size);
+penlabels(1);
+endchar; % end of "."
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{slash}
+% The slash (virgule). (o057/h2F/d47)
+% \begin{macrocode}
+cmchar "slash";
+beginchar(oct "057", 2u#+hstretch*(7/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=pcshiftx; x2=w-pcshiftx; y1=-d; y2=h;
+draw z1--z2;
+penlabels(1,2,3);
+endchar; % end "virgule"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \subsection{The digits}
+%
+% These are arabic digits in the style of the book-hand. They are a
+% modern invention.
+%
+% \begin{routine}{zero}
+% The digit `0'. (o060/h30/d48)
+% \begin{macrocode}
+cmchar "zero";
+beginchar("0", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+y100 = h/2; x100 = pcshiftx+y100; % square center
+lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2;
+x2=x4=w/2; top y2=h+o; bot y4=-o;
+draw z1..z2..z3..z4..cycle;
+penlabels(1,2,3,4,100);
+endchar; % end "0"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{one}
+% The digit `1'. (o061/h31/d49)
+% \begin{macrocode}
+cmchar "one";
+beginchar("1", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x1=x2=w/2+1/2jut; y1=h; bot y2=0;
+draw_tlserif(1,2,srad);
+draw_tail(2,jut);
+penlabels(1,2,100);
+endchar; % end "1"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{two}
+% The digit `2'. (o062/h32/d50)
+% \begin{macrocode}
+cmchar "two";
+beginchar("2", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+% stem
+lft x1=pcshiftx; y1=3/4h;
+x2=1/2w; top y2= h+o;
+rt x3=w-pcshiftx; y3=3/4h;
+% foot
+lft x5=pcshiftx; bot y5=0; x6=w-pcshiftx; y6=y5;
+draw_fork(5,6,jut); % foot
+draw z1{up}..z2{right}..z3{down}..{down}z5; % curve
+penlabels(1,2,3,4,5,6,100);
+endchar; % end "2"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{three}
+% The digit `3'. (o063/h33/d51)
+% \begin{macrocode}
+cmchar "three";
+beginchar("3", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+% x values
+lft x3=pcshiftx; x10=x3; rt x5=w-pcshiftx; x8=x5-3thin;
+x4=0.5[x3,x5]; x9=0.5[x10,x8]; lft x6=pcshiftx; x7=x6;
+% y values
+y3=1/4h; y10=3/4h; y6=0.5[y3,y10]; y7=y6;
+bot y4=-thin; top y9=h+thin;
+y5=0.5[y4,y6]; y8=0.5[y7,y9];
+draw z3{down}..z4{right}..z5{up}...{left}z6; % bottom bowl
+draw z7{right}...z8{up}..z9{left}..{down}z10; % top bowl
+penlabels(1,2,3,4,5,6,7,8,9,10,100);
+endchar; % end "3"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{four}
+% The digit `4'. (o064/h34/d52)
+% \begin{macrocode}
+cmchar "four";
+beginchar("4", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+% the stem
+x1=x2=w-pcshiftx-jut; y1=h; bot y2=0;
+% the crossbar
+lft x3=pcshiftx; y3=0.33h; rt x4=w-pcshiftx; y4=y3;
+draw_tstem(1,2,srad); % main stem
+draw_wave(3,4,thin); % crossbar
+draw z3wl--z1; % diagonal
+penlabels(1,2,3,4,100);
+endchar; % end "4"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+% \begin{routine}{five}
+% The digit `5'. (o065/h35/d53)
+% \begin{macrocode}
+cmchar "five";
+beginchar("5", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+% for the top
+rt x1=w-pcshiftx; top y1=h; lft x2=pcshiftx; y2=y1;
+% the S curve
+x3=x2; y3=0.5h+thin; x4=0.5[x1,x3]; y4=0.5[y3,y5];
+rt x5=w-pcshiftx; y5=0.3h; x6=w/2; bot y6=0;
+lft x7=pcshiftx; bot y7=2thin; x8=w-pcshiftx; y8=h-0.5thin;
+draw z2--z1; % top bar
+draw_rtriangle(8,3/4jut);
+draw z3{pdir}..z5{down}..z6{left}..z7; % curve
+draw z2--z3; % vertical
+penlabels(1,2,3,4,5,6,7,100);
+endchar; % end "5"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{six}
+% The digit `6'. (o066/h36/d54)
+% \begin{macrocode}
+cmchar "six";
+beginchar("6", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+rt x1=w-pcshiftx; top y1=h;
+x2=1/2w; top y2= h; lft x3=pcshiftx; y3=1/2h;
+x4=x2; bot y4=0; rt x5=w-pcshiftx; y5=1/4h;
+lft x6=rt x3; bot y6=y3; x8=w-pcshiftx; y8=h-0.5thin;
+draw z1{left}..z3{down}..z4{right}..z5{up}..{-pdir}z6;
+draw_rtriangle(8,3/4jut);
+penlabels(1,2,3,4,5,6,8,100);
+endchar; % end "6"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{seven}
+% The digit `7'. (o067/h37/d55)
+% \begin{macrocode}
+cmchar "seven";
+beginchar("7", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+% top bar
+lft x1=pcshiftx; rt x2=w-pcshiftx; top y1=top y2=h;
+x8=pcshiftx+3/8jut; y8=h-0.5thin;
+% bowed leg
+x4=w/2; bot y4=0; x3=0.5[x2,x4]-3thin; y3=0.5[y2,y4];
+draw z1--z2; % top bar
+draw_triangle(8,3/4jut);
+draw z2..z3..z4; % leg
+penlabels(1,2,3,4,5,6,7,8,100);
+endchar; % end "7"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{eight}
+% The digit `8'. (o070/h38/d56)
+% \begin{macrocode}
+cmchar "eight";
+beginchar("8", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+numeric alpha; alpha:=1;
+lft x1=alpha*pcshiftx+o; rt x3=w-alpha*pcshiftx-o; y1=y3=3/4h;
+x2=x4=w/2; top y2=h+o; bot y4=-o; x5=x2; y5=h/2+2o;
+lft x11=pcshiftx; rt x13=w-pcshiftx; y11=y13=1/4h;
+draw z1..z2..z3..z5..z11..z4..z13..z5..cycle;
+penlabels(1,2,3,4,5,11,13,100);
+endchar; % end "8"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{nine}
+% The digit `9'. (o071/h39/d57)
+% \begin{macrocode}
+cmchar "nine";
+beginchar("9", 2u#+fig_width#, fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+lft x1=pcshiftx; bot y1=2thin; x2=1/2w; bot y2= 0;
+rt x3=w-pcshiftx; y3=1/2h; x4=x2; top y4=h;
+lft x5=pcshiftx; y5=3/4h; rt x6=lft x3; top y6=y3;
+draw z1..z2{right}..z3{up}..z4{left}..z5{down}..{pdir}z6;
+penlabels(1,2,3,4,5,6,100);
+endchar; % end "9"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Colon through commercial at}
+%
+%
+% \begin{routine}{colon}
+% The `:' character. (o072/h3A/d58)
+% \begin{macrocode}
+cmchar "colon";
+beginchar(":",2u#+hstretch*(dot_size#),x_height#,0);
+pcshiftx:=u;
+x1=x2=w/2; y1=2/3h; y2=1/3h;
+draw_pdot(1,dot_size);
+draw_pdot(2,dot_size);
+penlabels(1,2);
+endchar; % end ":"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{semicolon}
+% The `;' character. (o073/h3B/d59)
+% \begin{macrocode}
+cmchar "semicolon";
+beginchar(";",2u#+hstretch*(comma_width#+dot_size#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=x2=w-pcshiftx-(0.5hstretch*dot_size); y1=2/3h; y2=1/3h;
+draw_pdot(1,dot_size);
+draw_pcomma(2,dot_size,comma_width);
+penlabels(1,2);
+endchar; % end of ";"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{less}
+% The less than sign (o074/h3C/d60)
+% \begin{macrocode}
+cmchar "less";
+beginchar(oct "074", 2u#+hstretch*(4thick#), fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+rt x1= rt x3=w-pcshiftx; lft x2 = pcshiftx;
+y2=1/2h; y1-y2=y2-y3; y1=y2+3/2thick;
+draw z1--z2--z3;
+penlabels(1,2,3,4,5,6);
+endchar; % end "less than"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{equal}
+% The equals sign (o075/h3D/d61)
+% \begin{macrocode}
+cmchar "equal";
+beginchar(oct "075", 2u#+hstretch*(4thick#), fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1 = lft x3=pcshiftx; rt x2 = rt x4=w-pcshiftx;
+y1=y2=1/2h+1/2thick; y3=y4=1/2h-1/2thick;
+draw z1--z2; draw z3--z4;
+penlabels(1,2,3,4,5,6);
+endchar; % end "equals"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{greater}
+% The greater than sign (o076/h3E/d62)
+% \begin{macrocode}
+cmchar "greater";
+beginchar(oct "076", 2u#+hstretch*(4thick#), fig_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1= lft x3=pcshiftx; rt x2 = w-pcshiftx;
+y2=1/2h; y1-y2=y2-y3; y1=y2+3/2thick;
+draw z1--z2--z3;
+penlabels(1,2,3,4,5,6);
+endchar; % end "greater than"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{question}
+% The `?' character. (o077/h3F/d63)
+% \begin{macrocode}
+cmchar "question";
+beginchar(oct "077", 2u#+hstretch*(x_height#),asc_height#, 0);
+adjust_fit(0,0); pcshiftx:=u; pickup quill;
+lft x1=pcshiftx; rt x3=w-pcshiftx; x2=x4=1/2w;
+top y2=h; y4=1/2h; top y1=h-thin; y3=1/2[y4,y2];
+x5=x4; y5=1/4h;
+path p[];
+p1=z1..z2{right}..z3{down}..{left}z4--z5;
+x9=x5; bot y9=0;
+ pair vec[];
+ vec1= direction 0 of p1;
+ z11=z1 shifted vec1;
+ x81=lft x1; y81=bot y1;
+ x82=x1; y82=y1-0.75jut;
+ draw p1; % the curve
+ pickup stylus;
+ filldraw z81--z82--z11--cycle; % the serif
+ draw_pdot(9,thick);
+ penlabels(1,2,3,4,5,6,7,9,11,17,26,27,28,81,82,100);
+endchar; % end of "query"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{at}
+% The commercial at sign. (o100/h40/d64)
+% \begin{macrocode}
+cmchar "at";
+beginchar(oct "100", 2u#+hstretch*(3/2x_height#+jut#), x_height#, 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x666=w-pcshiftx-jut; y666=h; x555=pcshiftx; y555=0;
+draw_at(555,666);
+penlabels(555,666);
+endchar; % end "commercial at"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Upper case characters}
+%
+% \thisfont{} `capitals' were drawn with the same pen as for the minuscules,
+% and the letters were merely larger versions of the minuscules.
+%
+% \begin{routine}{A}
+% The letter `A'. (o101/h41/d65)
+% \begin{macrocode}
+cmchar "A";
+beginchar("A", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+penlabels(555,666);
+endchar; % end "A"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{B}
+% The letter `B'. (o102/h42/d66)
+% \begin{macrocode}
+cmchar "B";
+beginchar("B", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_b(555,666);
+penlabels(555,666);
+endchar; % end "B"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{C}
+% The letter `C'. (o103/h43/d67)
+% \begin{macrocode}
+cmchar "C";
+beginchar("C", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+penlabels(555,666);
+endchar; % end "C"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{D}
+% The letter `D'. (o104/h44/d68)
+% \begin{macrocode}
+cmchar "D";
+beginchar("D", 2u#+hstretch*caprat*(4/3x_height#), caprat*(4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_d(555,666);
+penlabels(555,666);
+endchar; % end "D"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{E}
+% The letter `E'. (o105/h45/d69)
+% \begin{macrocode}
+cmchar "E";
+beginchar("E", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+penlabels(555,666);
+endchar; % end "E"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{F}
+% The letter `F'. (o106/h46/d70)
+% \begin{macrocode}
+cmchar "F";
+beginchar("F", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x666=w-pcshiftx; x444=x555; y444=-d/2; y555=0; y666=h;
+draw_f(555,666,444);
+penlabels(555,666,444);
+endchar; % end "F"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{G}
+% The letter `G'. (o107/h47/d71)
+% \begin{macrocode}
+cmchar "G";
+beginchar("G", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; x444=x555; y444=-d; y555=0; y666=h;
+draw_g(555,666,444);
+penlabels(555,666,444);
+endchar; % end "G"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{H}
+% The letter `H'. (o110/h48/d72)
+% \begin{macrocode}
+cmchar "H";
+beginchar("H", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x666=w-pcshiftx; y555=0; y666=h;
+draw_h(555,666);
+penlabels(555,666);
+endchar; % end "H"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{I}
+% The letter I. (o111/h49/d73)
+% \begin{macrocode}
+cmchar "I";
+beginchar("I", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+penlabels(555,666);
+endchar; % end "I"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{J}
+% The letter `J'. This letter was not in the script, it being a later
+% invention. (o112/h4A/d74)
+% \begin{macrocode}
+cmchar "J";
+beginchar("J", 2u#+hstretch*(thick#+jut#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=-1/2d;
+draw_j(555,666);
+penlabels(555,666);
+endchar; % end "J"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{K}
+% The letter `K'. (o113/h4B/d75)
+% \begin{macrocode}
+cmchar "K";
+beginchar("K", 2u#+hstretch*caprat*(4/3x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_k(555,666);
+penlabels(555,666);
+endchar; % end "K"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{L}
+% The letter `L'. (o114/h4C/d76)
+% \begin{macrocode}
+cmchar "L";
+beginchar("L", 2u#+hstretch*caprat*(x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+penlabels(555,666);
+endchar; % end "L"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{M}
+% The letter `M'. (o115/h4D/d77)
+% \begin{macrocode}
+cmchar "M";
+beginchar("M", 2u#+hstretch*caprat*(2x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_m(555,666);
+penlabels(555,666);
+endchar; % end "M"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{N}
+% The letter `N'. (o116/h4E/d78)
+% \begin{macrocode}
+cmchar "N";
+beginchar("N", 2u#+hstretch*caprat*(2jut#+x_height#), caprat*(x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+penlabels(555,666);
+endchar; % end "N"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{O}
+% The letter `O'. (o117/h4F/d79)
+% \begin{macrocode}
+cmchar "O";
+beginchar("O", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+penlabels(555,666);
+endchar; % end "O"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{P}
+% The letter `P'. (o120/h50/d80)
+% \begin{macrocode}
+cmchar "P";
+beginchar("P", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_p(555,666,444);
+penlabels(555,666,444);
+endchar; % end "P"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Q}
+% The letter `Q'. (o121/h51/d81)
+% \begin{macrocode}
+cmchar "Q";
+beginchar("Q", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_q(555,666,444);
+penlabels(555,666,444);
+endchar; % end "Q"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{R}
+% The letter `R'. (o122/h52/d82)
+% \begin{macrocode}
+cmchar "R";
+beginchar("R", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+penlabels(555,666,444);
+endchar; % end "R"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{S}
+% The letter `S'. (o123/h53/d83)
+% \begin{macrocode}
+cmchar "S";
+beginchar("S", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+penlabels(555,666,444);
+endchar; % end "S"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{T}
+% The letter `T'. (o124/h54/d84)
+% \begin{macrocode}
+cmchar "T";
+beginchar("T", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_t(555,666);
+penlabels(555,666,444);
+endchar; % end "T"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{U}
+% The letter `U'. (o125/h55/d85)
+% \begin{macrocode}
+cmchar "U";
+beginchar("U", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+penlabels(555,666,444);
+endchar; % end "U"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{V}
+% The letter `V'. The right half of the `w' is used for the `v' (or vice-versa
+% if you prefer). (o126/h56/d86)
+% \begin{macrocode}
+cmchar "V";
+beginchar("V", 2u#+hstretch*caprat*(7/6x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_v(555,666);
+penlabels(555,666,444);
+endchar; % end "V"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{W}
+% The letter `W'. This is a modern version as the font did not
+% have a W. (o127/h57/d87)
+% \begin{macrocode}
+cmchar "W";
+beginchar("W", 2u#+hstretch*caprat*(2x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_w(555,666);
+penlabels(555,666,444);
+endchar; % end "W"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{X}
+% The letter `X'. (o130/h58/d88)
+% \begin{macrocode}
+cmchar "X";
+beginchar("X", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#),
+ caprat*(1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_x(555,666,444);
+penlabels(555,666,444);
+endchar; % end "X"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Y}
+% The letter `Y'. This has a dot on top! (o131/h59/d89)
+% \begin{macrocode}
+cmchar "Y";
+beginchar("Y", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y(555,666,444);
+penlabels(555,666,444);
+endchar; % end "Y"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Z}
+% The letter `Z'. (o132/h5A/d90)
+% \begin{macrocode}
+cmchar "Z";
+beginchar("Z", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+penlabels(555,666,444);
+endchar; % end "Z"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Left bracket through grave}
+%
+% \begin{routine}{hyphen_char}
+% The hyphen char character.
+% \begin{macrocode}
+cmchar "Uncial hyphen char";
+beginchar(oct "177",u#+hstretch*(0.8x_height#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u/2; pickup quill;
+numeric alpha; alpha:=w/8;
+lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2;
+x11=lft x1+alpha/2; y11=top y1-0.5thin;
+x12=rt x2; y12=bot y1+0.5thin;
+draw z1--z2; % bar
+draw_triangle(11,alpha);
+draw_rutriangle(12,alpha);
+penlabels(1,2);
+endchar; % end of "hyphen char"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{bracketleft}
+% The left bracket. (o133/h5B/d91)
+% \begin{macrocode}
+cmchar "bracketleft";
+beginchar(oct "133", 3/2u#+hstretch*(4/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1= lft x2=pcshiftx; top y1=h; bot y2=-d;
+x11=x22=w-1/2pcshiftx; y11=y1; y22=y2;
+draw z11--z1--z2--z22;
+penlabels(1,2,11,22);
+endchar; % end "left bracket"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{backslash}
+% The backslash. (o134/h5C/d92)
+% \begin{macrocode}
+cmchar "backslash";
+beginchar(oct "134", 2u#+hstretch*(7/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=w-pcshiftx; x2=pcshiftx; y1=-d; y2=h;
+draw z1--z2;
+penlabels(1,2,3);
+endchar; % end "backslash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{bracketright}
+% The right bracket. (o135/h5D/d93)
+% \begin{macrocode}
+cmchar "bracketright";
+beginchar(oct "135", 3/2u#+hstretch*(4/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+rt x1= rt x2=w-pcshiftx; top y1=h; bot y2=-d;
+x11=x22=1/2pcshiftx; y11=y1; y22=y2;
+draw z11--z1--z2--z22;
+penlabels(1,2,11,22);
+endchar; % end "right bracket"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{asciicircum}
+% The circumflex accent. (o136/h5E/d94)
+% \begin{macrocode}
+cmchar "asciicircum";
+beginchar(oct "136", 2u#+hstretch*(2cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=1/2w; top y1catm=h;
+draw_circumflex(1);
+penlabels(1);
+endchar; % end "circumflex accent"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{underscore}
+% The underscore. (o137/h5F/d95)
+% \begin{macrocode}
+cmchar "underscore";
+beginchar(oct "137", 2u#+hstretch*(4thick#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+lft x1 = pcshiftx; rt x2 = w-pcshiftx; bot y1= bot y2= 0;
+draw z1--z2;
+penlabels(1,2,3,4,5,6);
+endchar; % end "underscore"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quoteleft}
+% The opening quote. (o140/h60/d96)
+% \begin{macrocode}
+cmchar "quoteleft";
+beginchar(oct "140", 2u#+hstretch*(comma_width#+dot_size#), 4/3x_height#, 0);
+adjust_fit(0,0); pcshiftx := u;
+x1=pcshiftx+(0.5hstretch*dot_size); y1=h;
+draw_plq(1,dot_size,comma_width);
+penlabels(1);
+endchar; % end "left quote"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \subsection{Lower case letters}
+%
+% \begin{routine}{a}
+% The letter `a'. (o141/h61/d97)
+% \begin{macrocode}
+cmchar "a";
+beginchar("a", 2u#+hstretch*(x_height#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+penlabels(555,666);
+endchar; % end "a"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{b}
+% The letter `b'. (o142/h62/d98)
+% \begin{macrocode}
+cmchar "b";
+beginchar("b", 2u#+hstretch*(x_height#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_b(555,666);
+penlabels(555,666);
+endchar; % end "b"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{c}
+% The letter `c'. (o143/h63/d99)
+% \begin{macrocode}
+cmchar "c";
+beginchar("c", 2u#+hstretch*(x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+penlabels(555,666);
+endchar; % end "c"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{d}
+% The letter `d'. (o144/h64/d100)
+% \begin{macrocode}
+cmchar "d";
+beginchar("d", 2u#+hstretch*(4/3x_height#), 4/3x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_d(555,666);
+penlabels(555,666);
+endchar; % end "d"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{e}
+% The letter `e'. (o145/h65/d101)
+% \begin{macrocode}
+cmchar "e";
+beginchar("e", 2u#+hstretch*(x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+penlabels(555,666);
+endchar; % end "e"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{f}
+% The letter `f'. (o146/h66/d102)
+% \begin{macrocode}
+cmchar "f";
+beginchar("f", 2u#+hstretch*(x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x666=w-pcshiftx; x444=x555; y444=-d/2; y555=0; y666=h;
+draw_f(555,666,444);
+penlabels(555,666,444);
+endchar; % end "f"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{g}
+% The letter `g'. (o147/h67/d103)
+% \begin{macrocode}
+cmchar "g";
+beginchar("g", 2u#+hstretch*(x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; x444=x555; y444=-d; y555=0; y666=h;
+draw_g(555,666,444);
+penlabels(555,666,444);
+endchar; % end "g"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{h}
+% The letter `h'. (o150/h68/d104)
+% \begin{macrocode}
+cmchar "h";
+beginchar("h", 2u#+hstretch*(x_height#+jut#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; x666=w-pcshiftx; y555=0; y666=h;
+draw_h(555,666);
+penlabels(555,666);
+endchar; % end "h"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{i}
+% The letter i. (o151/h69/d105)
+% \begin{macrocode}
+cmchar "i";
+beginchar("i", 2u#+hstretch*(thick#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+penlabels(555,666);
+endchar; % end "i"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{j}
+% The letter `j'. This letter was not in the script, it being a later
+% invention. (o152/h6A/d106)
+% \begin{macrocode}
+cmchar "j";
+beginchar("j", 2u#+hstretch*(thick#+jut#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=-1/2d;
+draw_j(555,666);
+penlabels(555,666);
+endchar; % end "j"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{k}
+% The letter `k'. (o153/h6B/d107)
+% \begin{macrocode}
+cmchar "k";
+beginchar("k", 2u#+hstretch*(4/3x_height#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_k(555,666);
+penlabels(555,666);
+endchar; % end "k"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{l}
+% The letter `l'. (o154/h6C/d108)
+% \begin{macrocode}
+cmchar "l";
+beginchar("l", 2u#+hstretch*(x_height#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+penlabels(555,666);
+endchar; % end "l"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{m}
+% The letter `m'. (o155/h6D/d109)
+% \begin{macrocode}
+cmchar "m";
+beginchar("m", 2u#+hstretch*(2x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_m(555,666);
+penlabels(555,666);
+endchar; % end "m"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{n}
+% The letter `n'. (o156/h6E/d110)
+% \begin{macrocode}
+cmchar "n";
+beginchar("n", 2u#+hstretch*(2jut#+x_height#), x_height#, 0.5desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+penlabels(555,666);
+endchar; % end "n"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{o}
+% The letter `o'. (o157/h6F/d111)
+% \begin{macrocode}
+cmchar "o";
+beginchar("o", 2u#+hstretch*(7/6x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+penlabels(555,666);
+endchar; % end "o"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{p}
+% The letter `p'. (o160/h70/d112)
+% \begin{macrocode}
+cmchar "p";
+beginchar("p", 2u#+hstretch*(7/6x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_p(555,666,444);
+penlabels(555,666,444);
+endchar; % end "p"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{q}
+% The letter `q'. (o161/h71/d113)
+% \begin{macrocode}
+cmchar "q";
+beginchar("q", 2u#+hstretch*(7/6x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_q(555,666,444);
+penlabels(555,666,444);
+endchar; % end "q"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{r}
+% The letter `r'. (o162/h72/d114)
+% \begin{macrocode}
+cmchar "r";
+beginchar("r", 2u#+hstretch*(4/3x_height#), x_height#, 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+penlabels(555,666,444);
+endchar; % end "r"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{s}
+% The letter `s'. (o163/h73/d115)
+% \begin{macrocode}
+cmchar "s";
+beginchar("s", 2u#+hstretch*(x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+penlabels(555,666,444);
+endchar; % end "s"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{t}
+% The letter `t'. (o164/h74/d116)
+% \begin{macrocode}
+cmchar "t";
+beginchar("t", 2u#+hstretch*(4/3x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_t(555,666);
+penlabels(555,666,444);
+endchar; % end "t"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{u}
+% The letter `u'. (o165/h75/d117)
+% \begin{macrocode}
+cmchar "u";
+beginchar("u", 2u#+hstretch*(4/3x_height#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+penlabels(555,666,444);
+endchar; % end "u"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{v}
+% The letter `v'. The right half of the `w' is used for the `v' (or vice-versa
+% if you prefer). (o166/h76/d118)
+% \begin{macrocode}
+cmchar "v";
+beginchar("v", 2u#+hstretch*(7/6x_height#+jut#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_v(555,666);
+penlabels(555,666,444);
+endchar; % end "v"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{w}
+% The letter `w'. This is a modern version as the font did not
+% have a W. (o167/h77/d119)
+% \begin{macrocode}
+cmchar "w";
+beginchar("w", 2u#+hstretch*(2x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_w(555,666);
+penlabels(555,666,444);
+endchar; % end "w"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{x}
+% The letter `x'. (o170/h78/d120)
+% \begin{macrocode}
+cmchar "x";
+beginchar("x", 2u#+hstretch*(4/3x_height#+jut#), x_height#, 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_x(555,666,444);
+penlabels(555,666,444);
+endchar; % end "x"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{y}
+% The letter `y'. This has a dot on top! (o171/h79/d121)
+% \begin{macrocode}
+cmchar "y";
+beginchar("y", 2u#+hstretch*(4/3x_height#), x_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y(555,666,444);
+penlabels(555,666,444);
+endchar; % end "y"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{z}
+% The letter `z'. (o172/h7A/d122)
+% \begin{macrocode}
+cmchar "z";
+beginchar("z", 2u#+hstretch*(7/6x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+penlabels(555,666,444);
+endchar; % end "z"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Left brace through tilde}
+%
+% \begin{routine}{braceleft}
+% The left brace. (o173/h7B/d123)
+% \begin{macrocode}
+cmchar "braceleft";
+beginchar(oct "173", 3/2u#+hstretch*(7/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+rt x1= rt x7 = w-1/2pcshiftx; top y1=h; bot y7=-d;
+lft x4= pcshiftx; y4=1/2[y1,y7];
+x2=x3=x5=x6=1/2[x4,x1];
+y1-y2 = y3-y4 = y4-y5 = y6-y7 = 1/8(h+d);
+pair v[];
+path p[];
+v1=(-2,-1); v2=(2,-1);
+p1=z1{v1}..{down}z2--z3{down}..{v1}z4;
+p2=z4{v2}..{down}z5--z6{down}..{v2}z7;
+draw p1; draw p2;
+penlabels(1,2,3,4,5,6,7);
+endchar; % end "left brace"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{bar}
+% The bar (caesura). (o174/h7C/d124)
+% \begin{macrocode}
+cmchar "bar";
+beginchar(oct "174", 2u#+hstretch*(1/2thick#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+x1=x2=1/2w; top y1=h; bot y2=-d;
+draw z1--z2;
+penlabels(1,2,3,4,5,6,7);
+endchar; % end "bar"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{braceright}
+% The right brace. (o175/h7D/d125)
+% \begin{macrocode}
+cmchar "braceright";
+beginchar(oct "175", 3/2u#+hstretch*(7/8x_height#), body_height#, desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1= lft x7 = 1/2pcshiftx; top y1=h; bot y7=-d;
+rt x4= w-pcshiftx; y4=1/2[y1,y7];
+x2=x3=x5=x6=1/2[x4,x1];
+y1-y2 = y3-y4 = y4-y5 = y6-y7 = 1/8(h+d);
+pair v[];
+path p[];
+v1=(-2,-1); v2=(2,-1);
+p1=z1{v2}..{down}z2--z3{down}..{v2}z4;
+p2=z4{v1}..{down}z5--z6{down}..{v1}z7;
+draw p1; draw p2;
+penlabels(1,2,3,4,5,6,7);
+endchar; % end "right brace"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{asciitilde}
+% The tilde. (o176/h7E/d126)
+% \begin{macrocode}
+cmchar "asciitilde";
+beginchar(oct "176", 2u#+hstretch*(4cos_accent_angle*accent_ysize#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup accentpen;
+lft x1=pcshiftx; rt x3=w-pcshiftx; x2=1/2[x1,x3];
+y1=y2=y3=h-1/2accent_ysize;
+draw z1{dir accent_angle}..z2..{dir accent_angle}z3;
+penlabels(1,2,3);
+endchar; % end "asciitilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+% The end of this file
+% \begin{macrocode}
+%</ascii>
+% \end{macrocode}
+%
+%
+% \section{Bottom of the top half of the table}
+%
+% \begin{macrocode}
+%<*mid>
+%%% AUNCLMID.MF AUncl bottom half of the top of the code table
+
+% \end{macrocode}
+%
+% Some slots have been left empty to accomodate ligatures.
+% In the T1 encoding these contained the upper and lowercase characters
+% Abreve, Scedilla, Tcedilla, and Gbreve which as far as I know are only
+% used for Rumanian.
+%
+% \begin{routine}{Abreve}
+% The letter `A breve'.
+% (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "Abreve";
+%%%beginchar(oct "000", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+%%%adjust_fit(0,0); pcshiftx := u; pickup quill;
+%%%x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+%%%draw_a(555,666);
+%%%x777=x1; y777=y666+1/4accent_ysize;
+%%%draw_breve(777);
+%%%penlabels(555,666,777);
+%%%endchar; % end "A breve"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{quotesinglbase}
+% The `single quote on baseline' character (moved from o015 to 0200). (o200/h80/d128)
+% \begin{macrocode}
+cmchar "quotesinglbase";
+beginchar(oct "200",2u#+hstretch*(comma_width#+dot_size#),x_height#,0);
+adjust_fit(0,0); pcshiftx:=u;
+x1=w-pcshiftx-(0.5hstretch*dot_size); y1=h/2;
+draw_pcomma(1,dot_size,comma_width);
+penlabels(1);
+endchar; % end of ","
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Aogonek}
+% The letter `A ogonek'. (o201/h81/d129)
+% \begin{macrocode}
+cmchar "Aogonek";
+beginchar(oct "201", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+z777=lft z2a;
+draw_ogonek(777);
+penlabels(555,666,777);
+endchar; % end "A ogonek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Cacute}
+% The letter `C acute'. (o202/h82/d130)
+% \begin{macrocode}
+cmchar "Cacute";
+beginchar(oct "202", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777aab=x2; y777aab=y666+1/4accent_ysize;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "C acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ccaron}
+% The letter `C caron/hachek'. (o203/h83/d131)
+% \begin{macrocode}
+cmchar "Ccaron";
+beginchar(oct "203", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777=x2; y777=y666+1/4accent_ysize;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "C caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Dcaron}
+% The letter `D caron/hachek'. (o204/h84/d132)
+% \begin{macrocode}
+cmchar "Dcaron";
+beginchar(oct "204", 2u#+hstretch*caprat*(4/3x_height#), caprat*(4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_d(555,666);
+x777=x4; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "D caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ecaron}
+% The letter `E caron/hachek'. (o205/h85/d133)
+% \begin{macrocode}
+cmchar "Ecaron";
+beginchar(oct "205", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "E caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Eogonek}
+% The letter `E ogonek'. (o206/h86/d134)
+% \begin{macrocode}
+cmchar "Eogonek";
+beginchar(oct "206", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x4; y777=y555;
+draw_ogonek(777);
+penlabels(555,666);
+endchar; % end "E ogonek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Gbreve}
+% The letter `G breve'. (o207/h87/d135)
+% (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "Gbreve";
+%%%beginchar(oct "000", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#),
+%%% caprat*(desc_depth#));
+%%%adjust_fit(0,0); pcshiftx := u; %%%pickup quill;
+%%%x555=pcshiftx; x666=w-pcshiftx; x444=x555; y444=-d; y555=0; y666=h;
+%%%draw_g(555,666,444);
+%%%x777=x2; y777=y666+accent_gap;
+%%%draw_breve(777);
+%%%penlabels(555,666,444);
+%%%endchar; % end "G breve"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{paragraph}
+% The paragraph/pilcrow symbol. (o207/h87/d135)
+% \begin{macrocode}
+cmchar "paragraph";
+beginchar(oct "207", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_pilcrow(555,666,444);
+penlabels(555,666,444);
+endchar; % end "paragraph/pilcrow"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Lacute}
+% The letter `L acute'. (o210/h88/d136)
+% \begin{macrocode}
+cmchar "Lacute";
+beginchar(oct "210", 2u#+hstretch*caprat*(x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777aab=x555Lt; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "L acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Lquote}
+% The letter `L quote/apostrophe'. (o211/h89/d137)
+% \begin{macrocode}
+cmchar "Lquote";
+beginchar(oct "211", 2u#+hstretch*caprat*(x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777=x555Lt+1/2thick + accent_ysize; y777=y666;
+draw_pcomma(777,accent_thickness,accent_ysize);
+penlabels(555,666);
+endchar; % end "L apostrophe"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Lslash}
+% The letter `L slash/barred'. (o212/h8A/d138)
+% \begin{macrocode}
+cmchar "Lslash";
+beginchar(oct "212", 2u#+hstretch*caprat*(x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777=x555Lt; y777=1/2[y555Lb,y555Lt];
+z777ll=(x777-15/16accent_ysize, y777-1/2thick);
+z777ur=(x777+15/16accent_ysize, y777+1/2thick);
+pickup accentpen;
+draw z777ll--z777ur;
+penlabels(555,666,777,777ll,777ur);
+endchar; % end "L slash/barred"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Nacute}
+% The letter `N acute'. (o213/h8B/d139)
+% \begin{macrocode}
+cmchar "Nacute";
+beginchar(oct "213", 2u#+hstretch*caprat*(2jut#+x_height#), caprat*(x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777aam=1/2[x555nlt,x555nrt]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "N acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ncaron}
+% The letter `N caron/hachek'. (o214/h8C/d140)
+% \begin{macrocode}
+cmchar "Ncaron";
+beginchar(oct "214", 2u#+hstretch*caprat*(2jut#+x_height#), caprat*(x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777=1/2[x555nlt,x555nrt]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "N hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Eng}
+% The letter `Eng'. (o215/h8D/d141)
+% \begin{macrocode}
+cmchar "Eng";
+beginchar(oct "215", 2u#+hstretch*caprat*(jut#+x_height#), caprat*(x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+x444=x555; y444=-d;
+draw_eng(555,666,444);
+penlabels(555,666,444);
+endchar; % end "Eng"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ohungarumlaut}
+% The letter `O long umlaut'. (o216/h8E/d142)
+% \begin{macrocode}
+cmchar "Ohungarumlaut";
+beginchar(oct "216", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777luam=x2; y777luab=y666+accent_gap;
+draw_lumlaut(777);
+penlabels(555,666);
+endchar; % end "O long umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Racute}
+% The letter `R acute'. (o217/h8F/d143)
+% \begin{macrocode}
+cmchar "Racute";
+beginchar(oct "217", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+x777aam=1/2[x1,x5]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "R acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Rcaron}
+% The letter `R caron/hachek'. (o220/h90/d144)
+% \begin{macrocode}
+cmchar "Rcaron";
+beginchar(oct "220", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+x777=1/2[x1,x5]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "R hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Sacute}
+% The letter `S acute'. (o221/h91/d145)
+% \begin{macrocode}
+cmchar "Sacute";
+beginchar(oct "221", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+x777aam=x555Sb; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "S acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Scaron}
+% The letter `S caron/hachek'. (o222/h92/d146)
+% \begin{macrocode}
+cmchar "Scaron";
+beginchar(oct "222", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+x777=x555Sb; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "S caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Scedilla}
+% The letter `S cedilla'. (o223/h93/d147)
+% (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "Scedilla";
+%%%beginchar(oct "000", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+%%%adjust_fit(0,0); pcshiftx := u; pickup quill;
+%%%x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+%%%draw_s(555,666);
+%%%x777=x555Sf; top y777=y555;
+%%%draw_cedilla(777);
+%%%penlabels(555,666,444);
+%%%endchar; % end "S cedilla"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{longs-t}
+% The longs-t `ligature'. (o223/h93/d147)
+% \begin{macrocode}
+%%beginchar("s", 2u#+hstretch*(x_height#), x_height#, 0);
+%%beginchar("t", 2u#+hstretch*(4/3x_height#), x_height#, 0);
+cmchar "longs-t";
+beginchar(oct "223", 4u#+hstretch*(7/3x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=3/7w-pcshiftx; y666=h;
+draw_s(555,666);
+pickup quill;
+x559=x666+2pcshiftx; y559=y555; x669=w-pcshiftx; y669=y666;
+draw_t(559,669);
+penlabels(555,666,559,669);
+endchar; % end longs-t
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Tcaron}
+% The letter `T caron/hachek'. (o224/h94/d148)
+% \begin{macrocode}
+cmchar "Tcaron";
+beginchar(oct "224", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_t(555,666);
+x777=x184; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "T hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{r-half}
+% The letter `r-half', which in this case is a regular `r'. (o225/h95/d149)
+% \begin{macrocode}
+cmchar "r-half";
+beginchar(oct "225", 2u#+hstretch*(4/3x_height#), x_height#, 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+penlabels(555,666,444);
+endchar; % end "r-half"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Uhungarumlaut}
+% The letter `U long umlaut'. (o226/h96/d150)
+% \begin{macrocode}
+cmchar "Uhungarumlaut";
+beginchar(oct "226", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777luab=y666+accent_gap;
+draw_lumlaut(777);
+penlabels(555,666,444);
+endchar; % end "U long umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Uring}
+% The letter `U ring'. (o227/h97/d151)
+% \begin{macrocode}
+cmchar "Uring";
+beginchar(oct "227", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777rab=y666+accent_gap;
+draw_ring(777);
+penlabels(555,666,444);
+endchar; % end "U ring"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ydieresis}
+% The letter `Y dieresis'. (o230/h98/d152)
+% \begin{macrocode}
+cmchar "Ydieresis";
+beginchar(oct "230", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y_base(555,666,444);
+x777=1/2[x1,x666]; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666,444);
+endchar; % end "Y dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Zacute}
+% The letter `Z acute'. (o231/h99/d153)
+% \begin{macrocode}
+cmchar "Zacute";
+beginchar(oct "231", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777aam=1/2[x1,x3]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "Z acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Zcaron}
+% The letter `Z caron/hachek'. (o232/h9A/d154)
+% \begin{macrocode}
+cmchar "Zcaron";
+beginchar(oct "232", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777=1/2[x1,x3]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "Z caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Zdot}
+% The letter `Z dot'. (o233/h9B/d155)
+% \begin{macrocode}
+cmchar "Zdot";
+beginchar(oct "233", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777=1/2[x1,x3]; y777dab=y666+accent_gap;
+draw_dota(777);
+penlabels(555,666,444);
+endchar; % end "Z dot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{IJ}
+% The letter pair IJ. (o234/h9C/d156)
+% \begin{macrocode}
+cmchar "IJ";
+beginchar(oct "234", 2u#+hstretch*(2thick#+2jut#), caprat*(x_height#), caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x577=x677=x555+thick+jut; y577=-1/2d; y677=y666;
+draw_j(577,677);
+penlabels(555,666);
+endchar; % end "IJ"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Idot}
+% Dotted I. (o235/h9D/d157)
+% \begin{macrocode}
+cmchar "Idot";
+beginchar(oct "235", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777=x555It.a; y777dab=y666+accent_gap;
+pickup accentpen;
+draw_dota(777);
+penlabels(555,666);
+endchar; % end "I dotted"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{dyet}
+% The letter `dyet'. (o236/h9E/d158)
+% \begin{macrocode}
+cmchar "dyet";
+beginchar(oct "236", 2u#+hstretch*(4/3x_height#), (4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_dyet(555,666);
+penlabels(555,666);
+endchar; % end "dyet"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{section}
+% The section symbol. (o237/h9F/d159)
+% \begin{macrocode}
+cmchar "section";
+beginchar(oct "237", 2u#+hstretch*(7/6x_height#), (asc_height#),
+ (desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_section(555,666,444);
+penlabels(555,666,444);
+endchar; % end "section"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{abreve}
+% The letter `a breve'. (o240/hA0/d160)
+% (move to 000 before killing it)
+% \begin{macrocode}
+%%%cmchar "abreve";
+%%%beginchar(oct "000", 2u#+hstretch*(x_height#+jut#), x_height#, 0);
+%%%adjust_fit(0,0); pcshiftx := u; pickup quill;
+%%%x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+%%%draw_a(555,666);
+%%%x777=x1; y777=y666+1/4accent_ysize;
+%%%draw_breve(777);
+%%%penlabels(555,666);
+%%%endchar; % end "a breve"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{slong}
+% The letter `s long'. (o240/hA0/d160)
+% \begin{macrocode}
+cmchar "salternate";
+beginchar(oct "240", 2u#+hstretch*(x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+penlabels(555,666,444);
+endchar; % end "s alternate"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{aogonek}
+% The letter `a ogonek'. (o241/hA1/d161)
+% \begin{macrocode}
+cmchar "aogonek";
+beginchar(oct "241", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+z777=lft z2a;
+draw_ogonek(777);
+penlabels(555,666,777);
+endchar; % end "a ogonek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{cacute}
+% The letter `c acute'. (o242/hA2/d162)
+% \begin{macrocode}
+cmchar "cacute";
+beginchar(oct "242", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777aab=x2; y777aab=y666+1/4accent_ysize;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "c acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ccaron}
+% The letter `c caron/hachek'. (o243/hA3/d163)
+% \begin{macrocode}
+cmchar "ccaron";
+beginchar(oct "243", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777=x2; y777=y666+1/4accent_ysize;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "c hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{dcaron}
+% The letter `d caron/hachek' (with an upright `d' this is done with a quote
+% not a caron). (o244/hA4/d164)
+% \begin{macrocode}
+cmchar "dcaron";
+beginchar(oct "244", 2u#+hstretch*(4/3x_height#), (4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_d(555,666);
+x777=x4; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "d hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ecaron}
+% The letter `e caron/hachek'. (o245/hA5/d165)
+% \begin{macrocode}
+cmchar "ecaron";
+beginchar(oct "245", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "e caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{eogonek}
+% The letter `e ogonek'. (o246/hA6/d166)
+% \begin{macrocode}
+cmchar "eogonek";
+beginchar(oct "246", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x4; y777=y555;
+draw_ogonek(777);
+penlabels(555,666);
+endchar; % end "e ogonek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{e-t}
+% The `e-t' `ligature', which is not the \&. (o247/hA7/d167)
+% \begin{macrocode}
+cmchar "e-t";
+beginchar(oct "247", 4u#+hstretch*(7/3x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=3/7w-pcshiftx; y666=h;
+draw_e(555,666);
+pickup quill;
+x559=x666+2pcshiftx; y559=y555; x669=w-pcshiftx; y669=y666;
+draw_t(559,669);
+penlabels(555,666,444,559,669);
+endchar; % end "e-t"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{lacute}
+% The letter `l acute'. (o250/hA8/d168)
+% \begin{macrocode}
+cmchar "lacute";
+beginchar(oct "250", 2u#+hstretch*(x_height#), (asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777aab=x555Lt; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "l acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{lquote}
+% The letter `l apostrophe'. (o251/hA9/d169)
+% \begin{macrocode}
+cmchar "lquote";
+beginchar(oct "251", 2u#+hstretch*(x_height#), (asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777=x555Lt+1/2thick + accent_ysize; y777=y666;
+draw_pcomma(777,accent_thickness,accent_ysize);
+penlabels(555,666);
+endchar; % end "l apostrophe"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{lslash}
+% The letter `l barred'. (o252/hAA/170)
+% \begin{macrocode}
+cmchar "lslash";
+beginchar(oct "252", 2u#+hstretch*(x_height#), (asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_l(555,666);
+x777=x555Lt; y777=1/2[y555Lb,y555Lt];
+z777ll=(x777-15/16accent_ysize, y777-1/2thick);
+z777ur=(x777+15/16accent_ysize, y777+1/2thick);
+pickup accentpen;
+draw z777ll--z777ur;
+penlabels(555,666,777,777ll,777ur);
+endchar; % end "l barred"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{nacute}
+% The letter `n acute'. (o253/hAB/d171)
+% \begin{macrocode}
+cmchar "nacute";
+beginchar(oct "253", 2u#+hstretch*(2jut#+x_height#), (x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777aam=1/2[x555nlt,x555nrt]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "n acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ncaron}
+% The letter `n caron/hachek'. (o254/hAC/d172)
+% \begin{macrocode}
+cmchar "ncaron";
+beginchar(oct "254", 2u#+hstretch*(2jut#+x_height#), (x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777=1/2[x555nlt,x555nrt]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666);
+endchar; % end "n hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{eng}
+% The letter `eng'. (o255/hAD/d173)
+% \begin{macrocode}
+cmchar "eng";
+beginchar(oct "255", 2u#+hstretch*(jut#+x_height#), (x_height#),
+ (0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+x444=x555; y444=-d;
+draw_eng(555,666,444);
+penlabels(555,666,444);
+endchar; % end "eng"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{ohungarumlaut}
+% The letter `o long umlaut'. (o256/hAE/d174)
+% \begin{macrocode}
+cmchar "ohungarumlaut";
+beginchar(oct "256", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777luam=x2; y777luab=y666+accent_gap;
+draw_lumlaut(777);
+penlabels(555,666);
+endchar; % end "o long umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{racute}
+% The letter `r acute'. (o257/hAF/d175)
+% \begin{macrocode}
+cmchar "racute";
+beginchar(oct "257", 2u#+hstretch*(4/3x_height#), (x_height#),
+ (1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+x777aam=1/2[x1,x5]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "r acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{rcaron}
+% The letter `r caron/hachek'. (o260/hB0/d176)
+% \begin{macrocode}
+cmchar "rcaron";
+beginchar(oct "260", 2u#+hstretch*(4/3x_height#), (x_height#),
+ (1/2desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_r(555,666);
+x777=1/2[x1,x5]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "r hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{sacute}
+% The letter `s acute'. (o261/hB1/d177)
+% \begin{macrocode}
+cmchar "sacute";
+beginchar(oct "261", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+x777aam=x555Sb; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "s acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{scaron}
+% The letter `s caron/hachek'. (o262/hB2/d178)
+% \begin{macrocode}
+cmchar "scaron";
+beginchar(oct "262", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_s(555,666);
+x777=x555Sb; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "s hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{s-t}
+% The s-t `ligature'. (o263/hB3/d179)
+% \begin{macrocode}
+%%beginchar("s", 2u#+hstretch*(x_height#), x_height#, 0);
+%%beginchar("t", 2u#+hstretch*(4/3x_height#), x_height#, 0);
+cmchar "s-t";
+beginchar(oct "263", 4u#+hstretch*(7/3x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=3/7w-pcshiftx; y666=h;
+draw_s(555,666);
+pickup quill;
+x559=x666+2pcshiftx; y559=y555; x669=w-pcshiftx; y669=y666;
+draw_t(559,669);
+penlabels(555,666,559,669);
+endchar; % end s-t
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{tcaron}
+% The letter `t caron/hachek'. (The lowercase roman uses a quote instead of a
+% caron) (o264/hB4/d180)
+% \begin{macrocode}
+cmchar "tcaron";
+beginchar(oct "264", 2u#+hstretch*(4/3x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_t(555,666);
+x777=x184; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "t caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{c-t}
+% The `c-t' `ligature'. (o265/hB5/d181)
+% \begin{macrocode}
+cmchar "c-t";
+beginchar(oct "265", 4u#+hstretch*(7/3x_height#), x_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=3/7w-pcshiftx; y666=h;
+draw_c(555,666);
+pickup quill;
+x559=x666+2pcshiftx; y559=y555; x669=w-pcshiftx; y669=y666;
+draw_t(559,669);
+%x555=pcshiftx; y555=0; x666=3/7w-pcshiftx; y666=h;
+%draw_c(555,666);
+%pickup quill;
+%x759=x666+2pcshiftx; y759=y555; x769=w-pcshiftx; y769=y666;
+%draw_t(759,769);
+penlabels(555,666,444,559,669);
+endchar; % end "c-t"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{uhungarumlaut}
+% The letter `u long umlaut'. (o266/hB6/d182)
+% \begin{macrocode}
+cmchar "uhungarumlaut";
+beginchar(oct "266", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777luab=y666+accent_gap;
+draw_lumlaut(777);
+penlabels(555,666,444);
+endchar; % end "u long umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{uring}
+% The letter `u ring'. (o267/hB7/d183)
+% \begin{macrocode}
+cmchar "uring";
+beginchar(oct "267", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777rab=y666+accent_gap;
+draw_ring(777);
+penlabels(555,666,444);
+endchar; % end "u ring"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ydieresis}
+% The letter `y dieresis'. (o270/hB7/d184)
+% \begin{macrocode}
+cmchar "AUncial letter y dieresis";
+beginchar(oct "270", 2u#+hstretch*(4/3x_height#), (x_height#),
+ (desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y_base(555,666,444);
+x777=1/2[x1,x666]; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666,444);
+endchar; % end "y dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{zacute}
+% The letter `z acute'. (o271/hB8/d185)
+% \begin{macrocode}
+cmchar "zacute";
+beginchar(oct "271", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777aam=1/2[x1,x3]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "z acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{zcaron}
+% The letter `z caron/hachek'. (o272/hBA/d186)
+% \begin{macrocode}
+cmchar "zcaron";
+beginchar(oct "272", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777=1/2[x1,x3]; y777=y666+accent_gap;
+draw_hachek(777);
+penlabels(555,666,444);
+endchar; % end "z caron/hachek"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{zdot}
+% The letter `z dot'. (o273/hBB/d187)
+% \begin{macrocode}
+cmchar "AUncial letter z dot";
+beginchar(oct "273", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_z(555,666);
+x777=1/2[x1,x3]; y777dab=y666+accent_gap;
+draw_dota(777);
+penlabels(555,666,444);
+endchar; % end "z dot"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ij}
+% The letter pair ij. (o274/hBC/d188)
+% \begin{macrocode}
+cmchar "AUncial letter pair ij";
+beginchar(oct "274", 2u#+hstretch*(2thick#+2jut#), (x_height#), (desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x577=x677=x555+thick+jut; y577=-1/2d; y677=y666;
+draw_j(577,677);
+penlabels(555,666);
+endchar; % end "ij"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{exclamdown}
+% Exclamation mark upside-down. (o275/hBD/d189)
+% \begin{macrocode}
+cmchar "exclamdown";
+beginchar(oct "275", 2u#+hstretch*(thick#), asc_height#, 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+lft x1=pcshiftx; bot y1=0;
+x2=x3=x1; y3=h-1/2thick; y2=2/3h;
+draw z1--z2; draw_pdot(3, thick);
+penlabels(1,2,3,4);
+endchar; % end "exclamation down"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{questiondown}
+% The `?' character upside-down. (o276/hBE/d190)
+% \begin{macrocode}
+cmchar "questiondown";
+beginchar(oct "276", 2u#+hstretch*(x_height#),asc_height#, 0);
+adjust_fit(0,0); pcshiftx:=u; pickup quill;
+rt x1=w-pcshiftx; lft x3=pcshiftx; x2=x4=1/2w;
+bot y2=0; y4=1/2h; bot y1=thin; y3=1/2[y4,y2];
+x5=x4; y5=3/4h;
+path p[];
+p1=z1..z2{left}..z3{up}..{right}z4--z5;
+x9=x5; top y9=h;
+ pair vec[];
+ vec1= direction 0 of p1;
+ z11=z1 shifted vec1;
+ x81=rt x1; y81=top y1;
+ x82=x1; y82=y1+0.75jut;
+ draw p1; % the curve
+ pickup stylus;
+ filldraw z81--z82--z11--cycle; % the serif
+ draw_pdot(9,thick);
+ penlabels(1,2,3,4,5,6,7,9,11,17,26,27,28,81,82,100);
+endchar; % end of "query upside-down"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{sterling}
+% The pound sterling symbol. (o277/hBF/d191)
+% \begin{macrocode}
+cmchar "sterling";
+beginchar(oct "277", 2u#+hstretch*caprat*(x_height#), caprat*(asc_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+draw_pound(555,666);
+penlabels(555,666);
+endchar; % end "pound"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% The end of this file.
+%
+% \begin{macrocode}
+%</mid>
+% \end{macrocode}
+%
+%
+%
+% \section{Upper half}
+%
+% Positions octal 300 through 377 (hex C0 through FF, decimal 192 through 255).
+%
+% \begin{macrocode}
+%<*top>
+%%% AUNCLTOP.MF AUncl Top of the code table
+
+% \end{macrocode}
+%
+% \begin{routine}{Agrave}
+% The letter `A grave'. (o300/hC0/d192)
+% \begin{macrocode}
+cmchar "Agrave";
+beginchar(oct "300", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777gam=x1; y777gab=y666+1/4accent_ysize;
+draw_grave(777);
+penlabels(555,666,777);
+endchar; % end "A grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Aacute}
+% The letter `A acute'. (o301/hC1/d193)
+% \begin{macrocode}
+cmchar "Aacute";
+beginchar(oct "301", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777aam=x1; y777aab=y666+1/4accent_ysize;
+draw_acute(777);
+penlabels(555,666,777);
+endchar; % end "A acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Acircumflex}
+% The letter `A circumflex'. (o302/hC2/d194)
+% \begin{macrocode}
+cmchar "Acircumflex";
+beginchar(oct "302", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777=y666+1/4accent_ysize;
+draw_circumflex(777);
+penlabels(555,666,777);
+endchar; % end "A circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Atilde}
+% The letter `A tilde'. (o303/hC3/d195)
+% \begin{macrocode}
+cmchar "Atilde";
+beginchar(oct "303", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777=y666+1/4accent_ysize;
+draw_tildea(777);
+penlabels(555,666,777);
+endchar; % end "A tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Adieresis}
+% The letter `A umlaut'. (o304/hC4/d196)
+% \begin{macrocode}
+cmchar "Adieresis";
+beginchar(oct "304", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777ddab=y666+1/4accent_ysize;
+draw_dieresis(777);
+penlabels(555,666,777);
+endchar; % end "A umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{Aring}
+% The letter `A ring'. (o305/hC5/d197)
+% \begin{macrocode}
+cmchar "Aring";
+beginchar(oct "305", 2u#+hstretch*caprat*(x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777rab=y666;
+draw_ring(777);
+penlabels(555,666,777);
+endchar; % end "A ring"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{AE}
+% The letter `Aesc'. (o306/hC6/d198)
+% \begin{macrocode}
+cmchar "AE";
+beginchar(oct "306", 2u#+hstretch*caprat*(14/8x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_aesc(555,666);
+penlabels(555,666,777);
+endchar; % end "Aesc"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ccedilla}
+% The letter `C cedilla'. (o307/hC7/d199)
+% \begin{macrocode}
+cmchar "Ccedilla";
+beginchar(oct "307", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777=x4; top y777=y4-thin;
+draw_cedilla(777);
+penlabels(555,666);
+endchar; % end "C cedilla"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Egrave}
+% The letter `E grave'. (o310/hC8/d200)
+% \begin{macrocode}
+cmchar "Egrave";
+beginchar(oct "310", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777gam=x2; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "E grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Eacute}
+% The letter `E acute'. (o311/hC9/d201)
+% \begin{macrocode}
+cmchar "Eacute";
+beginchar(oct "311", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777aam=x2; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "E acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ecircumflex}
+% The letter `E circumflex'. (o312/hCA/d202)
+% \begin{macrocode}
+cmchar "Ecircumflex";
+beginchar(oct "312", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "E circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Edieresis}
+% The letter `E umlaut'. (o313/hCB/d203)
+% \begin{macrocode}
+cmchar "Edieresis";
+beginchar(oct "313", 2u#+hstretch*caprat*(x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "E umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Igrave}
+% I with grave accent. (o314/hCC/d204)
+% \begin{macrocode}
+cmchar "Igrave";
+beginchar(oct "314", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777gam=x555It.a; y777gab=y666+accent_gap;
+pickup accentpen;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "I grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Iacute}
+% I with acute accent. (o315/hCD/d205)
+% \begin{macrocode}
+cmchar "Iacute";
+beginchar(oct "315", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777aam=x555It.a; y777aab=y666+accent_gap;
+pickup accentpen;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "I acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Icircumflex}
+% I with circumflex accent. (o316/hCE/d206)
+% \begin{macrocode}
+cmchar "Icircumflex";
+beginchar(oct "316", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777=x555It.a; y777=y666+accent_gap;
+pickup accentpen;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "I circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Idieresis}
+% I with umlaut. (o317/hCF/d207)
+% \begin{macrocode}
+cmchar "Idieresis";
+beginchar(oct "317", 2u#+hstretch*(thick#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777=x555It.a; y777ddab=y666+accent_gap;
+pickup accentpen;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "I umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Eth}
+% The letter `Eth' or `Dyet'. (o320/hD0/d208)
+% \begin{macrocode}
+cmchar "Eth";
+beginchar(oct "320", 2u#+hstretch*caprat*(4/3x_height#), caprat*(4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_dyet(555,666);
+penlabels(555,666);
+endchar; % end "Eth"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ntilde}
+% The letter `N tilde'. (o321/hD1/d209)
+% \begin{macrocode}
+cmchar "Ntilde";
+beginchar(oct "321", 2u#+hstretch*caprat*(2jut#+x_height#), caprat*(x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777=1/2[x555nlt,x555nrt]; y777=y666+accent_gap;
+draw_tildea(777);
+penlabels(555,666);
+endchar; % end "N tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ograve}
+% The letter `O grave'. (o322/hD2/d210)
+% \begin{macrocode}
+cmchar "Ograve";
+beginchar(oct "322", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777gam=x2; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "O grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Oacute}
+% The letter `O acute'. (o323/hD3/d211)
+% \begin{macrocode}
+cmchar "Oacute";
+beginchar(oct "323", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777aam=x2; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "O acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ocircumflex}
+% The letter `O circumflex'. (o324/hD4/d212)
+% \begin{macrocode}
+cmchar "Ocircumflex";
+beginchar(oct "324", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "O circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Otilde}
+% The letter `O tilde'. (o325/hD5/d213)
+% \begin{macrocode}
+cmchar "Otilde";
+beginchar(oct "325", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_tildea(777);
+penlabels(555,666);
+endchar; % end "O tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Odieresis}
+% The letter `O dieresis'. (o326/hD6/d214)
+% \begin{macrocode}
+cmchar "Odieresis";
+beginchar(oct "326", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "O dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{OE}
+% The letter `Ethel'. (o327/hD7/d215)
+% \begin{macrocode}
+cmchar "OE";
+beginchar(oct "327", 2u#+hstretch*caprat*(2x_height#-jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_ethel(555,666);
+penlabels(555,666);
+endchar; % end "Ethel"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Oslash}
+% The letter `O slash'. (o330/hD8/d216)
+% \begin{macrocode}
+cmchar "Oslash";
+beginchar(oct "330", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+pickup stylus;
+x777=x2; y777=y666+accent_gap; z771=(x555,y4); z772=(x666,y2);
+draw z771--z772;
+penlabels(555,666,771,772);
+endchar; % end "O slash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ugrave}
+% The letter `U grave'. (o331/hD9/d217)
+% \begin{macrocode}
+cmchar "Ugrave";
+beginchar(oct "331", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777gam=x8; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666,444);
+endchar; % end "U grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Uacute}
+% The letter `U acute'. (o332/hDA/d218)
+% \begin{macrocode}
+cmchar "Uacute";
+beginchar(oct "332", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777aam=x8; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "U acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Ucircumflex}
+% The letter `U circumflex'. (o333/hDB/d219)
+% \begin{macrocode}
+cmchar "Ucircumflex";
+beginchar(oct "333", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666,444);
+endchar; % end "U circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Udieresis}
+% The letter `U dieresis'. (o334/hDC/d220)
+% \begin{macrocode}
+cmchar "Udieresis";
+beginchar(oct "334", 2u#+hstretch*caprat*(4/3x_height#+jut#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666,444);
+endchar; % end "U dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Yacute}
+% The letter `Y acute'. (o335/hDD/d221)
+% \begin{macrocode}
+cmchar "Yacute";
+beginchar(oct "335", 2u#+hstretch*caprat*(4/3x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y_base(555,666,444);
+x777aam=1/2[x1,x666]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "Y acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Thorn}
+% The letter `Thorn'. (o336/hDE/d222)
+% \begin{macrocode}
+cmchar "Thorn";
+beginchar(oct "336", 2u#+hstretch*caprat*(7/6x_height#), caprat*(x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h;
+x444=x555; y444=-1/2d;
+draw_thorn(555,666,444);
+penlabels(555,666,444);
+endchar; % end "Thorn"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{Germandbls}
+% The letter Eszett. (o337/hDF/d223)
+% \begin{macrocode}
+cmchar "Germandbls";
+beginchar(oct "337", 3u#+hstretch*caprat*(14/8x_height#), caprat*(x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=1/2w-1/2pcshiftx; y666=h;
+x755=1/2w+1/2pcshiftx; x866=w-pcshiftx; y755=y555; y866=y666;
+draw_s(555,666);
+pickup quill;
+draw_s(755,866);
+penlabels(555,666,755,866,444);
+endchar; % end "Eszett"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+%
+% \begin{routine}{agrave}
+% The letter `a grave'. (o340/hE0/d224)
+% \begin{macrocode}
+cmchar "agrave";
+beginchar(oct "340", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777gam=x1; y777gab=y666+1/4accent_ysize;
+draw_grave(777);
+penlabels(555,666,777);
+endchar; % end "a grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{aacute}
+% The letter `a acute'. (o341/hE1/d225)
+% \begin{macrocode}
+cmchar "aacute";
+beginchar(oct "341", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777aam=x1; y777aab=y666+1/4accent_ysize;
+draw_acute(777);
+penlabels(555,666,777);
+endchar; % end "a acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{acircumflex}
+% The letter `a circumflex'. (o342/hE2/d226)
+% \begin{macrocode}
+cmchar "acircumflex";
+beginchar(oct "342", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777=y666+1/4accent_ysize;
+draw_circumflex(777);
+penlabels(555,666,777);
+endchar; % end "a circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{atilde}
+% The letter `a tilde'. (o343/hE3/d227)
+% \begin{macrocode}
+cmchar "atilde";
+beginchar(oct "343", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777=y666+1/4accent_ysize;
+draw_tildea(777);
+penlabels(555,666,777);
+endchar; % end "a tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{adieresis}
+% The letter `a umlaut'. (o344/hE4/d228)
+% \begin{macrocode}
+cmchar "adieresis";
+beginchar(oct "344", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777ddab=y666+1/4accent_ysize;
+draw_dieresis(777);
+penlabels(555,666,777);
+endchar; % end "a umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{aring}
+% The letter `a ring'. (o345/hE5/d229)
+% \begin{macrocode}
+cmchar "aring";
+beginchar(oct "345", 2u#+hstretch*(x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-u-jut; y666=h;
+draw_a(555,666);
+x777=x1; y777rab=y666;
+draw_ring(777);
+penlabels(555,666,777);
+endchar; % end "a ring"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ae}
+% The letter `aesc'. (o346/hE6/d230)
+% \begin{macrocode}
+cmchar "ae";
+beginchar(oct "346", 2u#+hstretch*(12/8x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_aesc(555,666);
+penlabels(555,666,777);
+endchar; % end "aesc"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{ccedilla}
+% The letter `c cedilla'. (o347/hE7/d231)
+% \begin{macrocode}
+cmchar "ccedilla";
+beginchar(oct "347", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h;
+draw_c(555,666);
+x777=x4; top y777=y555;
+draw_cedilla(777);
+penlabels(555,666);
+endchar; % end "c cedilla"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{egrave}
+% The letter `e grave'. (o350/hE8/d232)
+% \begin{macrocode}
+cmchar "egrave";
+beginchar(oct "350", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777gam=x2; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "e grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{eacute}
+% The letter `e acute'. (o351/hE9/d233)
+% \begin{macrocode}
+cmchar "AUncial letter e acute";
+beginchar(oct "351", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777aam=x2; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "e acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ecircumflex}
+% The letter `e circumflex'. (o352/hEA/d234)
+% \begin{macrocode}
+cmchar "ecircumflex";
+beginchar(oct "352", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "e circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{edieresis}
+% The letter `e umlaut'. (o353/hEB/d235)
+% \begin{macrocode}
+cmchar "AUncial letter e umlaut";
+beginchar(oct "353", 2u#+hstretch*(x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_e(555,666);
+x777=x2; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "e umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{igrave}
+% i with grave accent. (o354/hEC/d236)
+% \begin{macrocode}
+cmchar "igrave";
+beginchar(oct "354", 2u#+hstretch*(thick#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777gam=x555It.a; y777gab=y666+accent_gap;
+pickup accentpen;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "i grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{iacute}
+% i with acute accent. (o355/hED/d237)
+% \begin{macrocode}
+cmchar "iacute";
+beginchar(oct "355", 2u#+hstretch*(thick#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777aam=x555It.a; y777aab=y666+accent_gap;
+pickup accentpen;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "i acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{icircumflex}
+% i with circumflex accent. (o356/hEE/d238)
+% \begin{macrocode}
+cmchar "icircumflex";
+beginchar(oct "356", 2u#+hstretch*(thick#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777=x555It.a; y777=y666+accent_gap;
+pickup accentpen;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "i circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{idieresis}
+% i with umlaut. (o357/hEF/d239)
+% \begin{macrocode}
+cmchar "idieresis";
+beginchar(oct "357", 2u#+hstretch*(thick#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut = x666; y666=h; y555=0;
+draw_i(555,666);
+x777=x555It.a; y777ddab=y666+accent_gap;
+pickup accentpen;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "i umlaut"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{eth}
+% The letter `eth'. (o360/hF0/d240)
+% \begin{macrocode}
+cmchar "eth";
+beginchar(oct "360", 2u#+hstretch*(4/3x_height#), (4/3x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; x666=w-pcshiftx; y555=0; y666=h;
+draw_dyet(555,666);
+penlabels(555,666);
+endchar; % end "dyet"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ntilde}
+% The letter `n tilde'. (o361/hF1/d241)
+% \begin{macrocode}
+cmchar "ntilde";
+beginchar(oct "361", 2u#+hstretch*(2jut#+x_height#), (x_height#),
+ caprat*(0.5desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_n(555,666);
+x777=1/2[x555nlt,x555nrt]; y777=y666+accent_gap;
+draw_tildea(777);
+penlabels(555,666);
+endchar; % end "n tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ograve}
+% The letter `o grave'. (o362/hF2/d242)
+% \begin{macrocode}
+cmchar "ograve";
+beginchar(oct "362", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777gam=x2; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666);
+endchar; % end "o grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{oacute}
+% The letter `o acute'. (o363/hF3/d243)
+% \begin{macrocode}
+cmchar "oacute";
+beginchar(oct "363", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777aam=x2; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666);
+endchar; % end "o acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ocircumflex}
+% The letter `o circumflex'. (o364/hF4/d244)
+% \begin{macrocode}
+cmchar "ocircumflex";
+beginchar(oct "364", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666);
+endchar; % end "o circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{otilde}
+% The letter `o tilde'. (o365/hF5/d245)
+% \begin{macrocode}
+cmchar "otilde";
+beginchar(oct "365", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777=y666+accent_gap;
+draw_tildea(777);
+penlabels(555,666);
+endchar; % end "o tilde"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{odieresis}
+% The letter `o dieresis'. (o366/hF6/d246)
+% \begin{macrocode}
+cmchar "odieresis";
+beginchar(oct "366", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+x777=x2; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666);
+endchar; % end "o dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{oe}
+% The letter `ethel'. (o367/hF7/d247)
+% \begin{macrocode}
+cmchar "oe";
+beginchar(oct "367", 2u#+hstretch*(2x_height#-jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_ethel(555,666);
+penlabels(555,666);
+endchar; % end "ethel"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{oslash}
+% The letter `o slash'. (o370/hF8/d248)
+% \begin{macrocode}
+cmchar "oslash";
+beginchar(oct "370", 2u#+hstretch*(7/6x_height#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=-o; x666=w-pcshiftx; y666=h+o;
+draw_o(555,666);
+pickup stylus;
+x777=x2; y777=y666+accent_gap; z771=(x555,y4); z772=(x666,y2);
+draw z771--z772;
+penlabels(555,666,771,772);
+endchar; % end "o slash"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ugrave}
+% The letter `u grave'. (o371/hF9/d249)
+% \begin{macrocode}
+cmchar "ugrave";
+beginchar(oct "371", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777gam=x8; y777gab=y666+accent_gap;
+draw_grave(777);
+penlabels(555,666,444);
+endchar; % end "u grave"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{uacute}
+% The letter `u acute'. (o372/hFA/d250)
+% \begin{macrocode}
+cmchar "uacute";
+beginchar(oct "372", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777aam=x8; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "u acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{ucircumflex}
+% The letter `u circumflex'. (o373/hFB/d251)
+% \begin{macrocode}
+cmchar "ucircumflex";
+beginchar(oct "373", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777=y666+accent_gap;
+draw_circumflex(777);
+penlabels(555,666,444);
+endchar; % end "u circumflex"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{udieresis}
+% The letter `u dieresis'. (o374/hFC/d252)
+% \begin{macrocode}
+cmchar "udieresis";
+beginchar(oct "374", 2u#+hstretch*(4/3x_height#+jut#), (x_height#), 0);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx-jut; y666=h;
+draw_u(555,666);
+x777=x8; y777ddab=y666+accent_gap;
+draw_dieresis(777);
+penlabels(555,666,444);
+endchar; % end "u dieresis"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{yacute}
+% The letter `y acute'. (o375/hFD/d253)
+% \begin{macrocode}
+cmchar "yacute";
+beginchar(oct "375", 2u#+hstretch*(4/3x_height#), (x_height#),
+ (desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_y_base(555,666,444);
+x777aam=1/2[x1,x666]; y777aab=y666+accent_gap;
+draw_acute(777);
+penlabels(555,666,444);
+endchar; % end "y acute"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{thorn}
+% The letter `thorn'. (o376/hFE/d254)
+% \begin{macrocode}
+cmchar "thorn";
+beginchar(oct "376", 2u#+hstretch*(7/6x_height#), (x_height#),
+ caprat*(desc_depth#));
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-1/2d;
+draw_thorn(555,666,444);
+penlabels(555,666,444);
+endchar; % end "thorn"
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{germandbls}
+% The letter eszett. (o377/hFF/d255)
+% \begin{macrocode}
+cmchar "germandbls";
+beginchar(oct "377", 2u#+hstretch*(x_height#+jut#), (asc_height#), 1/2desc_depth#);
+adjust_fit(0,0); pcshiftx := u; pickup quill;
+x555=pcshiftx+jut; y555=0; x666=w-pcshiftx; y666=h; x444=x555; y444=-d;
+draw_eszett(555,666,444);
+penlabels(555,666,444);
+endchar; % end "eszett"
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+% The end of the file
+%
+% \begin{macrocode}
+%</top>
+% \end{macrocode}
+%
+%
+%
+% \Finale
+%
+\endinput
+
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+
+
diff --git a/fonts/auncial-new/aunclmft.dtx b/fonts/auncial-new/aunclmft.dtx
new file mode 100644
index 0000000000..a4388d5179
--- /dev/null
+++ b/fonts/auncial-new/aunclmft.dtx
@@ -0,0 +1,2173 @@
+% \iffalse meta-comment
+%
+% aunclmft.dtx
+%
+% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+% Copyright 1999--2005 Peter R. Wilson
+%
+% This work may be distributed and/or modified under the
+% conditions of the Latex Project Public License, either
+% version 1.3 of this license or (at your option) any
+% later version.
+% The latest version of the license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of
+% LaTeX version 2003/06/01 or later.
+%
+% This work has the LPPL maintenance status "author-maintained".
+%
+% This work consists of the files listed in the README file.
+%
+% If you do not have the docmfp package (available from CTAN in
+% tex-archive/macros/latex/contrib/supported), comment out the
+% \usepackage{docmfp} line below and uncomment the line following it.
+%
+%<*driver>
+\documentclass[twoside]{ltxdoc}
+\usepackage{docmfp}
+%%%%%% \providecommand{\DescribeVariable}[1]{} \newenvironment{routine}[1]{}{}
+\usepackage{url}
+\usepackage[draft=false,
+ plainpages=false,
+ pdfpagelabels,
+ bookmarksnumbered,
+ hyperindex=false
+ ]{hyperref}
+\providecommand{\phantomsection}{}
+\OnlyDescription %% comment this out for the full glory
+\EnableCrossrefs
+\CodelineIndex
+\setcounter{StandardModuleDepth}{1}
+\makeatletter
+ \@mparswitchfalse
+\makeatother
+\renewcommand{\MakeUppercase}[1]{#1}
+\pagestyle{headings}
+\newenvironment{addtomargins}[1]{%
+ \begin{list}{}{%
+ \topsep 0pt%
+ \addtolength{\leftmargin}{#1}%
+ \addtolength{\rightmargin}{#1}%
+ \listparindent \parindent
+ \itemindent \parindent
+ \parsep \parskip}%
+ \item[]}{\end{list}}
+\begin{document}
+ \raggedbottom
+ \DocInput{aunclmft.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{132}
+%
+% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
+% \DoNotIndex{\@centercr,\@cite}
+% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
+% \DoNotIndex{\@input,\@ixpt,\@m}
+% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
+% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
+% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
+% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
+% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
+% \DoNotIndex{\advance,\Alph,\alph}
+% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
+% \DoNotIndex{\bullet}
+% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
+% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
+% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
+% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
+% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
+% \DoNotIndex{\fbox}
+% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
+% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
+% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
+% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
+% \DoNotIndex{\input}
+% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
+% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
+% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
+% \DoNotIndex{\NeedsTeXFormat,\newdimen}
+% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
+% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
+% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
+% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
+% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
+% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
+% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
+% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
+% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
+% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
+% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
+% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
+% \DoNotIndex{\wd,\xiipt,\year,\z@}
+%
+% \changes{v1.0}{1999/05/22}{First public release}
+% \changes{v2.0}{2005/11/27}{Major rewrite}
+%
+% \def\fileversion{v1.0} \def\filedate{1999/05/22}
+% \def\fileversion{v2.0} \def\filedate{2005/11/27}
+% \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package
+% \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option
+% \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file
+% \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter
+% \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle
+% \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment
+% \newcommand*{\AD}{\textsc{ad}}
+% \newcommand*{\thisfont}{Artificial Uncial}
+%
+% \title{\Lpack{Artificial Uncial}: MetaFont driver code\thanks{This
+% file has version number \fileversion, last revised
+% \filedate.}}
+%
+% \author{%
+% Peter Wilson\footnote{\texttt{herries dot press at earthlink dot net}}\\
+% Herries Press }
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+% The \Lpack{auncial} bundle provides a PostScript Type1 set of
+% \thisfont{} bookhands
+% as used
+% for manuscripts in the 6th to the 10th century. This is one in a series
+% of manuscript fonts.
+%
+% This document contains the MetaFont driver code.
+% \end{abstract}
+% \tableofcontents
+% \listoftables
+%
+%
+%
+% \section{Introduction}
+%
+% The \Lpack{auncial} bundle provides a PostScript Type1 version of a
+% Metafont~\cite{METAFONT} rendition
+% of the \thisfont{} manuscript book-hand that was in use between about the
+% sixth and tenth centuries~\AD. It is part of a project to provide fonts
+% covering the major manuscript hands between the first century~\AD{} and
+% the invention of printing.
+%
+% This document contains the MetaFont driver code.
+%
+% This manual is typeset according to the conventions of the
+% \LaTeX{} \textsc{docstrip} utility which enables the automatic
+% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}.
+% The \Lpack{docmfp} package is used for documenting the Metafont portions
+% of the distribution~\cite{DOCMFP}.
+%
+% \section{The Metafont code} \label{sec:mf}
+%
+%
+% As previously noted, this work is part of a larger project to provide
+% fonts covering the main manuscript book-hands. As such, one of the
+% aims is to produce a coordinated set of fonts, especially as multiple
+% hands might be used in a single document.
+%
+% Noting that the hands tend to be somewhat larger than the typical 10pt
+% size (where the x-height is approximately 1.5mm) used for modern books,
+% I have also designed the fonts
+% at a larger than normal size, then applied some non-linear factors when reducing
+% them down to a 10pt size.
+% Further, I have used the height of the Carolingian minuscule as a
+% normalising factor when deciding on the absolute height of any particular
+% script. The x-height of the Carolingian font is made equal to the
+% x-height of the Computer Modern Roman (CMR) font.
+%
+% Modern fonts are effectively drawn. That is, the outline of the letter is
+% drawn carefully and the center is filled with ink. This is shown to good
+% effect in the Metafont code for the Computer Modern fonts~\cite{CM}.
+% In contrast, the manuscript letters were inked by single pen strokes in
+% a calligraphic manner. I have tried to repeat this calligraphic style
+% in the Metafont code.
+%
+% As much as possible I have tried to use parameter values from the
+% Computer Modern Roman (CMR) fonts in order to reduce possible
+% infelicities if the CM and manuscript fonts are used together. However,
+% few of the CMR parameters are applicable to the calligraphic style.
+%
+%
+% \StopEventually{
+% \bibliographystyle{alpha}
+% \renewcommand{\refname}{Bibliography}
+% \begin{thebibliography}{GMS94}
+% \addcontentsline{toc}{section}{\refname}
+%
+% \bibitem[And69]{ANDERSON69}
+% Donald M.~Anderson.
+% \newblock \emph{The Art of Written Forms: The Theory and Practice of Calligraphy}.
+% \newblock Holt, Rinehart and Winston, 1969.
+%
+% \bibitem[Bol95]{BOLOGNA95}
+% Giulia Bologna.
+% \newblock \emph{Illuminated Manuscripts: The Book before Gutenberg}.
+% \newblock Crescent Books, 1995.
+%
+% \bibitem[Day95]{DAY95}
+% Lewis F.~Day.
+% \newblock \emph{Alphabets Old \& New}.
+% \newblock (3rd edition originally published by B.~T.~Batsford, 1910)
+% \newblock Senate, 1995.
+%
+% \bibitem[Dro80]{DROGIN80}
+% Marc Drogin.
+% \newblock \emph{Medieval Calligraphy: Its History and Technique}.
+% \newblock Allenheld, Osmun \& Co., 1980.
+%
+% \bibitem[Dru95]{DRUCKER95}
+% Johanna Drucker.
+% \newblock \emph{The Alphabetic Labyrinth}.
+% \newblock Thames \& Hudson, 1995.
+%
+% \bibitem[Fir93]{FIRMAGE93}
+% Richard A.~Firmage.
+% \newblock \emph{The Alphabet Abecedarium}.
+% \newblock David R~Goodine, 1993.
+%
+% \bibitem[Fli98]{LETTRINE}
+% Daniel Flipo.
+% \newblock \emph{The LETTRINE package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1998.
+%
+% \bibitem[Har95]{HARRIS95}
+% David Harris.
+% \newblock \emph{The Art of Calligraphy}.
+% \newblock DK Publishing, 1995.
+%
+% \bibitem[Jen95]{BETON}
+% Frank Jensen.
+% \newblock \emph{The BETON package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1995.
+%
+% \bibitem[Joh71]{JOHNSTON75}
+% Edward Johnston (ed. Heather Child).
+% \newblock \emph{Formal Penship and Other Papers}.
+% \newblock Penthalic, 1971.
+%
+% \bibitem[Knu87]{CM}
+% Donald E.~Knuth.
+% \newblock \emph{Computer Modern Typefaces}.
+% \newblock Addison-Wesley, 1987.
+%
+% \bibitem[Knu92]{METAFONT}
+% Donald E.~Knuth.
+% \newblock \emph{The METAFONTbook}.
+% \newblock Addison-Wesley, 1992.
+%
+% \bibitem[GMS94]{GOOSSENS94}
+% Michel Goossens, Frank Mittelbach, and Alexander Samarin.
+% \newblock \emph{The LaTeX Companion}.
+% \newblock Addison-Wesley Publishing Company, 1994.
+%
+% \bibitem[Tho75]{THOMAS75}
+% Alan G.~Thomas.
+% \newblock \emph{Great Books and Book Collectors}.
+% \newblock Weidenfield and Nichoson, 1975.
+%
+% \bibitem[Wil99]{DOCMFP}
+% Peter R.~Wilson.
+% \newblock \emph{The DOCMFP Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \bibitem[Wil99b]{ROMANNUM}
+% Peter R.~Wilson.
+% \newblock \emph{The ROMANNUM Package}.
+% \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}).
+% \newblock 1999.
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+% \section{The driver file}
+%
+% The driver file sets up the font parameters and also contains
+% the macros used in the definition of the characters.
+%
+% \begin{macrocode}
+%<*mfd>
+% This is UNCLTITLE.MF for the Artificial Uncial font.
+% This file also contains special macros universally needed in the
+% font but either not in the cmbase.mf file or modifications of these.
+%
+% \end{macrocode}
+%
+% \begin{routine}{makebox}
+% This is a new version of the \Lpack{cmbase.mf} |makebox| macro.
+% Essentially, as we are only generating a single case font, we don't
+% need all the horizontals for the CMR characters.
+%
+% \begin{macrocode}
+%%% A new version of cmbase.mf makebox macro
+def makebox(text rule) =
+ for y=0,half_height,cap_height,body_height,x_height,asc_height,-desc_depth,-body_depth:
+ rule((l,y)t_,(r,y)t_); endfor % horizontals
+ for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals
+ for x=u*(1+floor(1/u)) step u until r-1:
+ rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals
+ if charic<>0:
+ rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{proofpcbb}
+% The macro |proofpcbb(S, xoff, yoff)| draws crosses at the corners of the
+% square, and at the bottom and top midpoints, where the point |zS| is at
+% position |(xoff,yoff)| in the square.
+% \begin{macrocode}
+%%% A macro to delineate a letter's bounding square in proof mode.
+%%% Point z$ is at (xoff,yoff) in the bounding square.
+def proofpcbb(suffix $)(expr xoff, yoff) =
+if proofing > 0:
+ x$bl = x$ - xoff; y$bl = y$ - yoff; % Bottom Left Hand Corner
+ z$br = (x$bl+side, y$bl); % BRHC
+ z$tr = (x$bl+side, y$bl+side); % TRHC
+ z$tl = (x$bl, y$bl+side); % TLHC
+ z$bc = 1/2[z$bl,z$br]; z$tc = 1/2[z$tl,z$tr]; % horizontal mid points
+ pair hc, vc;
+ hc = (2u,0); vc = (0,2u);
+ pickup pensquare scaled 2;
+ for s = z$bl, z$br, z$tr, z$tl, z$bc, z$tc:
+ draw s-hc--s+hc;
+ draw s-vc--s+vc;
+ endfor
+fi
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+% \begin{routine}{auncial_font_setup}
+% This macro contains the set up for the \thisfont{} fonts.
+% \begin{macrocode}
+def auncial_font_setup= % contains special stuff for auncial fonts
+ define_pixels(side,half_height,carol_height,comma_width);
+ define_pixels(u,dot_size,letter_size,cap_height,width_adj,serif_fit,
+ cap_serif_fit,jut,cap_jut);
+ define_pixels(fig_width);
+ define_whole_pixels(letter_fit);
+ define_whole_vertical_pixels(body_height,asc_height,cap_height,x_height,
+ desc_depth,body_depth,fig_height,
+ accent_ysize,accent_gap);
+ define_corrected_pixels(o);
+ define_blacker_pixels(thick,thin,accent_thickness);
+ let adjust_fit = normal_adjust_fit;
+% \end{macrocode}
+% \DescribeVariable{stylus}
+% The pen for drawing the thinnest lines is |stylus|.
+% \begin{macrocode}
+ pickup pencircle scaled thin;
+ stylus:=savepen;
+% \end{macrocode}
+% \DescribeVariable{thickstylus}
+% The pen for drawing lines a bit thicker than the thinnest is |thickstylus|.
+% \begin{macrocode}
+ pickup pencircle scaled (1.5thin);
+ thickstylus:=savepen;
+% \end{macrocode}
+% \DescribeVariable{accentpen}
+% The pen for drawing the typical accent is |accentpen|.
+% \begin{macrocode}
+ pickup pencircle xscaled 1/2thick yscaled thin rotated pangle;
+ accentpen:=savepen;
+% \end{macrocode}
+% \DescribeVariable{quill}
+% The normal calligraphic pen is |quill|.
+% \begin{macrocode}
+ pickup pencircle xscaled thick yscaled thin rotated pangle;
+ quill:=savepen;
+ numeric pcshiftx#; % x value of LHS of box wrt origin of char box
+ define_pixels(pcshiftx);
+ numeric sqxside#; % x size of the square
+ numeric sqyside#; % y size of the square
+ define_pixels(sqxside,sqyside);
+
+enddef; % end of auncial_font_setup
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \DescribeVariable{ductus}
+% A boolean to control drawing the ductus (TRUE) or the full letter (FALSE).
+% \begin{macrocode}
+boolean ductus;
+ductus:=false;
+% \end{macrocode}
+%
+% \DescribeVariable{qhor}
+% \DescribeVariable{qvert}
+% The cosine and sine of the pen angle.
+% \begin{macrocode}
+numeric qhor, qvert;
+qhor:=cosd(pangle); qvert:=sind(pangle);
+% \end{macrocode}
+%
+% \DescribeVariable{pdir}
+% The vector corresponding to the pen angle.
+% \begin{macrocode}
+pair pdir; pdir=dir(pangle);
+% \end{macrocode}
+%
+% \DescribeVariable{ppdir}
+% The vector that is perpendicular (anticlockwise) to the pen angle.
+% \begin{macrocode}
+pair ppdir; ppdir=dir(pangle+90);
+
+% \end{macrocode}
+%
+%
+% \begin{routine}{draw_serif}
+% A macro to draw a serif. |draw_serif(1,2,f)| uses the current pen to
+% draw a serif of extent |jut| at |z1| to the left of the line from |z2|
+% to |z1|. The
+% radius is controlled by |f|, where $0<f<1$. The `stem' from |z1| to |z2|
+% starts at the point |z1a|.
+% \begin{macrocode}
+def draw_serif(suffix $, $$)(expr fr)=
+ numeric beta, ajut, bjut;
+% \end{macrocode}
+% |fr| and |beta| control the serif radius.
+% \begin{macrocode}
+ beta=1-fr;
+ ajut=fr*jut; bjut=beta*jut;
+% \end{macrocode}
+% The points |$c|, |$b| and |$a| define the serif. For a top (bottom) serif
+% the leftmost (rightmost) point is
+% |$c| and |$a| is on the stem. |$a| is moved from |$| towards |$$| by the
+% distance |ajut|, and the other points are calculated from this. If the stem
+% is not vertical, then we have to rotate |$b| to match.
+% \begin{macrocode}
+ pair vec[]; vec1=unitvector(z$$-z$);
+ vec2=ajut*vec1;
+ z$a=z$ shifted vec2;
+ z$b=z$a rotatedaround (z$,-90);
+ boolean top_serif;
+ if y$>y$$:
+ top_serif := true;
+ z$c=z$b shifted (-bjut*pdir);
+ else:
+ top_serif:=false;
+ z$c=z$b shifted (bjut*pdir);
+ fi
+% \end{macrocode}
+% Draw the parts, and finish off.
+% \begin{macrocode}
+ if top_serif:
+ draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif
+ else:
+ draw z$c--z$b{-pdir}..{z$$-z$}z$a;
+ fi
+ labels($a,$b,$c);
+enddef; % end of draw_serif
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_istem}
+% A macro to draw the shape of an i. |draw_istem(1,2,f)| draws a stem whose
+% top is at |z1| and bottom at |z2|. It draws with the current pen and the serifs
+% are of extent |jut|. There is a top left and bottom right serif.
+% The serif radius is controlled by |f|, with $0<f<1$.
+% \begin{macrocode}
+def draw_istem(suffix $, $$)(expr fr)=
+ draw_serif($, $$, fr); % top serif
+ draw_serif($$, $, fr); % bottom serif
+ draw z$a--z$$a; % the stem
+enddef; % end of draw_istem
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_tstem}
+% A macro to draw the shape of the stem of a `t'. |draw_tstem(1,2,f)| draws a
+% stem whose
+% top is at |z1| and bottom at |z2| with a right serif at |z2|. The radius
+% is controlled by |f|, with $0 < f < 1$.
+% It draws with the current pen and the serif is of extent |jut|.
+% \begin{macrocode}
+def draw_tstem(suffix $, $$)(expr fr)=
+ draw_serif($$, $, fr); % the serif
+ draw z$--z$$a; % the stem
+enddef; % end of draw_tstem
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_tlserif}
+% A macro to draw a top left serif. |draw_tlserif(1,2,f)| draws a serif on top
+% of a stem whose absolute
+% top is at |z1| and bottom at |z2|. It draws with the current pen and the serif
+% is of extent |jut|. It also draws the stem to the point |z2|. The serif
+% radius is controlled by |f|, with $0<f<1$.
+% \begin{macrocode}
+def draw_tlserif(suffix $, $$)(expr fr)=
+ draw_serif($, $$, fr); % the serif
+ draw z$a--z$$; % the stem
+enddef; % end of draw_tlserif
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_flick}
+% A macro to draw a flick (like an eyebrow).
+% |draw_flick(1,rise,fall,fjut)| draws a stroke starting at |z1| rising up by
+% |rise| and falling down by |fall| wrt |z1|. The overall stroke distance is
+% |fjut| to the right of |z1|. It is drawn with the current pen.
+% \begin{macrocode}
+def draw_flick(suffix $)(expr rise, fall, fjut)=
+% \end{macrocode}
+% The points |z$a| and |z$b|, together with |z$| make up three points on the
+% ductus.
+% \begin{macrocode}
+ rt x$b = x1+fjut; top y$b=y$-fall;
+ x$a=0.5[x$,x$b]; top y$a=y$+rise;
+% \end{macrocode}
+% Draw the part, and finish off.
+% \begin{macrocode}
+ draw z$..z$a..z$b;
+ labels($a,$b);
+enddef; % end of draw_flick
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_wave}
+% A macro to draw a (horizontal) stroke with a flick at each end
+% (down at the left and up at the right). |draw_wave(1,2,f)| uses the current
+% pen to draw from |z1wl| to |z1wr|, where |x1wl=x1|, |y1wl=y1-f|, and
+% |x1wr=x2|, |y1wr=y2+f|, with |z1| assumed to be at the left of |z2|.
+% \begin{macrocode}
+def draw_wave(suffix $,$$)(expr f)=
+ x$wl=x$; y$wl=y$-f;
+ x$wr=x$$; y$wr=y$$+f;
+ z$wc=0.5[z$wl,z$wr];
+ draw z$wl{pdir}..z$wc{right}..{pdir}z$wr;
+ labels($wl,$wc,$wr);
+enddef; % end of draw_wave
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_tail}
+% A macro to draw a tail at the bottom of a (vertical) stem.
+% |draw_tail(1,fjut)| draws a tail at the bottom of the stem which ends at |z1|.
+% The depth is controlled by the |desc_depth| value and the jut by |fjut|.
+% \begin{macrocode}
+def draw_tail(suffix $)(expr fj)=
+ pen oldpen; oldpen:=currentpen;
+ pickup quill;
+ x$tl' = lft x$; y$tl=bot y$;
+ pickup stylus;
+ lft x$tl=x$tl';
+ x$tb=x$tl-fj; bot y$tb=y$tl-1/2desc_depth;
+ filldraw z${down}..{-pdir}z$tb & z$tb{pdir}..{up}z$tl--cycle;
+ pickup oldpen;
+ labels($tb,$tl);
+enddef; % end of draw_tail
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_triangle}
+% A macro to draw a downward pointing equilateral triangle.
+% |draw_triangle(1,sz)| draws a triangle of side length with |z1| in the middle
+% of the base.
+% \begin{macrocode}
+def draw_triangle(suffix $)(expr sz)=
+ pen oldpen; oldpen:=currentpen;
+ pickup stylus;
+ x$t1=x$-sz/2; x$t3=x$+sz/2;
+ y$t1=y$t3=y$;
+ x$t2=x$; y$t2=y$-0.9sz; % approx sqrt(3)/2
+ filldraw z$t1--z$t2--z$t3--cycle;
+ pickup oldpen;
+ labels($t1,$t2,$t3);
+enddef; % end of draw_triangle
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_rtriangle}
+% A macro to draw a downward pointing right angled triangle.
+% |draw_triangle(1,sz)| draws a triangle of side length with |z1| at the
+% right (where the right angle is).
+% \begin{macrocode}
+def draw_rtriangle(suffix $)(expr sz)=
+ pen oldpen; oldpen:=currentpen;
+ pickup stylus;
+ x$t1=x$-sz; rt x$t3=x$;
+ y$t1=y$t3=y$;
+ x$t2=x$t3; y$t2=y$-sz;
+ filldraw z$t1--z$t2--z$t3--cycle;
+ pickup oldpen;
+ labels($t1,$t2,$t3);
+enddef; % end of draw_rtriangle
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_rutriangle}
+% A macro to draw an upward pointing right angled triangle.
+% |draw_triangle(1,sz)| draws a triangle of side length with |z1| at the
+% right (where the right angle is).
+% \begin{macrocode}
+def draw_rutriangle(suffix $)(expr sz)=
+ pen oldpen; oldpen:=currentpen;
+ pickup stylus;
+ x$t1=x$-sz; rt x$t3=x$;
+ y$t1=y$t3=y$;
+ x$t2=x$t3; y$t2=y$+sz;
+ filldraw z$t1--z$t2--z$t3--cycle;
+ pickup oldpen;
+ labels($t1,$t2,$t3);
+enddef; % end of draw_rutriangle
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_fork}
+% A macro to draw a forked line.
+% |draw_fork(1,2,sz)| draws a graduated line from |z1| to |z2| with a forked
+% end of size |sz|.
+% \begin{macrocode}
+def draw_fork(suffix $, $$)(expr sz)=
+ pen oldpen; oldpen:=currentpen;
+ pickup quill;
+ x$f1'=lft x$; y$f1'=bot y$;
+ x$f3'=rt x$; y$f3'=top y$;
+ pickup stylus;
+ lft x$f1=x$f1'; bot y$f1=y$f1';
+ rt x$f3=x$f3'; y$f3-y$=2*(y$-y$f1);
+ rt x$f2=x$$-sz; bot y$f2=y$$;
+ rt x$f4= rt x$f5=x$$;
+ bot y$f5=y$$-sz; top y$f4=y$$+1/2sz;
+ filldraw z$f1--z$f2--z$f3--cycle; % the line
+ draw z$f2{right}..z$f4; % upper fork
+ draw z$f2{right}..z$f5; % lower fork
+ pickup oldpen;
+ labels($f1,$f2,$f3,$f4,$f5);
+enddef; % end of draw_fork
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_pdot}
+% A macro to draw a period dot.
+% |draw_pdot(1,sz)| uses |stylus| to draw a dot centered at |z1| of overall size |sz|.
+% \begin{macrocode}
+def draw_pdot(suffix $)(expr sz)=
+% \end{macrocode}
+% Draw a square rotated 45 degrees.
+% \begin{macrocode}
+ z$s = z$ shifted (0.5sz*left);
+ z$t = z$ shifted (0.5sz*up);
+ z$u = z$s shifted (sz*right);
+ z$v = z$t shifted (sz*down);
+ pickup stylus;
+ filldraw z$s--z$t--z$u--z$v--cycle;
+ labels($s,$t,$u,$v);
+enddef; % end of draw_pdot
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_pcomma}
+% A macro to draw a period comma.
+% |draw_pcomma(1,t,w)| draws a comma placed at |z1| (the top), line width is |t|
+% and bottom of line is |w| horizontally from |z1|. The pen is |stylus|.
+% \begin{macrocode}
+def draw_pcomma(suffix $)(expr sz, ar)=
+% \end{macrocode}
+% Draw a line of at |z$| of width |sz| sloping back and down at 45 degrees
+% for a total width of |ar|.
+% \begin{macrocode}
+ z$s = z$ shifted (0.5sz*left);
+ z$t = z$s shifted (sz*right);
+ x$v=x$s-ar; y$v=y$s-ar;
+ z$u = z$v shifted (sz*right);
+ pickup stylus;
+ filldraw z$s--z$t--z$u--cycle;
+ labels($s,$t,$u,$v);
+enddef; % end of draw_pcomma
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_plq}
+% A macro to draw a period left quote.
+% |draw_plq(1,t,w)| draws a left quote placed at |z1| (the top), line width is |t|
+% and bottom of line is |w| horizontally from |z1|.
+% \begin{macrocode}
+def draw_plq(suffix $)(expr sz, ar)=
+% \end{macrocode}
+% Draw a line of at |z$| of width |sz| sloping forward and down at 45 degrees
+% for a total width of |ar|.
+% \begin{macrocode}
+ z$s = z$ shifted (0.5sz*left);
+ z$t = z$s shifted (sz*right);
+ x$v=x$s+ar; y$v=y$s-ar;
+ z$u = z$v shifted (sz*right);
+ pickup stylus;
+ filldraw z$s--z$t--z$v--cycle;
+ labels($s,$t,$u,$v);
+enddef; % end of draw_plq
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_small_zero}
+% A macro to draw a (small) zero.
+% |draw_small_zero(1,2)|, bottom left at |z1|, top right at |z2|.
+% \begin{macrocode}
+def draw_small_zero(suffix $, $$)=
+ x$szt=x$szb=1/2[x$,x$$]; x$szr=x$$; x$szl=x$;
+ y$szt=y$$; y$szb=y$; y$szl=y$szr=1/2[y$,y$$];
+ draw z$szt..z$szr..z$szb..z$szl..cycle;
+ labels($,$szt,$szr,$szb,$szl);
+enddef; % end of draw_small_zero
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Routines for accents}
+%
+% The next set of routines are for drawing accents and other decorations.
+%
+% \begin{routine}{draw_grave}
+% A macro to draw a grave accent.
+% |draw_grave(1)|, top at z1, angle |accent_angle|,
+% with total drop of |accent_ysize|.
+% \begin{macrocode}
+def draw_grave(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$gab = x$ + accent_ysize*cos_accent_angle;
+ y$gab = y$ - accent_ysize*sin_accent_angle;
+ z$gam = 1/2[z$,z$gab];
+ draw z$--z$gab;
+ pickup oldpen;
+ labels($,$gam,$gab);
+enddef; % end of draw_grave
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_acute}
+% A macro to draw an acute accent.
+% |draw_acute(1)|, top at z1, angle |accent_angle|,
+% with total drop of |accent_ysize|.
+% \begin{macrocode}
+def draw_acute(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$aab = x$ - accent_ysize*cos_accent_angle;
+ y$aab = y$ - accent_ysize*sin_accent_angle;
+ z$aam = 1/2[z$,z$aab];
+ draw z$--z$aab;
+ pickup oldpen;
+ labels($,$aab,$aam);
+enddef; % end of draw_acute
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_circumflex}
+% A macro to draw a circumflex accent.
+% |draw_circumflex(1)|, bottom at z1, angles |accent_angle|, with total drop of
+% |accent_ysize|.
+% \begin{macrocode}
+def draw_circumflex(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$cabl = x$ - accent_ysize*cos_accent_angle; x$cabr - x$ = x$ - x$cabl;
+ y$cabl = y$cabr = y$;
+ y$catm = y$ + accent_ysize*sin_accent_angle;
+ x$catm = x$;
+ draw z$cabl--z$catm--z$cabr;
+ pickup oldpen;
+ labels($,$cabl,$cabr,$catm);
+enddef; % end of draw_circumflex
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_hachek}
+% A macro to draw a caron/hachek accent.
+% |draw_hachek(1)|, bottom at z1, angles |accent_angle|, with total drop of
+% |accent_ysize|.
+% \begin{macrocode}
+def draw_hachek(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$hatl = x$ - accent_ysize*cos_accent_angle; x$hatr - x$ = x$ - x$hatl;
+ y$hatl = y$hatr = y$ + accent_ysize*sin_accent_angle;
+ draw z$hatl--z$--z$hatr;
+ pickup oldpen;
+ labels($,$hatl,$hatr);
+enddef; % end of draw_hachek
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_breve}
+% A macro to draw a breve accent (a rounded hachek).
+% |draw_breve(1)|, bottom at z1, angles |accent_angle|, with total drop of
+% |accent_ysize|.
+% \begin{macrocode}
+def draw_breve(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$batl = x$ - accent_ysize*cos_accent_angle; x$batr - x$ = x$ - x$batl;
+ y$batl = y$batr = y$ + accent_ysize*sin_accent_angle;
+ draw z$batl..z$..z$batr;
+ pickup oldpen;
+ labels($,$batl,$batr);
+enddef; % end of draw_hachek
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_ring}
+% A macro to draw a ring accent.
+% |draw_breve(1)|, top at z1, angles |accent_angle|, with total drop of
+% |accent_ysize|.
+% \begin{macrocode}
+def draw_ring(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$rab = x$; y$rab = y$ - accent_ysize;
+ y$raml = y$ramr = 1/2[y$,y$rab];
+ x$ramr - x$ = x$ - x$raml = 1/2accent_ysize;
+ draw z$..z$ramr..z$rab..z$raml..cycle;
+ pickup oldpen;
+ labels($,$ramr,$rab,$raml);
+enddef; % end of draw_ring
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_dota}
+% A macro to draw a dot accent.
+% |draw_dota(1)|, top at z1, angles |accent_angle|,
+% and diameter 1/2|accent_ysize|..
+% \begin{macrocode}
+def draw_dota(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup stylus;
+ numeric dotalpha; dotalpha := 1/2accent_ysize;
+ x$dab = x$; y$dab = y$ - dotalpha;
+ y$daml = y$damr = 1/2[y$,y$dab];
+ x$damr - x$ = x$ - x$daml = 1/2dotalpha;
+ draw_pdot($,12/16accent_ysize);
+ pickup oldpen;
+ labels($,$damr,$dab,$daml);
+enddef; % end of draw_dota
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_dieresis}
+% A macro to draw a dieresis (double dot) accent.
+% |draw_ddota(1)|, top at z1, angles |accent_angle|,
+% and diameter 1/2|accent_ysize|..
+% \begin{macrocode}
+def draw_dieresis(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup stylus;
+ numeric ddotalpha; ddotalpha := 1/2accent_ysize;
+ x$ddab = x$; y$ddab = y$ - ddotalpha; z$ddam = 1/2[z$,z$ddab];
+ y$'damr = y$''daml = y$ddam; x$''daml - x$ = x$ - x$'damr = 1/2accent_ysize;
+ y$drl=y$drr=y$ddam; x$drl = x$-10/16accent_ysize; x$drr=x$+10/16accent_ysize;
+ draw_pdot($drl,12/16accent_ysize); draw_pdot($drr,12/16accent_ysize);
+ pickup oldpen;
+ labels($,$ddam,$ddab);
+enddef; % end of draw_dieresis
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_lumlaut}
+% A macro to draw a long (Hungarian) umlaut accent.
+% |draw_lumlaut(1)|, top at z1, angles |accent_angle|,
+% and depth |accent_ysize|..
+% \begin{macrocode}
+def draw_lumlaut(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$luab = x$; y$luab = y$ - accent_ysize; z$luam = 1/2[z$,z$luab];
+ y$lualt = y$luart = y$; y$lualb = y$luarb = y$luab;
+ x$luarm - x$luam = x$luam - x$lualm = 1/2accent_ysize;
+ x$luart - x$luarb = accent_ysize*(cosd(70)) = x$lualt - x$lualb;
+ z$lualm = 1/2[z$lualt,z$lualb]; z$luarm = 1/2[z$luart,z$luarb];
+ draw z$lualt--z$lualb; draw z$luart--z$luarb;
+ pickup oldpen;
+ labels($,$luam,$luab,$lualt,$lualb,$luart,$luarb);
+enddef; % end of draw_lumlaut
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_tildea}
+% A macro to draw a tilde accent.
+% |draw_tildea(1)|, center at z1, angles |accent_angle|,
+% and length |accent_ysize|..
+% \begin{macrocode}
+def draw_tildea(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ y$tal=y$=y$tar;
+ x$tar - x$ = x$ - x$tal = 12/16accent_ysize;
+ draw z$tal{dir accent_angle}..z$..{dir accent_angle}z$tar;
+ pickup oldpen;
+ labels($,$tal,$tar);
+enddef; % end of draw_tildea
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_macron}
+% A macro to draw a macron (bar) accent.
+% |draw_macron(1)|, center at z1, angles |accent_angle|,
+% and length |accent_ysize|..
+% \begin{macrocode}
+def draw_macron(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ y$mal=y$=y$mar;
+ x$mar - x$ = x$ - x$mal = 1/2accent_ysize;
+ draw z$mal--z$mar;
+ pickup oldpen;
+ labels($,$mal,$mar);
+enddef; % end of draw_macron
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_cedilla}
+% A macro to draw a cedilla.
+% |draw_cedilla(1)|, top at z1, angles |accent_angle|,
+% and length |accent_ysize|..
+% \begin{macrocode}
+def draw_cedilla(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$cedc=x$; y$cedc= y$-accent_ysize;
+ x$ceda=x$; y$ceda=4/16[y$,y$cedc];
+ x$cedb=x$+8/16accent_ysize; y$cedb=1/2[y$ceda,y$cedc];
+ x$cedd=x$cedc-2/16accent_ysize; y$cedd=y$cedc-1/16accent_ysize;
+ draw z$--z$ceda; draw z$ceda..z$cedb..z$cedc..z$cedd;
+ pickup oldpen;
+ labels($,$ceda,$cedb,$cedc,$cedd);
+enddef; % end of draw_cedilla
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_ogonek}
+% A macro to draw an ogonek.
+% |draw_ogonek(1)|, top at z1, angles |accent_angle|,
+% and length |accent_ysize|..
+% \begin{macrocode}
+def draw_ogonek(suffix $)=
+ pen oldpen; oldpen:=currentpen; pickup accentpen;
+ x$ogc=x$; y$ogc= y$-accent_ysize;
+ x$oga=x$; y$oga=2/16[y$,y$ogc];
+ x$ogb=x$-8/16accent_ysize; y$ogb=1/2[y$oga,y$ogc];
+ x$ogd=x$ogc+4/16accent_ysize; y$ogd=y$ogc+2/16accent_ysize;
+ draw z$..z$ogb..z$ogc..z$ogd;
+ pickup oldpen;
+ labels($,$oga,$ogb,$ogc,$ogd);
+enddef; % end of draw_ogonek
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_leftguill}
+% A macro to draw a left guillemot.
+% |draw_leftquill(1, gh, gw)|, bottom at z1, height and width |gh| and |gw|.
+% \begin{macrocode}
+def draw_leftguill(suffix $)(expr gh, gw)=
+ x$lgqt=x$; y$lgqt= y$+gh;
+ x$lgqm=x$-gw; y$lgqm=1/2[y$,y$lgqt];
+ draw z$--z$lgqm--z$lgqt;
+ labels($,$lgqm,$lgqt);
+enddef; % end of draw_leftguill
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_rightguill}
+% A macro to draw a right guillemot.
+% |draw_rightguill(1, gh, gw)|, bottom at z1, height and width |gh| and |gw|.
+% \begin{macrocode}
+def draw_rightguill(suffix $)(expr gh, gw)=
+ x$rgqt=x$; y$rgqt= y$+gh;
+ x$rgqm=x$+gw; y$rgqm=1/2[y$,y$rgqt];
+ draw z$--z$rgqm--z$rgqt;
+ labels($,$rgqm,$rgqt);
+enddef; % end of draw_rightguill
+
+% \end{macrocode}
+% \end{routine}
+%
+% \subsection{Routines for alphabetic characters}
+%
+% The next set of routines are for drawing characters.
+%
+% \begin{routine}{draw_a}
+% Draw the `a' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_a(suffix $,$$)=
+ lft x1=x$+2jut; rt x2=x$$;
+ top y1=y$$; bot y2=y$;
+% for the bowl
+ z3=3/4[z2,z1];
+ x5=lft x3; y5=bot y3;
+ z13=1/2[z2,z1];
+ x15=lft x13; y15=bot y13;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_istem(1,2,srad); % the stem
+ pickup thickstylus; % for the bowl
+ lft x4=x$; bot y4=y$;
+ z14=0.2[z4,z5];
+ draw z14{pdir}...{z5-z4}z15; % bowl bottom
+ draw z5--z4; % bowl top
+ labels(1,2,3,4,5,13,14,15);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_a}
+% Draw the `a' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_a_save(suffix $,$$)=
+ lft x1=x$; rt x2=x$$;
+ top y1=y$$; bot y2=y$;
+% for the bowl
+ z3=3/4[z2,z1];
+ x5=lft x3; y5=bot y3;
+ z13=1/2[z2,z1];
+ x15=lft x13; y15=bot y13;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_istem(1,2,srad); % the stem
+ pickup thickstylus; % for the bowl
+ lft x4=pcshiftx; bot y4=0;
+ z14=0.2[z4,z5];
+ draw z14{pdir}...{z5-z4}z15; % bowl bottom
+ draw z5--z4; % bowl top
+ labels(1,2,3,4,5,13,14,15);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_at}
+% Draw the commercial at character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_at(suffix $,$$)=
+ lft x1=2/3[x$,x$$]; rt x2=x$$;
+ top y1=y$$; bot y2=y$;
+% for the bowl
+ z3=3/4[z2,z1];
+ x5=lft x3; y5=bot y3;
+ z13=1/2[z2,z1];
+ x15=lft x13; y15=bot y13;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tstem(3,2,srad); % the stem
+ pickup thickstylus; % for the bowl
+ lft x4=1/3[x$,x$$]; bot y4=y$;
+ z14=0.2[z4,z5];
+ draw z14{pdir}...{z5-z4}z15; % bowl bottom
+ draw z5--z4; % bowl top
+%% the loop
+ pickup quill;
+ lft x201=x$; y201=1/2[y$,y$$];
+ x203=1/2[x4,x2]; y203=y$-1/2desc_depth;
+ draw z3..{down}z201..{right}z203;
+ labels(1,2,3,4,5,13,14,15,201,202,203);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_aesc}
+% Draw the aesc character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_aesc(suffix $,$$)=
+ lft x1=1/3[x$,x$$]; rt x2=2/3[x$,x$$];
+ top y1=y$$; bot y2=y$;
+% for the bowl
+ z3=3/4[z2,z1];
+ x5=lft x3; y5=bot y3;
+ z13=1/2[z2,z1];
+ x15=lft x13; y15=bot y13;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_istem(1,2,srad); % the stem
+ pickup thickstylus; % for the bowl
+ lft x4=x$; bot y4=y$;
+ z14=0.2[z4,z5];
+ draw z14{pdir}...{z5-z4}z15; % bowl bottom
+ draw z5--z4; % bowl top
+%% the e
+ pickup quill;
+ lft x101=x13; rt x103=x$$; x102=x104=1/2[x101,x103];
+ top y102=y$$; bot y104=y$;
+%% y101=y103=1/2[y$,y$$];
+ y101=y103=y13;
+ x105=x106=x103;
+ y105=0.1[y$,y$$];
+ top y106=0.95[y$,y$$]; y106'=top y106; y106''=bot y106; x106''=lft x106;
+% the serif
+ pickup stylus;
+ rt x116=x$$; top y116=y106';
+ x117=x106; y117=y116-jut;
+ lft x118=x106''; bot y118=y106'';
+ pickup quill;
+% the bar
+ x107=x101; y107=y101;
+ x108=x$$; y108=y107;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z106..z102..z101..z2a; % the bowl
+ pickup stylus;
+ filldraw z117..z118--z116--cycle; % the serif
+ draw_fork(101,108,jut); % the bar
+ labels(1,2,3,4,5,13,14,15,101,102,103,104,105,106,107);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_b}
+% Draw a `b' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_b(suffix $,$$)=
+ lft x1=lft x2=x$;
+ top y1=y$$; bot y2=y$;
+% lower bowl
+ rt x4=x$$; y4=1/3[y$,y$$];
+ lft x5=rt x1+2thin; y5=2/3[y$,y$$];
+ z6=z1;
+ rt x7=0.67[x1,x4]; y7=y6;
+ x9=rt x7-thin; y9=h-thin;
+ x8=lft x5+thin; y8=bot y5+thin;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % the stem
+ draw z2{right}..z4{up}..{left}z5; % bottom bowl
+ draw z6--z7; % top bowl
+ pickup stylus;
+ draw z9--z8;
+ penlabels(1,2,3,4,5,6,7,8,9,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_c}
+% Draw a `c' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_c(suffix $,$$)=
+ lft x1=x$; rt x3=x$$; x2=x4=1/2[x1,x3];
+ top y2=y$$; bot y4=y$; y1=y3=1/2[y$,y$$];
+ x5=x6=x3;
+ y5=0.1[y$,y$$];
+ top y6=0.95[y$,y$$]; y6'=top y6; y6''=bot y6; x6''=lft x6;
+% the serif
+ pickup stylus;
+ rt x16=x$$; top y16=y6';
+ x17=x6; y17=y16-jut;
+ lft x18=x6''; bot y18=y6'';
+ pickup quill;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z5{-pdir}..{left}z4..z1..z2..z6;
+ pickup stylus;
+ filldraw z17..z18--z16--cycle;
+ penlabels(1,2,3,4,5,6,16,17,18,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_d}
+% Draw a `d' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_d(suffix $,$$)=
+ lft x1=x$; rt x3=x$$;
+ bot y4=y$; top y5=y$$;
+ x2=x4=1/2[x1,x3]; top y2=3/4[y$,y$$];
+ y1=y3=0.5[y4,y2];
+ x5=x1;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z2{-pdir}..z1{down}..z4{right}..z3{up}..z5;
+ penlabels(0,1,2,3,4,5,6,7,8,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_dyet}
+% Draw a `dyet' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_dyet(suffix $,$$)=
+ lft x1=x$; rt x3=x$$;
+ bot y4=y$; top y5=y$$;
+ x2=x4=1/2[x1,x3]; top y2=3/4[y$,y$$];
+ y1=y3=0.5[y4,y2];
+ x5=x1;
+ path p[];
+ p1=z2{-pdir}..z1{down}..z4{right}..z3{up}..z5;
+ if ductus:
+ pickup stylus;
+ fi
+ draw p1;
+% the bar
+ x11=1/2[x5,x2]; y11=1/2[y2,y5];
+ x12=x11; y12-y666 = y666-y11;
+ draw z11--z12;
+ penlabels(0,1,2,3,4,5,6,7,8,10,11,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_e}
+% Draw an `e' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_e(suffix $,$$)=
+ lft x1=x$; rt x3=x$$; x2=x4=1/2[x1,x3];
+ top y2=y$$; bot y4=y$; y1=y3=1/2[y$,y$$];
+ x5=x6=x3;
+ y5=0.1[y$,y$$];
+ top y6=0.95[y$,y$$]; y6'=top y6; y6''=bot y6; x6''=lft x6;
+% the serif
+ pickup stylus;
+ rt x16=x$$; top y16=y6';
+ x17=x6; y17=y16-jut;
+ lft x18=x6''; bot y18=y6'';
+ pickup quill;
+% the bar
+ x7=x1; y7=y1;
+ x8=x$$; y8=y7;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z5{-pdir}..{left}z4..z1..z2..z6; % the bowl
+ pickup stylus;
+ filldraw z17..z18--z16--cycle; % the serif
+ draw_fork(7,8,jut); % the bar
+ ductus:=false;
+ penlabels(1,2,3,4,5,6,7,8,9,10,16,17,18,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_ethel}
+% Draw an `ethel' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_ethel(suffix $,$$)=
+ lft x1=1/2[x$,x$$]; rt x3=x$$; x2=x4=1/2[x1,x3];
+ top y2=y$$; bot y4=y$; y1=y3=1/2[y$,y$$];
+ x5=x6=x3;
+ y5=0.1[y$,y$$];
+ top y6=0.95[y$,y$$]; y6'=top y6; y6''=bot y6; x6''=lft x6;
+% the serif
+ pickup stylus;
+ rt x16=x$$; top y16=y6';
+ x17=x6; y17=y16-jut;
+ lft x18=x6''; bot y18=y6'';
+ pickup quill;
+% the bar
+ x7=x1; y7=y1;
+ x8=x$$; y8=y7;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z5{-pdir}..{left}z4..z1..z2..z6; % the bowl
+ pickup stylus;
+ filldraw z17..z18--z16--cycle; % the serif
+ draw_fork(7,8,jut); % the bar
+%% the O
+ pickup quill;
+ lft x101=x$; rt x103= x1; y101=1/2[y$,y$$]; y103=y1;
+ x102 = x104 = 1/2[x101,x103]; y102=y$$; y104=y$;
+ draw z101..z102..z103..z104..cycle;
+ ductus:=false;
+ penlabels(1,2,3,4,5,6,7,8,9,10,16,17,18,101,102,103,104);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_f}
+% Draw an `f' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% and |$$$| is lower left of the descender box.
+% \begin{macrocode}
+def draw_f(suffix $,$$,$$$)=
+% stem
+ lft x$Ft=lft x$Fb= x$; % 1 = Ft, 2 = Fb
+ top y$Ft=y$$; bot y$Fb=y$$$;
+% bars
+ x$Ftl=x$Fml=x$Ft; y$Ftl=y$Ft; bot y$Fml=y$; % 3 = Ftl, 4 = Fml
+ rt x$Ftr= rt x$Fmr=x$$; y$Ftr=y$Ftl; y$Fmr=y$Fml; % 5 = Ftr, 6 = Fmr
+% triangles
+ x$Ftrt=x$Fmrt=rt x$Ftr-1/2thin; % 15 = Ftrt, 16 = Fmrt
+ y$Ftrt=y$Ftr; y$Fmrt=y$Fmr;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif($Ft,$Fb,srad); % stem
+ draw_tail($Fb,jut);
+ draw z$Ftl--z$Ftr; % top bar
+ draw_rtriangle($Ftrt,jut);
+ draw z$Fml--z$Fmr; % bottom bar
+ draw_rtriangle($Fmrt,jut);
+ penlabels(1,2,3,4,5,6,15,16,100,$Ft,$Fb,$Ftl,$Fml,$Ftr,$Fmr,$Ftrt,$Fmrt);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_g}
+% Draw a `g' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% and |$$$| is lower left of the descender box.
+% \begin{macrocode}
+def draw_g(suffix $,$$,$$$)=
+% the bowl
+ lft x1=x$; rt x3=x$$; y1=y3=1/2[y$,y$$];
+ x2=x4=1/2[x$,x$$]; top y2=y$$; bot y4=y$;
+ x5=x6=x3;
+ y5=0.1[y$,y$$];
+ top y6=0.95[y$,y$$]; y6'=top y6; y6''=bot y6; x6''=lft x6;
+% the serif
+ pickup stylus;
+ rt x16=x$$; top y16=y6';
+ x17=x6; y17=y16-jut;
+ lft x18=x6''; bot y18=y6'';
+ pickup quill;
+% the stem
+ x7=rt x5-1/2thin; y7=top y5-1/2thin;
+ pickup stylus;
+ lft x8=1/2[x$,x$$]; bot y8=y$$$;
+ pickup quill;
+ pair vec[]; vec1:=z7-z8; vec2:=z8-z7;
+ y21=y8+3/2thick; z21=whatever[z8,z7];
+ y22=y8+ thick; z22=whatever[z8,z7];
+ x23=x8-thick; y23=y8;
+ x24=x23+1/2thick; y24=y23+1/2thick;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z5{-pdir}..{left}z4..z1..z2..z6; % the bowl
+ pickup stylus;
+ filldraw z17..z18--z16--cycle; % the serif
+ draw z7--z22; % the stem
+ filldraw z22{vec2}..{left}z23--z24{right}..{vec1}z21--cycle;
+ penlabels(1,2,3,4,5,6,7,8,16,17,18,21,22,23,24,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_h}
+% Draw an `h' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_h(suffix $,$$)=
+ lft x1=lft x2=x$;
+ top y1=y$$; bot y2=y$;
+% bowl
+ rt x5=x$$; y5=3/8[y$,y$$];
+ lft x6=2/3[x$,x$$]; bot y6=y$;
+ x4=0.5[x1,x5]; top y4=3/4[y$,y$$];
+ x4'=0.5[x4,x1]; y4'=y4;
+ z4''=z4' shifted (-w*pdir);
+ z3'=whatever[z4',z4'']=whatever[z1,z2];
+ x3=rt x3'; y3=y3';
+ if ductus:
+ pickup stylus;
+ fi
+ draw_istem(1,2,srad); % stem
+ draw z3{pdir}..z4{right}..z5{down}..z6; % bowl
+ penlabels(1,2,3,4,5,6,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_i}
+% Draw an `i' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_i(suffix $,$$)=
+ lft x$It=lft x$Ib=x$; % 1 = $It, 2 = $Ib
+ top y$It=y$$; bot y$Ib=y$;
+ draw_tlserif($It,$Ib,srad);
+ draw_tail($Ib,jut);
+ penlabels(1,2,$It,$Ib,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_j}
+% Draw a `j' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_j(suffix $,$$)=
+ lft x$Jt=lft x$Jb=x$; % 1 = Jt, 2 = Jb
+ top y$Jt=y$$; bot y$Jb=y$;
+ draw_tlserif($Jt,$Jb,srad);
+ draw_tail($Jb,jut);
+ penlabels($Jt,$Jb);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_k}
+% Draw a `k' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_k(suffix $,$$)=
+ lft x1=lft x2=x$; top y1=y$$; bot y2=y$;
+% for the flick
+ numeric rise,fall,fjut;
+ x3=rt x1; y3=5/8[y$,y$$];
+ rise:=1/6[y$,y$$]; fall:=-rise/2; fjut:=1/2[x$,x$$];
+% for the leg
+ z4=z3;
+ x5=x$$; y5=y$;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % stem
+ draw_tail(2,jut);
+ draw_flick(3,rise,fall,fjut); % upper diag
+ draw_tstem(4,5,srad); % lower diag
+ penlabels(1,2,3,4,5,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_l}
+% Draw an `l' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_l(suffix $,$$)=
+ lft x$Lt=lft x$Lb= x$; % 1 = Lt, 2 = Lb
+ top y$Lt=y$$; bot y$Lb=y$;
+ z$Lbl=z$Lb; % 3 = Lbl
+ x$Lbr=x$$; y$Lbr=y$; % 4 = Lbr
+ draw_tlserif($Lt,$Lb,srad); % the stem
+ draw_fork($Lbl,$Lbr,jut); % the foot
+ penlabels($Lt,$Lb,$Lbl,$Lbr);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_pound}
+% Draw a pound (sterling) symbol.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_pound(suffix $,$$)=
+ lft x$pst=lft x$psb= x$;
+ top y$pst=y$$-thick; bot y$psb=y$;
+ z$psm=z$psb;
+ x$psr=x$$; y$psr=y$;
+ draw z$psb--z$pst; % the stem
+ draw_fork($psm,$psr,jut); % the foot
+% top arch
+ x$pstr=3/4[x$,x$$]; top y$pstr=y$$;
+ draw z$pstr..{down}z$pst;
+% bar
+ lft x$psbl= x$-jut; y$psbl = y$psbr = 2/3[y$psb,y$pst];
+ x$psbr - x$pst = (2x$pst - x$psbl);
+ draw z$psbl--z$psbr;
+ penlabels($pst,$psb,$psm,$psr,$pstr,$psbl,$psbr,1,2,3,4,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_m}
+% Draw an `m' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_m(suffix $,$$)=
+ lft x2= x$; y2=1/2[y$,y$$];
+ rt x8=x$$; y8=y2;
+ rt x1=1/4w; bot y1=0;
+ x4=1/2[x$,x$$]; y4=2/3[y$,y$$];
+ x3=0.5[x2,x4]; top y3=y$$;
+ x5=x4; y5=y1;
+ z6=z4;
+ x7=3/4[x$,x$$]; top y7=y$$;
+ lft x9=3/4[x$,x$$]; y9=y1;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1..z2{up}..z3{right}..{down}z4; % left half
+ draw_tstem(4,5,srad); % middle stem
+ draw z6..z7{right}..z8{down}..{-pdir}z9; % right half
+ ductus:=false;
+ penlabels(1,2,3,4,5,6,7,8,9,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_n}
+% Draw an `n' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_n(suffix $,$$)=
+% left stem
+ lft x$nlt=x$; top y$nlt=y$$; %% nlt = 1
+ x$nlb=x$nlt; bot y$nlb=y$; %% nlb = 2
+% right stem
+ rt x$nrt=x$$; y$nrt=y$nlt; %% nrt = 4
+ x$nrb=x$nrt; bot y$nrb=y$; %% nrb = 3
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif($nlt,$nlb,srad); % left stem
+ draw_tail($nlb,jut);
+ draw_istem($nrt,$nrb,srad); % right stem
+ draw z$nlt--z$nrb; % diagonal
+ penlabels($nlt,$nlb,$nrt,$nrb);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_eng}
+% Draw an `eng' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_eng(suffix $,$$,$$$)=
+draw_n($,$$);
+x$nge=2/3[x$nlb,x$nrb]; y$nge = y$$$; x$ngf=1/3[x$nlb,x$nrb];
+y$ngf = 1/2[y$nrb,y$nge];
+draw z$nrb{down}..z$nge..z$ngf;
+%% undraw the bottom serif
+pickup stylus;
+lft x$nglt= lft x$nglb=x$$; rt x$ngrb=rt x$ngrt = x$$+jut;
+top y$nglt = top y$ngrt = y$$; bot y$nglb = bot y$ngrb = y$;
+path pu[];
+pu1 = z$nglt--z$nglb--z$ngrb--z$ngrt--cycle;
+unfilldraw pu1; unfilldraw pu1;
+penlabels($nge,$ngf,$nglt,$nglb,$lgrb,$ngrt);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_o}
+% Draw an `o' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_o(suffix $,$$)=
+ lft x1=x$; rt x3=x$$; y1=y3=1/2[y$,y$$];
+ x2=x4=1/2[x$,x$$]; top y2=y$$; bot y4=y$;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1..z2..z3..z4..cycle;
+ penlabels(1,2,3,4,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_p}
+% Draw a `p' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% |$$$| is base of descender box.
+% \begin{macrocode}
+def draw_p(suffix $,$$,$$$)=
+% stem
+ lft x1=lft x2=x$; top y1=y$$; bot y2=y$$$;
+% bowl
+ z3=z1;
+ rt x5=x$$; y5=1/2[y$,y$$];
+ lft x7=rt x1; bot y7=y$;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % stem
+ draw_tail(2,jut);
+ draw z3{pdir}..z5{down}..{-pdir}z7; % bowl
+ penlabels(1,2,3,4,5,6,7,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_q}
+% Draw a `q' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% |$$$| is base of descender box.
+% \begin{macrocode}
+def draw_q(suffix $,$$,$$$)=
+% right stem
+ rt x1=rt x2=x$$; top y1=y$$; bot y2=y$$$;
+% bowl
+ z3=z1;
+ lft x5=x$; y5=1/2[y$,y$$];
+ rt x7=lft x1; y7=0.1[y$,y$$];
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1--z2; % right stem
+ draw_tail(2,jut);
+ draw z3{left}..z5{down}..{pdir}z7; % bowl
+ penlabels(1,2,3,4,5,6,7,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_pilcrow}
+% Draw a pilcrow character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% |$$$| is base of descender box.
+% \begin{macrocode}
+def draw_pilcrow(suffix $,$$,$$$)=
+% right stem
+ rt x1=rt x2=x$$; top y1=y$$; bot y2=y$$$;
+% bowl
+ x3=x1; y3=y1-thick;
+ lft x5=x$; y5=1/2[y$,y$$];
+ rt x7=lft x1; y7=0.1[y$,y$$];
+ lft x15=rt x5; y15=y5;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1--z2; % right stem
+ draw_tail(2,jut);
+ draw z3{left}..z5{down}..{pdir}z7; % bowl
+ draw z3{left}..z15{down}..{pdir}z7; % bowl
+ penlabels(1,2,3,4,5,6,7,15,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_r}
+% Draw an `r' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_r(suffix $,$$)=
+% stem
+ lft x1=lft x2=x$; top y1=y$$; bot y2=y$;
+% bowl
+ lft x3=rt x1-thin; y3=y1;
+ rt x5=3/4[x$,x$$]; y5=3/4[y$,y$$];
+ lft x7=rt x1; bot y7=1/3[y$,y$$];
+% leg
+ z8=z7;
+ rt x9=x$$; bot y9=y$;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % stem
+ draw_tail(2,jut);
+ draw z3{pdir}..z5{down}..{-pdir}z7; % bowl
+ draw z8{-ppdir}..{right}z9; % leg
+ penlabels(1,2,3,4,5,6,7,8,9,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_s}
+% Draw an `s' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_s(suffix $,$$)=
+ rt x$Sa=x$$; top y$Sa=y$$-thin; % a = 1
+ x$Sb=1/2[x$,x$$]; top y$Sb=y$$; % b = 2
+ lft x$Sc=x$; y$Sc=0.75[y$,y$$]; % c = 3
+ x$Sd=x$Sb; y$Sd=1/2[y$,y$$]; % d = 4
+ x$Se=x$Sa; y$Se=0.25[y$,y$$]; % e = 5
+ x$Sf=x$Sb; bot y$Sf=y$; % f = 6
+ x$Sg=x$Sc; bot y$Sg = y$+thin; % g = 7
+ path p[];
+ p1=z$Sa..z$Sb{left}..z$Sc{down}..z$Sd..z$Se{down}..z$Sf{left}..z$Sg;
+ pair vec[];
+ vec1= direction 0 of p1;
+ vec2= direction (length p1) of p1;
+ z$Saa=z$Sa shifted vec1; % aa = 11
+ z$Sgg=z$Sg shifted -vec2; % gg = 17
+ y$Sf'=top y$Sa; y$Sf''=bot y$Sa; x$Sf''=lft x$Sa;
+% the serif
+ pickup stylus;
+ rt x$Sfff=x$$; top y$Sfff=y$Sf'; % 26 = fff
+ x$Sggg=x$Sa; y$Sggg=y$Sfff-0.75jut; % 27 = ggg
+ lft x$Shhh=x$Sf''; bot y$Shhh=y$Sf''; % 28 = hhh
+ pickup quill;
+ if ductus:
+ pickup stylus;
+ fi
+ draw p1; % the curve
+ pickup stylus;
+ filldraw z$Sggg..z$Shhh--z$Sfff--cycle; % the serif
+ penlabels($Sa,$Sb,$Sc,$Sd,$Se,$Sf,$Sg,$Saa,$Sgg,$Sfff,$Sggg,$Shhh);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_eszett}
+% Draw an eszett.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_eszett(suffix $,$$,$$$)=
+ lft x1 = lft x2 = x$; bot y1 = y$$$; y2 = y$$-2thick;
+ top y3=y$$; rt x4 = rt x6 = x$$; x3 = 1/2[x2,x4];
+ lft x5 = lft x7 = x1+thick;
+ bot y7 = y$; y5 = 1/2[y7,y3];
+ y4 = 1/2[y5,y3]; y6 = 1/2[y7,y5];
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1--z2{up}..z3{right}..z4{down}..{-pdir}z5;
+ draw z5{right}..z6{down}..{left}z7;
+ draw_tail(1,jut);
+ penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_section}
+% Draw a section symbol.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_section(suffix $,$$,$$$)=
+ rt x1 = rt x11 = x666; top y1 = top y11 = y666;
+ lft x5 = lft x15 = x555; bot y5 = bot y15 = y$$$;
+ x12=x15; x4 = x1;
+ y3 = 1/2[y5,y1] + 1/2thick; y13 = y3-thick;
+ y2=1/2[y3,y1]; y4 = 1/2[y5,y3];
+ y12=1/2[y13,y11]; y14=1/2[y15,y13];
+ x2=x12+thick; x14=x4-thick;
+ x3=1/2[x2,x4]; x13 = 1/2[x12,x14];
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1..z2..z3..z4..z5;
+ draw z11..z12..z13..z14..z15;
+ penlabels(1,2,3,4,5,11,12,13,14,15);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_t}
+% Draw a `t' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_t(suffix $,$$)=
+%% x1=x2=1/2[x$,x$$];
+%% top y1=y$$; bot y2=y$;
+%% lft x3=x$; rt x4=x$$; y3=y4=y1;
+%% x5=x$+0.5jut; y5=y$$-1/2thin;
+%% x6=x$$-1/2thin; y6=y5;
+%% if ductus:
+%% pickup stylus;
+%% fi
+%% draw_tstem(1,2,srad); % stem
+%% draw z3--z4; % top bar
+%% draw_triangle(5,jut); draw_rtriangle(6,jut);
+%% penlabels(1,2,3,4,5,100);
+ x184=x284=1/2[x$,x$$];
+ top y184=y$$; bot y284=y$;
+ lft x384=x$; rt x484=x$$; y384=y484=y184;
+ x584=x$+0.5jut; y584=y$$-1/2thin;
+ x684=x$$-1/2thin; y684=y584;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tstem(184,284,srad); % stem
+ draw z384--z484; % top bar
+ draw_triangle(584,jut); draw_rtriangle(684,jut);
+ penlabels(184,284,384,484,584,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_u}
+% Draw a `u' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_u(suffix $,$$)=
+% left half first
+ lft x6=x$+jut; top y6=y$$-2thin;
+ lft x7=x$; y7=1/2[y$,y$$];
+ x8=0.5[x6,x1]; bot y8=y$;
+% the stem
+ rt x1=x$$; top y1=y$$;
+ x2=x1; bot y2=y$;
+% construction points for the curved part
+ x5=0.5[x8,x1]; y5=y8;
+ z5'=z5 shifted (w*pdir);
+ path p[];
+ p1=z5--z5';
+ p2=z1--z2;
+ z9= p2 intersectionpoint p1;
+ pair vec[];
+ p3=z6..z7{down}..{right}z8;
+ vec3 = direction 0 of p3;
+ z16=z6 shifted vec3;
+ if ductus:
+ pickup stylus;
+ fi
+% draw the serifs, then the bowls
+ draw_serif(6,16,srad); % left half
+ draw z6a..z7{down}..z8{right}..{pdir}z9;
+ draw_istem(1,2,srad); % right stem
+ penlabels(1,2,3,4,5,6,7,8,9,11,16,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_v}
+% Draw a `v' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_v(suffix $,$$)=
+% right side of W
+ numeric midx; midx:= pcshiftx;
+ lft x1=x$; top y1=y$$;
+ x2=x1; y2=1/2[y$,y$$];
+ rt x4=x$$; y4=y2;
+ x3=0.5[x2,x4]; bot y3=y$;
+ x5=x4-thick; y5=y1;
+ if ductus:
+ pickup stylus;
+ fi
+% draw the serifs, then the bowls
+ draw_tlserif(1,2,srad);
+ draw z2{down}..z3{right}..z4{up}..z5;
+ penlabels(1,2,3,4,5,11,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_w}
+% Draw a `w' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_w(suffix $,$$)=
+% right side first
+ numeric midx; midx:= 1/2[x$,x$$]-jut;
+ lft x1=midx+jut; top y1=y$$;
+ x2=x1; y2=1/2[y$,y$$];
+ rt x4=x$$; y4=y2;
+ x3=0.5[x2,x4]; bot y3=y$;
+ x5=x4-thick; y5=y1;
+% left side
+ lft x6=x$+jut;
+ top y6=y$$-2thin;
+ lft x7=x$; y7=y2;
+ x8=0.5[x7,x1]; y8=y3;
+% construction points
+ x15=0.5[x8,x1]; y15=y8;
+ z15'=z15 shifted (w*pdir);
+ x2'=x2; y2'=y15;
+ path p[];
+ p1=z1--z2';
+ p2=z15--z15';
+ z9= p2 intersectionpoint p1;
+ pair vec[];
+ p3=z6..z7{down}..{right}z8;
+ vec3 = direction 0 of p3;
+ z16=z6 shifted vec3;
+ if ductus:
+ pickup stylus;
+ fi
+% draw the serifs, then the bowls
+ draw_tlserif(1,2,srad); % right half
+ draw z2{down}..z3{right}..z4{up}..z5;
+ draw_serif(6,16,srad); % left half
+ draw z6a..z7{down}..z8{right}..z9;
+ penlabels(1,2,3,4,5,6,7,8,9,11,16,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_x}
+% Draw an `x' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_x(suffix $,$$,$$$)=
+% thick diagonal
+ lft x1=x$+jut; rt x2=x$$-jut;
+ y1=y$$; y2=y$;
+% thin diagonal
+ lft x3=x$; bot y3=y$$$;
+ rt x5=x$$; top y5=y$$;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_istem(1,2,srad); % thick diagonal
+ draw z3..{pdir}z5; % thin diagonal
+ penlabels(1,2,3,4,5,6,7,8,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_y_base}
+% Draw a dotless `y' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_y_base(suffix $,$$,$$$)=
+% left stroke
+ lft x1=x$+jut; top y1=y$$;
+ rt x2=3/4[x$,x$$]; top y2=y$;
+% right stroke
+ pickup stylus;
+ rt x3=x$$; top y3=y$$;
+ lft x4=x$; bot y4=y$$$;
+ x5=x3-3thin; y5=y3;
+ x7=x2-3/2thin; y7=y2;
+ pickup quill;
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % left stroke
+ pickup stylus;
+ filldraw z3..z2..z4 & z4..z7..z5--cycle; % right stroke
+ penlabels(1,2,3,4,5,6,7,8,9,10,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+% \begin{routine}{draw_y}
+% Draw a `y' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_y(suffix $,$$,$$$)=
+ draw_y_base($,$$,$$$);
+ x8=1/2[x$,x$$]; y8=y$$+jut;
+ draw_pdot(8,dot_size); % the dot
+ penlabels(8);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_z}
+% Draw a `z' character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% \begin{macrocode}
+def draw_z(suffix $,$$)=
+ % bottom stroke
+ lft x4=x$; bot y4=y$;
+ x6=x$$; y6=y$;
+% top stroke
+ x1=x4; top y1=y$$;
+ rt x3=6/7[x$,x$$]; y3=y1;
+ x11=x$+0.5jut; y11=y$$-thin/2;
+ if ductus:
+ pickup stylus;
+ fi
+ draw z1--z3; % top stroke
+ draw_triangle(11,jut);
+ draw_fork(4,6,jut);
+ draw z4--z3; % diagonal
+ penlabels(1,2,3,4,5,6,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+% \begin{routine}{draw_thorn}
+% Draw a thorn character.
+% |$| and |$$| are the lower left and upper right of the character's `box'.
+% |$$$| is base of descender box.
+% \begin{macrocode}
+def draw_thorn(suffix $,$$,$$$)=
+% stem
+ lft x1=lft x2=x$; top y1=y$$; bot y2=y$$$;
+% bowl
+ lft x7=rt x1; bot y7=y$;
+ x3=x1; y1-y3 = y7-y2;
+ rt x5=x$$; y5=1/2[y3,y7];
+ if ductus:
+ pickup stylus;
+ fi
+ draw_tlserif(1,2,srad); % stem
+ draw_tail(2,jut);
+ draw z3{pdir}..z5{down}..{-pdir}z7; % bowl
+ penlabels(1,2,3,4,5,6,7,100);
+enddef;
+
+% \end{macrocode}
+% \end{routine}
+%
+%
+%
+%
+% \subsection{Mode, setup and input files}
+%
+%
+% Set the mode and font setup.
+% \begin{macrocode}
+font_coding_scheme:="TeXB1";
+mode_setup;
+auncial_font_setup;
+
+% \end{macrocode}
+%
+%
+% We generate letters, together with some punctuation and
+% analphabetics.
+% \begin{macrocode}
+input auncllow; % characters below ASCII
+input aunclsci; % ASCII character set
+input aunclmid; % bottom of top half
+input auncltop; % top of top half
+
+% \end{macrocode}
+%
+% \subsection{Ligatures}
+%
+% The open and close double quotes, and the en- and em-dashes.
+% \begin{macrocode}
+%%ligtable "`": "`"=:oct"134";
+%%ligtable "'": "'"=:oct"042"; %% , "?" kern 2u#, "!" kern 2u#;
+%%ligtable "-": "-"=:oct"173";
+%%ligtable oct"173": "-"=:oct"174";
+ligtable "`": "`"=:oct"020"; %% open quotes
+ligtable "'": "'"=:oct"021"; %% close quotes
+%% , "?" kern 2u#, "!" kern 2u#;
+ligtable "-": "-"=:oct"025"; %% en-dash
+ligtable oct"025": "-"=:oct"026"; %% em-dash
+
+% \end{macrocode}
+%
+% Other ligatures are possible in the following slots..
+%
+% \begin{macrocode}
+%%ligtable oct"240": "t"=oct"223";
+%%ligtable "e": "t"=oct"247";
+%%ligtable "s": "t"=oct"263";
+%%ligtable "c": "t"=oct"265";
+%%ligtable =oct"223";
+%%ligtable =oct"225";
+
+% \end{macrocode}
+%
+% Finally, do the uppercase ligtable.
+%
+% \begin{macrocode}
+font_slant slant; font_x_height x_height#;
+if monospace: font_normal_space 9u#; % no stretching or shrinking
+ font_quad 18u#;
+ font_extra_space 9u#;
+else: font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+ k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
+%% ligtable "P": "T": "Y": "A" kern kk#;
+%% ligtable "F": "V": "W": "A" kern if serifs: kkk# else: kk#fi,
+%% "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#;
+%% ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
+%% "V" kern k#, "Y" kern k#;
+%% ligtable "A": if serifs: "R": fi
+%% "C" kern k#, "O" kern k#, "G" kern k#, "U" kern k#, "Q" kern k#,
+%% "L": "T" kern kk#, "Y" kern kkk#, "V" kern kk#, "W" kern kkk#;
+%%ligtable "I": "I" kern -k#; % Richard III
+fi
+
+bye.
+
+%</mfd>
+% \end{macrocode}
+%
+%
+% \Finale
+%
+\endinput
+
+%% \CharacterTable
+%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+
+
diff --git a/fonts/auncial-new/tryauncial.pdf b/fonts/auncial-new/tryauncial.pdf
new file mode 100644
index 0000000000..5b5d24db57
--- /dev/null
+++ b/fonts/auncial-new/tryauncial.pdf
Binary files differ
diff --git a/fonts/auncial-new/tryauncial.tex b/fonts/auncial-new/tryauncial.tex
new file mode 100644
index 0000000000..4994998d62
--- /dev/null
+++ b/fonts/auncial-new/tryauncial.tex
@@ -0,0 +1,29 @@
+% tryfont.tex Test Artificial Uncial fonts
+\documentclass{article}
+\usepackage[B1,T1]{fontenc}
+\usepackage{auncial}
+\usepackage{fonttable}
+
+\title{Try Artificial Uncial Fonts}
+\author{Peter Wilson}
+\date{}
+\begin{document}
+\maketitle
+
+ This provides a short test of the characters in the Artificial Uncial fonts
+--- the \verb?auncl? font family. Pen angle 10 degrees, 5 and 3.5 nibs for
+normal and bold versions.
+
+
+\begin{figure}
+\decimals\nohexoct
+\centering
+\caption{Font table}
+\fonttable{auncl10}
+\end{figure}
+
+%\fulltext
+\regulartext{\aunclfamily}
+
+\end{document}
+