% \iffalse meta-comment % % egothic.dtx % Copyright 1999 Peter R. Wilson % % This program is provided under the terms of the % LaTeX Project Public License distributed from CTAN % archives in directory macros/latex/base/lppl.txt. % % Author: Peter Wilson (CUA) (now at: peter.r.wilson@boeing.com) % % If you do not have the docmfp package (available from CTAN in % tex-archive/macros/latex/contrib/supported), comment out the % \usepackage{docmfp} line below and uncomment the line following it. % %<*driver> \documentclass{ltxdoc} \usepackage{docmfp} %%%%%% \providecommand{\DescribeVariable}[1]{} \newenvironment{routine}[1]{}{} \EnableCrossrefs \CodelineIndex %% comment out next line to show the code \OnlyDescription \setcounter{StandardModuleDepth}{1} \begin{document} \DocInput{egothic.dtx} \end{document} % % % \fi % % \CheckSum{134} % % \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath} % \DoNotIndex{\@centercr,\@cite} % \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue} % \DoNotIndex{\@input,\@ixpt,\@m} % \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint} % \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb} % \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt} % \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt} % \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace} % \DoNotIndex{\advance,\Alph,\alph} % \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box} % \DoNotIndex{\bullet} % \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption} % \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass} % \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist} % \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup} % \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter} % \DoNotIndex{\fbox} % \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef} % \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule} % \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi} % \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi} % \DoNotIndex{\input} % \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark} % \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright} % \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment} % \DoNotIndex{\NeedsTeXFormat,\newdimen} % \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number} % \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@} % \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip} % \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions} % \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright} % \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font} % \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman} % \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength} % \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space} % \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase} % \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt} % \DoNotIndex{\viipt,\vipt,\vskip,\vspace} % \DoNotIndex{\wd,\xiipt,\year,\z@} % % \changes{v1.0}{2002/12/30}{First public release} % % \def\fileversion{v1.0} % \def\filedate{2002/12/30} % \newcommand*{\Lpack}[1]{\textsf {#1}} ^^A typeset a package % \newcommand*{\Lopt}[1]{\textsf {#1}} ^^A typeset an option % \newcommand*{\file}[1]{\texttt {#1}} ^^A typeset a file % \newcommand*{\Lcount}[1]{\textsl {\small#1}} ^^A typeset a counter % \newcommand*{\pstyle}[1]{\textsl {#1}} ^^A typeset a pagestyle % \newcommand*{\Lenv}[1]{\texttt {#1}} ^^A typeset an environment % \newcommand*{\AD}{\textsc{ad}} % \newcommand*{\thisfont}{Early Gothic} % % \title{The \Lpack{Early Gothic} fonts\thanks{This % file has version number \fileversion, last revised % \filedate.}} % % \author{% % Peter Wilson\\ % Catholic University of America \\ % Now at \texttt{peter.r.wilson@boeing.com} % } % \date{\filedate} % \maketitle % \begin{abstract} % The \Lpack{egothic} and \Lpack{allegoth} packages provide a set of % Metafont \thisfont{} book-hands % as used % for manuscripts in the 11th and 12th centuries. This is one in a series % of manuscript fonts. % \end{abstract} % \tableofcontents % \listoftables % % % % % \section{Introduction} % % The \Lpack{egothic} and \Lpack{allegoth} packages provide a Metafont~\cite{METAFONT} version % of the \thisfont{} manuscript book-hand that was in use between about the % eleventh and twelfth centuries~\AD. It is part of a project to provide fonts % covering the major manuscript hands between the first century~\AD{} and % the invention of printing. The principal resources used in this project % are listed in the Bibliography. % % This manual is typeset according to the conventions of the % \LaTeX{} \textsc{docstrip} utility which enables the automatic % extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}. % The \Lpack{docmfp} package is used for documenting the Metafont portions % of the distribution~\cite{DOCMFP}. % % Section~\ref{sec:usc} describes the usage of the package. % Commented code for the fonts is in Sections~\ref{sec:mf} and~\ref{sec:fd} % and source code for the package is in Section~\ref{sec:code}. % % \subsection{Manuscript book-hands} % % Before the invention of printing all books were written by hand. The book-hands % used by the scribes and copyists for the manuscripts changed as time % went on. Table~\ref{tab:1} lists some of the common book-hands which were used % between the 1st and 15th centuries. The later book-hands formed the basis of the % fonts used by the early printers, which in turn form the basis of the printing % fonts in use today. % % The manuscript book-hands were written with a broad nibbed reed or quill % pen. Among the distinguishing characteristics of a hand, apart from the % actual shape of the letters, are the angle of the pen (which controls the % variation between thick and thin strokes) and the height of a letter compared % to the width of the nib. The lower the ratio of the letter height to nib % width, the more condensed is the script. The scripts also varied in their % typical height. % % Table~\ref{tab:1} gives an `average' x-height for each % script, which I obtained by measuring a sample of photographs of % manuscripts written in the various hands. About a dozen examples % of each book-hand were measured. This figure should not be taken too % seriously. % % There was not a sharp division between the use of one hand and another. % Many manuscripts exhibit a variety of hands in the same document. For example, % the scribe writing in an Uncial hand may have used Roman Rustic letters % for capitals. Usually the same pen was used for the two different scripts. % % Generally speaking, as a hand got older it became more embelished, and % therefore took longer to write. As this happened a new hand would appear that % was faster, and which would eventually make the earlier one obsolete. % % Many of the book-hands were single-cased; that is, they did not have an % upper- and lower-case as we do nowadays in Western scripts. On the other % hand, a script might be majuscule or minuscule. A \textit{majuscule} script % is one, like our upper-case, where the letters are drawn between two lines % and are of a uniform height with no ascenders or descenders. % A \textit{minuscule} script, like our lower-case, is drawn between four lines % and has ascenders and descenders. % % \begin{table} % \centering % \caption{The main manuscript book-hands} \label{tab:1} % \begin{tabular}{lccccc} \hline % Name & Century & x-height & Height & Pen & Normalised \\ % & & (mm) & (nib widths) & angle & height \\ \hline % Roman Rustic & 1--6 & 5.7 & 4--6 & 45 & 1.90 \\ % Uncial & 3--6 & 4.1 & 4--5 & 30 & 1.37 \\ % Half Uncial & 3--9 & 3.2 & 3--6 & 20--30 & 1.07 \\ % Artificial Uncial & 6--10 & 4.2 & 3--6 & 10 & 1.40 \\ % Insular majuscule & 6--9 & 4.2 & 5 & 0--20 & 1.40 \\ % Insular minuscule & 6 onward & 4.1 & 5--6 & 45--70 & 1.37 \\ % Carolingian minuscule & 8--12 & 3.0 & 3--5 & 45 & 1.00 \\ % Early Gothic & 11--12 & 3.8 & 4--6 & 20--45 & 1.27 \\ % Gothic Textura & 13--15 & 3.9 & 3--5 & 30--45 & 1.30 \\ % Gothic Prescius & 13 onward & 3.3 & 4--5 & 45 & 1.10 \\ % Rotunda & 13--15 & 3.2 & 4--6 & 30 & 1.07 \\ % Humanist minuscule & 14 onward & 3.0 & 4--5 & 30--40 & 1.00 \\ \hline % \end{tabular} % \end{table} % % During the period under consideration arabic numerals were effectively % not used. At the beginning they were unknown and even though some knew % of them towards the end, the glyphs used for them are not recognisable --- % to me they look somewhat like cryllic letters --- and each locality % and time had its own highly individualistic rendering. The general rule % when using one of these book-hands is to write all numbers using % roman numerals. % % The Roman alphabet consisted of 23 capital letters --- the J, U and W % were absent. The book-hands initially used both a `u' and a `v' interchangeably % but by the 10th century the practice had become to use the `v' before a vowel % and the `u' otherwise. The letter corresponding to the W sound appeared % in England around the 7th century in % the form of the runic \textit{wen} character and by about the 11th century % the `w' chacter was generally used. The `J' is the newest letter of all, not % appearing until about the mid 16th century. % % In the first century punctuation was virtually unknown, and typically % would not even be any additional space between individual words, never % mind denoting ends of sentences. Sometimes a dot at mid-height would be % used as a word seperator, or to mark off the end of a paragraph. Effectively % a text was a continuous stream of letters. By the time that printing was % invented, though, all of our modern punctuation marks were being used. % % Among all these manuscript hands, the Carolingian minuscule is the % most important as our modern fonts are based on its letter shapes, and it is % also at this point in time where the division occured between the black letter % scripts as used even today in Germany, and the lighter fonts used elesewhere. % The Rotunda and Humanist minuscule hands were developed in Italy and were % essentially a rediscovery of the Carolingian minusucle. Guthenberg took the % Gothic scripts as the model for his types. Later printers, % such as Nicholas Jenson of Venice, % took the Humanist scripts as their models. % % % \subsection{The \thisfont{} script} % % Towards the end of the 10th century Carolingian Minuscule started to change, % perhaps driven by an increased demand for books by a better educated public % and the advent of what would become universities. Economics dictated that % reproduction had to be quicker and that more words should be squeezed into % a given space. % % To increase speed and word density, curves became straighter and the width % of individual letter was decreased. The result is what is now called % \thisfont, which was a short-lived intermediary between Carolingian % Minuscule and the full blown Gothic scripts. % % The `ct' Carolingian ligature went out of fashion but the `half r' % began to be used after any letter with a bowl. % % % \section{The \Lpack{egothic} and \Lpack{allegoth} packages} \label{sec:usc} % % The \thisfont{} font family is called |egoth|. The font is supplied in both % OT1 and T1 encodings. % % \subsection{The \Lpack{egothic} package} % % This is intended for the occasions when some short pieces of text have % to be written in \thisfont{} while the majority of the document is in another % font. The normal baselineskips are used. % % \DescribeMacro{\egothfamily} % The |\egothfamily| declaration starts typesetting with the \thisfont{} fonts. % Use of the \thisfont{} font will continue until either there is another |\...family| % declaration or the current group (e.g., environment) is closed. % % \DescribeMacro{\textegoth} % The command |\textegoth{|\meta{text}|}| will typeset \meta{text} using the % \thisfont{} fonts. % % \subsection{The \Lpack{allegoth} package} % % % This package is for when the entire document will be typeset with the % \thisfont{} font. The baselineskips are set to those appropriate to the % book-hand. % % This is a minimalist package. Apart from declaring \thisfont{} to be the % default font and setting the baselineskips appropriately, it makes no other % alterations. % Vertical spacing % before and after section titles and before and after lists, etc., will be % too small as the \LaTeX{} design assumes a font comparable in size to % normal printing fonts, and the book-hand is much taller. % To capture more of the flavour of the time, all numbers % should be written using roman numerals. % The \Lpack{romannum} package~\cite{ROMANNUM} % can be used so that \LaTeX{} will typeset the numbers that it generates, % like sectioning or caption numbers, using roman numerals instead of arabic % digits. % % \DescribeMacro{\cmrfamily} % \DescribeMacro{\textcmr} % \DescribeMacro{\cmssfamily} % \DescribeMacro{\textcmss} % \DescribeMacro{\cmttfamily} % \DescribeMacro{\textcmtt} % The |...family| declarations start typesetting with the Computer Modern Roman % (|\cmrfamily|), the Computer Modern Sans (|\cmssfamily|), and the Computer % Modern Typewriter (|\cmttfamily|) font families. The |\textcm..{|\meta{text}|}| % commands will typeset \meta{text} in the corresponding Computer Modern font. % % The \Lpack{allegoth} package automatically loads the \Lpack{egothic} package, % so its font commands are available if necessary. % % \StopEventually{ % \bibliographystyle{alpha} % \renewcommand{\refname}{Bibliography} % \begin{thebibliography}{GMS94} % \addcontentsline{toc}{section}{\refname} % % \bibitem[And69]{ANDERSON69} % Donald M.~Anderson. % \newblock {\em The Art of Written Forms: The Theory and Practice of Calligraphy}. % \newblock Holt, Rinehart and Winston, 1969. % % \bibitem[Bol95]{BOLOGNA95} % Giulia Bologna. % \newblock {\em Illuminated Manuscripts: The Book before Gutenberg}. % \newblock Crescent Books, 1995. % % \bibitem[Day95]{DAY95} % Lewis F.~Day. % \newblock {\em Alphabets Old \& New}. % \newblock (3rd edition originally published by B.~T.~Batsford, 1910) % \newblock Senate, 1995. % % \bibitem[Dro80]{DROGIN80} % Marc Drogin. % \newblock {\em Medieval Calligraphy: Its History and Technique}. % \newblock Allenheld, Osmun \& Co., 1980. % % \bibitem[Dru95]{DRUCKER95} % Johanna Drucker. % \newblock {\em The Alphabetic Labyrinth}. % \newblock Thames \& Hudson, 1995. % % \bibitem[Fir93]{FIRMAGE93} % Richard A.~Firmage. % \newblock {\em The Alphabet Abecedarium}. % \newblock David R~Goodine, 1993. % % \bibitem[Fli98]{LETTRINE} % Daniel Flipo. % \newblock {\em The LETTRINE package}. % \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}). % \newblock 1998. % % \bibitem[Har95]{HARRIS95} % David Harris. % \newblock {\em The Art of Calligraphy}. % \newblock DK Publishing, 1995. % % \bibitem[Jen95]{BETON} % Frank Jensen. % \newblock {\em The BETON package}. % \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}). % \newblock 1995. % % \bibitem[Joh71]{JOHNSTON75} % Edward Johnston (ed. Heather Child). % \newblock {\em Formal Penship and Other Papers}. % \newblock Penthalic, 1971. % % \bibitem[Knu87]{CM} % Donald E.~Knuth. % \newblock {\em Computer Modern Typefaces}. % \newblock Addison-Wesley, 1987. % % \bibitem[Knu92]{METAFONT} % Donald E.~Knuth. % \newblock {\em The METAFONTbook}. % \newblock Addison-Wesley, 1992. % % \bibitem[GMS94]{GOOSSENS94} % Michel Goossens, Frank Mittelbach, and Alexander Samarin. % \newblock {\em The LaTeX Companion}. % \newblock Addison-Wesley Publishing Company, 1994. % % \bibitem[Tho75]{THOMAS75} % Alan G.~Thomas. % \newblock {\em Great Books and Book Collectors}. % \newblock Weidenfield and Nichoson, 1975. % % \bibitem[Wil99]{DOCMFP} % Peter R.~Wilson. % \newblock {\em The DOCMFP Package}. % \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}). % \newblock 1999. % % \bibitem[Wil99b]{ROMANNUM} % Peter R.~Wilson. % \newblock {\em The ROMANNUM Package}. % \newblock (Available from CTAN in \texttt{macros/latex/contrib/supported}). % \newblock 1999. % % \end{thebibliography} % } % % \section{The Metafont code} \label{sec:mf} % % % As previously noted, this work is part of a larger project to provide % fonts covering the main manuscript book-hands. As such, one of the % aims is to produce a coordinated set of fonts, especially as multiple % hands might be used in a single document. % % Noting that the hands tend to be somewhat larger than the typical 10pt % size (where the x-height is approximately 1.5mm) used for modern books, % I have also designed the fonts % at a larger than normal size, then applied some non-linear factors when reducing % them down to a 10pt size. % Further, I have used the height of the Carolingian minuscule as a % normalising factor when deciding on the absolute height of any particular % script. The x-height of the Carolingian font is made equal to the % x-height of the Computer Modern Roman (CMR) font. % % Modern fonts are effectively drawn. That is, the outline of the letter is % drawn carefully and the center is filled with ink. This is shown to good % effect in the Metafont code for the Computer Modern fonts~\cite{CM}. % In contrast, the manuscript letters were inked by single pen strokes in % a calligraphic manner. I have tried to repeat this calligraphic style % in the Metafont code. % % As much as possible I have tried to use parameter values from the % Computer Modern Roman (CMR) fonts in order to reduce possible % infelicities if the CM and manuscript fonts are used together. However, % few of the CMR parameters are applicable to the calligraphic style. % % % \subsection{The parameter file} % % We deal with the parameter files first, and start by announcing % what they are for. The \thisfont{} font comes in three sizes and also as a normal % and a bold font. % \begin{macrocode} %<*base7|base10|base17|base7b|base10b|base17b> %%%% EGOTH7.MF Early Gothic at 7 point design size. %%%% EGOTH10.MF Early Gothic at 10 point design size. %%%% EGOTH17.MF Early Gothic at 17 point design size. %%%% EGOTHB7.MF Early Gothic Bold at 7 point design size. %%%% EGOTHB10.MF Early Gothic Bold at 10 point design size. %%%% EGOTHB17.MF Early Gothic Bold at 17 point design size. % % \end{macrocode} % Parameters from CMR are used as much as possible. We also % make sure that \Lpack{cmbase} is loaded as well as plain Metafont. % \begin{macrocode} if unknown cmbase: input cmbase fi %font_identifier:="EGOTH"; font_size 7pt#; %font_identifier:="EGOTH"; font_size 10pt#; %font_identifier:="EGOTH"; font_size 17.28pt#; %font_identifier:="EGOTHB"; font_size 7pt#; %font_identifier:="EGOTHB"; font_size 10pt#; %font_identifier:="EGOTHB"; font_size 17.28pt#; % \end{macrocode} % % \DescribeVariable{jutstretch} % The CMR scaling for lowercase serifs wrt 17pt size. % \begin{macrocode} % jutstretch:=1.19; % jutstretch:=1.152; % jutstretch:=1.0; % \end{macrocode} % % \DescribeVariable{stemstretch} % The CMR scaling for lowercase stem widths wrt 17pt size. % \begin{macrocode} % stemstretch:=1.50; % stemstretch:=1.31; % stemstretch:=1.0; % \end{macrocode} % % \DescribeVariable{caprat} % The scaling for `capitals' wrt `lowercase'. This is pretty much a guess % (the ratio for CMR10 is 1.59). % \begin{macrocode} caprat:=1.5; % ratio of capital height to minuscule height % \end{macrocode} % % \DescribeVariable{cap_jutstretch} % The CMR scaling for uppercase serifs wrt 17pt size. % \begin{macrocode} % cap_jutstretch:=1.3; % cap_jutstretch:=1.2; % cap_jutstretch:=1.0; % \end{macrocode} % % \DescribeVariable{cap_stemstretch} % The CMR scaling for uppercase stem width wrt 17pt size. % \begin{macrocode} % cap_stemstretch:=1.45; % cap_stemstretch:=1.31; % cap_stemstretch:=1.0; % \end{macrocode} % % \DescribeVariable{bfudge} % Letter width scaling for bold font wrt normal font. % \begin{macrocode} % bfudge:=1.0; % bfudge:=1.2; % \end{macrocode} % % \DescribeVariable{szfudge} % Width scaling wrt 17pt letter width. % \begin{macrocode} % szfudge:=1.18; % szfudge:=1.0; % szfudge:=1.0; % \end{macrocode} % % \DescribeVariable{hstretch} % Horizontal stretching factor wrt 17pt size letter width. % \begin{macrocode} hstretch:=szfudge*bfudge; % \end{macrocode} % % \DescribeVariable{carol_height} % The x-height of the Carolingian gothic font. % \begin{macrocode} % carol_height#:=108.5/36pt#; % carol_height#:=155/36pt#; % carol_height#:=268/36pt#; % \end{macrocode} % % \DescribeVariable{vstretch} % The height of this font wrt the Carolingian font. % \begin{macrocode} vstretch:=1.27; % \end{macrocode} % % \DescribeVariable{x_height} % The x-height of lower case letters. Scaled from the Carolingian font. % \begin{macrocode} x_height#:=vstretch*carol_height#; % \end{macrocode} % % \DescribeVariable{u} % The unit width. The CMR values are used. % \begin{macrocode} % u#:=15.5/36pt#; % u#:=20/36pt#; % u#:=32.5/36pt#; % u#:=17.9/36pt#; % u#:=23/36pt#; % u#:=37/36pt#; % \end{macrocode} % % \DescribeVariable{width_adj} % \DescribeVariable{serif_fit} % \DescribeVariable{cap_serif_fit} % \DescribeVariable{letter_fit} % The majority of these parameters and values are constant. % They are for fine adjustements of characters. The CM values are used. % \begin{macrocode} width_adj#:=0pt#; % width adjustment for certain characters serif_fit#:=0pt#; % extra sidebar near lowercase serifs % cap_serif_fit#:=3.5/36pt#; % extra sidebar near uppercase serifs % cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs % cap_serif_fit#:=8/36pt#; % extra sidebar near uppercase serifs % letter_fit#:=0pt#; % extra space added to all sidebars % letter_fit#:=0pt#; % extra space added to all sidebars % letter_fit#:=-0.1pt#; % extra space added to all sidebars % \end{macrocode} % % \DescribeVariable{sb} % A length used for adjusting the side bearings of characters. % This is normally |1/2u| but decrease by 3/4 for Gothic lowercase. % \begin{macrocode} % sb#:=3/8u#; % unit for side bearings % sb#:=3/8u#; % unit for side bearings % sb#:=3/8u#; % unit for side bearings % \end{macrocode} % % \DescribeVariable{cap_sb} % A length used for adjusting the side bearings of uppercase characters. % \begin{macrocode} % cap_sb#:=4/3sb#; % unit for uppercase side bearings % cap_sb#:=4/3sb#; % unit for side bearings % cap_sb#:=4/3sb#; % unit for side bearings % \end{macrocode} % % \DescribeVariable{cap_height} % The height of capital letters. % \begin{macrocode} % cap_height#:=172.2/36pt#; % height of caps % cap_height#:=246/36pt#; % height of caps % cap_height#:=425/36pt#; % height of caps % \end{macrocode} % % \DescribeVariable{thickfudge} % The reciprocal of the font height in nib widths. Normal font height % is 6 nib widths and the bold font height is 5 nib widths. % \begin{macrocode} % thickfudge:=1/6; % thickfudge:=1/5; % \end{macrocode} % % \DescribeVariable{thinfudge} % The nib sharpness. % \begin{macrocode} thinfudge:=1/6; % \end{macrocode} % % \DescribeVariable{thick} % The maximum nib width. % That is, the width of the thickest line that can be penned. % \begin{macrocode} thick#:=stemstretch*thickfudge*x_height#; % max pen breadth % \end{macrocode} % % \DescribeVariable{thin} % The nib thinness. % That is, the width of the thinnest line that can be penned. % \begin{macrocode} thin#:=thinfudge*thick#; % \end{macrocode} % % \DescribeVariable{pangle} % The pen angle (in degrees). % \begin{macrocode} pangle:=35; % pen angle % \end{macrocode} % % \DescribeVariable{cappangle} % The pen angle for capitals (in degrees). % \begin{macrocode} cappangle:=0; % pen angle cappangle := pangle; % \end{macrocode} % % \DescribeVariable{ascratio} % The height of lower case ascenders wrt |x_height|. % \begin{macrocode} ascratio:=6/4; % \end{macrocode} % % \DescribeVariable{asc_height} % The height of lower case ascenders. % \begin{macrocode} asc_height#:=ascratio*x_height#; % \end{macrocode} % % \DescribeVariable{descratio} % The depth of lower case descenders wrt |x_height|. % \begin{macrocode} descratio:=2/4; % \end{macrocode} % % \DescribeVariable{desc_depth} % The depth of lower case descenders. % \begin{macrocode} desc_depth#:=descratio*x_height#; % \end{macrocode} % % \DescribeVariable{fig_height} % The height of numerals. Make these midway between normal and capital % letters. % \begin{macrocode} fig_height#:=(0.5[1,caprat])*x_height#; % \end{macrocode} % % \DescribeVariable{fig_width} % The width of numerals. All numerals are the same width (roughly, an `o'). % \begin{macrocode} fig_width#:=hstretch*(x_height#); % \end{macrocode} % % \DescribeVariable{body_height} % The height of the tallest character. % \begin{macrocode} body_height#:=caprat*asc_height#; % \end{macrocode} % % \DescribeVariable{body_depth} % The depth of the lowest character. % \begin{macrocode} body_depth#:=caprat*desc_depth#; % \end{macrocode} % % \DescribeVariable{half_height} % Half the normal letter height. % \begin{macrocode} half_height#:=1/2x_height#; % half the height of x height letters % \end{macrocode} % % \DescribeVariable{side} % We might be using a square for the character design. % \begin{macrocode} side#:=x_height#; % \end{macrocode} % % \DescribeVariable{rule_thickness} % Thickness of rules (in math symbols). The CMR values are used. % \begin{macrocode} % rule_thickness#:=.34pt#; % rule_thickness#:=.4pt#; % rule_thickness#:=.6pt#; % \end{macrocode} % % \DescribeVariable{jutfudge} % Controls the protrusion of serifs. % \begin{macrocode} %%%jutfudge:= 3/4; jutfudge:= 1/2; % \end{macrocode} % % \DescribeVariable{jut} % The lowercase serif protrusion. % \begin{macrocode} jut#:=jutstretch*jutfudge*thick#; % \end{macrocode} % % \DescribeVariable{sqrcjut} % Square Capitals flat serif protrusion. % \begin{macrocode} sqrcjut# := 2cap_jutstretch*thin#; % \end{macrocode} % % \DescribeVariable{sqrcjutrat} % Ratio of Square Capitals thin triangle serif to flat serif protrusion. % \begin{macrocode} sqrcjutrat := 2; % \end{macrocode} % % \DescribeVariable{srad} % |srad| with |0 < srad < 1| controls the serif radius. % \begin{macrocode} srad:=0.8; % was 0.5 % \end{macrocode} % % \DescribeVariable{trijut} % The lowercase triangular serif protrusion. % \begin{macrocode} trijut#:=0.75jutstretch*thick#; % \end{macrocode} % % \DescribeVariable{clubjutfudge} % The fractional protusion of a club serif. % \begin{macrocode} clubjutfudge:=1/2; % \end{macrocode} % % \DescribeVariable{clubjut} % The lowercase club serif protrusion. % \begin{macrocode} clubjut#:=jutstretch*clubjutfudge*thick#; % \end{macrocode} % % \DescribeVariable{o} % Amount of overshoot for curves (as in an `o'). Use CMR values. % \begin{macrocode} % o#:=5/36pt#; % o#:=8/36pt#; % o#:=10/36pt#; % \end{macrocode} % % \DescribeVariable{slant} % |slant| is the amount the font slopes to the right. \\ % 5 degrees = 9/100; 10 degrees = 11/50. % \begin{macrocode} slant:=0; % tilt ratio $(\Delta x/\Delta y)$ %%%%%%slant:= sind 10/cosd 10; %% 10 degree slant % \end{macrocode} % % \DescribeVariable{monospace} % We are generating a variable-width font. % \begin{macrocode} monospace:=false; % should all characters have the same width? % \end{macrocode} % % \DescribeVariable{dot_size} % The size of (punctuation) dots. % \begin{macrocode} dot_size#:=5thin#; % size of dots % \end{macrocode} % % \DescribeVariable{comma_width} % The horizontal width of a comma. % \begin{macrocode} comma_width#:=5/4dot_size#; % \end{macrocode} % % Finally, call the driver file for the font. % \begin{macrocode} generate egothtitle %% switch to the driver file % \end{macrocode} % % The end of this code section. % \begin{macrocode} % % \end{macrocode} % % % \subsection{The driver file} % % The driver file sets up the font parameters and also contains % the macros used in the definition of the characters. % % \begin{macrocode} %<*mfd> % This is EGOTHTITLE.MF for the Early Gothic font. % This makes a short font. % This file also contains special macros universally needed in the % font but either not in the cmbase.mf file or modifications of these. % % \end{macrocode} % % \begin{routine}{makebox} % This is a new version of the \Lpack{cmbase.mf} |makebox| macro. % Essentially, as we are only generating a single case font, we don't % need all the horizontals for the CMR characters. % % \begin{macrocode} % A new version of cmbase.mf makebox macro def makebox(text rule) = for y=0,half_height,cap_height,body_height,x_height,-desc_depth,-body_depth: rule((l,y)t_,(r,y)t_); endfor % horizontals for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals for x=u*(1+floor(1/u)) step u until r-1: rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals if charic<>0: rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction enddef; % \end{macrocode} % \end{routine} % % \begin{routine}{proofpcbb} % The macro |proofpcbb(S, xoff, yoff)| draws crosses at the corners of the % square, and at the bottom and top midpoints, where the point |zS| is at % position |(xoff,yoff)| in the square. % \begin{macrocode} % A macro to delineate a letter's bounding square in proof mode. % Point z$ is at (xoff,yoff) in the bounding square. def proofpcbb(suffix $)(expr xoff, yoff) = if proofing > 0: x$bl = x$ - xoff; y$bl = y$ - yoff; % Bottom Left Hand Corner z$br = (x$bl+side, y$bl); % BRHC z$tr = (x$bl+side, y$bl+side); % TRHC z$tl = (x$bl, y$bl+side); % TLHC z$bc = 1/2[z$bl,z$br]; z$tc = 1/2[z$tl,z$tr]; % horizontal mid points pair hc, vc; hc = (2u,0); vc = (0,2u); pickup pensquare scaled 2; for s = z$bl, z$br, z$tr, z$tl, z$bc, z$tc: draw s-hc--s+hc; draw s-vc--s+vc; endfor fi enddef; % \end{macrocode} % \end{routine} % % % % \begin{routine}{egothic_font_setup} % This macro contains the set up for the \thisfont{} fonts. % \begin{macrocode} def egothic_font_setup= % contains special stuff for egothic fonts define_pixels(side,half_height,carol_height,comma_width); define_pixels(u,dot_size,letter_size,cap_height,width_adj,serif_fit, cap_serif_fit,jut,clubjut,cap_jut,trijut); define_pixels(fig_width); define_whole_pixels(letter_fit,sb,cap_sb); define_whole_vertical_pixels(body_height,asc_height,cap_height,x_height, desc_depth,body_depth,fig_height); define_corrected_pixels(o); define_blacker_pixels(thick,thin); define_pixels(sqrcjut); let adjust_fit = normal_adjust_fit; % \end{macrocode} % \DescribeVariable{stylus} % The pen for drawing the thinnest lines is |stylus|. % \begin{macrocode} pickup pencircle scaled thin; stylus:=savepen; % \end{macrocode} % \DescribeVariable{thickstylus} % The pen for drawing lines a bit thicker than the thinnest is |thickstylus|. % \begin{macrocode} pickup pencircle scaled (1.5thin); thickstylus:=savepen; % \end{macrocode} % % \DescribeVariable{quill} % The normal calligraphic pen is |quill|. % \begin{macrocode} pickup pencircle xscaled thick yscaled thin rotated pangle; quill:=savepen; % \end{macrocode} % % \DescribeVariable{threequarterquill} % A pen with 3/4 of the width as quill (but with the same thinness). % \begin{macrocode} pickup pencircle xscaled 3/4thick yscaled thin rotated pangle; threequarterquill := savepen; % \end{macrocode} % % \DescribeVariable{halfquill} % A pen with 1/2 of the width as quill (but with the same thinness). % \begin{macrocode} pickup pencircle xscaled 1/2thick yscaled thin rotated pangle; halfquill := savepen; % \end{macrocode} % % \DescribeVariable{quarterquill} % A pen with 1/4 of the width as quill (but with the same thinness). % \begin{macrocode} pickup pencircle xscaled 1/4thick yscaled thin rotated pangle; quarterquill := savepen; % \end{macrocode} % % \DescribeVariable{thinquill} % A pen with a fraction of the width as quill (but with the same thinness). % \begin{macrocode} pickup pencircle xscaled 3/8thick yscaled thin rotated pangle; %% 1/4 too small thinquill := savepen; % \end{macrocode} % % \DescribeVariable{capquill} % The normal calligraphic pen for capitals is |capquill|. % \begin{macrocode} pickup pencircle xscaled thick yscaled thin rotated cappangle; capquill:=savepen; % \end{macrocode} % % \DescribeVariable{capthinquill} % A pen with a fraction of the width as capquill (but with the same thinness). % \begin{macrocode} pickup pencircle xscaled 3/8thick yscaled thin rotated cappangle; %% 1/4 too small capthinquill := savepen; % \end{macrocode} % % % \begin{macrocode} numeric pcshiftx#; % x value of LHS of box wrt origin of char box define_pixels(pcshiftx); numeric sqxside#; % x size of the square numeric sqyside#; % y size of the square define_pixels(sqxside,sqyside); enddef; % end of egothic_font_setup % \end{macrocode} % \end{routine} % % % \DescribeVariable{ductus} % A boolean to control drawing the ductus (TRUE) or the full letter (FALSE). % \begin{macrocode} boolean ductus; ductus:=false; % \end{macrocode} % % \DescribeVariable{qhor} % \DescribeVariable{qvert} % The cosine and sine of the pen angle. % \begin{macrocode} numeric qhor, qvert; qhor:=cosd(pangle); qvert:=sind(pangle); % \end{macrocode} % % \DescribeVariable{pdir} % The vector corresponding to the pen angle. % \begin{macrocode} pair pdir; pdir=dir(pangle); % \end{macrocode} % % \DescribeVariable{ppdir} % The vector that is perpendicular (anticlockwise) to the pen angle. % \begin{macrocode} pair ppdir; ppdir=dir(pangle+90); % \end{macrocode} % % \begin{routine}{draw_serif} % A macro to draw a serif. |draw_serif(1,2,f)| uses the current pen to % draw a serif of extent |jut| at |z1| to the left of the line from |z2| % to |z1|. The % radius is controlled by |f|, where $0y$$: top_serif := true; z$c=z$b shifted (-bjut*pdir); else: top_serif:=false; z$c=z$b shifted (bjut*pdir); fi % \end{macrocode} % Draw the parts, and finish off. % \begin{macrocode} if top_serif: draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif else: draw z$c--z$b{-pdir}..{z$$-z$}z$a; fi labels($a,$b,$c); enddef; % end of draw_serif % \end{macrocode} % \end{routine} % % \begin{routine}{draw_roundserif} % The |draw_serif| routine can leave a bump at the end of the stem. % The |draw_roundserif| routine, which takes the same arguments, % is meant to eliminate the bump. % \begin{macrocode} def draw_roundserif(suffix $, $$)(expr fr)= draw_serif($, $$, fr); undraw z$--z$a; enddef; % end of draw_roundserif % \end{macrocode} % \end{routine} % % % \begin{routine}{draw_flatserif} % A macro to draw a serif. |draw_serif(1,2,f)| uses the current pen to % draw a serif of extent |jut| at |z1| to the left of the line from |z2| % to |z1|. The % radius is controlled by |f|, where $0y$$: top_serif := true; z$c=z$ shifted (-jut*pdir); else: top_serif:=false; z$c=z$ shifted (jut*pdir); fi z$b = fr[z$,z$c]; % \end{macrocode} % Draw the parts, and finish off. % \begin{macrocode} draw z$a--z$; if top_serif: draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif else: draw z$c--z$b{-pdir}..{z$$-z$}z$a; fi labels($a,$b,$c); enddef; % end of draw_flatserif % \end{macrocode} % \end{routine} % % % \begin{routine}{draw_clubserif} % A macro to draw a clubbed serif. |draw_clubserif(1,2,f)| uses the current % pen to % draw a clubbed serif of extent |clubjut| at |z1| to the left of the line % from |z2| % to |z1|. The serif matches |z1| like the flatserif does and ends at the % point |f[z1,z2]|. % \begin{macrocode} def draw_clubserif(suffix $, $$)(expr fr)= numeric beta, ajut, bjut; % \end{macrocode} % |fr| controls the length of the serif. % \begin{macrocode} %% beta=1-fr; ajut=clubjut; bjut=beta*jut; % \end{macrocode} % The points |$c|, |$b| and |$a| define the serif. For a top (bottom) serif % the leftmost (rightmost) point is % |$c| and |$a| is on the stem, |fr| between |$| and |$$|. % \begin{macrocode} pair vec[]; vec1=unitvector(z$$-z$); %% vec2=ajut*vec1; %% z$a=z$ shifted vec2; boolean top_serif; if y$>y$$: top_serif := true; z$c=z$ shifted (-clubjut*pdir); else: top_serif:=false; z$c=z$ shifted (clubjut*pdir); fi z$a = fr[z$,z$$]; % \end{macrocode} % Draw the parts, and finish off. % \begin{macrocode} draw z$c..z$a{vec1}; labels($a,$b,$c); enddef; % end of draw_clubserif % \end{macrocode} % \end{routine} % % % % \begin{routine}{draw_triserif} % A macro to draw a triangular top left serif. % |draw_triserif(1,tj)| draws a serif at |z1| with its leftmost x % value at |x1-tj|, where it is assumed that the % top point on the stem is at |z1| and the stem was drawn with |quill|. % \begin{macrocode} def draw_triserif(suffix $)(expr tj)= pen oldpen; oldpen:=currentpen; pickup quill; x$ts1'=lft x$; y$ts1'=bot y$; pickup stylus; lft x$ts1=x$ts1'; bot y$ts1=y$ts1'; x$ts2=x$ts1-tj; z$ts2=whatever[z$,z$ts1]; x$ts3=x$ts1; y$ts3=y$ts2-tj; pickup stylus; %% filldraw z$ts1--z$ts2--z$ts3--cycle; filldraw z$--z$ts2--z$ts3--cycle; pickup oldpen; labels($ts1,$ts2,$ts3); enddef; % end of draw_triserif % \end{macrocode} % \end{routine} % % \begin{routine}{draw_istem} % A macro to draw the shape of an i. |draw_istem(1,2,f)| draws a stem whose % top is at |z1| and bottom at |z2|. It draws with the current pen and the serifs % are of extent |jut|. There is a top left and bottom right serif. % The serif radius is controlled by |f|, with $0 0) or (abs sl < tantol) or (abs sm < tantol) or (abs sr < tantol); if wtest: if (stpsize < tantol): z$tan=(0,0); errmessage("No tangent; path too short"); else: if (sl*sr > 0): z$tan=(0,0); errmessage("No tangent; end products have the same sign"); else: if (abs sl < tantol): z$tan=ptl; else: if (abs sm < tantol): z$tan=ptm; else: z$tan=ptr; fi fi fi fi else: % \end{macrocode} % There should be a tangent and we iterate to find it, using % bisection. If there is one to be found it will be at the % current middle point. The tangent point will be somewhere % between the two points that lead to opposite signed scalar % products. % \begin{macrocode} forever: if (sl*sm < 0): % opposite signs, look between pl & pm pr:=pm; pm:=0.5(pr+pl); vecpr := vecpm; veclr := veclm; sr:=sm; else: pl:=pm; pm:=0.5(pr+pl); vecpl:=vecpm; vecll:=veclm; sl:=sm; fi stpsize:=pr-pl; ptm := point pm of pth; veclm := unitvector (z$-ptm); vecpm := unitvector (direction pm of pth); sm := veclm scalarprod vecpm; % \end{macrocode} % We stop the iteration if the step size is too small or the % middle point is the tangent point. In either case, the % middle point is the best guess that can be made. % \begin{macrocode} wtest := (stpsize < tantol) or (abs sm < tantol); if wtest: if (abs sm < tantol): z$tan = ptm; else: z$tan = ptm; %%%%%% errmessage("Warning: tangent approximated"); fi fi exitif wtest; endfor fi enddef; % \end{macrocode} % \end{routine} % % % Set the mode and font setup. % \begin{macrocode} font_coding_scheme:="ASCII minuscules and punctuation"; mode_setup; egothic_font_setup; % \end{macrocode} % % % We generate letters, together with some punctuation and % analphabetics. % \begin{macrocode} input egothl; % lower case input egothu; % capitals input egothpunct; % punctuation input egothlig; % the several dashes input egothdig; % arabic digits % \end{macrocode} % % Set up the spacings, stretches and shrinks. % % \begin{macrocode} font_slant slant; font_x_height x_height#; if monospace: font_normal_space vstretch*9u#; % no stretching or shrinking font_quad vstretch*18u#; font_extra_space vstretch*9u#; else: font_normal_space vstretch*6u#+2letter_fit#; font_normal_stretch vstretch*3u#; font_normal_shrink vstretch*2u#; font_quad vstretch*18u#+4letter_fit#; font_extra_space vstretch*2u#; % \end{macrocode} % % Finally, do the ligtables, but I don't think they are needed (yet?). % % \begin{macrocode} fi bye. k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning kks#:=-4u#; kkx#:=-1.5u#; kkj#:=-2u#; kkr#:=-5u#; kkrs#:=-2u#; kkrl#:=-8u#; ligtable "s": "a" kern kks#, "A" kern kks#, "c" kern kks#, "C" kern kks#, "d" kern kks#, "D" kern kks#, "e" kern kks#, "E" kern kks#, "f" kern kks#, "F" kern kks#, "g" kern kks#, "G" kern kks#, "i" kern kks#, "I" kern kks#, "j" kern kks#, "J" kern kks#, "k" kern kks#, "K" kern kks#, "m" kern kks#, "M" kern kks#, "n" kern kks#, "N" kern kks#, "o" kern kks#, "O" kern kks#, "p" kern kks#, "P" kern kks#, "q" kern kks#, "Q" kern kks#, "r" kern kks#, "R" kern kks#, "t" kern kks#, "T" kern kks#, "u" kern kks#, "U" kern kks#, "v" kern kks#, "V" kern kks#, "w" kern kks#, "W" kern kks#, "x" kern kks#, "X" kern kks#, "y" kern kks#, "Y" kern kks#, "z" kern kks#, "Z" kern kks#; ligtable "S": "a" kern kks#, "A" kern kks#, "c" kern kks#, "C" kern kks#, "d" kern kks#, "D" kern kks#, "e" kern kks#, "E" kern kks#, "f" kern kks#, "F" kern kks#, "g" kern kks#, "G" kern kks#, "i" kern kks#, "I" kern kks#, "j" kern kks#, "J" kern kks#, "k" kern kks#, "K" kern kks#, "m" kern kks#, "M" kern kks#, "n" kern kks#, "N" kern kks#, "o" kern kks#, "O" kern kks#, "p" kern kks#, "P" kern kks#, "q" kern kks#, "Q" kern kks#, "r" kern kks#, "R" kern kks#, "t" kern kks#, "T" kern kks#, "u" kern kks#, "U" kern kks#, "v" kern kks#, "V" kern kks#, "w" kern kks#, "W" kern kks#, "x" kern kks#, "X" kern kks#, "y" kern kks#, "Y" kern kks#, "z" kern kks#, "Z" kern kks#; ligtable "x": "a" kern kkx#, "A" kern kkx#, "b" kern kkx#, "B" kern kkx#, "c" kern kkx#, "C" kern kkx#, "d" kern kkx#, "D" kern kkx#, "e" kern kkx#, "E" kern kkx#, "g" kern kkx#, "G" kern kkx#, "j" kern kkx#, "J" kern kkx#, "l" kern kkx#, "L" kern kkx#, "o" kern kkx#, "O" kern kkx#, "q" kern kkx#, "Q" kern kkx#, "t" kern kkx#, "T" kern kkx#, "u" kern kkx#, "U" kern kkx#, "v" kern kkx#, "V" kern kkx#, "w" kern kkx#, "W" kern kkx#, "y" kern kkx#, "Y" kern kkx#; ligtable "X": "a" kern kkx#, "A" kern kkx#, "b" kern kkx#, "B" kern kkx#, "c" kern kkx#, "C" kern kkx#, "d" kern kkx#, "D" kern kkx#, "e" kern kkx#, "E" kern kkx#, "g" kern kkx#, "G" kern kkx#, "j" kern kkx#, "J" kern kkx#, "l" kern kkx#, "L" kern kkx#, "o" kern kkx#, "O" kern kkx#, "q" kern kkx#, "Q" kern kkx#, "t" kern kkx#, "T" kern kkx#, "u" kern kkx#, "U" kern kkx#, "v" kern kkx#, "V" kern kkx#, "w" kern kkx#, "W" kern kkx#, "y" kern kkx#, "Y" kern kkx#; ligtable "a": "A": "b": "B": "c": "C": "d": "D": "e": "E": "h": "H": "i": "I": "k": "K": "l": "L": "m": "M": "n": "N": "o": "O": "p": "P": "t": "T": "u": "U": "v": "V": "w": "W": "z": "Z": "j" kern kkj#, "J" kern kkj#; ligtable "r": "a" kern kkr#, "A" kern kkr#, "b" kern kkr#, "B" kern kkr#, "c" kern kkr#, "C" kern kkr#, "d" kern kkr#, "D" kern kkr#, "e" kern kkr#, "E" kern kkr#, "f" kern kkrs#, "F" kern kkrs#, "g" kern kkrs#, "G" kern kkrs#, "h" kern kkr#, "H" kern kkr#, "i" kern kkr#, "I" kern kkr#, "j" kern kkj#, "J" kern kkj#, "k" kern kkrs#, "K" kern kkrs#, "l" kern kkr#, "L" kern kkr#, "m" kern kkr#, "M" kern kkr#, "n" kern kkrs#, "N" kern kkrs#, "o" kern kkr#, "O" kern kkr#, "p" kern kkrs#, "P" kern kkrs#, "q" kern kkr#, "Q" kern kkr#, "r" kern kkrs#, "R" kern kkrs#, "s" kern kkr#, "S" kern kkr#, "t" kern kkr#, "T" kern kkr#, "u" kern kkr#, "U" kern kkr#, "v" kern kkr#, "V" kern kkr#, "w" kern kkr#, "W" kern kkr#, "x" kern kkx#, "X" kern kkx#, "y" kern kkr#, "Y" kern kkr#, "z" kern kkr#, "Z" kern kkr#; ligtable "R": "a" kern kkr#, "A" kern kkr#, "b" kern kkr#, "B" kern kkr#, "c" kern kkr#, "C" kern kkr#, "d" kern kkr#, "D" kern kkr#, "e" kern kkr#, "E" kern kkr#, "f" kern kkrs#, "F" kern kkrs#, "g" kern kkrs#, "G" kern kkrs#, "h" kern kkr#, "H" kern kkr#, "i" kern kkr#, "I" kern kkr#, "j" kern kkj#, "J" kern kkj#, "k" kern kkrs#, "K" kern kkrs#, "l" kern kkr#, "L" kern kkr#, "m" kern kkr#, "M" kern kkr#, "n" kern kkrs#, "N" kern kkrs#, "o" kern kkr#, "O" kern kkr#, "p" kern kkrs#, "P" kern kkrs#, "q" kern kkr#, "Q" kern kkr#, "r" kern kkrs#, "R" kern kkrs#, "s" kern kkr#, "S" kern kkr#, "t" kern kkr#, "T" kern kkr#, "u" kern kkr#, "U" kern kkr#, "v" kern kkr#, "V" kern kkr#, "w" kern kkr#, "W" kern kkr#, "x" kern kkx#, "X" kern kkx#, "y" kern kkr#, "Y" kern kkr#, "z" kern kkr#, "Z" kern kkr#; fi bye. % % \end{macrocode} % % \subsection{The code for normal letters} % % The following code is for the lower case characters. % % \begin{macrocode} %<*min> % EGOTHL.MF Program file for Early Gothic lower case % % \end{macrocode} % % % \begin{routine}{a} % The letter `a'. % \begin{macrocode} cmchar "EGOTH letter a"; beginchar("a", 2sb#+hstretch*(9/16x_height#+jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pair pr[]; pickup quill; n1 := w - 2pcshiftx -jut; % effective letter width % "stem" rt x1 = w-pcshiftx-jut; top y1=h; x2 = x1; bot y2=0; z16 = 1/6[z2,z1]; rt x6 = x16; y6=y16; lft x4 = pcshiftx; y4 = 1/2h; % stem path pth1 := z1--z2; pr1 := direction 1 of pth1; z20 = z2 shifted -10pr1; z11 = point 3/13 of pth1; z15 = point 10/13 of pth1; lft x13 = pcshiftx; y13=1/4h; n2 := y13 - bot y13; z23 = (x13, y13+n2); z33 = (x13, y13-n2); %%ductus:=true; if ductus: pickup stylus; else: % draw stem draw pth1; draw_roundserif(1,2,srad); draw_roundserif(2,1,srad); % draw bowl %% draw z1{-pdir}..z4{down}..z6{pdir}; draw z11{-pdir}..z23{down}..z33..z15{pdir}; fi ductus:=false; penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100); endchar; % end "a" % \end{macrocode} % \end{routine} % % \begin{routine}{b} % The letter `b'. % \begin{macrocode} cmchar "EGOTH letter b"; beginchar("b", 2sb#+hstretch*(11/16x_height#+jut#), asc_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := sb; pickup quill; n1:=w-2pcshiftx; % actual letter width n2:=h/ascratio; % top of bowl %%ductus:=true; lft x1 = pcshiftx+jut; top y1=h; x3 = x1; y3=2/8n2; rt x5 = w-pcshiftx; y5=y3; x4 = 1/2[x3,x5]; bot y4=0; x6=1/2[x4,x5]; top y6=n2; pth1 := z1..z3{down}..z4{right}.. z5{up}; z98=(0,3/4n2); z99=(w,y98); pth2 := z98--z99; %z7 = pth1 intersectionpoint pth2; z7=(x1,6/8n2); if ductus: pickup stylus; fi draw z1--z3{down}..z4{right}..z5{up}..z6; draw z6--z7; draw_flatserif(1,3,srad); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,100); endchar; % end "b" % \end{macrocode} % \end{routine} % % % \begin{routine}{c} % The letter `c'. % \begin{macrocode} cmchar "EGOTH letter c"; beginchar("c", 2sb#+hstretch*(9/16x_height#), x_height#, 0); adjust_fit(0,0); numeric n[]; pcshiftx := sb; pickup quill; n1:=w-2pcshiftx; % actual letter width n2:=6/5w-2pcshiftx; % width of full bowl x1=pcshiftx + 1/2n1; top y1 = h; lft x2 = pcshiftx; y2 = 1/2h; x3 = x1; bot y3 = 0; rt x4 = w-pcshiftx; y4 = 1/4h; x24 = x4; y24 = 3/4h; %%ductus:=true; if ductus: pickup stylus; fi draw z24--z1{left}...z2{down}..z3{right}..z4{pdir}; ductus:=false; penlabels(1,2,3,4,5,6,14,16,17,18,100); endchar; % end "c" % \end{macrocode} % \end{routine} % % \begin{routine}{d} % The letter `d'. % \begin{macrocode} cmchar "EGOTH letter d"; beginchar("d", 2sb#+hstretch*(11/16x_height#+jut#), asc_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := sb; pickup quill; n1 = h/ascratio; % x-height rt x1=w-pcshiftx-jut; top y1=h; x2 = x1; bot y2=0; x3 = x1; y3 = 1/4n1; lft x5 = pcshiftx; y5=6/8n1; x4 = 3/8[x3,x5]; bot y4 = 0; x6=1/2[x4,x5]; top y6 = n1; x7=x3; top y7=n1; rt x8 = w-pcshiftx; y8=n1; if ductus: pickup stylus; fi draw z1--z2; draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z3..z4{left}..z5{up}..z6; draw z6..z7..z8; ductus:=false; penlabels(0,1,2,3,4,5,6,7,8,100); endchar; % end "d" % \end{macrocode} % \end{routine} % % \begin{routine}{e} % The letter `e'. % \begin{macrocode} cmchar "EGOTH letter e"; beginchar("e", sb#+hstretch*(15/16x_height#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pickup quill; n1 := w-pcshiftx; % actual letter width n2 := 6/8n1; % width of bowl x1 = pcshiftx + 5/8n2; top y1=h; lft x2 = pcshiftx; y2 = 1/2h; x3 = pcshiftx + 1/2n2; bot y3 = 0; rt x4 = pcshiftx + n2; y4 = 1/4h; %%z98=(0,3/8h); z99=(w,y98); z98=(0,2/8h); z99=(w,y98); pth1 := z98--z99; pth2 := z1{left}..z2{down}..z3{right}; z7 = pth1 intersectionpoint pth2; rt x9 = w-pcshiftx; y9 = 3/4h; z8=1/2[z7,z9]; z70 = z7 shifted 10pdir; z17 = whatever[z7,z70]; %%x17 = w-pcshiftx; top y17 = h; rt x27=w-pcshiftx; top y27=h; pth3 := z7--z27; % diagonal pth4 := z1--z9; z34 = pth3 intersectionpoint pth4; pth5 := z34--z1{left}...z2{down}..z3{right}..z4{pdir}; % bowl %%ductus:=true; if ductus: pickup stylus; fi %%draw z7{pdir}..z1{left}..z2{down}..z3{right}..z4{pdir}; %%draw z7{pdir}..z8{right}..z9{pdir}; %%draw z7--z17; draw pth5; % bowl draw pth3; % diagonal ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,17,27,34,70,100); endchar; % end "e" % \end{macrocode} % \end{routine} % % \begin{routine}{f} % The letter `f'. % \begin{macrocode} cmchar "EGOTH letter f"; beginchar("f", 2sb#+hstretch*(9/16x_height#+jut#), (asc_height#), 0); adjust_fit(0,0); numeric n[]; pcshiftx := sb; pickup quill; n1 := h/ascratio; % x-height %% stem lft x1=lft x2=pcshiftx+jut; top y1=h; bot y2=0; %% flick x4=x2; y4 = 1/2n1; %%rt x6=w-pcshiftx; y6 = 2/3h; %%x5 = 2/3[x4,x6]; top y5=h; x6 = x1; y6=y1; rt x8 = w-pcshiftx; y8=h; %% bar z14=1/2[z4,z1]; rt x16 = w -pcshiftx; bot y16 = y14; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z6{right}..z8{pdir}; % top draw z14{right}..z16{pdir}; % bar ductus:=false; ductus:=false; penlabels(1,2,3,4,5,6,7,8,14,15,16,100); endchar; % end "f" % \end{macrocode} % \end{routine} % % \begin{routine}{g} % The letter `g'. % \begin{macrocode} cmchar "EGOTH letter g"; beginchar("g", 2sb#+hstretch*(12/16x_height#+2jut#), x_height#, desc_depth#); adjust_fit(0,0); path pth[]; pair vec[]; numeric n[]; pcshiftx := sb; pickup quill; n1 := 4/5w - 2pcshiftx; % width of top o %% S shape x1 = x3 = x5 = 1/2w; top y1 = h; bot y5 = -d; y3 = 1/2[y1,y5]; lft x2 = pcshiftx + jut; rt x4 = w - pcshiftx - jut; y2 = 1/2[y1,y3]; y4 = 1/2[y3,y5]; %% bow z12 = (x4,y2); lft x16 = pcshiftx; bot y16=-d; pth2 := z16...z12{up}...z1; n2 := top y5; pth3 := (0, n2)--(w, n2); z6 = pth3 intersectionpoint pth2; %% top flick %lft x11 = rt x1; y11=y1; z11=z1; rt x13 = w-pcshiftx; y13 = h; %%ductus:=true; if ductus: pickup stylus; fi draw z1..z2{down}..z3..z4{down}..z5{left}..z6; % S draw pth2; % bow draw z11{right}..z13{pdir}; % flick ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,12,13,31,32,33,34,35,36,100); endchar; % end "g" % \end{macrocode} % \end{routine} % % \begin{routine}{h} % The letter `h'. % \begin{macrocode} cmchar "EGOTH letter h"; beginchar("h", 2sb#+hstretch*(11/16x_height#+jut#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; numeric n[]; %% stem lft x1=lft x2=pcshiftx+jut; top y1=h; bot y2=0; %% bowl z3=1/2[z2,z1]; rt x5 = w-pcshiftx; y5=y3; x4=9/16[x3,x5]; top y4 = h/ascratio; %%lft x6=x4; bot y6=0; x6=9/16[x4,x5]; bot y6=0; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z3--z4{right}...z5{down}...z6{-pdir}; ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "h" % \end{macrocode} % \end{routine} % % \begin{routine}{i} % The letter `i'. % \begin{macrocode} cmchar "EGOTH letter i"; beginchar("i", 2sb#+hstretch*(thick#+2jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; lft x1=lft x2=pcshiftx+jut; top y1=h; bot y2=0; %%ductus:=true; draw_tstem(1,2,srad); draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); ductus:=false; penlabels(1,2,100); endchar; % end "i" % \end{macrocode} % \end{routine} % % \begin{routine}{j} % The letter `j'. This letter was not in the script, it being a later invention. % \begin{macrocode} cmchar "EGOTH letter j"; beginchar("j", sb#+hstretch*(3/8x_height#), x_height#, desc_depth#); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% stem rt x1 = w-pcshiftx; top y1 = h; x2=x1; y2=-1/2d; %% bottom hook lft x3 = 0; bot y3 = -d; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; % stem draw_flatserif(1,2,srad); draw z2{down}..z3{-pdir}; % hook ductus:=false; penlabels(1,2,3,100); endchar; % end "j" % \end{macrocode} % \end{routine} % % \begin{routine}{k} % The letter `k'. % \begin{macrocode} cmchar "EGOTH letter k"; beginchar("k", 2sb#+hstretch*(13/16x_height#+jut#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; path pth[]; numeric n[]; pickup quill; %% stem n1 = h/ascratio; % x-height lft x1=lft x2=pcshiftx+jut; y1=h; bot y2=0; %% top arm %%z3=(x1,1/2n1); x3 = x1; top y3 = 1/2n1; rt x5=5/8[x1,w-pcshiftx]; top y5=n1; x4=1/2[x3,x5]; top y4=n1; pth1 := z3{pdir}..z5{up}; %% lower arm pth2 := (rt x1,0)--(rt x1,h); z13 = pth1 intersectionpoint pth2; pickup threequarterquill; lft x14 = x13; bot y14 = y13; rt x7=w-pcshiftx; bot y7=0; pickup quill; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw pth1; % upper arm pickup threequarterquill; %%draw z14{down}..z7{-ppdir}; % lower arm %%draw z14{down}..z7; % lower arm draw z14{-ppdir}..z7{right}; % lower arm pickup quill; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,13,14,100); endchar; % end "k" % \end{macrocode} % \end{routine} % % \begin{routine}{l} % The letter `l'. % \begin{macrocode} cmchar "EGOTH letter l"; beginchar("l", 2sb#+hstretch*(thick#+2jut#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; lft x1=pcshiftx+jut; top y1=h; x2=x1; bot y2 =0; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); ductus:=false; penlabels(1,2,3,4,100); endchar; % end "l" % \end{macrocode} % \end{routine} % % \begin{routine}{m} % The letter `m'. % \begin{macrocode} cmchar "EGOTH letter m"; beginchar("m", 2sb#+hstretch*(15/16x_height#+2jut#), % 12/16 too narrow, 14 a bit x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pickup quill; %% left stem lft x1=pcshiftx+jut; top y1=h; x2=x1; bot y2=0; %% start of bowl x13=x1; y13=3/4h; %% bottom of right and middle stems rt x6 = w -pcshiftx - jut; y6=y2; z4 = 1/2[z2,z6]; %% top of middle and right stems x3=x4; y3=y1; x5=x6; y5=y13; %% top of bowls x14=2/3[x13,x3]; top y14 = h; x33=x4; y33=y13; x34=2/3[x33,x5]; y34 = y14; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % left half draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z13--z14{right}..z33{down}--z4; draw_roundserif(4,3,srad); draw z33--z34{right}..z5{down}--z6; draw_roundserif(6,5,srad); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,13,14,33,34,100); endchar; % end "m" % \end{macrocode} % \end{routine} % % \begin{routine}{n} % The letter `n'. % \begin{macrocode} cmchar "EGOTH letter n"; beginchar("n", 2sb#+hstretch*(9/16x_height#+2jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; %% left stem lft x1=pcshiftx+jut; top y1=h; x2=x1; bot y2=0; % start of bowl x13=x1; y13=3/4h; %% right stem rt x4 = w-pcshiftx-jut; y4=y2; x3 = x4; y3 = y13; % top of bowl x14 = 2/3[x13,x3]; top y14 = h; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % left stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z13--z14{right}..z3{down}--z4; draw_roundserif(4,3,srad); ductus:=false; penlabels(1,2,3,4,5,6,13,14,100); endchar; % end "n" % \end{macrocode} % \end{routine} % % \begin{routine}{o} % The letter `o'. % \begin{macrocode} cmchar "EGOTH letter o"; beginchar("o", 2sb#+hstretch*(3/4x_height#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2; x2=x4=w/2; top y2=h+o; bot y4=-o; draw z1..z2..z3..z4..cycle; z5=(pcshiftx,-o); obowl(5, w-2pcshiftx, h+2o); %%ductus:=true; if ductus: pickup stylus; draw obfirst; draw obsecond; draw obouter; draw obinner; else: %% fill obouter; unfill obinner; fi ductus:=false; penlabels(1,2,3,4,5,100); endchar; % end "o" % \end{macrocode} % \end{routine} % % \begin{routine}{p} % The letter `p'. % \begin{macrocode} cmchar "EGOTH letter p"; beginchar("p", 2sb#+hstretch*(11/16x_height#+jut#), x_height#, desc_depth#); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% stem lft x1=lft x2=pcshiftx+jut; top y1=h; bot y2=-d; %% bowl % from "d" z3=3/4[(x1,0),z1]; rt x5 = w-pcshiftx; y5=1/2h; x4=1/2[x3,x5]; top y4 = h; x6=x4; bot y6=0; z7=1/4[(x1,0),z1]; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad) draw z3--z4; draw z4..z5{down}..z6{left}..z7; ductus:=false; penlabels(1,2,3,4,5,6,7,8,100); endchar; % end "p" % \end{macrocode} % \end{routine} % % \begin{routine}{q} % The letter `q'. % \begin{macrocode} cmchar "EGOTH letter q"; beginchar("q", 2sb#+hstretch*(3/4x_height#+jut#), x_height#, desc_depth#); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% right stem rt x1=w-pcshiftx-jut; top y1=h; x2=x1; bot y2=-d; %% bowl z3=1/4[(x1,0),z1]; lft x5=pcshiftx; y5=1/2h; x4=1/2[x3,x5]; bot y4=0; x6=x4; top y6=h; %%z7=3/4[(x1,0),z1]; z7=z1; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); %%draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z3{-pdir}..z4{left}..z5{up}..z6{right}..z7{pdir}; ductus:=false; penlabels(0,1,2,3,4,5,6,7,8,100); endchar; % end "q" % \end{macrocode} % \end{routine} % % \begin{routine}{r} % The letter `r'. % \begin{macrocode} cmchar "EGOTH letter r"; beginchar("r", 2sb#+hstretch*(13/16x_height#+jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% stem lft x1=lft x2=pcshiftx+jut; top y1=h; bot y2=0; %% bowl z3=3/4[z2,z1]; rt x5 = w-pcshiftx; y5=y3; x4=1/2[x3,x5]; top y4 = h; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z3{pdir}..z4{right}..z5{pdir}; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,100); endchar; % end "r" % \end{macrocode} % \end{routine} % % \begin{routine}{s} % The letter `s'. This is a `long' S. % \begin{macrocode} cmchar "EGOTH letter s"; beginchar("s", 2sb#+hstretch*(11/16x_height#+jut#), 5/6asc_height#, 0); adjust_fit(0,0); numeric n[]; pcshiftx := sb; pickup quill; n1 := (6/5h)/ascratio; % x-height %% stem lft x1=lft x2=pcshiftx+jut; top y1=n1; bot y2=0; %% flick x4=x2; y4 = 1/2n1; rt x6=w-pcshiftx; top y6 = h; x5 = 1/2[x4,x6]; %top y5 = y6; y5 = y6; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % stem draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); %%draw z4--z5--z6; draw z1--z5--z6; ductus:=false; penlabels(1,2,3,4,5,6,7,11,17,20,26,27,28,100); endchar; % end "s" % \end{macrocode} % \end{routine} % % \begin{routine}{t} % The letter `t'. % \begin{macrocode} cmchar "EGOTH letter t"; beginchar("t", 2sb#+hstretch*(15/16x_height#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% bar top y3=h; n3 := h - top y3; lft x1 = pcshiftx; rt x2=w-pcshiftx; %%top y1 = y3-n3; bot y2=y3+n3; y1 = y3-n3; y2=y3; n1 := w; % width of bowl n2 := h; % height of bowl x3=1/2[x1,x2]; lft x4 = pcshiftx + 1/8n1; y4 = 1/2h; x5=x3; bot y5 = 0; rt x6 = pcshiftx + 3/4n1; top y6 = 1/4h; %%ductus:=true; if ductus: pickup stylus; fi draw z1{pdir}..z3..z2{pdir}; % bar draw z3..z4{down}..z5{right}..z6{pdir}; ductus:=false; penlabels(1,2,3,4,5,6,11,12,100); endchar; % end "t" % \end{macrocode} % \end{routine} % % \begin{routine}{u} % The letter `u'. % \begin{macrocode} cmchar "EGOTH letter u"; beginchar("u", 2sb#+hstretch*(9/16x_height#+2jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; pickup quill; %% left stem lft x1 = pcshiftx + jut; top y1 = h; % start of bowl x13=x1; y13=1/3h; % right stem rt x3=w-pcshiftx-jut; y3=y1; x4=x3; bot y4=0; z33=1/4[z4,z3]; % start of bowl % middle of bowl x14=1/3[x1,x3]; bot y14=0; %%ductus:=true; if ductus: pickup stylus; fi %%draw z1--z13{down}...z14{right}...z33{pdir}; draw z1--z13--z14{right}...z33{pdir}; draw_flatserif(1,13,srad); draw_tstem(3,4,srad); % right stem draw_flatserif(3,4,srad); draw_roundserif(4,3,srad); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,13,14,16,33,100); endchar; % end "u" % \end{macrocode} % \end{routine} % % \begin{routine}{v} % The letter `v'. % \begin{macrocode} cmchar "EGOTH letter v"; beginchar("v", 2sb#+hstretch*(11/16x_height#+jut#), % 13/16 too wide x_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; %% left stem lft x1 = pcshiftx + jut; top y1 = h; %% right stem rt x5=w-pcshiftx; top y5 = h; bot y3 = 0; x3 = 1/2[x1,x5]; z51 = (x1,0); z55=(x5,0); %%ductus:=true; if ductus: pickup stylus; fi draw z1{down}..z3; % left stem draw_flatserif(1,51,srad); draw z5{down}..z3; % right stem draw_flatserif(5,55,srad); ductus:=false; penlabels(1,2,3,4,5,11,13,14,23,26,100); endchar; % end "v" % \end{macrocode} % \end{routine} % % \begin{routine}{w} % The letter `w'. This is a modern version as the font did not have a W. % \begin{macrocode} cmchar "EGOTH letter w"; beginchar("w", 2sb#+hstretch*(15/16x_height#+2jut#), x_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; %% left stem lft x1 = pcshiftx + jut; top y1 = h; % start of bowl x13=x1; y13=1/3h; % right stem rt x5=w-pcshiftx-jut; y5=y1; x6=x5; bot y6=0; z53=1/4[z6,z5]; % start of bowl % middle stem z3 = 1/2[z1,z5]; z33=(x3,y13); % middle of bowl x14=1/3[x1,x3]; bot y14=0; % middle of right bowl x34=1/3[x3,x5]; y34=y14; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z13--z14{right}...z33{pdir}; % left draw_flatserif(1,13,srad); draw z3--z33--z34{right}...z53{pdir}; % middle draw_flatserif(3,33,srad); draw_tstem(5,6,srad); % right stem draw_flatserif(5,6,srad); draw_roundserif(6,5,srad); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,13,14,33,34,53,16,100); endchar; % end "w" % \end{macrocode} % \end{routine} % % \begin{routine}{x} % The letter `x'. % \begin{macrocode} cmchar "EGOTH letter x"; beginchar("x", 2sb#+hstretch*(15/16x_height#), x_height#, desc_depth#); adjust_fit(0,0); path pth[]; numeric n[]; pcshiftx := sb; pickup quill; n1 := w-2pcshiftx; % total width n2 := thick; % triangle side %% diag top left to bottom right lft x1=pcshiftx+jut; top y1=h; rt x2=w-pcshiftx-jut; bot y2=0; z251 = 7/16[z1,z2]; %%z252 = 9/16[z1,z2]; z252 = z251; %% diag middle to top right x60 = w-pcshiftx; top y50 = h; x50 = 1/2[x251,x60]; top y60 = y50; %% diag bottom left to middle x10 = -1/3w; bot y10=-d; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; % top left to bottom right draw_flatserif(1,2,srad); draw_roundserif(2,1,srad); draw z251...z50{right}...z60; % middle to top right draw z10{right}..z252; % bottom left to middle ductus:=false; penlabels(1,2,3,4,5,6,7,8,10,25,251,252,40,50,150,60,160,100); endchar; % end "x" % \end{macrocode} % \end{routine} % % \begin{routine}{y} % The letter `y'. Modern, but with a dot on top. % \begin{macrocode} cmchar "EGOTH letter y"; beginchar("y", 2sb#+hstretch*(11/16x_height#+jut#), x_height#, desc_depth#); adjust_fit(0,0); pcshiftx := sb; path pth[]; numeric n[]; pickup quill; %% left stem top lft x1 = pcshiftx + jut; top y1 = h; bot y3 = 0; %% right stem rt x5=w-pcshiftx; top y5 = h; lft x9=-1/2w; bot y9 = -d; pth1 := z9{right}..z5{up}; pth2 := (0,y3)--(w,y3); z99 = pth1 intersectionpoint pth2; x3 = x99; z51 = (x1,0); z55=(x5,0); %%ductus:=true; if ductus: pickup stylus; fi draw z1{down}..z3; % left stem draw_flatserif(1,51,srad); draw pth1; % right stem draw_flatserif(5,55,srad); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,10,100); endchar; % end "y" % \end{macrocode} % \end{routine} % % % \begin{routine}{z} % The letter `z'. % \begin{macrocode} cmchar "EGOTH letter z"; beginchar("z", 2sb#+hstretch*(15/16x_height#), x_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := sb; pickup quill; %% top bar ends top y12 = h; n1 := h - y12; lft x1 = pcshiftx; rt x2 = w-pcshiftx; %%y1 = y12-n1; y2=y12+n1; y1 = y12-n1; y2=y12; x12 = 1/2[x1,x2]; pth1 := z1{pdir}..z12{right}..z2{pdir}; %% bottom bar ends bot y34 = 0; x3=x1; x4=x2; %%y3=y34-n1; y4=y34+n1; y3=y34-n1; y4=y34; x34 = 1/2[x3,x4]; pth2 := z3{pdir}..z34{right}..z4{pdir}; %% diagonal z5=z3; pth3 := z5--(3/4w,h+jut); z6 = pth3 intersectionpoint pth1; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw pth2; % bars draw z5--z6; ductus:=false; penlabels(1,2,3,4,5,6,10o,10i,20o,20i,100); endchar; % end "z" % \end{macrocode} % \end{routine} % % % The end of this file % \begin{macrocode} % % \end{macrocode} % % % % % \subsection{The code for capital letters} % % \thisfont{} `capitals' were drawn with the same pen as for the minuscules, % and the letters, in this case, are based on Square Capitals. % % \begin{macrocode} %<*maj> % EGOTHU.MF Program file for Early Gothic `capitals' % % \end{macrocode} % % % % \begin{routine}{A} % The letter `A'. % \begin{macrocode} cmchar "EGOTH letter A"; beginchar("A", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pair pr[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% legs x1 = 6/16w; top y1=h; rt x3 = w-pcshiftx - n1; bot y3= 0; pickup capthinquill; lft x2 = pcshiftx; bot y2 = 0; x21 = x2 + n2; y21 = y2; y22 = y21+n2; z22 = whatever[z2,z1]; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z3; draw (x1-n1,y1)--(x1,y1); draw (x3,y3)--(x3+n1,y3); %% right leg pickup capthinquill; draw z1--z2; %% left leg filldraw z2--z21{left}..{z1-z2}z22--cycle; ductus:=false; penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,100); endchar; % end "A" % \end{macrocode} % \end{routine} % % \begin{routine}{B} % The letter `B'. % \begin{macrocode} cmchar "EGOTH letter B"; beginchar("B", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := sqrcjut; %% stem lft x1 = pcshiftx + n1; top y1 = h; x2 = x1; bot y2 = 0; z12 = 1/2[z1,z2]; %% bottom bowl lft x21 = pcshiftx; bot y21 = 0; z22=z2; lft x27 = rt x12; y27 = y12; rt x25 = w-pcshiftx; y25 = 1/2[y22,y27]; pth1 := z21--z22{right}..z25{up}..{left}z27; %% top bowl z32 = z27; z37 = z1; x38 = x21; y38 = y37; rt x35 = x25; y35 = 1/2[y32,y37]; pth2 := z38--z37{right}..z35{down}..{left}z27; if ductus: pickup stylus; fi draw z1--z2; draw pth1; draw pth2; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,100); endchar; % end "B" % \end{macrocode} % \end{routine} % % % \begin{routine}{C} % The letter `C'. % \begin{macrocode} cmchar "EGOTH letter C"; beginchar("C", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; pcshiftx := cap_sb; pickup capquill; n1:=w-2pcshiftx; % actual letter width n2:=6/5w-2pcshiftx; % width of full bowl x1=pcshiftx + 1/2n1; top y1 = h; lft x2 = pcshiftx; y2 = 1/2h; x3 = x1; bot y3 = 0; rt x4 = w-pcshiftx; y4 = 1/4h; x24 = x4; y24 = 3/4h; %%ductus:=true; if ductus: pickup stylus; fi draw z24..z1{left}..z2{down}..z3{right}..z4{3pdir}; ductus:=false; penlabels(1,2,3,4,5,6,14,16,17,18,100); endchar; % end "C" % \end{macrocode} % \end{routine} % % \begin{routine}{D} % The letter `D'. % \begin{macrocode} cmchar "EGOTH letter D"; beginchar("D", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := rt x100 - lft x100; %% stem lft x1 = pcshiftx+sqrcjut; top y1=h; x2 = x1; bot y2 = 0; %% bowl lft x3 = pcshiftx; y3 = y1; z7 = (x3,y2); rt x5 = w-pcshiftx; y5 = 1/2[y3,y7]; pth1 := z3--z1{right}..{down}z5..{left}z2--z7; if ductus: pickup stylus; fi draw z1--z2; %% stem draw pth1; ductus:=false; penlabels(0,1,2,3,4,5,6,7,8,100); endchar; % end "D" % \end{macrocode} % \end{routine} % % \begin{routine}{E} % The letter `E'. % \begin{macrocode} cmchar "EGOTH letter E"; beginchar("E", cap_sb#+caprat*hstretch*(9/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1 = rt x100 - lft x100; %% stem lft x1 = pcshiftx+sqrcjut; top y1 = h; x2 = x1; bot y2=0; %% bars lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4=y3; x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5; x7 = x3; y7 = y2; x8 = x4; y8=y7; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; % stem draw z3--z4; draw z5--z6; draw z7--z8; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,17,70,100); endchar; % end "E" % \end{macrocode} % \end{routine} % % \begin{routine}{F} % The letter `F'. % \begin{macrocode} cmchar "EGOTH letter F"; beginchar("F", 2cap_sb#+caprat*hstretch*(9/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := rt x100 - lft x100; %% stem lft x1=lft x2=pcshiftx+sqrcjut; bot y1=h; bot y2=0; %% bars lft x3 = pcshiftx; y3 = y1; rt x4 = w-pcshiftx; y4 = y3; x5=x1; y5 = 6/16[y1,y2]; x6 = x4; y6 = y5; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw z3--z4; draw z5--z6; ductus:=false; penlabels(1,2,3,4,5,6,7,14,15,16,100); endchar; % end "F" % \end{macrocode} % \end{routine} % % \begin{routine}{G} % The letter `G'. % \begin{macrocode} cmchar "EGOTH letter G"; beginchar("G", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); path pth[]; pair vec[]; numeric n[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := sqrcjut; %% bar rt x52 = w - pcshiftx; y52 = 1/2h; x51 = x52 - 2n1; y51 = y52; z512 = 1/2[z51,z52]; x54=x512; bot y54 = 0; %% bowl lft x2 = pcshiftx; y2 = 1/2h; x4 = x512; y4 = 1/4h; x3 = x1 = 1/2[x2,x4]; bot y3 = 0; top y1 = h; x24 = x512; y24 = 3/4h; pth1 := z24..z1{left}..z2{down}..z3{right}..z4; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; %%draw z4--z512; draw z51--z52; draw z512--z54; draw (x512-n1,y512)--(x512,y512); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,12,13,24,31,32,33,34,35,36,51,52,512,100); endchar; % end "G" % \end{macrocode} % \end{routine} % % \begin{routine}{H} % The letter `H'. % \begin{macrocode} cmchar "EGOTH letter H"; beginchar("H", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; pickup capquill; numeric n[]; x100 = 0; n1 := sqrcjut; %% stems lft x1=lft x2=pcshiftx+sqrcjut; top y1=h; bot y2=0; rt x3 = w - pcshiftx - sqrcjut; x4 = x3; y3 = y1; y4 = y2; %% bar z12 = 7/16[z1,z2]; z34 = 7/16[z3,z4]; % serifs %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw z3--z4; draw z12--z34; %% serifs draw (x1-n1,y1)--(x1,y1); draw (x2,y2)--(x2+n1,y2); draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4); ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "H" % \end{macrocode} % \end{routine} % % \begin{routine}{I} % The letter `I'. % \begin{macrocode} cmchar "EGOTH letter I"; beginchar("I", 2cap_sb#+caprat*hstretch*(thick#+2sqrcjut#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; pickup capquill; x100 = 0; n1 := rt x100 - lft x100; x1 = x2 = 1/2w; top y1=h; bot y2=0; %% serifs lft x111 = pcshiftx; rt x112 = w-pcshiftx; x211 = x111; x212 = x112; draw z1--z2; %% serifs draw (x111,y1)--(x112,y1); draw (x211,y2)--(x212,y2); ductus:=false; penlabels(1,2,100); endchar; % end "I" % \end{macrocode} % \end{routine} % % \begin{routine}{J} % The letter `J'. This letter was not in the script, it being a later invention. % \begin{macrocode} cmchar "EGOTH letter J"; beginchar("J", 2cap_sb#+caprat*hstretch*(2thick#+sqrcjut#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; path pth[]; numeric n[]; pickup capquill; x100 = 0; n1 := sqrcjut; %% stem rt x1 = w-pcshiftx; top y1 = h; x2 = x1; y2 = 1/4h; %% hook lft x4 = pcshiftx; bot y4 = 0; pth1 := z4{pdir}..z2{up}; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2{down}..{-pdir}z4; % stem & hook draw (x1-n1,y1)--z1; ductus:=false; penlabels(1,2,3,100); endchar; % end "J" % \end{macrocode} % \end{routine} % % \begin{routine}{K} % The letter `K'. % \begin{macrocode} cmchar "EGOTH letter K"; beginchar("K", 2cap_sb#+caprat*hstretch*(16/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; path pth[]; numeric n[]; pickup capquill; x100 = 0; n1 := sqrcjut; %% stem lft x1 = pcshiftx+n1; top y1 = h; x2 = x1; bot y2 = 0; z12 = 1/2[z1,z2]; %% top arm x3 = rt x12; y3 = y12; x5 = 1/2[w - pcshiftx, x1]; y5 = y1; %%pth1 := z3{pdir}..{up}z5; pth1 := z3--z5; %% lower arm z7 = z3; rt x9 = w-pcshiftx; bot y9 = 0; pth2 := z7{-ppdir}..{right}z9; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw pth1; draw pth2; draw (x1-n1,y1)--(x1,y1); draw (x2-n1,y2)--(x2+n1,y2); draw (x5,y5)--(x5+n1,y5); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,13,14,100); endchar; % end "K" % \end{macrocode} % \end{routine} % % \begin{routine}{L} % The letter `L'. % \begin{macrocode} cmchar "EGOTH letter L"; beginchar("L", 2cap_sb#+caprat*hstretch*(9/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; pickup capquill; x100 = 0; n1 := sqrcjut; lft x1=pcshiftx+n1; bot y1=h; x2=x1; bot y2 =0; x3 = x2; rt x4 = w-pcshiftx; y3 = y4 = y2; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw z3--z4; draw (x1-n1,y1)--(x1,y1); ductus:=false; penlabels(1,2,3,4,100); endchar; % end "L" % \end{macrocode} % \end{routine} % % \begin{routine}{M} % The letter `M'. % \begin{macrocode} cmchar "EGOTH letter M"; beginchar("M", 2cap_sb#+caprat*hstretch*(19/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% thick stem tops lft x1=pcshiftx+n1; top y1=h; rt x3 = w - pcshiftx -2n1; y3 = y1; %% right stem bottom rt x4 = w - pcshiftx - n1; bot y4 = 0; %% the V x24 = 1/2w; bot y24 = 0; %% left stem top and bottom x81 = lft x1; y81 = top y1; pickup capthinquill; lft x11 = x81; top y11 = y81; lft x2 = pcshiftx; bot y2 = 0; x2a = x2+n2; y2a = y2; y2b = y2+n2; z2b = whatever[z2,z11]; pickup capquill; %% thin middle top and bottom x83 = lft x3; y83 = top y3; x824 = rt x24; y824 = bot y24; pickup capthinquill; lft x13 = x83; top y13 = y83; rt x124 = x824; bot y124 = y824; pickup capquill; pth124 := z1{-ppdir}..z24; pth34 := z3{down}..z4; %%ductus:=true; if ductus: pickup stylus; fi %% thick legs draw pth124; draw pth34; draw (x1-n1,y1)--(x1,y1); draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4); %% thin legs pickup capthinquill; draw z11--z2; filldraw z2--z2a{left}..{z11-z2}z2b--cycle; %%%%pickup quarterquill; draw z13--z124; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,13,14,33,34,100); endchar; % end "M" % \end{macrocode} % \end{routine} % % \begin{routine}{N} % The letter `N'. % \begin{macrocode} cmchar "EGOTH letter N"; beginchar("N", 2cap_sb#+caprat*hstretch*(14/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; path pth[]; numeric n[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% diagonal lft x1=pcshiftx+n1; top y1=h; rt x4 = w -pcshiftx-n1; bot y4 = 0; x101 = lft x1; x104 = rt x4; pth1 := z1{-ppdir}..z4; %% stems pickup capthinquill; lft x21 = x101; top y21 =h; x22 = x21; bot y22 = 0; x22a = x22+n2; y22a=y22; x22b = x22; y22b=y22+n2; rt x24 = x104; bot y24 = 0; x23 = x24; top y23 = h; x23a = x23-n2; x23b = x23+n1; y23a = y23b = y23; x23c = x23; y23c = y23-n2; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi %% diagonal draw pth1; draw (x1-n1,y1)--(x1,y1); %% stems pickup capthinquill; draw z21--z22; filldraw z22--z22a{left}..{up}z22b--cycle; draw z23--z24; filldraw z23--z23a{right}..{down}z23c{up}..{right}z23b--cycle; ductus:=false; penlabels(1,2,3,4,5,6,13,14,23,23a,23b,23c,100); endchar; % end "N" % \end{macrocode} % \end{routine} % % \begin{routine}{O} % The letter `O'. % \begin{macrocode} cmchar "EGOTH letter O"; beginchar("O", 2cap_sb#+caprat*hstretch*(17/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; pickup capquill; lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2; x2=x4=w/2; top y2=h+o; bot y4=-o; %%ductus:=true; if ductus: pickup stylus; fi draw z1..z2..z3..z4..cycle; ductus:=false; penlabels(1,2,3,4,5,100); endchar; % end "O" % \end{macrocode} % \end{routine} % % \begin{routine}{P} % The letter `P'. % \begin{macrocode} cmchar "EGOTH letter P"; beginchar("P", 2cap_sb#+caprat*hstretch*(13/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; path pth[]; numeric n[]; pickup capquill; x100 = 0; n1:= sqrcjut; %% stem lft x1=lft x2=pcshiftx+n1; top y1=h; bot y2=0; z12 = 1/2[z1,z2]; %% bowl lft x3 = pcshiftx; y3 = y1; x7 = x12; top y7 = y12; rt x5 = w-pcshiftx; y5 = 1/2[y3,y7]; pth1 := z3--z1{right}..z5{down}..{left}z7; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw pth1; %%draw (x2-n1,y2)--(x2+n1,y2); ductus:=false; penlabels(1,2,3,4,5,6,7,8,100); endchar; % end "P" % \end{macrocode} % \end{routine} % % \begin{routine}{Q} % The letter `Q'. % \begin{macrocode} cmchar "EGOTH letter Q"; beginchar("Q", 2cap_sb#+caprat*hstretch*(17/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; %% bowl lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2; x2=x4=w/2; top y2=h+o; bot y4=-o; pth1 := z1..z4..z3..z2..cycle; %% tail n1 := rt x1 - lft x1; pth2 := z1..z2..z3..z4; z5 = directionpoint pdir of pth1; x7 = x3 + 2n1; top y7 = -n1; pth3 := z5{-ppdir}..{pdir}z7; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw pth3; ductus:=false; penlabels(0,1,2,3,4,5,6,7,8,100); endchar; % end "Q" % \end{macrocode} % \end{routine} % % \begin{routine}{R} % The letter `R'. % \begin{macrocode} cmchar "EGOTH letter R"; beginchar("R", 2cap_sb#+caprat*hstretch*(15/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1:= sqrcjut; n3 := sqrcjutrat*sqrcjut; n2 := 11/15; %% P/R width ratio %% stem pickup capthinquill; lft x1=lft x2=pcshiftx+n1; top y1=h; bot y2=0; x2a = x2 + n3; y2a = y2; x2b = x2; y2b = y2+n3; z12 = 1/2[z1,z2]; pickup capquill; %% bowl lft x3 = pcshiftx; top y3 = h; x13 = x1; y13 = y3; lft x7 = x12; top y7 = y12; rt x5 = w*n2 - pcshiftx; y5 = 1/2[y3,y7]; pth1 := z3--z13{right}..z5{down}..{left}z7; %% leg z21 = z7; rt x23 = w-pcshiftx; bot y23 = 0; pth2 := z21{-ppdir}..{right}z23; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw pth2; pickup capthinquill; draw z1--z2; filldraw z2--z2a{left}..{up}z2b--cycle; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,100); endchar; % end "R" % \end{macrocode} % \end{routine} % % \begin{routine}{S} % The letter `S'. % \begin{macrocode} cmchar "EGOTH letter S"; beginchar("S", 2cap_sb#+caprat*hstretch*(15/18x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := rt x100 - lft x100; x1 = x3 = x5 = 1/2w; top y1 = h; bot y5 = 0; y3 = 1/2[y1,y5]; lft x2 = pcshiftx; rt x4 = w-pcshiftx; y2 = 1/2[y1,y3]; y4 = 1/2[y3,y5]; rt x101 = w-pcshiftx; top y101 = y1; lft x102 = pcshiftx; bot y102 = y5; pth1 := z101..z1..z2..z3..z4..z5..z102; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; ductus:=false; penlabels(1,2,3,4,5,6,7,11,17,20,26,27,28,100); endchar; % end "S" % \end{macrocode} % \end{routine} % % \begin{routine}{T} % The letter `T'. % \begin{macrocode} cmchar "EGOTH letter T"; beginchar("T", 2cap_sb#+caprat*hstretch*(10/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; %% bar lft x1 = pcshiftx; rt x2=w-pcshiftx; top y1 = top y2 = h; pth1 := z1{pdir}..{pdir}z2; %% stem z3 = 1/2[z1,z2]; x4 = x3; bot y4 = 0; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; % bar draw z3--z4; % stem ductus:=false; penlabels(1,2,3,4,5,6,11,12,100); endchar; % end "T" % \end{macrocode} % \end{routine} % % \begin{routine}{U} % The letter `U'. % \begin{macrocode} cmchar "EGOTH letter U"; beginchar("U", 2cap_sb#+caprat*hstretch*(15/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1 := sqrcjut; %% left stem lft x1 = pcshiftx + n1; top y1 = h; % start of bowl lft x13=pcshiftx; y13=1/3h; % right stem rt x3=w-pcshiftx-n1; y3=y1; x4=x3; bot y4=0; z33=1/4[z4,z3]; % start of bowl % middle of bowl x14=1/3[x1,x3]; bot y14=0; pth1 := z1..z13{down}..z14{right}..{pdir}z33; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw (x1-n1,y1)--(x1,y1); draw z3--z4; draw (x3-n1,y3)--(x3,y3); draw (x4,y4)--(x4+n1,y4); ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,13,14,16,33,100); endchar; % end "U" % \end{macrocode} % \end{routine} % % \begin{routine}{V} % The letter `V'. % \begin{macrocode} cmchar "EGOTH letter V"; beginchar("V", 2cap_sb#+caprat*hstretch*(13/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% stem tops lft x1 = pcshiftx + n1; top y1 = h; pickup capthinquill; rt x3 = w - pcshiftx; top y3 = h; x3a = x3-n2; y3a=y3; x3b = x3; y3b = y3-n2; pickup capquill; %% bottom x13 = 10/16[x1,x3]; bot y13 = 0; x83 = rt x13; y83 = top y13; pth1 := z1{down}..z13; pth2 := z3{down}..z83; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw (x1-n1,y1)--(x1,y1); pickup capthinquill; draw pth2; filldraw z3--z3a{right}..{down}z3b--cycle; ductus:=false; penlabels(1,2,3,4,5,11,13,14,23,26,100); endchar; % end "V" % \end{macrocode} % \end{routine} % % \begin{routine}{W} % The letter `W'. This is a modern version as the font did not have a W. % \begin{macrocode} cmchar "EGOTH letter W"; beginchar("W", 2cap_sb#+caprat*hstretch*(22/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; numeric n[]; path pth[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% thick leg tops lft x1 = pcshiftx + n1; top y1 = h; x3 = 1/2w; y3 = y1; %% thin leg top pickup capthinquill; rt x5 = w-pcshiftx; top y5 = h; x5a = x5-n2; y5a = y5; x5b = x5; y5b = y5-n2; pickup capquill; %% V bottoms x13 = 1/2[x1,x3]; bot y13 = 0; x35 = 1/2[x3,x5]; bot y35 = 0; pth113 := z1{down}..z13; pth335 := z3{down}..z35; x83 = x3; y83 = top y3; x813 = rt x13; y813 = bot y13; x835 = rt x35; y835 = bot y35; %% thin legs pickup capthinquill; rt x113 = x813; bot y113 = y813; rt x135 = x835; bot y135 = y835; %%ductus:=true; if ductus: pickup stylus; fi pickup capquill; draw pth113; draw pth335; draw (x1-n1,y1)--(x1,y1); pickup capthinquill; draw z113..{up}z3; draw z135..{up}z5; filldraw z5--z5a{right}..{down}z5b--cycle; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,11,13,14,33,34,53,16,100); endchar; % end "W" % \end{macrocode} % \end{routine} % % \begin{routine}{X} % The letter `X'. % \begin{macrocode} cmchar "EGOTH letter X"; beginchar("X", 2cap_sb#+caprat*hstretch*(17/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); path pth[]; numeric n[]; pcshiftx := cap_sb; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% diag top left to bottom right lft x1=pcshiftx+n1; top y1 = h; rt x2 = w - pcshiftx - n1; bot y2 = 0; %% diag top right to bottom left pickup capthinquill; rt x3 = w - pcshiftx - n1; top y3 = h; lft x4 = pcshiftx; bot y4 = 0; x3a = x3-n2; x3b = x3+n1; y3a = y3b = y3; y3c = y3-n2; z3c = whatever[z3,z4]; x4a = x4+n2; y4a = y4; y4b = y4+n2; z4b = whatever[z4,z3]; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw (x1-n1,y1)--(x1,y1); draw (x2,y2)--(x2+n1,y2); pickup capthinquill; draw z3--z4; filldraw z3--z3a{right}..{z4-z3}z3c{z3-z4}..{right}z3b--cycle; filldraw z4--z4a{left}..{z3-z4}z4b--cycle; ductus:=false; penlabels(1,2,3,4,5,6,7,8,10,25,251,252,40,50,150,60,160,100); endchar; % end "X" % \end{macrocode} % \end{routine} % % \begin{routine}{Y} % The letter `Y'. % \begin{macrocode} cmchar "EGOTH letter Y"; beginchar("Y", 2cap_sb#+caprat*hstretch*(13/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); pcshiftx := cap_sb; path pth[]; numeric n[]; pickup capquill; x100 = 0; n1 := sqrcjut; n2 := sqrcjutrat*sqrcjut; %% upright x5 = 1/2w; y5 = 1/2h; x6 = x5; bot y6 = 0; %% left stem top lft x1 = pcshiftx + n1; top y1 = h; %% right stem x85 = rt x5; y85 = top y5; pickup capthinquill; rt x3=w-pcshiftx; top y3 = h; x4=x85; y4 = y85; x3a=x3-n2; y3a = y3; y3b = y3-n2; z3b = whatever[z3,z4]; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi draw z5--z6; draw (x6-n1,y6)--(x6+n1,y6); % stem draw z1--z5; draw (x1-n1,y1)--(x1,y1); % left arm pickup capthinquill; draw z3--z4; filldraw z3--z3a{right}..{z4-z3}z3b--cycle; ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,10,100); endchar; % end "Y" % \end{macrocode} % \end{routine} % % % \begin{routine}{Z} % The letter `Z'. % \begin{macrocode} cmchar "EGOTH letter Z"; beginchar("Z", 2cap_sb#+caprat*hstretch*(13/13x_height#), caprat*x_height#, 0); adjust_fit(0,0); numeric n[]; n1 := sqrcjutrat*sqrcjut; path pth[]; pcshiftx := cap_sb; pickup capquill; %% top bar ends lft x1 = pcshiftx; rt x2 = w -pcshiftx; top y1 = top y2 = h; x101 = lft x1; y101 = top y1; %% bottom bar ends lft x3 = pcshiftx; rt x4 = w -pcshiftx; bot y3 = bot y4 = 0; x104 = rt x4; y104 = bot y4; pickup stylus; lft x11 = x101; top y11 = y101; x12 = x11; y12 = y11-n1; x13 = x11+n1; y13 = y11; rt x14 = x104; bot y14 = y104; x15 = x14; y15 = y14 + n1; x16 = x14 - n1; y16 = y14; pickup capquill; %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; draw z3--z4; draw z2--z3; pickup stylus; filldraw z11--z12{up}..{right}z13--cycle; filldraw z14--z15{down}..{left}z16--cycle; ductus:=false; penlabels(1,2,3,4,5,6,10o,10i,14,14,16,20o,20i,100); endchar; % end "Z" % \end{macrocode} % \end{routine} % % % % The end of this file % \begin{macrocode} % % \end{macrocode} % % % % % \subsection{The punctuation file} % % The main punctuation marks are defined in this file. % % \begin{macrocode} %<*punct> % EGOTHPUNCT.MF This file contains punctuation marks % \end{macrocode} % % % \begin{routine}{!} % The `!' character, which had not been invented at this time. % \begin{macrocode} cmchar "Exclamation mark"; beginchar("!", 2sb#+hstretch*(thick#+trijut#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; pickup quill; x1=w/2; top y1 = h; z3=(x1, 1/2dot_size); z2=(x1, y3+3/2dot_size); draw z1--z2; draw_pdot(3,dot_size); penlabels(1,2,3); endchar; % end of "!" % \end{macrocode} % \end{routine} % % \begin{routine}{?} % The `?' character, which had not been invented at this time. % \begin{macrocode} cmchar "Question mark"; beginchar("?", 2sb#+hstretch*(3/4x_height#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pickup quill; n1 := w-2pcshiftx; % actual character width n2 := 1/3h; % height of top bowl n3 := n2; % height of bottom bowl z5=(1/2w,1/2dot_size); x4 = x5; y4=y5+3/2dot_size; lft x1 = pcshiftx; y1 = 3/4h; x2 = 1/2w; top y2 = h; rt x3 = w-pcshiftx; y3 = 2/3h; %%ductus:= true; if ductus: pickup stylus; fi draw z1..z2{right}..z3{down}..z4{down}; draw_pdot(5, dot_size); penlabels(1,2,3,4,5); endchar; % end of "?" % \end{macrocode} % \end{routine} % % \begin{routine}{,} % The `,' character. % \begin{macrocode} cmchar "Comma"; beginchar(",",2sb#+hstretch*(comma_width#+dot_size#),x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=w-pcshiftx-(0.5hstretch*dot_size); y1=1/2dot_size; draw_pcomma(1,dot_size,comma_width); penlabels(1); endchar; % end of "," % \end{macrocode} % \end{routine} % % \begin{routine}{.} % The `.' character. % \begin{macrocode} cmchar "Period"; beginchar(".",2sb#+hstretch*(dot_size#),x_height#,0); pcshiftx:=sb; z1=(w/2, 1/2dot_size); draw_pdot(1,dot_size); penlabels(1); endchar; % end of "." % \end{macrocode} % \end{routine} % % % \begin{routine}{:} % The `:' character. % \begin{macrocode} cmchar "Colon"; beginchar(":",2sb#+hstretch*(dot_size#),x_height#,0); pcshiftx:=sb; x1=x2=w/2; y1=3/4h; y2=1/4h; draw_pdot(1,dot_size); draw_pdot(2,dot_size); penlabels(1,2); endchar; % end ":" % \end{macrocode} % \end{routine} % % \begin{routine}{;} % The `;' character. % \begin{macrocode} cmchar "Semicolon"; beginchar(";",2sb#+hstretch*(comma_width#+dot_size#),x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=x2=w-pcshiftx-(0.5hstretch*dot_size); y1=3/4h; y2=1/2dot_size; draw_pdot(1,dot_size); draw_pcomma(2,dot_size,comma_width); penlabels(1,2); endchar; % end of ";" % \end{macrocode} % \end{routine} % % \begin{routine}{'} % The `'' character. % \begin{macrocode} cmchar "Apostrophe"; beginchar("'",2sb#+hstretch*(comma_width#+dot_size#),4/3x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=w-pcshiftx-(0.5hstretch*dot_size); y1=h; draw_pcomma(1,dot_size,comma_width); penlabels(1); endchar; % end of "'" % \end{macrocode} % \end{routine} % % \begin{routine}{`} % The ``' character. % \begin{macrocode} cmchar "Reverse apostrophe"; beginchar("`",2sb#+hstretch*(comma_width#+dot_size#),4/3x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=pcshiftx+(0.5hstretch*dot_size); y1=h; draw_plq(1,dot_size,comma_width); penlabels(1); endchar; % end of "`" % \end{macrocode} % \end{routine} % % The end of this file. % \begin{macrocode} % % \end{macrocode} % % % \subsection{The ligatures and dashes file} % % The ligatured letters, punctuation marks and dashes are defined in this file. % \begin{macrocode} %<*lig> % EGOTHLIG.MF Uncial ligatured letters, punctation and dashes % \end{macrocode} % First the ligtables. % \begin{macrocode} ligtable "`": "`"=:oct"134"; ligtable "'": "'"=:oct"042"; %% , "?" kern 2u#, "!" kern 2u#; ligtable "-": "-"=:oct"173"; ligtable oct"173": "-"=:oct"174"; ligtable "c": "t"=:oct"014"; ligtable "s": "t"=:oct"015"; % \end{macrocode} % % \begin{routine}{ct} % The `ct' ligature. % \begin{macrocode} cmchar "EGOTH ct ligature"; beginchar(oct"014", 2sb#+hstretch*(6/4x_height#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pair vc[]; pickup quill; %%%%%%%%%%% C n1:=1/2(w-2pcshiftx); % actual letter width n2 := h/ascratio; % x-height x1=pcshiftx + 1/2n1; top y1 = n2; lft x2 = pcshiftx; y2 = 1/2n2; x3 = x1; bot y3 = 0; rt x4 = n1; y4 = 1/4n2; x6 = x4; %%y6 = 3/4n2; top y6 = y1; pth1 := z6..z1{left}..z2{down}..z3{right}..z4{pdir}; %%%%%%%%%%%%% T %% bar top y33=n2; n3 := n2 - top y33; %%lft x31 = n1+pcshiftx; lft x31 = n1; rt x32=w-pcshiftx; %%top y31 = y33-n3; bot y32=y33+n3; top y31 = y33-n3; y32=y33; x33=1/2[x31,x32]; pth2 := z31{pdir}..z33..z32{pdir}; % T bar n31 := n1; % width of bowl %%lft x34 = pcshiftx + n1 + 1/8n31; lft x34 = n1 + 1/8n31; y34 = 1/2n2; x35=x33; bot y35 = 0; rt x36 = pcshiftx + n1 + 3/4n31; top y36 = 1/4n2; pth3 := z33..z34{down}..z35{right}..z36{pdir}; % T bowl %%%%%%%%%%%%%%%%% Ligature z51=z6; z55=z33; x53 = 1/2[x51,x55]; top y53 = h; vc51 := direction 0 of pth1; vc55 := direction 0 of pth3; pth4 := z51{vc51}..z53{right}..z55{vc55}; % loop %%ductus:=true; if ductus: pickup stylus; fi draw pth1; % C draw pth2; % T bar draw pth3; % T bowl draw pth4; % ligature loop ductus:=false; penlabels(1,2,3,4,5,6,14,16,17,18,31,32,33,34,35,36,100); endchar; % end of "ct" % \end{macrocode} % \end{routine} % % % \begin{routine}{st} % The `st' ligature. % \begin{macrocode} cmchar "EGOTH st ligature"; beginchar(oct"015", 2sb#+hstretch*(9/8x_height#+clubjut#), asc_height#, 0); adjust_fit(0,0); pcshiftx := sb; numeric n[]; path pth[]; pair vc[]; pickup quill; %%%%%%%%%%% S n1:=3/7(w-2pcshiftx-clubjut); % actual letter width n2 := h/ascratio; % x-height %% stem lft x1=lft x2=pcshiftx+clubjut; top y1=n2; bot y2=0; %% flick x4=x2; y4 = 1/2n1; %%%%%%%%%%%%% T %% bar top y33=n2; n3 := n2 - top y33; %%lft x31 = n1+pcshiftx; lft x31 = n1; rt x32=w-pcshiftx; %%top y31 = y33-n3; bot y32=y33+n3; top y31 = y33-n3; y32=y33; x33=1/2[x31,x32]; pth2 := z31{pdir}..z33..z32{pdir}; % T bar n31 := n1; % width of bowl %%lft x34 = pcshiftx + n1 + 1/8n31; lft x34 = n1 + 1/8n31; y34 = 1/2n2; x35=x33; bot y35 = 0; rt x36 = pcshiftx + n1 + 3/4n31; top y36 = 1/4n2; pth3 := z33..z34{down}..z35{right}..z36{pdir}; % T bowl %%%%%%%%%%%%%%%%% Ligature z51=z4; z55=z33; x53 = 5/8[x51,x55]; top y53 = h; vc51 := up; vc55 := direction 0 of pth3; pth4 := z51{vc51}...z53{right}..z55{vc55}; % loop %%ductus:=true; if ductus: pickup stylus; fi draw z1--z2; % S stem draw_clubserif(1,2,0.5); draw_roundserif(2,1,srad); draw pth2; % T bar draw pth3; % T bowl draw pth4; % ligature loop ductus:=false; penlabels(1,2,3,4,5,6,14,16,17,18,31,32,33,34,35,36,100); endchar; % end of "st" % \end{macrocode} % \end{routine} % % \begin{routine}{''} % The `''' ligature. % \begin{macrocode} cmchar "Closing quotes"; beginchar(oct"042",2sb#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=w-pcshiftx-(0.5hstretch*dot_size); y1=y2=h; x2=x1-(2hstretch*dot_size); draw_pcomma(1,dot_size,comma_width); % right draw_pcomma(2,dot_size,comma_width); % left penlabels(1,2); endchar; % end of "''" % \end{macrocode} % \end{routine} % % \begin{routine}{``} % The ```' ligature. % \begin{macrocode} cmchar "Opening quotes"; beginchar(oct"134",2sb#+hstretch*(comma_width#+3dot_size#),4/3x_height#,0); adjust_fit(0,0); pcshiftx:=sb; x1=pcshiftx+(0.5hstretch*dot_size); y1=y2=h; x2=x1+(2hstretch*dot_size); draw_plq(1,dot_size,comma_width); % left draw_plq(2,dot_size,comma_width); % right penlabels(1,2); endchar; % end of "``" % \end{macrocode} % \end{routine} % % \begin{routine}{-} % The `-' (hyphen) character. % \begin{macrocode} cmchar "Hyphen"; beginchar("-",sb#+hstretch*(0.8x_height#),x_height#,0); adjust_fit(0,0); pcshiftx:=sb/2; %%numeric alpha; alpha:=w/8; %%pickup quill; %%lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2; %%x11=lft x1+alpha/2; y11=top y1-0.5thin; %%x12=rt x2; y12=bot y1+0.5thin; %%draw_triangle(11,alpha); %%draw_rutriangle(12,alpha); pickup halfquill; lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; draw z21--z22; draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); penlabels(1,2); endchar; % end of "-" % \end{macrocode} % \end{routine} % % \begin{routine}{--} % The `--' (en-dash) ligature. % \begin{macrocode} cmchar "En dash"; beginchar(oct"173",sb#+hstretch*(x_height#),x_height#,0); adjust_fit(0,0); pcshiftx:=sb/2; %%numeric alpha; alpha:=w/8; %%pickup quill; %%lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2; %%x11=lft x1+alpha/2; y11=top y1-0.5thin; %%x12=rt x2; y12=bot y1+0.5thin; %%draw_triangle(11,alpha); %%draw_rutriangle(12,alpha); pickup halfquill; lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; draw z21--z22; draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); penlabels(1,2); endchar; % end of "--" % \end{macrocode} % \end{routine} % % \begin{routine}{---} % The `---' (em dash) ligature. The em dash is twice the width of the en dash. % \begin{macrocode} cmchar "Em dash"; beginchar(oct"174",sb#+hstretch*(2x_height#),x_height#,0); adjust_fit(0,0); pcshiftx:=sb/2; %%numeric alpha; alpha:=w/8; %%pickup quill; %%lft x1 = pcshiftx; rt x2=w-pcshiftx; y1=y2=h/2; %%x11=lft x1+alpha/2; y11=top y1-0.5thin; %%x12=rt x2; y12=bot y1+0.5thin; %%draw_triangle(11,alpha); %%draw_rutriangle(12,alpha); pickup halfquill; lft x21=pcshiftx+jut; rt x22=w-pcshiftx-jut; y21=y22=1/2h; draw z21--z22; draw_roundserif(21,22,srad); draw_flatserif(22,21,srad); penlabels(1,2); endchar; % end of "---" % \end{macrocode} % \end{routine} % % % \begin{routine}{&} % The ampersand (which is really an `et' ligature). % \begin{macrocode} cmchar "EGOTH ampersand"; beginchar("&", 2sb#+hstretch*(5/4x_height#+2jut#), asc_height#, 0); adjust_fit(0,0); numeric n[]; path pth[]; pcshiftx:=sb; pickup quill; %% alpha looking part n1 := w-2pcshiftx-jut; % actual letter width n2 := h/ascratio; % x-height n3 := 16/16n2; % height of alpha x1 = w-pcshiftx; bot y1 = 0; x3 = pcshiftx + 12/16n1; y3 = 1/2n3; lft x5 = pcshiftx; y5 = y3; x4 = x6 = 1/2[x5,x3]; top y4 = n3; bot y6 = 0; %rt x8 = w-pcshiftx-jut; top y8=h; rt x8 = w-pcshiftx; top y8=h; x9 = x8-2jut; x10-x8 = x8-x9; y9=y10=y8; pth1 := z1{left}..z3..z4{left}..z5{down}..z6{right}..z3..z8{up}; %% loop z21 = z5; z25 = point 1.5 of pth1; x23 = 1/2[x21,x25]; y23 = 6/8[y4,y8]; pth2 := z21{up}..z23{right}..z25{down}; %%ductus:=true; if ductus: pickup stylus; fi draw pth1; draw z9--z8; % alpha draw pth2; % loop ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,10,16,17,18,19,21,22,23,24,25); endchar; % end of "&" % \end{macrocode} % \end{routine} % % % The end of this file. % \begin{macrocode} % % \end{macrocode} % % \subsection{The digits file} % % These are arabic digits in the style of the book-hand. They are a % modern invention. % % \begin{macrocode} %<*dig> % EGOTHDIG.MF Program file for Early Gothic digits % % \end{macrocode} % % % % \begin{routine}{1} % The digit `1'. % \begin{macrocode} cmchar "EGOTH digit 1"; beginchar("1", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; y100 = h/2; x100 = pcshiftx+y100; % square center pickup quill; x1=x2=w/2; y1=h; bot y2=0; %%ductus:=true; draw_tstem(1,2,srad); draw_flatserif(1,2,srad); %draw_roundserif(2,1,srad); draw_flatserif(2,1,srad); ductus:=false; proofpcbb(100, y100, y100); penlabels(1,2,100); endchar; % end "1" % \end{macrocode} % \end{routine} % % % \begin{routine}{2} % The digit `2'. % \begin{macrocode} cmchar "EGOTH digit 2"; beginchar("2", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; % stem lft x1=pcshiftx+o; top y1=h-2thin; x2=1/2w; top y2= h+o; rt x3=w-pcshiftx-o; y3=3/4h; % foot lft x5=pcshiftx; bot y5=0; rt x6=w-pcshiftx; y6=y5; %%ductus:=true; if ductus: pickup stylus; fi draw_wave(5,6,thin); % foot %draw z1..z2{right}..z3{down}..{-pdir}z5wl; % curve draw z1..z2{right}.. tension 0.75 ..z3{down}..{-pdir}z5wl; % curve ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "2" % \end{macrocode} % \end{routine} % % % \begin{routine}{3} % The digit `3'. % \begin{macrocode} cmchar "EGOTH digit 3"; beginchar("3", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; % x values lft x3=pcshiftx; x10=x3; rt x5=w-pcshiftx; x8=x5-3thin; x4=0.5[x3,x5]; x9=0.5[x10,x8]; %%lft x6=pcshiftx+3thin; x7=x6; x6=1/2[x3,x9]; x7=x6; % y values bot y3=thin; top y10=h-2thin; y6=0.5[y3,y10]; y7=y6; bot y4=-thin; top y9=h+thin; y5=0.5[y3,y6]; y8=11/12[y7,y10]; %%ductus:=true; if ductus: pickup stylus; fi %%draw z3..z4{right}..z5{up}...{-pdir}z6; % bottom bowl %%draw z7{pdir}..z8{up}..z9{left}..z10; % top bowl draw z3..z4{right}..z5{up}...{left}z6; % bottom bowl draw z7{right}..z8{up}..z9{left}..z10; % top bowl ductus:=false; penlabels(1,2,3,4,5,6,7,8,9,10,100); endchar; % end "3" % \end{macrocode} % \end{routine} % % \begin{routine}{4} % The digit `4'. % \begin{macrocode} cmchar "EGOTH digit 4"; beginchar("4", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; % the stem x1=x2=w-pcshiftx-jut; y1=h; bot y2=0; % the crossbar lft x3=pcshiftx; y3=0.33h; rt x4=w-pcshiftx; y4=y3; %%ductus:=true; if ductus: pickup stylus; fi draw_tstem(1,2,srad); % main stem draw_wave(3,4,thin); % crossbar draw z3wl--z1; % diagonal ductus:=false; penlabels(1,2,3,4,100); endchar; % end "4" % \end{macrocode} % \end{routine} % % % % \begin{routine}{5} % The digit `5'. % \begin{macrocode} cmchar "EGOTH digit 5"; beginchar("5", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; % for the top rt x1=w-pcshiftx; top y1=h; lft x2=pcshiftx; y2=y1; % the S curve x3=x2; y3=0.5h+thin; x4=0.5[x1,x3]; y4=0.5[y3,y5]; rt x5=w-pcshiftx; y5=0.3h; x6=w/2; bot y6=0; lft x7=pcshiftx; bot y7=2thin; %%ductus:=true; if ductus: pickup stylus; fi draw_wave(2,1,thin); % top squiggle draw z3{pdir}..z5{down}..z6{left}..z7; % curve draw z2wl--z3; % vertical ductus:=false; penlabels(1,2,3,4,5,6,7,100); endchar; % end "5" % \end{macrocode} % \end{routine} % % \begin{routine}{6} % The digit `6'. % \begin{macrocode} cmchar "EGOTH digit 6"; beginchar("6", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; rt x1=w-pcshiftx; top y1=h-2thin; x2=1/2w; top y2= h; lft x3=pcshiftx; y3=1/2h; x4=x2; bot y4=0; rt x5=w-pcshiftx; y5=1/4h; lft x6=rt x3; bot y6=y3; %%ductus:=true; if ductus: pickup stylus; fi %draw z1..z2{left}..z3{down}..z4{right}..z5{up}..{-pdir}z6; draw z1..z2{left}.. tension 0.8 ..z3{down}.. tension 0.8 ..z4{right}..z5{up}.. tension 0.8 ..{-pdir}z6; ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "6" % \end{macrocode} % \end{routine} % % % \begin{routine}{7} % The digit `7'. % \begin{macrocode} cmchar "EGOTH digit 7"; beginchar("7", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; % top bar lft x1=pcshiftx; rt x2=w-pcshiftx; top y1=top y2=h; % bowed leg x4=w/2; bot y4=0; x3=0.5[x2,x4]-3thin; y3=0.5[y2,y4]; %%ductus:=true; if ductus: pickup stylus; fi draw_wave(1,2,thin); % top bar draw z1wr..z3..z4; ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "7" % \end{macrocode} % \end{routine} % % \begin{routine}{8} % The digit `8'. % \begin{macrocode} cmchar "EGOTH digit 8"; beginchar("8", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; numeric alpha; alpha:=1; pickup quill; lft x1=alpha*pcshiftx+o; rt x3=w-alpha*pcshiftx-o; y1=y3=3/4h; x2=x4=w/2; top y2=h+o; bot y4=-o; x5=x2; y5=h/2+2o; lft x11=pcshiftx; rt x13=w-pcshiftx; y11=y13=1/4h; %%ductus:=true; if ductus: pickup stylus; fi %draw z1..z2..z3..z5..z11..z4..z13..z5..cycle; draw z1.. tension 0.8 ..z2.. tension 0.8 ..z3..z5.. z11.. tension 0.8 ..z4.. tension 0.8 ..z13..z5..cycle; ductus:=false; penlabels(1,2,3,4,5,11,13,100); endchar; % end "8" % \end{macrocode} % \end{routine} % % \begin{routine}{9} % The digit `9'. % \begin{macrocode} cmchar "EGOTH digit 9"; beginchar("9", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; pickup quill; lft x1=pcshiftx; bot y1=2thin; x2=1/2w; bot y2= 0; rt x3=w-pcshiftx; y3=1/2h; x4=x2; top y4=h; lft x5=pcshiftx; y5=3/4h; rt x6=lft x3; top y6=y3; %%ductus:=true; if ductus: pickup stylus; fi %draw z1..z2{right}..z3{up}..z4{left}..z5{down}..{pdir}z6; draw z1..z2{right}.. tension 0.8 ..z3{up}.. tension 0.8 ..z4{left}..z5{down}..{pdir}z6; ductus:=false; penlabels(1,2,3,4,5,6,100); endchar; % end "9" % \end{macrocode} % \end{routine} % % % \begin{routine}{0} % The digit `0'. % \begin{macrocode} cmchar "EGOTHIC digit 0"; beginchar("0", 2u#+fig_width#, fig_height#, 0); adjust_fit(0,0); pcshiftx := u; y100 = h/2; x100 = pcshiftx+y100; % square center pickup quill; lft x1=pcshiftx; rt x3=w-pcshiftx; y1=y3=h/2; x2=x4=w/2; top y2=h+o; bot y4=-o; %%ductus:=true; if ductus: pickup stylus; fi %draw z1..z2..z3..z4..cycle; draw z1.. tension 0.8 ..z2.. tension 0.8 ..z3.. tension 0.8 ..z4.. tension 0.8 ..cycle; ductus:=false; proofpcbb(100, y100, y100); penlabels(1,2,3,4,100); endchar; % end "0" % \end{macrocode} % \end{routine} % % % The end of this file. % \begin{macrocode} % % \end{macrocode} % % % \section{The font definition files} \label{sec:fd} % % The font comes in normal and bold weights only. % % \begin{macrocode} %<*fdot1> \DeclareFontFamily{OT1}{egoth}{} \DeclareFontShape{OT1}{egoth}{m}{n}{ <-8.5> egoth7 <8.5-15> egoth10 <15-> egoth17 }{} \DeclareFontShape{OT1}{egoth}{m}{sl}{ <-> sub * egoth/m/n }{} \DeclareFontShape{OT1}{egoth}{m}{it}{ <-> sub * egoth/m/n }{} \DeclareFontShape{OT1}{egoth}{m}{sc}{ <-> sub * egoth/m/n }{} \DeclareFontShape{OT1}{egoth}{m}{u}{ <-> sub * egoth/m/n }{} \DeclareFontShape{OT1}{egoth}{bx}{n}{ <-8.5> egothb7 <8.5-15> egothb10 <15-> egothb17 }{} \DeclareFontShape{OT1}{egoth}{bx}{it}{ <-> sub * egoth/bx/n }{} \DeclareFontShape{OT1}{egoth}{bx}{sl}{ <-> sub * egoth/bx/n }{} \DeclareFontShape{OT1}{egoth}{b}{n}{ <-> sub * egoth/bx/n }{} % % \end{macrocode} % % % \begin{macrocode} %<*fdt1> \DeclareFontFamily{T1}{egoth}{} \DeclareFontShape{T1}{egoth}{m}{n}{ <-8.5> egoth7 <8.5-15> egoth10 <15-> egoth17 }{} \DeclareFontShape{T1}{egoth}{m}{sl}{ <-> sub * egoth/m/n }{} \DeclareFontShape{T1}{egoth}{m}{it}{ <-> sub * egoth/m/n }{} \DeclareFontShape{T1}{egoth}{m}{sc}{ <-> sub * egoth/m/n }{} \DeclareFontShape{T1}{egoth}{m}{u}{ <-> sub * egoth/m/n }{} \DeclareFontShape{T1}{egoth}{bx}{n}{ <-8.5> egothb7 <8.5-15> egothb10 <15-> egothb17 }{} \DeclareFontShape{T1}{egoth}{bx}{it}{ <-> sub * egoth/bx/n }{} \DeclareFontShape{T1}{egoth}{bx}{sl}{ <-> sub * egoth/bx/n }{} \DeclareFontShape{T1}{egoth}{b}{n}{ <-> sub * egoth/bx/n }{} % % \end{macrocode} % % \section{The package code} \label{sec:code} % % \subsection{The \Lpack{egothic} package} % % The \Lpack{egothic} package is for typesetting short pieces of text % in the \thisfont{} fonts. % % Announce the name and version of the package, which requires % \LaTeXe{}. % \begin{macrocode} %<*usc> \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{egothic}[2002/12/30 v1.0 package for Early Gothic fonts] % \end{macrocode} % % \begin{macro}{\Tienc} % A macro for testing the value of |\encodingdefault|. % \begin{macrocode} \providecommand{\Tienc}{T1} % \end{macrocode} % \end{macro} % % % \begin{macro}{\egothfamily} % Selects the \thisfont{} font family in the OT1 or T1 encoding. % \begin{macrocode} \ifx\Tienc\encodingdefault \newcommand{\egothfamily}{\usefont{T1}{egoth}{m}{n}} \else \newcommand{\egothfamily}{\usefont{OT1}{egoth}{m}{n}} \fi % \end{macrocode} % \end{macro} % % \begin{macro}{\textegoth} % Text command for the \thisfont{} font family. % \begin{macrocode} \DeclareTextFontCommand{\textegoth}{\egothfamily} % \end{macrocode} % \end{macro} % % The end of this package. % \begin{macrocode} % % \end{macrocode} % % \subsection{The \Lpack{allegoth} package} % % The \Lpack{allegoth} package is intended for use when the entire document % will be typeset in the book-hand. This is a minimal package. Because the % book-hand should not contain arabic digits a fuller package would redefine % anything numbered in \LaTeX{} to use roman instead of arabic numbering. % Also, because of the large |\baselineskip| many other aspects of \LaTeX{} % to do with vertical positioning should also be redefined. % % % Announce the name and version of the package, which requires % \LaTeXe{}. It also uses the \Lpack{egothic} package. % \begin{macrocode} %<*uscall> \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{allegoth}[2002/12/30 v1.0 package for all Early Gothic fonts] \RequirePackage{egothic} % \end{macrocode} % % \begin{macro}{\Tienc} % A macro for testing the value of |\encodingdefault|. % \begin{macrocode} \providecommand{\Tienc}{T1} % \end{macrocode} % \end{macro} % % Redefine the default fonts to be \thisfont, which has only one family % member. % \begin{macro}{\rmdefault} % \begin{macro}{\sfdefault} % \begin{macro}{\ttdefault} % \begin{macrocode} \renewcommand{\rmdefault}{egoth} \renewcommand{\sfdefault}{egoth} \renewcommand{\ttdefault}{egoth} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % % The `leading' in the book-hands is a function of the |x-height|, which is % normally much % greater than for the CMR fonts. I have borrowed code from Frank Jensen's % \Lpack{beton} package~\cite{BETON} to do this. The |x-height| (in points) % for the CMR % fonts is given in Table~\ref{tab:cmrx}. Note that the CMR design sizes are % 5--10, 12, and 17.28 points. The other values given are scaled from these % figures. % % \begin{table} % \centering % \caption{The x heights of the CMR and \thisfont{} fonts} \label{tab:cmrx} % \begin{tabular}{ccc} \hline % Design & CMR & \thisfont \\ % Size & X Height & X Height \\ \hline % 5 & 2.14 & 3.00 \\ ^^A CMR skip = 6pt = 2.8 times % 6 & 2.58 & 3.61 \\ ^^A CMR skip = 7pt = 2.7 times % 7 & 3.00 & 4.20 \\ ^^A CMR skip = 8pt = 2.7 times % 8 & 3.44 & 4.81 \\ ^^A CMR skip = 9.5pt = 2.8 times % 9 & 3.86 & 5.40 \\ ^^A CMR skip = 11pt = 2.8 times % 10 & 4.31 & 6.03 \\ ^^A CMR skip = 12pt = 2.8 times % 11 & 4.74 & 6.64 \\ ^^A CMR skip = 13.6pt = 2.8 times % 12 & 5.17 & 7.24 \\ ^^A CMR skip = 14.5pt = 2.8 times % 14 & 6.03 & 8.44 \\ ^^A CMR skip = 18pt = 3.0 times % 17 & 7.44 & 10.41 \\ ^^A CMR skip = 22pt = 3.0 times % 20 & 8.75 & 12.25 \\ ^^A CMR skip = 25pt = 2.9 times % 25 & 10.94 & 15.32 \\ ^^A CMR skip = 30pt = 2.7 times % \hline % \end{tabular} % \end{table} % % \begin{macro}{\egoth@baselineskip@table} % A table of the normal font sizes and the corresponding baselineskip. % The distance between baselines for \thisfont{} is over twice % the |x-height|. ^^A actually 2.5 times to nearest half point % % \begin{macrocode} \newcommand{\egoth@baselineskip@table}{% <\@vpt>7.5% <\@vipt>9.0% <\@viipt>10.5% <\@viiipt>12.0% <\@ixpt>13.5% <\@xpt>15.0% <\@xipt>16.5% <\@xiipt>18.0% <\@xivpt>21.0% <\@xviipt>26.0% <\@xxpt>30.5% <\@xxvpt>38.5} % \end{macrocode} % \end{macro} % % \begin{macro}{\egoth@new@setfontsize} % This is a macro that replaces the |\@setfontsize| macro which is called by % the font size changing commands. % \begin{macrocode} \newcommand{\egoth@new@setfontsize}[3]{% \edef\@tempa{\def\noexpand\@tempb####1<#2}% \@tempa>##2<##3\@nil{\def\egoth@baselineskip@value{##2}}% \edef\@tempa{\noexpand\@tempb\egoth@baselineskip@table<#2}% \@tempa><\@nil \ifx\egoth@baselineskip@value\@empty \def\egoth@baselineskip@value{#3}% \fi \egoth@old@setfontsize{#1}{#2}\egoth@baselineskip@value} % \end{macrocode} % \end{macro} % % We had better give an author a means of using The Computer Modern fonts % if necessary. % % \begin{macro}{\cmrfamily} % \begin{macro}{\cmssfamily} % \begin{macro}{\cmttfamily} % These macros select the Computer Modern Roman, Sans, and Typewriter % font families in either the T1 or OT1 encodings. % \begin{macrocode} \ifx\Tienc\encodingdefault \providecommand{\cmrfamily}{\usefont{T1}{cmr}{m}{n}} \providecommand{\cmssfamily}{\usefont{T1}{cmss}{m}{n}} \providecommand{\cmttfamily}{\usefont{T1}{cmtt}{m}{n}} \else \providecommand{\cmrfamily}{\usefont{OT1}{cmr}{m}{n}} \providecommand{\cmssfamily}{\usefont{OT1}{cmss}{m}{n}} \providecommand{\cmttfamily}{\usefont{OT1}{cmtt}{m}{n}} \fi % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % % \begin{macro}{\textcmr} % Text command for the Computer Modern Roman font family. % \begin{macrocode} \DeclareTextFontCommand{\textcmr}{\cmrfamily} % \end{macrocode} % \end{macro} % % \begin{macro}{\textcmss} % Text command for the Computer Modern Sans font family. % \begin{macrocode} \DeclareTextFontCommand{\textcmss}{\cmssfamily} % \end{macrocode} % \end{macro} % % \begin{macro}{\textcmtt} % Text command for the Computer Modern Typewriter font family. % \begin{macrocode} \DeclareTextFontCommand{\textcmtt}{\cmttfamily} % \end{macrocode} % \end{macro} % % % At the start of the document, change the |\@setfontsize| macro and call % the normal font to implement the change. % \begin{macrocode} \AtBeginDocument{% \let\egoth@old@setfontsize=\@setfontsize \let\@setfontsize=\egoth@new@setfontsize} \AtBeginDocument{\normalsize} % \end{macrocode} % % % The end of this package. % \begin{macrocode} % % \end{macrocode} % % % % % % \Finale % \PrintIndex % \endinput %% \CharacterTable %% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z %% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z %% Digits \0\1\2\3\4\5\6\7\8\9 %% Exclamation \! Double quote \" Hash (number) \# %% Dollar \$ Percent \% Ampersand \& %% Acute accent \' Left paren \( Right paren \) %% Asterisk \* Plus \+ Comma \, %% Minus \- Point \. Solidus \/ %% Colon \: Semicolon \; Less than \< %% Equals \= Greater than \> Question mark \? %% Commercial at \@ Left bracket \[ Backslash \\ %% Right bracket \] Circumflex \^ Underscore \_ %% Grave accent \` Left brace \{ Vertical bar \| %% Right brace \} Tilde \~}