summaryrefslogtreecommitdiff
path: root/fonts/gothic/blacklettert1/blacklettert1.dtx
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/gothic/blacklettert1/blacklettert1.dtx
Initial commit
Diffstat (limited to 'fonts/gothic/blacklettert1/blacklettert1.dtx')
-rw-r--r--fonts/gothic/blacklettert1/blacklettert1.dtx6280
1 files changed, 6280 insertions, 0 deletions
diff --git a/fonts/gothic/blacklettert1/blacklettert1.dtx b/fonts/gothic/blacklettert1/blacklettert1.dtx
new file mode 100644
index 0000000000..3b75fc3558
--- /dev/null
+++ b/fonts/gothic/blacklettert1/blacklettert1.dtx
@@ -0,0 +1,6280 @@
+% \iffalse meta-comment
+% $Id: blacklettert1.dtx,v 1.3 2002/05/30 18:16:53 torsten Exp torsten $
+%
+% blacklettert1.dtx -- Blackletter Typefaces in T1 Encoding
+% Copyright 2003 Torsten Bronger <torsten.bronger@gmx.de>
+%
+% This program may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.2 or later is part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% \fi
+%
+% \CheckSum{5465}
+% \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 \~}
+%
+%
+% \def\fileversion{v1.1}
+% \def\filedate{2003/02/17}
+%
+% \title{Blackletter Typefaces in T1 Encoding\thanks{This file
+% has version number \fileversion, last
+% revised \filedate.}}
+% \author{Torsten Bronger\\
+% \url{bronger@physik.rwth-aachen.de}}
+%
+% \maketitle
+%
+% \begin{abstract}
+% This package |blacklettert1| provides virtual fonts for T1-like variants of the
+% blackletter typefaces published in 1990 by Yannis Haralambous, namely yfrak,
+% yswab and ygoth. Their original encoding is unspecified. Additionally, this
+% package embeds these fonts nicely into \LaTeXe's font selection scheme. The
+% structure of this package allows for further blackletter typefaces from other
+% sources to be made usable for \LaTeX\ in a similar way, too.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section*{The documentation driver file}
+%
+% The next bit of code contains the documentation driver file for
+% \TeX, i.\,e., the file that will produce the documentation you are
+% currently reading. It will be extracted from this file by the
+% \texttt{docstrip} program. Since it is the first code in the file
+% one can alternatively process this file directly with \LaTeXe{} to
+% obtain the documentation.
+%
+% \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+
+% \end{macrocode}
+% If you comment out the next line, you get a \emph{full} description
+% of this package.
+% \begin{macrocode}
+\OnlyDescription
+
+% \end{macrocode}
+% Not clean at all, but it works.
+% \begin{macrocode}
+\newlabel{codingscheme}{{??}{??}}
+
+\setcounter{StandardModuleDepth}{1}
+
+\usepackage{url}
+\providecommand*{\url}[1]{\texttt{\mbox{#1}}}
+
+\usepackage{mathptmx}
+
+\begin{document}
+ \DocInput{blacklettert1.dtx}
+ \PrintChanges
+ \PrintIndex
+\end{document}
+%</driver>
+% \end{macrocode}
+%
+% \section{Introduction}
+%
+% In 1990, Yannis Haralambous published a set of three blackletter typefaces.
+% (Very often, though inaccurately, such typefaces are also called ``Gothic''
+% or ``old German'' typefaces.)
+%
+% These three fonts are yfrak (Fraktur), yswab (Schwabacher) and ygoth
+% (Textur), and Haralambous made them freely available. They were created
+% using Metafont. Unfortunately, although all three fonts are very nicely
+% drawn and well endowed with ligatures and special symbols, they are produced
+% in a very awkward encoding, making it very inconvenient to use them.
+% Therefore in 1994 Thierry Bouche wrote dcfrak, a Metafont font that by and
+% large was a T1 (Cork) encoded re-implementation of Haralambous' yfrak.
+% Bouche added blacker accents.
+%
+% His work has three flaws: It only covers yfrak, it is a new font (virtual
+% fonts are prefered if possible) and it doesn't make use of \TeX's boundary
+% character feature that was especially designed having blackletter typefaces and
+% old Latin scripts in mind.
+%
+%
+% \section{This package}
+%
+% \dots~provides virtual fonts and a (nearly) T1 encoded Fraktur family that
+% can be used very easily with \LaTeX. In fact, if you switch to the font by
+% saying
+%\begin{verbatim}
+%\fontfamily{yfrak}\selectfont
+%\end{verbatim}
+% (no special package is needed, but T1 must be the current encoding) all you
+% still have to do is to break up certain ligatures with \verb|\/| commands.
+% You could even use the same \LaTeX\ source text for both Fraktur and, say,
+% Times output.
+%
+% This approach has several advantages:
+% \begin{itemize}
+% \item Virtual fonts are easy to install and elegantly make use of already
+% installed fonts,
+% \item you don't have to get adjusted to the quite strange input format
+% Haralambous suggested, actually the impact on the source text is (not zero,
+% but) relatively small,
+% \item makes it possible to return to Latin typefaces without further changes,
+% \item makes proper hyphenation in whatever language possible,
+% \item makes spell checkers that can cope with \LaTeX\ work also for Fraktur
+% texts,
+% \item allows for letterspaced version and
+% \item embeds yfrak, yswab and ygoth nicely in the font selection scheme of
+% \LaTeX.
+% \end{itemize}
+%
+% Additionally, it solves some design flaws of the original fonts:
+% \begin{itemize}
+% \item ygoth is slightly letterspaced.
+% \item The letters i, l and fi of ygoth are now correctly positioned within
+% their boxes.
+% \item Many too big and too small letter boxes are adjusted.
+% \item Missing dieresis accent added to ygoth and yfrak.
+% \item Inter-word space is reduced.
+% \end{itemize}
+%
+% I have to admit one disadvantage of this virtual font approach: Some DVI
+% viewers still can't handle them properly. In this case, please complain to
+% the DVI driver author. At least dvips has no problem.
+%
+% \medskip The package bases on a modified version of the T1 encoding, but
+% only unusual slots got a new contents. This T1 variant can be used for
+% other blackletter typefaces, too. See the full documentation of this package for
+% further details.
+%
+% \section{Installation}
+%
+% You can use the already compiled \mbox{|vf|-,} |tfm|- and |fd|-files. Just
+% copy them in directories where \LaTeX\ and your DVI driver can find them.
+% (Typically where other files with the same respective extension already
+% exist.)
+%
+% Alternatively you can use the Makefile and give the commands
+%\begin{verbatim}
+%make
+%make install
+%\end{verbatim}
+% (At least the latter as root.) This will create fresh versions of the
+% virtual fonts and install them. Please have a look at the Makefile, whether
+% all paths are set as you need them. If you want to compile the fonts, please
+% notice that you need special PL files for yfrak, yswab, ygoth and cmu10.
+% The problem is that they must have set a certain \texttt{CODINGSCHEME}. See
+% page~\pageref{codingscheme} (this page is unknown if you have set
+% \mbox{\texttt{\char'134OnlyDescription}}) for further details.
+%
+% Maybe it's necessary to run a program like te\TeX's |texhash| -- or
+% something equivalent of your \TeX\ implementation -- after the installation
+% process.
+%
+% \section{Using the fonts}
+%
+% \emph{Warning}: The original fonts (|.mf| or |.pfb|) must be available for
+% your DVI driver before this package can be used! They are not part of this
+% package.
+%
+% \subsection{Switching to Fraktur}
+%
+% This package doesn't contain a |sty| file that you can include with a
+% |\usepackage| command. If you switch to yfrak in the T1 encoding with
+% something like
+%\begin{verbatim}
+%\fontfamily{yfrak}\selectfont
+%\end{verbatim}
+% you get Fraktur. The |\emph| version will be a neatly letterspaced Fraktur,
+% |\textsl| is Schwabacher. In the preamble you can say
+%\begin{verbatim}
+%\renewcommand{\emph}[1]{\textsl{#1}}
+%\end{verbatim}
+% and Schwabacher will be the default |\emph| markup, if you prefer that.
+% Bold face is Textur, so that Textur will be used for the headings (standard
+% \LaTeX\ behaviour) which is common use.
+%
+%You can make the Fraktur font selection global for the whole document by
+% saying
+%\begin{verbatim}
+%\renewcommand{\rmdefault}{yfrak}
+%\end{verbatim}
+% in the preamble.
+%
+% \subsection{Typographic difficulties}
+%
+% A very important point is breaking up ligatures with |\/| or -- in German
+% texts -- with \verb!"|!. Blackletter typefaces have many of them, but at subword
+% boundaries you have to split them up. The German word ``aus\/tragen'' is
+% written in the source as ``\verb!aus"|tragen!'', because ``aus'' is a
+% prefix.
+%
+% Blackletter typefaces have two lower case ``s'': A \emph{round} one, the one we
+% know, and a \emph{long} one, similar of an ``f''. In German, the latter has
+% survived as the left part in the ligature ``\ss''. One must choose the
+% correct form for every occurrence. As a rule of thumb, the round form at
+% the end of the word, the long form everywhere else. \TeX\ will do that
+% automatically. However, sometimes a round ``s'' is necessary within a word,
+% at the end of a subword boundary.
+%
+% From \TeX's point of view, the letter of ``s'' within or at the beginning of
+% words is a ligature, too. A typical German case is ``aussetzen'' that must
+% be input ``\verb!aus"|setzen!''. Sometimes you will have to input a |\/| as
+% in |kafkaes\/k|. But there are also English examples: |news\/letter| --
+% although Knuth insists on the ligature.~\texttt{\mbox{;-)}}
+%
+%
+%
+% \section{Remarks}
+%
+% The author of this package would like to encourage people to use Fraktur,
+% for small bits of their texts, for special moods or just for aesthetical
+% considerations. Technically speaking, I try to lower the threshold for
+% using these typefaces by making the access a lot easier. They are of course
+% not for everyday texts.
+%
+% But it's really a pity that many people think that such blackletter typefaces are
+% old use, or connect them with German nationalism, especially the Nazi
+% era. The first is not strictly true (at least not for German speaking
+% regions), the latter is very unfair. Only few people know that the Nazis
+% themselves forbade them in 1941, because they were ``Jewish letters'' -- the
+% ban being as silly as the given reason.
+%
+% One should consider blackletter typefaces another degree of freedom in the font
+% space. They are not only to revive old texts; in fact, many font foundries
+% produce -- albeit only a few -- new Fraktur variants.
+%
+% \medskip To non-German authors: Although Fraktur and Schwabacher have been
+% used almost entirely for German texts, there is really no reason to limit it
+% to that. Their parents and sisters, Gothic, Textura, Rotunda, Bastarda
+% etc.\ have been heavily used for Latin, Italian, French and English.
+% European and American designers have created beautiful Fraktur alphabets.
+% A.~Kapr wrote, ``Schwabacher and Fraktur are just branches of the Latin
+% script tree, tended by many nations.''
+%
+%
+% \section{Related work}
+%
+% The |fraktur| package by Matthias Muehlich (FixMe:~Link!)\ is another
+% approach to bring blackletter typefaces to \LaTeX. The main differences are:
+% \begin{itemize}
+% \item He provides virtual font solutions for many commercial fonts (but
+% not for Haralambous' typefaces).
+% \item He uses another encoding (FixMe:~Name?)\ which is quite much different
+% from T1. It covers some additional letters and ligatures.
+% \end{itemize}
+% If you want to have a ready-to-run solution for those typefaces (some of
+% which are free for private use), this package will be helpful for you.
+%
+% \bigskip Walter Schmidt's |yfonts| package provides a more direct access to
+% Haralambous' fonts, including the initials font |yinitas|. This is especially
+% useful if you want to typeset old texts, with all ligatures and Gutenberg
+% feeling.
+%
+% \StopEventually{}
+%
+%
+% \section{The \texttt{fontinst} input file}
+%
+% This file (|yutoyt1.tex|) is the driver file for the T1 representation
+% of Yannis Haralambous' blackletter typefaces. It it called by
+%\begin{verbatim}
+%tex yutoyt1
+%\end{verbatim}
+% \begin{macrocode}
+%<*yutoyt1tex>
+\input fontinst.sty
+
+\def\requiredversion{1.801}
+\ifx\fontinstversion\requiredversion\else\errmessage{fontinst 1.801 needed.}\fi
+
+% \end{macrocode}
+% The first step is quite unusual: I have to define some new encodings,
+% because Haralambous invented three different encodings for his three fonts,
+% and, of course, also incompatible with all other encodings on this planet.
+%
+% \emph{Warning:}\label{codingscheme} That's the reason why you can't use this
+% package with the \emph{original} TFM files. You must use the PL files
+% supplied with this package, because the PL files must contain the correct
+% name for their encoding. Although that's the only line that's been
+% modified, it's crucial.
+% \begin{macrocode}
+\declareencoding{YH GOTISCH}{ygoth}
+\declareencoding{YH SCHWABACHER}{yswab}
+\declareencoding{YH FRAKTUR}{yfrak}
+% \end{macrocode}
+% The same is true for |cmu10.pl|: It has a slightly different encoding
+% (it contains a sterling sign instead of a dollar), but it doesn't say so
+% in the tfm file header. By the way, the |ot1i| encoding is part of the
+% standard \texttt{fontinst} distribution.
+% \begin{macrocode}
+\declareencoding{TEX ITALIC TEXT}{ot1i}
+\installfonts
+% \end{macrocode}
+% I didn't rename the family name because I don't know of another T1 version
+% of yfrak. I think it's not a lie when I claim that it's still yfrak, but
+% in another encoding.
+%
+% I need another hyphen character because otherwise a long ``s'' may become
+% round immediately before a hyphen.
+% \begin{macrocode}
+\installfamily{T1}{yfrak}{\hyphenchar\font=127}
+
+% \end{macrocode}
+% First, the normal version. The tfm file will be called |tfrak.tfm|.
+% \begin{macrocode}
+\installfont{tfrak}{yfrak,kernoff,yswab scaled 700,setglyph,%
+ cmr10,cmmi10,cmsy10,%
+ unsetacc,cmr7 scaled 700,ecrm1000,%
+ unsetcm,ecrm0700 scaled 700,kernon,%
+ unsetdia,yfrak,kernoff,unsetste,cmu10,kernon,%
+ fcleanup,blackletter}{T1frak}
+ {T1}{yfrak}{m}{n}{}
+% \end{macrocode}
+% Secondly, the letterspaced version. By and large, it's a copy from above.
+% Notice that I annihilate almost all kerning, in fact, only one pair
+% survives! The latterspaced version is mapped to the italic variant. This
+% should transform legacy document automatically, and it helps to
+% ``re-antiqua'' Fraktur texts easily.
+% \begin{macrocode}
+\installfont{tfrakls}{kernoff,yfrak,yswab scaled 700,setglyph,%
+ cmr10,cmmi10,cmsy10,%
+ unsetacc,cmr7 scaled 700,ecrm1000,%
+ unsetcm,ecrm0700 scaled 700,%
+ unsetdia,yfrak,unsetste,cmu10,%
+ fcleanup,kernon,lettersp,kernoff,blackletter}{T1frak}
+ {T1}{yfrak}{m}{it}{}
+% \end{macrocode}
+% The |\textsl| version is |tswab|, the T1 variant of |yswab|. It is
+% much simpler, largely because it doesn't need smaller accents.
+% \begin{macrocode}
+\installfont{tswab}{yswab,setglyph,kernoff,cmbx10,cmmib10,cmbsy10,%
+ unsetcm,ecbx1000,kernon,%
+ unsetdia,yswab,scleanup,blackletter}{T1frak}
+ {T1}{yfrak}{m}{sl}{}
+% \end{macrocode}
+% Very closely related to the |tswab| solution is |tgoth|, which is mapped to
+% the bold version of yfrak in the T1 encoding. The only differences are in
+% |gcleanup.mtx|.
+% \begin{macrocode}
+\installfont{tgoth}{ygoth,setglyph,kernoff,cmbx10,cmmib10,cmbsy10,%
+ unsetcm,ecbx1000,kernon,%
+ unsetdia,ygoth,gcleanup,blackletter}{T1frak}
+ {T1}{yfrak}{b}{n}{}
+\endinstallfonts
+
+\bye
+%</yutoyt1tex>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{yfrak} text encoding vector}
+%
+% Here I describe the original encoding of the yfrak font by Yannis
+% Haralambous. This file is read when |yfrak.pl| is converted into
+% |yfrak.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*yfraketx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{yfrak} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of yfrak (fraktur).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\setint{boundarychar}{32}
+
+\comment{\section{The encoding}}
+
+\nextslot{"10}
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{grave}
+ \comment{The grave accent `\`a'.}
+\endsetslot
+
+\setslot{acute}
+ \comment{The acute accent `\'a'.}
+\endsetslot
+
+\setslot{caron}
+ \comment{The caron or h\'a\v cek accent `\v a'.}
+\endsetslot
+
+\setslot{breve}
+ \comment{The breve accent `\u a'.}
+\endsetslot
+
+\setslot{macron}
+ \comment{The macron accent `\=a'.}
+\endsetslot
+
+\setslot{ringfitted}
+ \comment{The ring accent `\aa', fitted to be the same width as an
+ upper case `A'.}
+\endsetslot
+
+\setslot{cedilla}
+ \comment{The cedilla accent `\c a'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\setslot{varJ}
+ \comment{Variant of the letter `{J}'.}
+\endsetslot
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\setslot{ampersand}
+ \comment{The ampersand sign `\&'.}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{section}
+ \comment{The section sign `{\S}'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `,\kern-0.1em,' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{circumflex}
+ \comment{The circumflex accent `\^ a'.}
+\endsetslot
+
+\setslot{dotaccent}
+ \comment{The dot accent `\.a'.}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quotation mark `\,`\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{hungarumlaut}
+ \comment{The long Hungarian umlaut `\H a'.}
+\endsetslot
+
+\setslot{tilde}
+ \comment{The tilde accent `\~a'.}
+\endsetslot
+
+\comment{\section{Non-standard ligatures}}
+
+\nextslot{"81}
+
+\setslot{ss}
+ \comment{The `ss' ligature.}
+\endsetslot
+
+\setslot{st}
+ \comment{The `st' ligature.}
+\endsetslot
+
+\setslot{sf}
+ \comment{The `sf' ligature.}
+\endsetslot
+
+\setslot{ff}
+ \comment{The `ff' ligature.}
+\endsetslot
+
+\setslot{ch}
+ \comment{The `ch' ligature.}
+\endsetslot
+
+\setslot{ck}
+ \comment{The `ck' ligature.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{asmalle}
+ \comment{The letter `a' with little e at top.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\setslot{tz}
+ \comment{The `tz' ligature.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{esmalle}
+ \comment{The letter `e' with little e at top.}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\nextslot{"99}
+
+\setslot{osmalle}
+ \comment{The letter `o' with little e at top.}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\skipslots{3}
+
+\setslot{usmalle}
+ \comment{The letter `u' with little e at top.}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\nextslot{"A4}
+
+\setslot{varsection}
+ \comment{Variant of section sign `\S'.}
+\endsetslot
+
+\nextslot{"C9}
+
+\setslot{etc}
+ \comment{The abbreviation sign `etc'.}
+\endsetslot
+
+
+\endencoding
+\end{document}
+%</yfraketx>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{yswab} text encoding vector}
+%
+% Here I describe the original encoding of the yswab font by Yannis
+% Haralambous. This file is read when |yswab.pl| is converted into
+% |yswab.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*yswabetx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{yswab} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of yswab (schwabacher).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\comment{\section{The encoding}}
+
+\nextslot{"10}
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{grave}
+ \comment{The grave accent `\`a'.}
+\endsetslot
+
+\setslot{acute}
+ \comment{The acute accent `\'a'.}
+\endsetslot
+
+\setslot{caron}
+ \comment{The caron or h\'a\v cek accent `\v a'.}
+\endsetslot
+
+\setslot{breve}
+ \comment{The breve accent `\u a'.}
+\endsetslot
+
+\setslot{macron}
+ \comment{The macron accent `\=a'.}
+\endsetslot
+
+\setslot{ringfitted}
+ \comment{The ring accent `\aa', fitted to be the same width as an
+ upper case `A'.}
+\endsetslot
+
+\setslot{cedilla}
+ \comment{The cedilla accent `\c a'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{section}
+ \comment{The section sign `{\S}'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `,\kern-0.1em,' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{circumflex}
+ \comment{The circumflex accent `\^ a'.}
+\endsetslot
+
+\setslot{dotaccent}
+ \comment{The dot accent `\.a'.}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quotation mark `\,`\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{dieresis}
+ \comment{The umlaut or dieresis accent `\"{}'.}
+\endsetslot
+
+\setslot{tilde}
+ \comment{The tilde accent `\~a'.}
+\endsetslot
+
+\comment{\section{Non-standard ligatures}}
+
+\nextslot{"81}
+
+\setslot{ss}
+ \comment{The `ss' ligature.}
+\endsetslot
+
+\setslot{st}
+ \comment{The `st' ligature.}
+\endsetslot
+
+\setslot{sf}
+ \comment{The `sf' ligature.}
+\endsetslot
+
+\setslot{ff}
+ \comment{The `ff' ligature.}
+\endsetslot
+
+\setslot{ch}
+ \comment{The `ch' ligature.}
+\endsetslot
+
+\setslot{ck}
+ \comment{The `ck' ligature.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{asmalle}
+ \comment{The letter `a' with little e at top.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{esmalle}
+ \comment{The letter `e' with little e at top.}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\nextslot{"99}
+
+\setslot{osmalle}
+ \comment{The letter `o' with little e at top.}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\skipslots{3}
+
+\setslot{usmalle}
+ \comment{The letter `u' with little e at top.}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\nextslot{"A4}
+
+\setslot{varsection}
+ \comment{Variant of section sign `\S'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{\lc{varSS}{vargermandbls}}
+ \comment{A variant of the letter `\ss'.}
+\endsetslot
+
+
+\endencoding
+\end{document}
+%</yswabetx>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{ygoth} text encoding vector}
+%
+% Here I describe the original encoding of the ygoth font by Yannis
+% Haralambous. This file is read when |ygoth.pl| is converted into
+% |ygoth.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*ygothetx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{ygoth} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of ygoth (textur).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\comment{\section{The encoding}}
+
+\nextslot{0}
+
+\setslot{ba}
+ \comment{the ligature `ba'}
+\endsetslot
+
+\setslot{be}
+ \comment{the ligature `be'}
+\endsetslot
+
+\setslot{bo}
+ \comment{the ligature `bo'}
+\endsetslot
+
+\setslot{ch}
+ \comment{the ligature `ch'}
+\endsetslot
+
+\setslot{ck}
+ \comment{the ligature `ck'}
+\endsetslot
+
+\setslot{ct}
+ \comment{the ligature `ct'}
+\endsetslot
+
+\setslot{da}
+ \comment{the ligature `da'}
+\endsetslot
+
+\setslot{de}
+ \comment{the ligature `de'}
+\endsetslot
+
+\setslot{do}
+ \comment{the ligature `do'}
+\endsetslot
+
+\setslot{ha}
+ \comment{the ligature `ha'}
+\endsetslot
+
+\setslot{he}
+ \comment{the ligature `he'}
+\endsetslot
+
+\setslot{ff}
+ \comment{the ligature `ff'}
+\endsetslot
+
+\setslot{fi}
+ \comment{the ligature `fi'}
+\endsetslot
+
+\setslot{fl}
+ \comment{the ligature `fl'}
+\endsetslot
+
+\setslot{ffi}
+ \comment{the ligature `ffi'}
+\endsetslot
+
+\setslot{ffl}
+ \comment{the ligature `ffl'}
+\endsetslot
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{ho}
+ \comment{the ligature `ho'}
+\endsetslot
+
+\setslot{pa}
+ \comment{the ligature `pa'}
+\endsetslot
+
+\setslot{pe}
+ \comment{the ligature `pe'}
+\endsetslot
+
+\setslot{po}
+ \comment{the ligature `po'}
+\endsetslot
+
+\setslot{ij}
+ \comment{the ligature `ij'}
+\endsetslot
+
+\setslot{qz}
+ \comment{the ligature `qz'}
+\endsetslot
+
+\setslot{va}
+ \comment{the ligature `va'}
+\endsetslot
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\setslot{\lc{AE}{ae}}
+ \comment{The letter `\ae'. This is a single letter, and should not be
+ faked with `ae'.}
+\endsetslot
+
+\setslot{\lc{OE}{oe}}
+ \comment{The letter `\oe'. This is a single letter, and should not be
+ faked with `oe'.}
+\endsetslot
+
+\setslot{\lc{Oslash}{oslash}}
+ \comment{The letter `\o'.}
+\endsetslot
+
+\setslot{ll}
+ \comment{the ligature `ll'}
+\endsetslot
+
+\setslot{ve}
+ \comment{the ligature `ve'}
+\endsetslot
+
+\setslot{vu}
+ \comment{the ligature `vu'}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblright}
+ \comment{An English double closing quote mark `\,''\,'.}
+\endsetslot
+
+\setslot{pp}
+ \comment{the ligature `pp'}
+\endsetslot
+
+\setslot{qq}
+ \comment{the ligature `qq'}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{ss}
+ \comment{the ligature `ss'}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{ssvar}
+ \comment{the ligature `ss' (variant)}
+\endsetslot
+
+\setslot{ssi}
+ \comment{the ligature `ssi'}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{ssivar}
+ \comment{the ligature `ssi' (variant)}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{st}
+ \comment{the ligature `st'}
+\endsetslot
+
+\setslot{stvar}
+ \comment{the ligature `st' (variant)}
+\endsetslot
+
+\setslot{tz}
+ \comment{the ligature `tz'}
+\endsetslot
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\endencoding
+\end{document}
+%</ygothetx>
+% \end{macrocode}
+%
+%
+% \section{First cleaning up}
+%
+% In this file (|setglyph.mtx|), we do two things: First, we move some
+% ligatures from the poriginal encoding to the correct position in my
+% pseudo-T1, ans secondly we unset some glyphs that shouldn't be used from
+% the Haralambous font.
+%
+% \begin{macrocode}
+%<*setglyphmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Moving the ligatures}
+%
+% E.\,g., the ``ck'' ligature must end up in the T1 slot called
+% ``ffl ligature''. Here I do so. Of cause, only if the respective ligature
+% is available at all.
+% \begin{macrocode}
+\setcommand\setglyphmaybe#1#2{%
+\unsetglyph{#1}
+\ifisglyph{#2}\then
+\setglyph{#1}
+ \glyph{#2}{1000}
+\endsetglyph
+\fi
+}
+
+\setglyphmaybe{dotlessj}{si}
+\setglyphmaybe{ffi}{ch}
+\setglyphmaybe{ffl}{ck}
+\setglyphmaybe{backslash}{ft}
+\setglyphmaybe{asciicircum}{ss}
+\setglyphmaybe{underscore}{st}
+\setglyphmaybe{bar}{tz}
+
+% \end{macrocode}
+%
+% \subsection{Taking accents from CM}
+%
+% All ligatures are taken from CM, only the Hungarian umlaut comes from EC
+% (see below). The Haralambous fonts don't contain all of them anyway.
+% \begin{macrocode}
+\unsetglyph{circumflex}
+\unsetglyph{breve}
+\unsetglyph{ring}
+\unsetglyph{macron}
+\unsetglyph{caron}
+\unsetglyph{tilde}
+\unsetglyph{quotedblleft}
+\unsetglyph{quotedblright}
+\unsetglyph{quotedblbase}
+\unsetglyph{tilde}
+\unsetglyph{slash}
+
+
+\endmetrics
+%</setglyphmtx>
+% \end{macrocode}
+%
+%
+% \section{Making the accents smaller}
+%
+% This part will eventually come to the file |unsetacc.mtx|. I want to take
+% the accents not from the original computer modern or their T1 variant, but
+% from the seven point version, at least for the Fraktur font. These smaller
+% accents look nicer in my opinion, because the dainty Fraktur letters can't
+% cope with usual ten point accents.
+% \begin{macrocode}
+%<*unsetaccmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+% The following three lines save the old height of the tilde character in a
+% variable called |oldtildeheight| in order to be able to shift the smaller
+% accents upwards to the correct height later. Probably this was superfluous,
+% because I have to tweak the heights anyway.
+% \begin{macrocode}
+\setint{oldtildeheight}{\height{tilde}}
+\def\temp{\int{oldtildeheight}}
+\xdef\oldtildeheight{\the\temp}
+
+\unsetglyph{grave}
+\unsetglyph{acute}
+\unsetglyph{circumflex}
+\unsetglyph{tilde}
+\unsetglyph{ring}
+\unsetglyph{caron}
+\unsetglyph{breve}
+\unsetglyph{dotaccent}
+
+\endmetrics
+%</unsetaccmtx>
+% \end{macrocode}
+%
+%
+% \section{The Hungarian umlaut}
+%
+% This wanders eventually to the file |unsetcm.mtx| and does not more than
+% just unsetting the Hungarian umlaut accent. The reason for that is that
+% this symbol looks much nicer in the EC fonts, especially because the normal
+% dieresis accent looks wuite similar to the CM version of the Hungarian
+% umlaut, which is potentially dangerous. (Hungarian uses both.)
+% \begin{macrocode}
+%<*unsetcmmtx>
+\relax
+
+\metrics
+
+\unsetglyph{hungarumlaut}
+
+\endmetrics
+%</unsetcmmtx>
+% \end{macrocode}
+%
+%
+% \section{Unsetting the diacritics}
+%
+% In this section (eventually the file |unsetdia.mtx|), I make all
+% pathologial latter, i.\,e.\ all letters with diacritic signs, undefined.
+% After that, I can set some critical characters manually in the ``cleanup''
+% files (see below), ar I can let them be constrcuted in |blackletter.mtx|.
+% \begin{macrocode}
+%<*unsetdiamtx>
+\relax
+
+\metrics
+
+\unsetglyph{hyphenchar}
+
+\unsetglyph{Abreve}
+\unsetglyph{Aogonek}
+\unsetglyph{Cacute}
+\unsetglyph{Ccaron}
+\unsetglyph{Dcaron}
+\unsetglyph{Ecaron}
+\unsetglyph{Eogonek}
+\unsetglyph{Gbreve}
+\unsetglyph{Lacute}
+\unsetglyph{Lcaron}
+\unsetglyph{Lslash}
+\unsetglyph{Nacute}
+\unsetglyph{Ncaron}
+\unsetglyph{Ng}
+\unsetglyph{Ohungarumlaut}
+\unsetglyph{Racute}
+\unsetglyph{Rcaron}
+\unsetglyph{Sacute}
+\unsetglyph{Scaron}
+\unsetglyph{Scedilla}
+\unsetglyph{Tcaron}
+\unsetglyph{Tcedilla}
+\unsetglyph{Uhungarumlaut}
+\unsetglyph{Uring}
+\unsetglyph{Ydieresis}
+\unsetglyph{Zacute}
+\unsetglyph{Zcaron}
+\unsetglyph{Zdotaccent}
+\unsetglyph{IJ}
+\unsetglyph{Idotaccent}
+\unsetglyph{dbar}
+
+\unsetglyph{abreve}
+\unsetglyph{aogonek}
+\unsetglyph{cacute}
+\unsetglyph{ccaron}
+\unsetglyph{dcaron}
+\unsetglyph{ecaron}
+\unsetglyph{eogonek}
+\unsetglyph{gbreve}
+\unsetglyph{lacute}
+\unsetglyph{lcaron}
+\unsetglyph{lslash}
+\unsetglyph{nacute}
+\unsetglyph{ncaron}
+\unsetglyph{ng}
+\unsetglyph{ohungarumlaut}
+\unsetglyph{racute}
+\unsetglyph{rcaron}
+\unsetglyph{sacute}
+\unsetglyph{scaron}
+\unsetglyph{scedilla}
+\unsetglyph{tcaron}
+\unsetglyph{tcedilla}
+\unsetglyph{uhungarumlaut}
+\unsetglyph{uring}
+\unsetglyph{ydieresis}
+\unsetglyph{zacute}
+\unsetglyph{zcaron}
+\unsetglyph{zdotaccent}
+\unsetglyph{ij}
+
+\unsetglyph{Agrave}
+\unsetglyph{Aacute}
+\unsetglyph{Acircumflex}
+\unsetglyph{Atilde}
+\unsetglyph{Adieresis}
+\unsetglyph{Aring}
+\unsetglyph{AE}
+\unsetglyph{Ccedilla}
+\unsetglyph{Egrave}
+\unsetglyph{Eacute}
+\unsetglyph{Ecircumflex}
+\unsetglyph{Edieresis}
+\unsetglyph{Igrave}
+\unsetglyph{Iacute}
+\unsetglyph{Icircumflex}
+\unsetglyph{Idieresis}
+\unsetglyph{Eth}
+\unsetglyph{Ntilde}
+\unsetglyph{Ograve}
+\unsetglyph{Oacute}
+\unsetglyph{Ocircumflex}
+\unsetglyph{Otilde}
+\unsetglyph{Odieresis}
+\unsetglyph{OE}
+\unsetglyph{Oslash}
+\unsetglyph{Ugrave}
+\unsetglyph{Uacute}
+\unsetglyph{Ucircumflex}
+\unsetglyph{Udieresis}
+\unsetglyph{Yacute}
+\unsetglyph{Thorn}
+\unsetglyph{SS}
+\unsetglyph{agrave}
+\unsetglyph{aacute}
+\unsetglyph{acircumflex}
+\unsetglyph{atilde}
+\unsetglyph{adieresis}
+\unsetglyph{aring}
+\unsetglyph{ae}
+\unsetglyph{ccedilla}
+\unsetglyph{egrave}
+\unsetglyph{eacute}
+\unsetglyph{ecircumflex}
+\unsetglyph{edieresis}
+\unsetglyph{igrave}
+\unsetglyph{iacute}
+\unsetglyph{icircumflex}
+\unsetglyph{idieresis}
+\unsetglyph{eth}
+\unsetglyph{ntilde}
+\unsetglyph{ograve}
+\unsetglyph{oacute}
+\unsetglyph{ocircumflex}
+\unsetglyph{otilde}
+\unsetglyph{odieresis}
+\unsetglyph{oe}
+\unsetglyph{oslash}
+\unsetglyph{ugrave}
+\unsetglyph{uacute}
+\unsetglyph{ucircumflex}
+\unsetglyph{udieresis}
+\unsetglyph{yacute}
+\unsetglyph{thorn}
+\unsetglyph{germandbls}
+
+\endmetrics
+%</unsetdiamtx>
+% \end{macrocode}
+%
+%
+% \section{Getting the sterling symbol}
+%
+% This part will eventually come to the file |unsetste.mtx|. It's quite
+% annoying that this is necessary, but I haven't found a better solution.
+% Since I don't want to take the sterling symbol from the EC fonts, I have
+% to unset it here. Not more.
+% \begin{macrocode}
+%<*unsetstemtx>
+\relax
+
+\metrics
+
+\unsetglyph{sterling}
+
+\endmetrics
+%</unsetstemtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to yfrak}
+%
+% \begin{macrocode}
+%<*fcleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following values are for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{550}
+\setcommand\Uskew{470}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+\adjustheight{i}
+\adjustheight{j}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I copy the save value of the height of the tilde accent to
+% |pushvalue|.
+% \begin{macrocode}
+\setint{pushvalue}{\sub{\oldtildeheight}{\height{tilde}}}
+
+% \end{macrocode}
+% This routine moves the accent up. The accent is smaller than ten points
+% (seven points), and this routine tries to ensure that it still has the
+% correct height. It doesn't do this perfectly, therefor I need the special
+% tweak parameter |#2|, which is usually negative.
+% \begin{macrocode}
+\setcommand\pushaccent#1#2{
+ \resetglyph{#1}
+ \moveup{\add{\int{pushvalue}}{#2}}
+ \glyph{#1}{1000}
+ \endsetglyph
+}
+
+% \end{macrocode}
+% Here now the concrete accents.
+% \begin{macrocode}
+\pushaccent{grave}{-20}
+\pushaccent{acute}{-20}
+\pushaccent{circumflex}{-40}
+\pushaccent{tilde}{-70}
+\pushaccent{hungarumlaut}{-20}
+% \end{macrocode}
+% I handle the dieresis separately because it comes from yswab, and not from
+% CM.
+% \begin{macrocode}
+\resetglyph{dieresis}
+ \moveup{160}
+ \glyph{dieresis}{1000}
+\endsetglyph
+\pushaccent{ring}{-50}
+\pushaccent{caron}{-50}
+\pushaccent{breve}{-20}
+\pushaccent{dotaccent}{-30}
+
+% \end{macrocode}
+% I want to have the original ring accent from yfrak. It's quite nice.
+% \begin{macrocode}
+\resetglyph{ring}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting false characters boxes}
+%
+% The depth and height of the ``ch'' and ``ck'' ligature are wrong. Here I
+% correct that.
+% \begin{macrocode}
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \resetheight{\height{h}}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+% Similar correction for comma, period and semicolon.
+% \begin{macrocode}
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+ \resetdepth{\depth{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{semicolon}
+ \glyph{semicolon}{1000}
+ \resetdepth{\depth{comma}}
+\endsetglyph
+
+% \end{macrocode}
+% The following ligatures are not available in yfrak and must be faked in
+% |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{fi}
+\unsetglyph{fl}
+\unsetglyph{backslash}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotedblleft}
+ \movert{-100}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\add{\width{quotedblbase}}{70}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\add{\width{quotedblbase}}{20}}
+\endsetglyph
+
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-60}
+ \glyph{quotedblright}{1000}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+ \resetwidth{\add{\width{quotedblbase}}{40}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% Now I try to fake or improve the letters for the latin T1 version of yfrak.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\resetglyph{A}
+ \glyph{A}{1000}
+ \resetheight{\sub{\height{A}}{50}}
+\endsetglyph
+
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Aogonek}
+ \botaccent{A}{ogonek}{610}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{590}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-100}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-270}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{\Uskew}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{\Uskew}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-160}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{470}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-210}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\resetglyph{AE}
+ \glyph{A}{1000}
+ \movert{-120}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{300}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\resetglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\resetglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{170}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{\Uskew}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{\Uskew}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{\Uskew}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{\Uskew}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\resetglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{700}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\resetglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{50}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\resetglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+\endmetrics
+%</fcleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to yswab}
+%
+% \begin{macrocode}
+%<*scleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following value is for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{580}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I make all accents a little bit smaller to fit with ygoth.
+% Additionally I push them upwards, which is accent dependent.
+% \begin{macrocode}
+\resetglyph{tilde}
+ \moveup{-40}
+ \glyph{tilde}{1000}
+\endsetglyph
+
+\resetglyph{dieresis}
+ \moveup{-40}
+ \glyph{dieresis}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% I want to have the original ring accent from yfrak. It's quite nice.
+% \begin{macrocode}
+\resetglyph{ring}
+ \moveup{-30}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotedblleft}
+ \movert{-90}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\sub{\width{quotedblleft}}{100}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\sub{\width{quotedblright}}{120}}
+\endsetglyph
+
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-45}
+ \glyph{quotedblright}{1000}
+ \movert{70}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting character boxes}
+%
+% I don't know why, but the original character boxes of Haralambous for
+% yswab are sometimes wrong.
+% \begin{macrocode}
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \resetheight{\height{h}}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+ \resetdepth{\depth{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{m}
+ \glyph{m}{1000}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetglyph{n}
+ \glyph{n}{1000}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% The following glyphs should be constructed in |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{fi}
+\unsetglyph{fl}
+\unsetglyph{backslash}
+\unsetglyph{bar}
+
+% \end{macrocode}
+% Now I try to fake or improve the letters for the latin T1 version of ygoth.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-200}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-270}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-160}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{470}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-240}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\setglyph{AE}
+ \glyph{A}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{300}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\setglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{170}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\setglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-30}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{650}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{70}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\setglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+\endmetrics
+%</scleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to ygoth}
+%
+% \begin{macrocode}
+%<*gcleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following values are for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{700}
+\setcommand\Uskew{600}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I make all accents a little bit smaller to fit with ygoth.
+% Additionally I push them upwards, which is accent dependent.
+% \begin{macrocode}
+\setcommand\SmallerAccent#1#2{
+\resetglyph{#1}
+ \moveup{\add{100}{#2}}
+ \movert{\div{\width{#1}}{10}}
+ \glyph{#1}{800}
+ \samesize{#1}
+\endsetglyph
+}
+
+\SmallerAccent{grave}{20}
+\SmallerAccent{acute}{20}
+\SmallerAccent{circumflex}{20}
+\SmallerAccent{tilde}{0}
+\SmallerAccent{hungarumlaut}{20}
+\SmallerAccent{ring}{30}
+\SmallerAccent{ringfitted}{20}
+\SmallerAccent{caron}{20}
+\SmallerAccent{breve}{20}
+
+% \end{macrocode}
+% I construct the dieresis of two mere periods. Don't say anything.
+% \begin{macrocode}
+\resetglyph{dieresis}
+ \moveup{560}
+ \movert{80}
+ \glyph{period}{1000}
+ \movert{-140}
+ \glyph{period}{1000}
+ \samesize{dieresis}
+\endsetglyph
+
+% \end{macrocode}
+% Similar trick for the dot accent.
+% \begin{macrocode}
+\resetglyph{dotaccent}
+ \moveup{560}
+ \movert{10}
+ \glyph{period}{1000}
+ \samesize{dotaccent}
+\endsetglyph
+
+\resetglyph{ring}
+ \moveup{-30}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblleft}
+ \movert{-90}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\sub{\width{quotedblleft}}{100}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\sub{\width{quotedblright}}{120}}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-80}
+ \glyph{quotedblright}{1000}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+ \resetwidth{\add{\width{quotedblbase}}{30}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting character boxes}
+%
+% I don't know why, but the original character boxes of Haralambous for
+% ygoth are sometimes wrong. Here I shift the ``i'' a little bit to the
+% left and the ``l'' a little bit to the right. Similar changes to other
+% characters.
+% \begin{macrocode}
+\resetglyph{dotlessi}
+ \movert{-30}
+ \glyph{dotlessi}{1000}
+ \resetwidth{\width{dotlessi}}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetglyph{fi}
+ \glyph{fi}{1000}
+ \movert{40}
+\endsetglyph
+
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \movert{20}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \movert{20}
+\endsetglyph
+
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{A}
+ \glyph{A}{1000}
+ \resetheight{\sub{\height{A}}{50}}
+\endsetglyph
+
+\resetglyph{i}
+ \movert{-30}
+ \glyph{i}{1000}
+ \samesize{i}
+\endsetglyph
+
+\resetglyph{j}
+ \movert{-30}
+ \glyph{j}{1000}
+ \movert{30}
+\endsetglyph
+
+\resetglyph{l}
+ \movert{30}
+ \glyph{l}{1000}
+ \samesize{l}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+%
+% \subsection{Kerning}
+%
+% ``F'' and ``V'' need some kerning.
+%
+% \begin{macrocode}
+\setkern{F}{a}{-140}
+\setkern{F}{e}{-110}
+\setkern{F}{o}{-140}
+\setkern{F}{u}{-110}
+
+\setkern{V}{a}{-140}
+\setkern{V}{e}{-110}
+\setkern{V}{o}{-140}
+\setkern{V}{u}{-110}
+
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% The following glyphs should be constructed in |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{backslash}
+
+% \end{macrocode}
+% Now I try to fake or improve the letters for the latin T1 version of ygoth.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{600}
+\endsetglyph
+
+\setglyph{Lacute}
+ \topaccent{L}{acute}{700}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-30}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \moveup{-200}
+ \glyph{lslashslash}{1800}
+ \moveup{200}
+ \movert{-640}
+ \glyph{L}{1000}
+ \samesize{L}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{\Uskew}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{\Uskew}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{390}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lcaron}
+ \glyph{l}{1000}
+ \movert{-50}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-220}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\setglyph{AE}
+ \glyph{A}{1000}
+ \movert{-190}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{-80}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{380}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\setglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{190}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{\Uskew}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{\Uskew}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{\Uskew}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{\Uskew}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\setglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-40}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{620}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{70}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\setglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Letterspacing}
+%
+% ygoth runs too narrow. I improve that here.
+% \begin{macrocode}
+\setint{letterspacing}{50}
+
+% \end{macrocode}
+% On the other hand, the German combination ``sch'' looks like ``s\,ch''.
+% Therefore I set this kerning here. FixMe: This induces wrong implicit
+% kerning of diacritic letters in |blackletter.mtx|.
+% \begin{macrocode}
+\setkern{s}{c}{-80}
+
+\endmetrics
+%</gcleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Letterspacing}
+%
+% The following definitions form the file |lettersp.mtx| and define some
+% thing for a letterspeced Fraktur version, used eventually as the italic
+% counterpart.
+% \begin{macrocode}
+%<*letterspmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{The ``sch'' case}
+%
+% First, I re-do the spacing for the ``sch'' combination. This is unusual,
+% but I find it more readable this way.
+%
+% This is now turned off.
+% \begin{macrocode}
+\iffalse
+\setkern{s}{c}{-150}
+\fi
+
+% \end{macrocode}
+% The following definitions turn off all kerning commands. This prevents
+% |blackletter.mtx| from copying the above kerning information to other
+% \mbox{``s--c''} combinations with diacritic marks.
+% \begin{macrocode}
+\gdef\setleftrightkerning#1#2#3{}
+\gdef\setleftkerning#1#2#3{}
+\gdef\setrightkerning#1#2#3{}
+
+% \end{macrocode}
+% Now I finally set the letterspacing.
+% \begin{macrocode}
+\setint{letterspacing}{150}
+
+\resetint{interword}{350}
+
+% \end{macrocode}
+%
+% \subsection{Breaking up of some ligatures}
+%
+% In the rest of the file I re-define some ligatures, namely all ligatures
+% that have to be blackletter up in letterspacing. Actually the ``st'' ligature
+% should be blackletter up, too, according to Duden and other sources. Curiously
+% enough, I've found no real life book that did it that way, everybody keeps
+% it together. So I do that, too. After all, it's a very nice ligature.
+% \begin{macrocode}
+\resetglyph{dotlessj}
+ \glyph{s}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\resetglyph{ff}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{f}{1000}
+\endsetglyph
+
+\resetglyph{fi}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\resetglyph{fl}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{l}{1000}
+\endsetglyph
+
+\resetglyph{backslash}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{t}{1000}
+\endsetglyph
+
+\resetglyph{asciicircum}
+ \glyph{s}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{s}{1000}
+\endsetglyph
+
+\endmetrics
+%</letterspmtx>
+% \end{macrocode}
+% The following file |blackletter.mtx| is a slimmed and modified version of
+% \texttt{fontinst}'s |latin.mtx|. It makes last settings and tries to fake
+% glyphs that are still missing.
+% \begin{macrocode}
+%<*blacklettermtx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The blackletter typefaces glyphs}
+\author{Torsten Bronger}
+\date{7.~May 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the glyphs used by the {\tt fontinst} package when
+generating blackletter typefaces fonts, especially those by Yannis Haralambous.
+It's a modified version of {\tt fontinst}'s \verb|latin.mtx|.
+
+\metrics
+
+\needsfontinstversion{1.801}
+
+% \end{macrocode}
+%
+% \subsection{Basic helper commands}
+%
+% |\unfakable| is a glyph which can't be faked.
+% \begin{macrocode}
+\setcommand\unfakable#1{
+ \setglyph{#1}
+ \ifisglyph{#1-not}\then
+ \moveup{\neg{\depth{#1-not}}}
+ \glyphrule{
+ \width{#1-not}
+ }{
+ \add{\depth{#1-not}}{\height{#1-not}}
+ }
+ \resetitalic{\italic{#1-not}}
+ \moveup{\depth{#1-not}}
+ \else
+ \glyphrule{500}{500}
+ \fi
+ \glyphwarning{missing glyph `#1'}
+ \endsetglyph
+}
+
+% \end{macrocode}
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+%
+% \subsection{Default font values}
+%
+% \begin{macrocode}
+\comment{\section{Default values}}
+
+\setint{italicslant}{0}
+\setint{xheight}{\height{x}}
+\setint{capheight}{\height{A}}
+\setint{ascender}{\height{k}}
+\setint{descender}{\depth{g}}
+\setint{underlinethickness}{40}
+\setint{visiblespacedepth}{200}
+\setint{visiblespacewidth}{400}
+\setint{visiblespacesurround}{50}
+\setint{smallcapsscale}{800}
+\setint{smallcapskerning}{900}
+
+\setint{capspacing}{50}
+\setint{smallcapsextraspace}{0}
+
+\setint{boundarychar}{32}
+
+
+% \end{macrocode}
+%
+% \subsection{Kerning adjustments}
+%
+% \begin{macrocode}
+\comment{\section{Kerning}}
+
+% \end{macrocode}
+% The command |\typicalkerns| adds extra space before some punctuation. This
+% is common in typesetting with blackletter typefaces.
+% \begin{macrocode}
+\setcommand\typicalkerns#1{
+ \setkern{#1}{exclam}{100}
+ \setkern{#1}{question}{100}
+ \setkern{#1}{colon}{50}
+ \setkern{#1}{semicolon}{50}
+}
+
+% \end{macrocode}
+% Now we call |\typicalkerns| for all letter-like characters.
+% \begin{macrocode}
+\typicalkerns{dotlessj}
+\typicalkerns{ff}
+\typicalkerns{fi}
+\typicalkerns{fl}
+\typicalkerns{ffi}
+\typicalkerns{ffl}
+
+\typicalkerns{zero}
+\typicalkerns{one}
+\typicalkerns{two}
+\typicalkerns{three}
+\typicalkerns{four}
+\typicalkerns{five}
+\typicalkerns{six}
+\typicalkerns{seven}
+\typicalkerns{eight}
+\typicalkerns{nine}
+
+\typicalkerns{A} \typicalkerns{B}
+\typicalkerns{C} \typicalkerns{D} \typicalkerns{E} \typicalkerns{F}
+\typicalkerns{G} \typicalkerns{H} \typicalkerns{I} \typicalkerns{J}
+\typicalkerns{K} \typicalkerns{L} \typicalkerns{M} \typicalkerns{N}
+\typicalkerns{O} \typicalkerns{P} \typicalkerns{Q} \typicalkerns{R}
+\typicalkerns{S} \typicalkerns{T} \typicalkerns{U} \typicalkerns{V}
+\typicalkerns{W} \typicalkerns{X} \typicalkerns{Y} \typicalkerns{Z}
+
+\typicalkerns{a} \typicalkerns{b}
+\typicalkerns{c} \typicalkerns{d} \typicalkerns{e} \typicalkerns{f}
+\typicalkerns{g} \typicalkerns{h} \typicalkerns{i} \typicalkerns{j}
+\typicalkerns{k} \typicalkerns{l} \typicalkerns{m} \typicalkerns{n}
+\typicalkerns{o} \typicalkerns{p} \typicalkerns{q} \typicalkerns{r}
+\typicalkerns{s} \typicalkerns{t} \typicalkerns{u} \typicalkerns{v}
+\typicalkerns{w} \typicalkerns{x} \typicalkerns{y} \typicalkerns{z}
+
+\typicalkerns{backslash}
+\typicalkerns{asciicircum}
+\typicalkerns{underscore}
+\typicalkerns{bar}
+
+\typicalkerns{quoteleft}
+\typicalkerns{quoteright}
+\typicalkerns{quotedblleft}
+\typicalkerns{quotedblright}
+
+\typicalkerns{Abreve}
+\typicalkerns{Aogonek} \typicalkerns{Cacute} \typicalkerns{Ccaron}
+\typicalkerns{Dcaron} \typicalkerns{Ecaron} \typicalkerns{Eogonek}
+\typicalkerns{Gbreve} \typicalkerns{Lacute} \typicalkerns{Lcaron}
+\typicalkerns{Lslash} \typicalkerns{Nacute} \typicalkerns{Ncaron}
+\typicalkerns{Ng} \typicalkerns{Ohungarumlaut} \typicalkerns{Racute}
+\typicalkerns{Rcaron} \typicalkerns{Sacute} \typicalkerns{Scaron}
+\typicalkerns{Scedilla} \typicalkerns{Tcaron} \typicalkerns{Tcedilla}
+\typicalkerns{Uhungarumlaut} \typicalkerns{Uring} \typicalkerns{Ydieresis}
+\typicalkerns{Zacute} \typicalkerns{Zcaron} \typicalkerns{Zdotaccent}
+\typicalkerns{IJ} \typicalkerns{Idotaccent} \typicalkerns{dbar}
+
+\typicalkerns{section}
+
+\typicalkerns{abreve} \typicalkerns{aogonek}
+\typicalkerns{cacute} \typicalkerns{ccaron} \typicalkerns{dcaron}
+\typicalkerns{ecaron} \typicalkerns{eogonek} \typicalkerns{gbreve}
+\typicalkerns{lacute} \typicalkerns{lcaron} \typicalkerns{lslash}
+\typicalkerns{nacute} \typicalkerns{ncaron} \typicalkerns{ng}
+\typicalkerns{ohungarumlaut} \typicalkerns{racute} \typicalkerns{rcaron}
+\typicalkerns{sacute} \typicalkerns{scaron} \typicalkerns{scedilla}
+\typicalkerns{tcaron} \typicalkerns{tcedilla} \typicalkerns{uhungarumlaut}
+\typicalkerns{uring} \typicalkerns{ydieresis} \typicalkerns{zacute}
+\typicalkerns{zcaron} \typicalkerns{zdotaccent} \typicalkerns{ij}
+
+%\typicalkerns{exclamdown}
+%\typicalkerns{questiondown}
+\typicalkerns{sterling}
+
+\typicalkerns{Agrave}
+\typicalkerns{Aacute} \typicalkerns{Acircumflex} \typicalkerns{Atilde}
+\typicalkerns{Adieresis} \typicalkerns{Aring} \typicalkerns{AE}
+\typicalkerns{Ccedilla} \typicalkerns{Egrave} \typicalkerns{Eacute}
+\typicalkerns{Ecircumflex} \typicalkerns{Edieresis} \typicalkerns{Igrave}
+\typicalkerns{Iacute} \typicalkerns{Icircumflex} \typicalkerns{Idieresis}
+\typicalkerns{Eth} \typicalkerns{Ntilde} \typicalkerns{Ograve}
+\typicalkerns{Oacute} \typicalkerns{Ocircumflex} \typicalkerns{Otilde}
+\typicalkerns{Odieresis} \typicalkerns{OE} \typicalkerns{Oslash}
+\typicalkerns{Ugrave} \typicalkerns{Uacute} \typicalkerns{Ucircumflex}
+\typicalkerns{Udieresis} \typicalkerns{Yacute} \typicalkerns{Thorn}
+\typicalkerns{SS} \typicalkerns{agrave} \typicalkerns{aacute}
+\typicalkerns{acircumflex} \typicalkerns{atilde} \typicalkerns{adieresis}
+\typicalkerns{aring} \typicalkerns{ae} \typicalkerns{ccedilla}
+\typicalkerns{egrave} \typicalkerns{eacute} \typicalkerns{ecircumflex}
+\typicalkerns{edieresis} \typicalkerns{igrave} \typicalkerns{iacute}
+\typicalkerns{icircumflex} \typicalkerns{idieresis} \typicalkerns{eth}
+\typicalkerns{ntilde} \typicalkerns{ograve} \typicalkerns{oacute}
+\typicalkerns{ocircumflex} \typicalkerns{otilde} \typicalkerns{odieresis}
+\typicalkerns{oe} \typicalkerns{oslash} \typicalkerns{ugrave}
+\typicalkerns{uacute} \typicalkerns{ucircumflex} \typicalkerns{udieresis}
+\typicalkerns{yacute} \typicalkerns{thorn} \typicalkerns{germandbls}
+
+% \end{macrocode}
+% Here we set the kernings of the new ligature characters.
+% \begin{macrocode}
+\setleftkerning{dotlessj}{s}{1000}
+\setrightkerning{dotlessj}{i}{1000}
+
+\setleftkerning{backslash}{f}{1000}
+\setrightkerning{backslash}{t}{1000}
+
+\setleftkerning{asciicircum}{s}{1000}
+\setrightkerning{asciicircum}{s}{1000}
+
+\setleftkerning{underscore}{s}{1000}
+\setrightkerning{unserscore}{t}{1000}
+
+\setleftkerning{bar}{t}{1000}
+\setrightkerning{bar}{z}{1000}
+
+
+% \end{macrocode}
+% The following adjustments are again taken from |latin.mtx|.
+% \begin{macrocode}
+\setleftrightkerning{visiblespace}{space}{1000}
+
+\setleftkerning{hyphenchar}{hyphen}{1000}
+
+\setleftrightkerning{Aacute}{A}{1000}
+\setleftrightkerning{Abreve}{A}{1000}
+\setleftrightkerning{Acircumflex}{A}{1000}
+\setleftrightkerning{Adieresis}{A}{1000}
+\setleftrightkerning{Agrave}{A}{1000}
+\setleftrightkerning{Aogonek}{A}{1000}
+\setleftrightkerning{Aring}{A}{1000}
+\setleftrightkerning{Atilde}{A}{1000}
+
+\setleftrightkerning{Cacute}{C}{1000}
+\setleftrightkerning{Ccaron}{C}{1000}
+\setleftrightkerning{Ccedilla}{C}{1000}
+
+\setleftrightkerning{Dcaron}{D}{1000}
+
+\setleftrightkerning{Eacute}{E}{1000}
+\setleftrightkerning{Ecaron}{E}{1000}
+\setleftrightkerning{Ecircumflex}{E}{1000}
+\setleftrightkerning{Edieresis}{E}{1000}
+\setleftrightkerning{Egrave}{E}{1000}
+\setleftrightkerning{Eogonek}{E}{1000}
+
+\setleftrightkerning{Gbreve}{G}{1000}
+
+\setleftkerning{IJ}{I}{1000}
+
+\setleftrightkerning{Iacute}{I}{1000}
+\setleftrightkerning{Icircumflex}{I}{1000}
+\setleftrightkerning{Idieresis}{I}{1000}
+\setleftrightkerning{Idotaccent}{I}{1000}
+\setleftrightkerning{Igrave}{I}{1000}
+
+\setrightkerning{IJ}{J}{1000}
+
+\setleftrightkerning{Lacute}{L}{1000}
+\setleftrightkerning{Lslash}{L}{1000}
+\setleftkerning{Lcaron}{L}{1000}
+
+\setleftrightkerning{Nacute}{N}{1000}
+\setleftrightkerning{Ncaron}{N}{1000}
+\setleftrightkerning{Ntilde}{N}{1000}
+
+\setleftrightkerning{Oacute}{O}{1000}
+\setleftrightkerning{Ocircumflex}{O}{1000}
+\setleftrightkerning{Odieresis}{O}{1000}
+\setleftrightkerning{Ograve}{O}{1000}
+\setleftrightkerning{Ohungarumlaut}{O}{1000}
+\setleftrightkerning{Oslash}{O}{1000}
+\setleftrightkerning{Otilde}{O}{1000}
+
+\setleftrightkerning{Rcaron}{R}{1000}
+\setleftrightkerning{Racute}{R}{1000}
+
+\setleftrightkerning{SS}{S}{1000}
+\setleftrightkerning{Sacute}{S}{1000}
+\setleftrightkerning{Scaron}{S}{1000}
+\setleftrightkerning{Scedilla}{S}{1000}
+
+\setleftrightkerning{Tcaron}{T}{1000}
+\setleftrightkerning{Tcedilla}{T}{1000}
+
+\setleftrightkerning{Uacute}{U}{1000}
+\setleftrightkerning{Ucircumflex}{U}{1000}
+\setleftrightkerning{Udieresis}{U}{1000}
+\setleftrightkerning{Ugrave}{U}{1000}
+\setleftrightkerning{Uhungarumlaut}{U}{1000}
+\setleftrightkerning{Uring}{U}{1000}
+
+\setleftrightkerning{Yacute}{Y}{1000}
+\setleftrightkerning{Ydieresis}{Y}{1000}
+
+\setleftrightkerning{Zacute}{Z}{1000}
+\setleftrightkerning{Zcaron}{Z}{1000}
+\setleftrightkerning{Zdotaccent}{Z}{1000}
+
+\setleftrightkerning{aogonek}{a}{1000}
+
+\setleftrightkerning{ccedilla}{c}{1000}
+
+\setleftrightkerning{eogonek}{e}{1000}
+
+% \end{macrocode}
+% The following four lines are of course different from |latin.mtx|, because
+% these positions contain different ligatures here. ``ffi'' is ``ch'', and
+% ``ffl'' is ``ck''.
+% \begin{macrocode}
+\setleftkerning{ffi}{c}{1000}
+\setleftkerning{ffl}{c}{1000}
+\setrightkerning{ffi}{h}{1000}
+\setrightkerning{ffl}{k}{1000}
+
+\setleftrightkerning{ff}{f}{1000}
+\setleftkerning{fi}{f}{1000}
+\setleftkerning{fl}{f}{1000}
+
+\setleftkerning{ij}{i}{1000}
+
+\setrightkerning{fi}{i}{1000}
+
+\setrightkerning{ij}{j}{1000}
+
+\setrightkerning{fl}{l}{1000}
+
+\setleftkerning{oe}{o}{1000}
+\setrightkerning{oe}{e}{1000}
+\setleftrightkerning{oslash}{o}{1000}
+
+\setleftrightkerning{scedilla}{s}{1000}
+
+\setleftrightkerning{tcedilla}{t}{1000}
+
+% \end{macrocode}
+%
+% \subsection{Faking of glyphs}
+%
+% \subsubsection{List of unfakable glyphs}
+%
+% At first, a list of all glyphs that can't be faked. This list is shorter
+% than in |latin.mtx|, because I'm naughty enough to fake more.
+% \begin{macrocode}
+\comment{\section{Unfakable glyphs}}
+
+\unfakable{Gamma}
+\unfakable{Delta}
+\unfakable{Theta}
+\unfakable{Lambda}
+\unfakable{Xi}
+\unfakable{Pi}
+\unfakable{Sigma}
+\unfakable{Upsilon}
+\unfakable{Upsilon1}
+\unfakable{Phi}
+\unfakable{Psi}
+\unfakable{Omega}
+
+\unfakable{grave}
+\unfakable{acute}
+\unfakable{circumflex}
+\unfakable{tilde}
+\unfakable{dieresis}
+\unfakable{hungarumlaut}
+\unfakable{ring}
+\unfakable{caron}
+\unfakable{breve}
+\unfakable{macron}
+\unfakable{dotaccent}
+\unfakable{cedilla}
+\unfakable{ogonek}
+\unfakable{guilsinglleft}
+\unfakable{guilsinglright}
+\unfakable{quotedblleft}
+\unfakable{quotedblright}
+\unfakable{quotedblbase}
+\unfakable{guillemotleft}
+\unfakable{guillemotright}
+\unfakable{endash}
+\unfakable{emdash}
+\unfakable{dotlessi}
+\unfakable{perthousandzero}
+\unfakable{exclam}
+\unfakable{quotedbl}
+\unfakable{numbersign}
+\unfakable{dollar}
+\unfakable{percent}
+\unfakable{ampersand}
+\unfakable{quoteright}
+\unfakable{parenleft}
+\unfakable{parenright}
+\unfakable{asterisk}
+\unfakable{plus}
+\unfakable{comma}
+\unfakable{hyphen}
+\unfakable{period}
+\unfakable{slash}
+\unfakable{zero}
+\unfakable{one}
+\unfakable{two}
+\unfakable{three}
+\unfakable{four}
+\unfakable{five}
+\unfakable{six}
+\unfakable{seven}
+\unfakable{eight}
+\unfakable{nine}
+\unfakable{zerooldstyle}
+\unfakable{oneoldstyle}
+\unfakable{twooldstyle}
+\unfakable{threeoldstyle}
+\unfakable{fouroldstyle}
+\unfakable{fiveoldstyle}
+\unfakable{sixoldstyle}
+\unfakable{sevenoldstyle}
+\unfakable{eightoldstyle}
+\unfakable{nineoldstyle}
+\unfakable{colon}
+\unfakable{semicolon}
+\unfakable{less}
+\unfakable{equal}
+\unfakable{greater}
+\unfakable{question}
+\unfakable{at}
+\unfakable{A}
+\unfakable{B}
+\unfakable{C}
+\unfakable{D}
+\unfakable{E}
+\unfakable{F}
+\unfakable{G}
+\unfakable{H}
+\unfakable{I}
+\unfakable{J}
+\unfakable{K}
+\unfakable{L}
+\unfakable{M}
+\unfakable{N}
+\unfakable{O}
+\unfakable{P}
+\unfakable{Q}
+\unfakable{R}
+\unfakable{S}
+\unfakable{T}
+\unfakable{U}
+\unfakable{V}
+\unfakable{W}
+\unfakable{X}
+\unfakable{Y}
+\unfakable{Z}
+\unfakable{bracketleft}
+\unfakable{bracketright}
+\unfakable{quoteleft}
+\unfakable{a}
+\unfakable{b}
+\unfakable{c}
+\unfakable{d}
+\unfakable{e}
+\unfakable{f}
+\unfakable{g}
+\unfakable{h}
+\unfakable{i}
+\unfakable{j}
+\unfakable{k}
+\unfakable{l}
+\unfakable{m}
+\unfakable{n}
+\unfakable{o}
+\unfakable{p}
+\unfakable{q}
+\unfakable{r}
+\unfakable{s}
+\unfakable{t}
+\unfakable{u}
+\unfakable{v}
+\unfakable{w}
+\unfakable{x}
+\unfakable{y}
+\unfakable{z}
+\unfakable{braceleft}
+\unfakable{braceright}
+\unfakable{asciitilde}
+\unfakable{Eng}
+\unfakable{section}
+\unfakable{eng}
+\unfakable{exclamdown}
+\unfakable{questiondown}
+\unfakable{sterling}
+\unfakable{AE}
+\unfakable{Eth}
+\unfakable{OE}
+\unfakable{Oslash}
+\unfakable{Thorn}
+\unfakable{ae}
+\unfakable{eth}
+\unfakable{oe}
+\unfakable{oslash}
+\unfakable{thorn}
+\unfakable{germandbls}
+\unfakable{lslashslash}
+
+% \end{macrocode}
+%
+% \subsubsection{Glyph construction}
+%
+% Most of this here is taken from |latin.mtx|.
+% \begin{macrocode}
+\comment{\section{Glyphs}}
+
+\setglyph{space}
+ \ifisglyph{space-not}\then
+ \movert{\width{space-not}}
+ \else
+ \movert{\width{i}}
+ \fi
+\endsetglyph
+
+\setglyph{compwordmark}
+ \glyphrule{0}{\int{xheight}}
+\endsetglyph
+\setint{compwordmark-spacing}{0}
+
+\setglyph{quotesinglbase}
+ \glyph{comma}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the dotless ``j'', we actually have the ``si'' ligature.
+% \begin{macrocode}
+\setglyph{dotlessj}
+ \glyph{s}{1000}
+ \glyph{i}{1000}
+\endsetglyph
+
+\setglyph{fi}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{i}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\setglyph{ff}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{f}}
+ \glyph{f}{1000}
+\endsetglyph
+
+\setglyph{fl}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{l}}
+ \glyph{l}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ``ffi'' ligature, we actually have the ``ch'' ligature.
+% \begin{macrocode}
+\setglyph{ffi}
+ \glyph{c}{1000}
+ \movert{\kerning{c}{h}}
+ \glyph{h}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ``ffl'' ligature, we actually have the ``ck'' ligature.
+% \begin{macrocode}
+\setglyph{ffl}
+ \glyph{c}{1000}
+ \movert{\kerning{c}{k}}
+ \glyph{k}{1000}
+\endsetglyph
+
+\setglyph{visiblespace}
+ \moveup{\neg{\int{visiblespacedepth}}}
+ \movert{\int{visiblespacesurround}}
+ \glyphrule
+ {\int{underlinethickness}}
+ {\int{visiblespacedepth}}
+ \glyphrule
+ {\int{visiblespacewidth}}
+ {\int{underlinethickness}}
+ \glyphrule
+ {\int{underlinethickness}}
+ {\int{visiblespacedepth}}
+ \movert{\int{visiblespacesurround}}
+ \moveup{\int{visiblespacedepth}}
+\endsetglyph
+
+\setglyph{rangedash}
+ \ifisint{monowidth}\then
+ \glyph{hyphen}{1000}
+ \else
+ \glyph{endash}{1000}
+ \fi
+\endsetglyph
+
+\setglyph{punctdash}
+ \ifisint{monowidth}\then
+ \glyph{hyphen}{1000}
+ \glyph{hyphen}{1000}
+ \else
+ \glyph{emdash}{1000}
+ \fi
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the backslash, we actually have the ``ft'' ligature. This
+% ligature is not available in Haralambous' fonts, but it's a common Fraktur
+% ligature and other font that you may get will probably have it.
+% \begin{macrocode}
+\setglyph{backslash}
+ \glyph{f}{1000}
+ \glyph{t}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ascii circumflex, we actually have the ``ss'' ligature.
+% \begin{macrocode}
+\setglyph{asciicircum}
+ \glyph{s}{1000}
+ \glyph{s}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the underscore, we actually have the ``st'' ligature.
+% \begin{macrocode}
+\setglyph{underscore}
+ \glyph{s}{1000}
+ \glyph{t}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the vertical bar, we actually have the ``tz'' ligature.
+% \begin{macrocode}
+\setglyph{bar}
+ \glyph{t}{1000}
+ \glyph{z}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% The hyphen character has width zero, which is different from |latin.mtx|.
+% \begin{macrocode}
+\setglyph{hyphenchar}
+ \glyph{hyphen}{1000}
+% \resetwidth{0}
+\endsetglyph
+
+\setglyph{ringfitted}
+ \movert{\div{\sub{\width{A}}{\width{ring}}}{2}}
+ \glyph{ring}{1000}
+ \movert{\div{\sub{\width{A}}{\width{ring}}}{2}}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{\kerning{lslashslash}{l}}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{\kerning{lslashslash}{L}}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Abreve}
+ \topaccent{A}{breve}{500}
+\endsetglyph
+
+\setglyph{Aogonek}
+ \botaccent{A}{ogonek}{900}
+\endsetglyph
+
+\setglyph{Cacute}
+ \topaccent{C}{acute}{500}
+\endsetglyph
+
+\setglyph{Ccaron}
+ \topaccent{C}{caron}{500}
+\endsetglyph
+
+\setglyph{Dcaron}
+ \topaccent{D}{caron}{450}
+\endsetglyph
+
+\setglyph{Ecaron}
+ \topaccent{E}{caron}{500}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{850}
+\endsetglyph
+
+\setglyph{Gbreve}
+ \topaccent{G}{breve}{500}
+\endsetglyph
+
+\setglyph{Lacute}
+ \topaccent{L}{acute}{250}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-200}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Nacute}
+ \topaccent{N}{acute}{500}
+\endsetglyph
+
+\setglyph{Ncaron}
+ \topaccent{N}{caron}{500}
+\endsetglyph
+
+\setglyph{Ohungarumlaut}
+ \topaccent{O}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{Racute}
+ \topaccent{R}{acute}{500}
+\endsetglyph
+
+\setglyph{Rcaron}
+ \topaccent{R}{caron}{500}
+\endsetglyph
+
+\setglyph{Sacute}
+ \topaccent{S}{acute}{500}
+\endsetglyph
+
+\setglyph{Scaron}
+ \topaccent{S}{caron}{500}
+\endsetglyph
+
+\setglyph{Scedilla}
+ \botaccent{S}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Tcaron}
+ \topaccent{T}{caron}{500}
+\endsetglyph
+
+\setglyph{Tcedilla}
+ \botaccent{T}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{500}
+\endsetglyph
+
+\setglyph{Ydieresis}
+ \topaccent{Y}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Zacute}
+ \topaccent{Z}{acute}{500}
+\endsetglyph
+
+\setglyph{Zcaron}
+ \topaccent{Z}{caron}{500}
+\endsetglyph
+
+\setglyph{Zdotaccent}
+ \topaccent{Z}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{IJ}
+ \glyph{I}{1000}
+ \movert{\kerning{I}{J}}
+ \glyph{J}{1000}
+\endsetglyph
+
+\setglyph{Idotaccent}
+ \topaccent{I}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{\sub{\width{d}}{\width{macron}}}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{500}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{abreve}
+ \topaccent{a}{breve}{500}
+\endsetglyph
+
+\setglyph{aogonek}
+ \botaccent{a}{ogonek}{850}
+\endsetglyph
+
+\setglyph{cacute}
+ \topaccent{c}{acute}{500}
+\endsetglyph
+
+\setglyph{ccaron}
+ \topaccent{c}{caron}{500}
+\endsetglyph
+
+\setglyph{dcaron}
+ \glyph{d}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-75}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{ecaron}
+ \topaccent{e}{caron}{500}
+\endsetglyph
+
+\setglyph{eogonek}
+ \botaccent{e}{ogonek}{500}
+\endsetglyph
+
+\setglyph{gbreve}
+ \topaccent{g}{breve}{500}
+\endsetglyph
+
+\setglyph{lacute}
+ \topaccent{l}{acute}{500}
+\endsetglyph
+
+\setglyph{lcaron}
+ \glyph{l}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-100}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{nacute}
+ \topaccent{n}{acute}{500}
+\endsetglyph
+
+\setglyph{ncaron}
+ \topaccent{n}{caron}{500}
+\endsetglyph
+
+\setglyph{ohungarumlaut}
+ \topaccent{o}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{racute}
+ \topaccent{r}{acute}{500}
+\endsetglyph
+
+\setglyph{rcaron}
+ \topaccent{r}{caron}{500}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{s}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{s}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{s}{cedilla}{500}
+\endsetglyph
+
+\setglyph{tcaron}
+ \glyph{t}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-75}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{tcedilla}
+ \botaccent{t}{cedilla}{500}
+\endsetglyph
+
+\setglyph{uhungarumlaut}
+ \topaccent{u}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{uring}
+ \topaccent{u}{ring}{500}
+\endsetglyph
+
+\setglyph{ydieresis}
+ \topaccent{y}{dieresis}{500}
+\endsetglyph
+
+\setglyph{zacute}
+ \topaccent{z}{acute}{500}
+\endsetglyph
+
+\setglyph{zcaron}
+ \topaccent{z}{caron}{500}
+\endsetglyph
+
+\setglyph{zdotaccent}
+ \topaccent{z}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{ij}
+ \glyph{i}{1000}
+ \movert{\kerning{i}{j}}
+ \glyph{j}{1000}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{500}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{500}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{500}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{500}
+\endsetglyph
+
+\setglyph{Ccedilla}
+ \botaccent{C}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Egrave}
+ \topaccent{E}{grave}{500}
+\endsetglyph
+
+\setglyph{Eacute}
+ \topaccent{E}{acute}{500}
+\endsetglyph
+
+\setglyph{Ecircumflex}
+ \topaccent{E}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Edieresis}
+ \topaccent{E}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Iacute}
+ \topaccent{I}{acute}{500}
+\endsetglyph
+
+\setglyph{Igrave}
+ \topaccent{I}{grave}{500}
+\endsetglyph
+
+\setglyph{Icircumflex}
+ \topaccent{I}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Idieresis}
+ \topaccent{I}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Ntilde}
+ \topaccent{N}{tilde}{500}
+\endsetglyph
+
+\setglyph{Ograve}
+ \topaccent{O}{grave}{500}
+\endsetglyph
+
+\setglyph{Oacute}
+ \topaccent{O}{acute}{500}
+\endsetglyph
+
+\setglyph{Ocircumflex}
+ \topaccent{O}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Otilde}
+ \topaccent{O}{tilde}{500}
+\endsetglyph
+
+\setglyph{Odieresis}
+ \topaccent{O}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{500}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{500}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Yacute}
+ \topaccent{Y}{acute}{500}
+\endsetglyph
+
+\setglyph{SS}
+ \glyph{S}{1000}
+ \movert{\kerning{S}{S}}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{agrave}
+ \topaccent{a}{grave}{500}
+\endsetglyph
+
+\setglyph{aacute}
+ \topaccent{a}{acute}{500}
+\endsetglyph
+
+\setglyph{acircumflex}
+ \topaccent{a}{circumflex}{500}
+\endsetglyph
+
+\setglyph{atilde}
+ \topaccent{a}{tilde}{500}
+\endsetglyph
+
+\setglyph{adieresis}
+ \topaccent{a}{dieresis}{500}
+\endsetglyph
+
+\setglyph{aring}
+ \topaccent{a}{ring}{500}
+\endsetglyph
+
+\setglyph{ccedilla}
+ \botaccent{c}{cedilla}{500}
+\endsetglyph
+
+\setglyph{egrave}
+ \topaccent{e}{grave}{500}
+\endsetglyph
+
+\setglyph{eacute}
+ \topaccent{e}{acute}{500}
+\endsetglyph
+
+\setglyph{ecircumflex}
+ \topaccent{e}{circumflex}{500}
+\endsetglyph
+
+\setglyph{edieresis}
+ \topaccent{e}{dieresis}{500}
+\endsetglyph
+
+\setglyph{igrave}
+ \topaccent{dotlessi}{grave}{500}
+\endsetglyph
+
+\setglyph{iacute}
+ \topaccent{dotlessi}{acute}{500}
+\endsetglyph
+
+\setglyph{icircumflex}
+ \topaccent{dotlessi}{circumflex}{500}
+\endsetglyph
+
+\setglyph{idieresis}
+ \topaccent{dotlessi}{dieresis}{500}
+\endsetglyph
+
+\setglyph{ntilde}
+ \topaccent{n}{tilde}{500}
+\endsetglyph
+
+\setglyph{ograve}
+ \topaccent{o}{grave}{500}
+\endsetglyph
+
+\setglyph{oacute}
+ \topaccent{o}{acute}{500}
+\endsetglyph
+
+\setglyph{ocircumflex}
+ \topaccent{o}{circumflex}{500}
+\endsetglyph
+
+\setglyph{otilde}
+ \topaccent{o}{tilde}{500}
+\endsetglyph
+
+\setglyph{odieresis}
+ \topaccent{o}{dieresis}{500}
+\endsetglyph
+
+\setglyph{ugrave}
+ \topaccent{u}{grave}{500}
+\endsetglyph
+
+\setglyph{uacute}
+ \topaccent{u}{acute}{500}
+\endsetglyph
+
+\setglyph{ucircumflex}
+ \topaccent{u}{circumflex}{500}
+\endsetglyph
+
+\setglyph{udieresis}
+ \topaccent{u}{dieresis}{500}
+\endsetglyph
+
+\setglyph{yacute}
+ \topaccent{y}{acute}{500}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Deleting depths from accents}
+%
+% \begin{macrocode}
+\comment{\section{Accents}
+ \TeX's math accent-positioning requires accents to have zero depth.}
+
+\setcommand\zerodepth#1{
+ \ifisglyph{#1}\then
+ \resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetdepth{0}
+ \endresetglyph
+ \fi
+}
+\zerodepth{grave}
+\zerodepth{acute}
+\zerodepth{circumflex}
+\zerodepth{tilde}
+\zerodepth{dieresis}
+\zerodepth{hungarumlaut}
+\zerodepth{ring}
+\zerodepth{caron}
+\zerodepth{breve}
+\zerodepth{macron}
+\zerodepth{dotaccent}
+
+\endmetrics
+\end{document}
+%</blacklettermtx>
+% \end{macrocode}
+%
+%
+% \section{The blackletter typefaces encoding vector, a T1 variant}
+%
+% This file |t1frak.etx| is a simplification and modification of |t1.etx| of
+% the \texttt{fontinst} package. It describes the output encoding vector of
+% the blackletter typefaces.
+%
+% By and large, this is T1. Only some not so frequently used characters have
+% been replaced with additional ligatures and the so called ``round~s''.
+%
+% However, the \emph{names} of the glyphs here are the same as in real T1.
+% I wasn't brave enough to change them, but if it turns out that it's
+% completely undangerous to use other name, I may change them. Both variants
+% may cause confusion.
+%
+% The following substitutions are made from real T1:
+% \begin{itemize}
+% \item ``\j''~$\to$ ``si'' ligature
+% \item ``ffi'' ligature~$\to$ ``ch'' ligature
+% \item ``ffl''~$\to$ ``ck'' ligature
+% \item ``$\backslash$''~$\to$ ``ft'' ligature
+% \item ``$\hat{\ }$''~$\to$ ``ss'' ligature
+% \item ``\underline{ }''~$\to$ ``st'' ligature
+% \item ``$\vert$''~$\to$ ``tz'' ligature
+% \item ``Eng''~$\to$ ``S''
+% \item ``eng''~$\to$ ``round~s''
+% \end{itemize}
+% \begin{macrocode}
+%<*t1fraketx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage[TS1,T1]{fontenc}
+\usepackage{textcomp}
+\usepackage{fontdoc}
+
+\title{The Fraktur encoding vector, a T1 variant}
+\author{Torsten Bronger}
+\date{29 May 2002 \\
+Version 1.0}
+
+\begin{document}
+
+\maketitle
+
+\section{Introduction}
+
+This document describes a modified Cork (T1) text encoding, modified
+for the so called old German fonts.
+
+\newcommand*{\actually}[1]{ \emph{\bfseries Actually, here
+ in the Fraktur encoding, the #1}.}
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+% \end{macrocode}
+%
+% \subsection{Default settings}
+%
+% \begin{macrocode}
+\comment{\section{Default values}}
+
+\setstr{codingscheme}{EXTENDED TEX FONT ENCODING - LATIN}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lctop#1#2{#2}
+\setcommand\uctop#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+% added by Thierry Bouche <Thierry.Bouche@ujf-grenoble.fr>
+% 1997/02/07 to calculate values for extra EC fontdimens
+% Amended by SPQR 1997/02/09
+\ifisglyph{X}\then
+ \setint{capheight}{\height{X}}
+\else
+ \setint{capheight}{750}
+\fi
+
+\ifisglyph{k}\then
+ \setint{ascender}{\height{k}}
+\else
+ \ifisint{capheight}\then
+ \setint{ascender}{\int{capheight}}
+ \else
+ \setint{ascender}{750}
+\fi\fi
+
+\ifisglyph{Aring}\then
+ \setint{acccapheight}{\height{Aring}}
+\else
+ \setint{acccapheight}{999}
+\fi
+
+\ifisint{descender_neg}\then
+ \setint{descender}{\neg{\int{descender_neg}}}
+ \else
+ \ifisglyph{p}\then
+ \setint{descender}{\depth{p}}
+ \else
+ \setint{descender}{250}
+ \fi
+\fi
+
+\ifisglyph{Aring}\then
+ \setint{maxheight}{\height{Aring}}
+\else
+ \setint{maxheight}{1000}
+\fi
+
+\ifisint{maxdepth_neg}\then
+ \setint{maxdepth}{\neg{\int{maxdepth_neg}}}
+\else
+ \ifisglyph{j}\then
+ \setint{maxdepth}{\depth{j}}
+ \else
+ \setint{maxdepth}{250}
+ \fi
+\fi
+
+\ifisglyph{six}\then
+ \setint{digitwidth}{\width{six}}
+\else
+ \setint{digitwidth}{500}
+\fi
+
+\setint{capstem}{0} % not in AFM files
+\setint{baselineskip}{1200}
+% end changes by Thierry
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+% \end{macrocode}
+% The following was changed from 240 to 150.
+% \begin{macrocode}
+ \setint{fontdimen(4)}{\scale{\int{interword}}{150}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+% \end{macrocode}
+% The following was changed from 240 to 150.
+% \begin{macrocode}
+ \setint{fontdimen(7)}{\scale{\int{interword}}{150}}% extra space after .
+\fi
+% added by Thierry Bouche <Thierry.Bouche@ujf-grenoble.fr> 1997/02/07
+\setint{fontdimen(8)}{\int{capheight}} % cap height
+\setint{fontdimen(9)}{\int{ascender}} % ascender
+\setint{fontdimen(10)}{\int{acccapheight}} % accented cap height
+\setint{fontdimen(11)}{\int{descender}} % descender's depth
+\setint{fontdimen(12)}{\int{maxheight}} % max height
+\setint{fontdimen(13)}{\int{maxdepth}} % max depth
+\setint{fontdimen(14)}{\int{digitwidth}} % digit width
+\setint{fontdimen(15)}{\int{capstem}} % cap_stem
+\setint{fontdimen(16)}{\int{baselineskip}} % baselineskip
+
+% \end{macrocode}
+%
+% \subsection{The encoding vector}
+%
+% \begin{macrocode}
+\comment{\section{The encoding}
+ There are 256 glyphs in this encoding.}
+
+\setslot{\lc{Grave}{grave}}
+ \comment{The grave accent `\`{}'.}
+\endsetslot
+
+\setslot{\lc{Acute}{acute}}
+ \comment{The acute accent `\'{}'.}
+\endsetslot
+
+\setslot{\lc{Circumflex}{circumflex}}
+ \comment{The circumflex accent `\^{}'.}
+\endsetslot
+
+\setslot{\lc{Tilde}{tilde}}
+ \comment{The tilde accent `\~{}'.}
+\endsetslot
+
+\setslot{\lc{Dieresis}{dieresis}}
+ \comment{The umlaut or dieresis accent `\"{}'.}
+\endsetslot
+
+\setslot{\lc{Hungarumlaut}{hungarumlaut}}
+ \comment{The long Hungarian umlaut `\H{}'.}
+\endsetslot
+
+\setslot{\lc{Ring}{ring}}
+ \comment{The ring accent `\r{}'.}
+\endsetslot
+
+\setslot{\lc{Caron}{caron}}
+ \comment{The caron or h\'a\v cek accent `\v{}'.}
+\endsetslot
+
+\setslot{\lc{Breve}{breve}}
+ \comment{The breve accent `\u{}'.}
+\endsetslot
+
+\setslot{\lc{Macron}{macron}}
+ \comment{The macron accent `\={}'.}
+\endsetslot
+
+\setslot{\lc{Dotaccent}{dotaccent}}
+ \comment{The dot accent `\.{}'.}
+\endsetslot
+
+\setslot{\lc{Cedilla}{cedilla}}
+ \comment{The cedilla accent `\c {}'.}
+\endsetslot
+
+\setslot{\lc{Ogonek}{ogonek}}
+ \comment{The ogonek accent `\k {}'.}
+\endsetslot
+
+\setslot{quotesinglbase}
+ \comment{A German single quote mark `\quotesinglbase' similar to a comma,
+ but with different sidebearings.}
+\endsetslot
+
+\setslot{guilsinglleft}
+ \comment{A French single opening quote mark `\guilsinglleft',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{guilsinglright}
+ \comment{A French single closing quote mark `\guilsinglright',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{quotedblright}
+ \comment{The English closing quote mark `\,\textquotedblright\,'.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `\quotedblbase' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{guillemotleft}
+ \comment{A French double opening quote mark `\guillemotleft',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{guillemotright}
+ \comment{A French closing opening quote mark `\guillemotright',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{compwordmark}
+ \comment{An invisible glyph, with zero width and depth, but the
+ height of lowercase letters without ascenders.
+ It is used to stop ligaturing in words like `shelf{}ful'.}
+\endsetslot
+
+\setslot{perthousandzero}
+ \comment{A glyph which is placed after `\%' to produce a
+ `per-thousand', or twice to produce `per-ten-thousand'.
+ Your guess is as good as mine as to what this glyph should look
+ like in a monowidth font.}
+\endsetslot
+
+\setslot{\lc{dotlessI}{dotlessi}}
+ \comment{A dotless i `\i', used to produce accented letters such as
+ `\=\i'.}
+\endsetslot
+
+\setslot{\lc{dotlessJ}{dotlessj}}
+ \comment{A dotless j `\j', used to produce accented letters such as
+ `\=\j'. Most non-\TeX\ fonts do not have this glyph. \actually{`ssi'
+ ligature}}
+\endsetslot
+
+\setslot{\lclig{FF}{ff}}
+ \comment{The `ff' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FI}{fi}}
+ \comment{The `fi' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FL}{fl}}
+ \comment{The `fl' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FFI}{ffi}}
+ \comment{The `ffi' ligature. It should be three characters wide in a
+ monowidth font. \actually{`ch' ligature}}
+\endsetslot
+
+\setslot{\lclig{FFL}{ffl}}
+ \comment{The `ffl' ligature. It should be three characters wide in a
+ monowidth font. \actually{`ck' ligature}}
+\endsetslot
+
+\setslot{visiblespace}
+ \comment{A visible space glyph `\textvisiblespace'.}
+\endsetslot
+
+\setslot{exclam}
+ \ligature{LIG}{quoteleft}{exclamdown}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedbl}
+ \comment{The `neutral' double quotation mark `\,\textquotedbl\,',
+ included for use in monowidth fonts, or for setting computer
+ programs. Note that the inclusion of this glyph in this slot
+ means that \TeX\ documents which used `{\tt\char`\"}' as an
+ input character will no longer work.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\setslot{dollar}
+ \comment{The dollar sign `\$'.}
+\endsetslot
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\setslot{ampersand}
+ \comment{The ampersand sign `\&'.}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing single quote mark `\,\textquoteright\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \ligature{LIG}{comma}{quotedblbase}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \ligature{LIG}{hyphenchar}{hyphenchar}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The period `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{less}
+ \ligature{LIG}{less}{guillemotleft}
+ \comment{The less-than sign `\textless'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\setslot{greater}
+ \ligature{LIG}{greater}{guillemotright}
+ \comment{The greater-than sign `\textgreater'.}
+\endsetslot
+
+\setslot{question}
+ \ligature{LIG}{quoteleft}{questiondown}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\setslot{at}
+ \comment{The at sign `@'.}
+\endsetslot
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'. But actually just an `I'\@.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{backslash}
+ \comment{The backwards oblique `\textbackslash'. \actually{`sf' ligature}}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{asciicircum}
+ \ligature{LIG}{visiblespace}{germandbls}
+ \comment{The ASCII upward-pointing arrow head `\textasciicircum'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`ss' ligature}}
+\endsetslot
+
+\setslot{underscore}
+ \comment{The ASCII underline character `\textunderscore', usually
+ set on the baseline.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`st' ligature}}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quote mark `\,\textquoteleft\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \ligature{LIG}{h}{ffi}
+ \ligature{LIG}{k}{ffl}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \ligature{LIG}{\lc{T}{t}}{\lclig{backslash}{backslash}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+% \end{macrocode}
+% The following ligature is with the boundary character and performs the
+% transformation of the long~s to the round~s.
+% \begin{macrocode}
+ \ligature{LIG}{visiblespace}{ng}
+ \ligature{LIG}{t}{underscore}
+ \ligature{LIG}{s}{asciicircum}
+ \ligature{LIG}{f}{backslash}
+ \ligature{LIG}{i}{dotlessj}
+% \end{macrocode}
+% The following ligatures make the long~s to become a round~s if one of these
+% characters immediately follows. This prevents the user to insert |\/| and
+% similar things at ubiquitous places.
+% \begin{macrocode}
+ \ligature{LIG/}{quoteright}{ng}
+ \ligature{LIG/}{guilsinglleft}{ng}
+ \ligature{LIG/}{guilsinglright}{ng}
+ \ligature{LIG/}{quotedblleft}{ng}
+ \ligature{LIG/}{quotedblright}{ng}
+ \ligature{LIG/}{guillemotleft}{ng}
+ \ligature{LIG/}{guillemotright}{ng}
+ \ligature{LIG/}{period}{ng}
+ \ligature{LIG/}{comma}{ng}
+ \ligature{LIG/}{colon}{ng}
+ \ligature{LIG/}{semicolon}{ng}
+ \ligature{LIG/}{exclam}{ng}
+ \ligature{LIG/}{question}{ng}
+ \ligature{LIG/}{slash}{ng}
+ \ligature{LIG/}{hyphen}{ng}
+ \ligature{LIG/}{parenleft}{ng}
+ \ligature{LIG/}{parenright}{ng}
+ \comment{The letter `{s}'. \actually{letter long `s'}}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \ligature{LIG}{z}{bar}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{braceleft}
+ \comment{The opening curly brace `\textbraceleft'.}
+\endsetslot
+
+\setslot{bar}
+ \comment{The ASCII vertical bar `\textbar'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`tz' ligature}}
+\endsetslot
+
+\setslot{braceright}
+ \comment{The closing curly brace `\textbraceright'.}
+\endsetslot
+
+\setslot{asciitilde}
+ \comment{The ASCII tilde `\textasciitilde'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings.}
+\endsetslot
+
+\setslot{hyphenchar}
+ \comment{The glyph used for hyphenation in this font, which will
+ almost always be the same as `hyphen'.}
+\endsetslot
+
+
+\setslot{\uctop{Abreve}{abreve}}
+ \comment{The letter `\u A'.}
+\endsetslot
+
+\setslot{\uc{Aogonek}{aogonek}}
+ \comment{The letter `\k A'.}
+\endsetslot
+
+\setslot{\uctop{Cacute}{cacute}}
+ \comment{The letter `\' C'.}
+\endsetslot
+
+\setslot{\uctop{Ccaron}{ccaron}}
+ \comment{The letter `\v C'.}
+\endsetslot
+
+\setslot{\uctop{Dcaron}{dcaron}}
+ \comment{The letter `\v D'.}
+\endsetslot
+
+\setslot{\uctop{Ecaron}{ecaron}}
+ \comment{The letter `\v E'.}
+\endsetslot
+
+\setslot{\uc{Eogonek}{eogonek}}
+ \comment{The letter `\k E'.}
+\endsetslot
+
+\setslot{\uctop{Gbreve}{gbreve}}
+ \comment{The letter `\u G'.}
+\endsetslot
+
+\setslot{\uctop{Lacute}{lacute}}
+ \comment{The letter `\' L'.}
+\endsetslot
+
+\setslot{\uc{Lcaron}{lcaron}}
+ \comment{The letter `\v L'.}
+\endsetslot
+
+\setslot{\uc{Lslash}{lslash}}
+ \comment{The letter `\L'.}
+\endsetslot
+
+\setslot{\uctop{Nacute}{nacute}}
+ \comment{The letter `\' N'.}
+\endsetslot
+
+\setslot{\uctop{Ncaron}{ncaron}}
+ \comment{The letter `\v N'.}
+\endsetslot
+
+\setslot{\uc{Ng}{ng}}
+ \comment{The Sami letter `\NG'. It is unavailable in \plain\ \TeX.
+ \actually{letter `S'}}
+\endsetslot
+
+\setslot{\uctop{Ohungarumlaut}{ohungarumlaut}}
+ \comment{The letter `\H O'.}
+\endsetslot
+
+\setslot{\uctop{Racute}{racute}}
+ \comment{The letter `\' R'.}
+\endsetslot
+
+\setslot{\uctop{Rcaron}{rcaron}}
+ \comment{The letter `\v R'.}
+\endsetslot
+
+\setslot{\uctop{Sacute}{sacute}}
+ \comment{The letter `\' S'.}
+\endsetslot
+
+\setslot{\uctop{Scaron}{scaron}}
+ \comment{The letter `\v S'.}
+\endsetslot
+
+\setslot{\uc{Scedilla}{scedilla}}
+ \comment{The letter `\c S'.}
+\endsetslot
+
+\setslot{\uctop{Tcaron}{tcaron}}
+ \comment{The letter `\v T'.}
+\endsetslot
+
+\setslot{\uc{Tcedilla}{tcedilla}}
+ \comment{The letter `\c T'.}
+\endsetslot
+
+\setslot{\uctop{Uhungarumlaut}{uhungarumlaut}}
+ \comment{The letter `\H U'.}
+\endsetslot
+
+\setslot{\uctop{Uring}{uring}}
+ \comment{The letter `\r U'.}
+\endsetslot
+
+\setslot{\uctop{Ydieresis}{ydieresis}}
+ \comment{The letter `\" Y'.}
+\endsetslot
+
+\setslot{\uctop{Zacute}{zacute}}
+ \comment{The letter `\' Z'.}
+\endsetslot
+
+\setslot{\uctop{Zcaron}{zcaron}}
+ \comment{The letter `\v Z'.}
+\endsetslot
+
+\setslot{\uctop{Zdotaccent}{zdotaccent}}
+ \comment{The letter `\. Z'.}
+\endsetslot
+
+\setslot{\uclig{IJ}{ij}}
+ \comment{The letter `IJ'. This is a single letter, and in a monowidth
+ font should ideally be one letter wide.}
+\endsetslot
+
+\setslot{\uctop{Idotaccent}{idotaccent}}
+ \comment{The letter `\. I'.}
+\endsetslot
+
+\setslot{\lc{Dbar}{dbar}}
+ \comment{The letter `\dj'.}
+\endsetslot
+
+\setslot{section}
+ \comment{The section mark `\textsection'.}
+\endsetslot
+
+\setslot{\lctop{Abreve}{abreve}}
+ \comment{The letter `\u a'.}
+\endsetslot
+
+\setslot{\lc{Aogonek}{aogonek}}
+ \comment{The letter `\k a'.}
+\endsetslot
+
+\setslot{\lctop{Cacute}{cacute}}
+ \comment{The letter `\' c'.}
+\endsetslot
+
+\setslot{\lctop{Ccaron}{ccaron}}
+ \comment{The letter `\v c'.}
+\endsetslot
+
+\setslot{\lctop{Dcaron}{dcaron}}
+ \comment{The letter `\v d'.}
+\endsetslot
+
+\setslot{\lctop{Ecaron}{ecaron}}
+ \comment{The letter `\v e'.}
+\endsetslot
+
+\setslot{\lc{Eogonek}{eogonek}}
+ \comment{The letter `\k e'.}
+\endsetslot
+
+\setslot{\lctop{Gbreve}{gbreve}}
+ \comment{The letter `\u g'.}
+\endsetslot
+
+\setslot{\lctop{Lacute}{lacute}}
+ \comment{The letter `\' l'.}
+\endsetslot
+
+\setslot{\lc{Lcaron}{lcaron}}
+ \comment{The letter `\v l'.}
+\endsetslot
+
+\setslot{\lc{Lslash}{lslash}}
+ \comment{The letter `\l'.}
+\endsetslot
+
+\setslot{\lctop{Nacute}{nacute}}
+ \comment{The letter `\' n'.}
+\endsetslot
+
+\setslot{\lctop{Ncaron}{ncaron}}
+ \comment{The letter `\v n'.}
+\endsetslot
+
+\setslot{\lc{Ng}{ng}}
+% \ligature{LIG/>}{hyphen}{s}
+% \ligature{LIG/>}{hyphenchar}{s}
+ \comment{The Sami letter `\ng'. It is unavailable in \plain\ \TeX.
+ \actually{letter round `s'}}
+\endsetslot
+
+\setslot{\lctop{Ohungarumlaut}{ohungarumlaut}}
+ \comment{The letter `\H o'.}
+\endsetslot
+
+\setslot{\lctop{Racute}{racute}}
+ \comment{The letter `\' r'.}
+\endsetslot
+
+\setslot{\lctop{Rcaron}{rcaron}}
+ \comment{The letter `\v r'.}
+\endsetslot
+
+\setslot{\lctop{Sacute}{sacute}}
+ \comment{The letter `\' s'.}
+\endsetslot
+
+\setslot{\lctop{Scaron}{scaron}}
+ \comment{The letter `\v s'.}
+\endsetslot
+
+\setslot{\lc{Scedilla}{scedilla}}
+ \comment{The letter `\c s'.}
+\endsetslot
+
+\setslot{\lctop{Tcaron}{tcaron}}
+ \comment{The letter `\v t'.}
+\endsetslot
+
+\setslot{\lc{Tcedilla}{tcedilla}}
+ \comment{The letter `\c t'.}
+\endsetslot
+
+\setslot{\lctop{Uhungarumlaut}{uhungarumlaut}}
+ \comment{The letter `\H u'.}
+\endsetslot
+
+\setslot{\lctop{Uring}{uring}}
+ \comment{The letter `\r u'.}
+\endsetslot
+
+\setslot{\lctop{Ydieresis}{ydieresis}}
+ \comment{The letter `\" y'.}
+\endsetslot
+
+\setslot{\lctop{Zacute}{zacute}}
+ \comment{The letter `\' z'.}
+\endsetslot
+
+\setslot{\lctop{Zcaron}{zcaron}}
+ \comment{The letter `\v z'.}
+\endsetslot
+
+\setslot{\lctop{Zdotaccent}{zdotaccent}}
+ \comment{The letter `\. z'.}
+\endsetslot
+
+\setslot{\lclig{IJ}{ij}}
+ \comment{The letter `ij'. This is a single letter, and in a monowidth
+ font should ideally be one letter wide.}
+\endsetslot
+
+\setslot{exclamdown}
+ \comment{The Spanish punctuation mark `!`'.}
+\endsetslot
+
+\setslot{questiondown}
+ \comment{The Spanish punctuation mark `?`'.}
+\endsetslot
+
+\setslot{sterling}
+ \comment{The British currency mark `\textsterling'.}
+\endsetslot
+
+\setslot{\uctop{Agrave}{agrave}}
+ \comment{The letter `\` A'.}
+\endsetslot
+
+\setslot{\uctop{Aacute}{aacute}}
+ \comment{The letter `\' A'.}
+\endsetslot
+
+\setslot{\uctop{Acircumflex}{acircumflex}}
+ \comment{The letter `\^ A'.}
+\endsetslot
+
+\setslot{\uctop{Atilde}{atilde}}
+ \comment{The letter `\~ A'.}
+\endsetslot
+
+\setslot{\uctop{Adieresis}{adieresis}}
+ \comment{The letter `\" A'.}
+\endsetslot
+
+\setslot{\uctop{Aring}{aring}}
+ \comment{The letter `\r A'.}
+\endsetslot
+
+\setslot{\uc{AE}{ae}}
+ \comment{The letter `\AE'. This is a single letter, and should not be
+ faked with `AE'.}
+\endsetslot
+
+\setslot{\uc{Ccedilla}{ccedilla}}
+ \comment{The letter `\c C'.}
+\endsetslot
+
+\setslot{\uctop{Egrave}{egrave}}
+ \comment{The letter `\` E'.}
+\endsetslot
+
+\setslot{\uctop{Eacute}{eacute}}
+ \comment{The letter `\' E'.}
+\endsetslot
+
+\setslot{\uctop{Ecircumflex}{ecircumflex}}
+ \comment{The letter `\^ E'.}
+\endsetslot
+
+\setslot{\uctop{Edieresis}{edieresis}}
+ \comment{The letter `\" E'.}
+\endsetslot
+
+\setslot{\uctop{Igrave}{igrave}}
+ \comment{The letter `\` I'.}
+\endsetslot
+
+\setslot{\uctop{Iacute}{iacute}}
+ \comment{The letter `\' I'.}
+\endsetslot
+
+\setslot{\uctop{Icircumflex}{icircumflex}}
+ \comment{The letter `\^ I'.}
+\endsetslot
+
+\setslot{\uctop{Idieresis}{idieresis}}
+ \comment{The letter `\" I'.}
+\endsetslot
+
+\setslot{\uc{Eth}{eth}}
+ \comment{The uppercase Icelandic letter `Eth' similar to a `D'
+ with a horizontal bar through the stem. It is unavailable
+ in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\uctop{Ntilde}{ntilde}}
+ \comment{The letter `\~ N'.}
+\endsetslot
+
+\setslot{\uctop{Ograve}{ograve}}
+ \comment{The letter `\` O'.}
+\endsetslot
+
+\setslot{\uctop{Oacute}{oacute}}
+ \comment{The letter `\' O'.}
+\endsetslot
+
+\setslot{\uctop{Ocircumflex}{ocircumflex}}
+ \comment{The letter `\^ O'.}
+\endsetslot
+
+\setslot{\uctop{Otilde}{otilde}}
+ \comment{The letter `\~ O'.}
+\endsetslot
+
+\setslot{\uctop{Odieresis}{odieresis}}
+ \comment{The letter `\" O'.}
+\endsetslot
+
+\setslot{\uc{OE}{oe}}
+ \comment{The letter `\OE'. This is a single letter, and should not be
+ faked with `OE'.}
+\endsetslot
+
+\setslot{\uc{Oslash}{oslash}}
+ \comment{The letter `\O'.}
+\endsetslot
+
+\setslot{\uctop{Ugrave}{ugrave}}
+ \comment{The letter `\` U'.}
+\endsetslot
+
+\setslot{\uctop{Uacute}{uacute}}
+ \comment{The letter `\' U'.}
+\endsetslot
+
+\setslot{\uctop{Ucircumflex}{ucircumflex}}
+ \comment{The letter `\^ U'.}
+\endsetslot
+
+\setslot{\uctop{Udieresis}{udieresis}}
+ \comment{The letter `\" U'.}
+\endsetslot
+
+\setslot{\uctop{Yacute}{yacute}}
+ \comment{The letter `\' Y'.}
+\endsetslot
+
+\setslot{\uc{Thorn}{thorn}}
+ \comment{The Icelandic capital letter Thorn, similar to a `P'
+ with the bowl moved down. It is unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\uclig{SS}{germandbls}}
+ \comment{The ligature `SS', used to give an upper case `\ss'.
+ In a monowidth font it should be two letters wide.}
+\endsetslot
+
+\setslot{\lctop{Agrave}{agrave}}
+ \comment{The letter `\` a'.}
+\endsetslot
+
+\setslot{\lctop{Aacute}{aacute}}
+ \comment{The letter `\' a'.}
+\endsetslot
+
+\setslot{\lctop{Acircumflex}{acircumflex}}
+ \comment{The letter `\^ a'.}
+\endsetslot
+
+\setslot{\lctop{Atilde}{atilde}}
+ \comment{The letter `\~ a'.}
+\endsetslot
+
+\setslot{\lctop{Adieresis}{adieresis}}
+ \comment{The letter `\" a'.}
+\endsetslot
+
+\setslot{\lctop{Aring}{aring}}
+ \comment{The letter `\r a'.}
+\endsetslot
+
+\setslot{\lc{AE}{ae}}
+ \comment{The letter `\ae'. This is a single letter, and should not be
+ faked with `ae'.}
+\endsetslot
+
+\setslot{\lc{Ccedilla}{ccedilla}}
+ \comment{The letter `\c c'.}
+\endsetslot
+
+\setslot{\lctop{Egrave}{egrave}}
+ \comment{The letter `\` e'.}
+\endsetslot
+
+\setslot{\lctop{Eacute}{eacute}}
+ \comment{The letter `\' e'.}
+\endsetslot
+
+\setslot{\lctop{Ecircumflex}{ecircumflex}}
+ \comment{The letter `\^ e'.}
+\endsetslot
+
+\setslot{\lctop{Edieresis}{edieresis}}
+ \comment{The letter `\" e'.}
+\endsetslot
+
+\setslot{\lctop{Igrave}{igrave}}
+ \comment{The letter `\`\i'.}
+\endsetslot
+
+\setslot{\lctop{Iacute}{iacute}}
+ \comment{The letter `\'\i'.}
+\endsetslot
+
+\setslot{\lctop{Icircumflex}{icircumflex}}
+ \comment{The letter `\^\i'.}
+\endsetslot
+
+\setslot{\lctop{Idieresis}{idieresis}}
+ \comment{The letter `\"\i'.}
+\endsetslot
+
+\setslot{\lc{Eth}{eth}}
+ \comment{The Icelandic lowercase letter `eth' similar to
+ a `$\partial$' with an oblique bar through the stem.
+ It is unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\lctop{Ntilde}{ntilde}}
+ \comment{The letter `\~ n'.}
+\endsetslot
+
+\setslot{\lctop{Ograve}{ograve}}
+ \comment{The letter `\` o'.}
+\endsetslot
+
+\setslot{\lctop{Oacute}{oacute}}
+ \comment{The letter `\' o'.}
+\endsetslot
+
+\setslot{\lctop{Ocircumflex}{ocircumflex}}
+ \comment{The letter `\^ o'.}
+\endsetslot
+
+\setslot{\lctop{Otilde}{otilde}}
+ \comment{The letter `\~ o'.}
+\endsetslot
+
+\setslot{\lctop{Odieresis}{odieresis}}
+ \comment{The letter `\" o'.}
+\endsetslot
+
+\setslot{\lc{OE}{oe}}
+ \comment{The letter `\oe'. This is a single letter, and should not be
+ faked with `oe'.}
+\endsetslot
+
+\setslot{\lc{Oslash}{oslash}}
+ \comment{The letter `\o'.}
+\endsetslot
+
+\setslot{\lctop{Ugrave}{ugrave}}
+ \comment{The letter `\` u'.}
+\endsetslot
+
+\setslot{\lctop{Uacute}{uacute}}
+ \comment{The letter `\' u'.}
+\endsetslot
+
+\setslot{\lctop{Ucircumflex}{ucircumflex}}
+ \comment{The letter `\^ u'.}
+\endsetslot
+
+\setslot{\lctop{Udieresis}{udieresis}}
+ \comment{The letter `\" u'.}
+\endsetslot
+
+\setslot{\lctop{Yacute}{yacute}}
+ \comment{The letter `\' y'.}
+\endsetslot
+
+\setslot{\lc{Thorn}{thorn}}
+ \comment{The Icelandic lowercase letter `thorn', similar to a `p'
+ with an ascender rising from the stem. It is unavailable
+ in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\endencoding
+
+\end{document}
+%</t1fraketx>
+% \end{macrocode}
+% \Finale
+
+\endinput
+%%% Local Variables:
+%%% mode: latex
+%%% TeX-master: t
+%%% End: