summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/fonts/auncial-new/aunclmfc.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/fonts/auncial-new/aunclmfc.dtx')
-rw-r--r--Master/texmf-dist/source/fonts/auncial-new/aunclmfc.dtx4563
1 files changed, 4563 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/fonts/auncial-new/aunclmfc.dtx b/Master/texmf-dist/source/fonts/auncial-new/aunclmfc.dtx
new file mode 100644
index 00000000000..bda201adfe9
--- /dev/null
+++ b/Master/texmf-dist/source/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 \~}
+
+