trunk/Master/texmf-dist/source/fonts

git-svn-id: svn://tug.org/texlive/trunk@111 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 1438 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/fonts/archaic/phoenician.dtx b/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
new file mode 100644
index 00000000000..a7780a1400f
--- /dev/null
+++ b/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
@@ -0,0 +1,1438 @@
+% \iffalse meta-comment
+%
+% phoenician.dtx
+%
+%  Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+%  Copyright 1999--2005 Peter R. Wilson
+%
+%  This work may be distributed and/or modified under the
+%  conditions of the Latex Project Public License, either
+%  version 1.3 of this license or (at your option) any
+%  later version.
+%  The latest version of the license is in
+%    http://www.latex-project.org/lppl.txt
+%  and version 1.3 or later is part of all distributions of
+%  LaTeX version 2003/06/01 or later.
+%
+%  This work has the LPPL maintenance status "author-maintained".
+%
+%  This work consists of the files listed in the README file.
+%
+%<*driver>
+\documentclass[twoside]{ltxdoc}
+\usepackage{phoenician}
+\usepackage{url}
+\usepackage[draft=false,
+            plainpages=false,
+            pdfpagelabels,
+            bookmarksnumbered,
+            hyperindex=false
+           ]{hyperref}
+\providecommand{\phantomsection}{}
+\OnlyDescription %% comment this out for the full glory
+\EnableCrossrefs
+\CodelineIndex
+\setcounter{StandardModuleDepth}{1}
+\makeatletter
+  \@mparswitchfalse
+\makeatother
+\renewcommand{\MakeUppercase}[1]{#1}
+\pagestyle{headings}
+\newenvironment{addtomargins}[1]{%
+  \begin{list}{}{%
+    \topsep 0pt%
+    \addtolength{\leftmargin}{#1}%
+    \addtolength{\rightmargin}{#1}%
+    \listparindent \parindent
+    \itemindent \parindent
+    \parsep \parskip}%
+  \item[]}{\end{list}}
+\begin{document}
+  \raggedbottom
+  \DocInput{phoenician.dtx}
+\end{document}
+%</driver>
+%
+% \fi
+%
+% \CheckSum{491}
+%
+% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
+% \DoNotIndex{\@centercr,\@cite}
+% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
+% \DoNotIndex{\@input,\@ixpt,\@m}
+% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
+% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
+% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
+% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
+% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
+% \DoNotIndex{\advance,\Alph,\alph}
+% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
+% \DoNotIndex{\bullet}
+% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
+% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
+% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
+% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
+% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
+% \DoNotIndex{\fbox}
+% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
+% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
+% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
+% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
+% \DoNotIndex{\input}
+% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
+% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
+% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
+% \DoNotIndex{\NeedsTeXFormat,\newdimen}
+% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
+% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
+% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
+% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
+% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
+% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
+% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
+% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
+% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
+% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
+% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
+% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
+% \DoNotIndex{\wd,\xiipt,\year,\z@}
+%
+% \changes{v1.0}{1999/03/14}{First public release}
+% \changes{v2.0}{2000/10/01}{Major changes to practically everything}
+% \changes{v2.1}{2005/04/04}{Minor circumstances and Type1}
+%
+% \def\fileversion{v1.0} \def\filedate{1999/03/14}
+% \def\fileversion{v2.0} \def\filedate{2000/10/01}
+% \def\fileversion{v2.1} \def\filedate{2005/04/04}
+% \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{\BC}{\textsc{bc}}
+% \newcommand{\AD}{\textsc{ad}}
+% \newcommand{\thisfont}{Phoenician}
+%
+% \title{The \Lpack{Phoenician} fonts\thanks{This
+%        file has version number \fileversion, last revised
+%        \filedate.}}
+%
+% \author{%
+% Peter Wilson\thanks{\texttt{herries dot press at earthlink dot net}}\\
+% Herries Press
+% }
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+%    The \Lpack{phoenician} package provides a set of Postscript Type1 
+% fonts for the Phoenician script used about 1100~\BC.
+% \end{abstract}
+% \tableofcontents
+% 
+%
+% \section{Introduction}
+%
+% The Phoenician alphabet and characters is a direct ancestor of our modern day
+% Latin alphabet and fonts. 
+% The font presented here is one of a series of fonts intended to show how
+% the modern Latin alphabet has evolved from its original Phoenician form
+% to its present day appearance.
+% 
+% 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{MITTELBACH04}.
+%
+%    Section~\ref{sec:usc} describes the usage of the package.
+% Commented MetaFont code for the fonts 
+% and source code for the package may be in later sections.
+%
+% \subsection{An alphabetic tree}
+%
+%    Scholars are reasonably agreed that all the world's alphabets are descended
+% from a Semitic alphabet invented about 1600~\BC{} in the Middle 
+% East~\cite{DRUCKER95}. The word `Semitic' refers
+% to the family of languages used in the geographical area from
+% Sinai in the south, up the Mediterranean coast to Asia Minor in the north and
+% west to the valley of the Euphrates.
+%
+%    The Phoenician alphabet was stable by about 1100~\BC{} and the script was
+% written right to left. In earlier times the writing direction was variable, 
+% and so were
+% the shapes and orientation of the characters. The alphabet consisted of
+% 22 letters and they were named after things. For example, their first two 
+% letters were called \textit{aleph} (ox), and \textit{beth} (house). 
+% The Phoenician script had
+% only one case --- unlike our modern fonts which have both upper- and 
+% lower-cases. In modern terms the Phoenician abecedary was: \\
+% A B G D E Y Z H $\Theta$ I K L M N X O P ts Q R S T \\
+% where the `Y' (\textit{vau}) character was sometimes written as `F', and
+% `ts' stands for the \textit{tsade} character.
+%
+%    The Greek alphabet is one of the descendants of the Phoenician alphabet;
+% another was Aramaic which is the ancestor of the Arabic, Persian and Indian 
+% scripts.
+% Initially Greek was written right to left but around the 6th C~\BC{} became 
+% \textit{boustrophedron}, meaning that the lines 
+% alternated in direction. At about 500~\BC{} the writing direction stabilised 
+% as left to 
+% right. The Greeks modified the Phoenician alphabet to match the vocalisation
+% of their language. They kept the Phoenician names of the letters, suitably
+% `greekified', so \textit{aleph} became the familar \textit{alpha} and 
+% \textit{beth} became \textit{beta}. At this
+% point the names of the letters had no meaning. Their were several variants
+% of the Greek character glyphs until they were finally fixed in Athens in
+% 403~\BC.
+% The Greeks did not develop a lower-case 
+% script until about 600--700~\AD.
+%
+%    The Etruscans based their alphabet on the Greek one, and again modified it.
+% However, the Etruscans wrote right to left, so their borrowed characters are 
+% mirror images of the original Greek ones. Like the Phoenicians, the Etruscan
+% script consisted of only one case; they died out before ever needing a
+% lower-case script. The Etruscan script was used up until the first century 
+% \AD, even though the Etruscans themselves had dissapeared by that time.
+% 
+%
+%    In turn, the Romans based their alphabet on the Etruscan one, but as they 
+% wrote left to right, the characters were again mirrored (although the early
+% Roman inscriptions are boustrophedron). 
+%
+%    As the English alphabet is descended from the Roman alphabet
+% it has a pedigree of some three and a half thousand years.
+%
+% \section{The \Lpack{phoenician} package} \label{sec:usc}
+%
+%    The Phoenician alphabet consisted of 22 letters.
+% The Phoenician font as provided here consists of 23 letter shapes
+% as there appears to be two forms of the letter \textit{vav}. 
+% I have used infromation from Johanna Drucker~\cite{DRUCKER95},
+% John Healey~\cite{HEALEY90} and
+% Richard Firmage~\cite{FIRMAGE93}, as well as the
+% \textit{Encyclopedia Brittanica}, in deciding on the letter shapes.
+%
+%
+%    Table~\ref{tab} lists, in the \thisfont{} alphabetical order, the
+% transliterated value of the characters and, where I know it, the
+% modern name of the character.
+%
+% \begin{table}
+% \centering
+% \caption{The \thisfont{} script and alphabet}\label{tab}
+% \begin{tabular}{cclcll} \hline
+% Glyph & Value & Name & ASCII & Commands (L-R) & Commands (R-L)\\ \hline
+% \textphnc{a} & \textit{a} &
+% aleph &
+% ' a & |\Arq| |\Aa| |\Aaleph| &
+% |\ARrq| |\ARa| |\ARaleph|
+% \\
+% \textphnc{b} & \textit{b} &
+% beth &
+% b & |\Ab| |\Abeth| &
+% |\ARb| |\ARbeth|
+% \\
+% \textphnc{g} & \textit{g} &
+% gimel &
+% g & |\Ag| |\Agimel| &
+% |\ARg| |\ARgimel|
+% \\
+% \textphnc{d} & \textit{d} &
+% daleth &
+% d & |\Ad| |\Adaleth| &
+% |\ARd| |\ARdaleth|
+% \\
+% \textphnc{h} & \textit{h} &
+% he &
+% h & |\Ah| |\Ahe| &
+% |\ARh| |\ARhe| 
+% \\
+% \textphnc{f} & \textit{w} &
+% vav &
+% f & |\Af| |\Avaf| &
+% |\ARf| |\ARvaf|
+% \\
+% \textphnc{w} & \textit{w} &
+% vav &
+% w & |\Aw| |\Avav| &
+% |\ARw| |\ARvav|
+% \\
+% \textphnc{z} & \textit{z} &
+% zayin &
+% z & |\Az| |\Azayin| &
+% |\ARz| |\ARzayin|
+% \\
+% \textphnc{H} & \textit{\d{h}} &
+% heth &
+% H & |\Ahd| |\Aheth| &
+% |\ARhd| |\ARheth|
+% \\
+% \textphnc{T} & \textit{\d{t}} &
+% teth &
+% T & |\Atd| |\Ateth| &
+% |\ARtd| |\ARteth|
+% \\
+% \textphnc{y} & \textit{y} &
+% yod &
+% y & |\Ay| |\Ayod| &
+% |\ARy| |\ARyod|
+% \\
+% \textphnc{k} & \textit{k} &
+% kaph &
+% k & |\Ak| |\Akaph| &
+% |\ARk| |\ARkaph|
+% \\
+% \textphnc{l} & \textit{l} &
+% lamed &
+% l & |\Al| |\Alamed| &
+% |\ARl| |\ARlamed|
+% \\
+% \textphnc{m} & \textit{m} &
+% mem &
+% m & |\Am| |\Amem| &
+% |\ARm| |\ARmem|
+% \\
+% \textphnc{n} & \textit{n} &
+% nun &
+% n & |\An| |\Anun| &
+% |\ARn| |\ARnun|
+% \\
+% \textphnc{s} & \textit{s} &
+% samekh &
+% s & |\As| |\Asamekh| &
+% |\ARs| |\ARsamekh|
+% \\
+% \textphnc{o} & \textit{`} &
+% ayin &
+% ` o & |\Alq| |\Ao| |\Aayin| &
+% |\ARlq| |\ARo| |\ARayin|
+% \\
+% \textphnc{p} & \textit{p} &
+% pe &
+% p & |\Ap| |\Ape| &
+% |\ARp| |\ARpe|
+% \\
+% \textphnc{x} & \textit{\d{s}} &
+% sade &
+% x & |\Asd| |\Asade| &
+% |\ARsd| |\ARsade|
+% \\
+% \textphnc{q} & \textit{q} &
+% qoph &
+% q & |\Aq| |\Aqoph| &
+% |\ARq| |\ARqoph|
+% \\
+% \textphnc{r} & \textit{r} &
+% resh &
+% r & |\Ar| |\Aresh| &
+% |\ARr| |\ARresh|
+% \\
+% \textphnc{S} & \textit{\v{s}} &
+% shin &
+% S & |\Asv| |\Ashin| &
+% |\ARsv| |\ARshin|
+% \\
+% \textphnc{t} & \textit{t} &
+% tav &
+% t & |\At| |\Atav| &
+% |\ARt| |\ARtav|
+% \\
+% \hline
+% \end{tabular}
+% \end{table}
+%
+%
+%
+%
+% \DescribeMacro{\phncfamily}
+%    This command selects the Phoenician font family. The family name is |phnc|.
+%
+% \DescribeMacro{\textphnc}
+% The command |\textphnc{|\meta{text}|}| typesets \meta{text} in the
+% Phoenician font.
+%     
+%    I have provided three ways of accessing the \thisfont{} glyphs: 
+% (a) by ASCII characters,
+% (b) by commands whose names are based on the transliterated values, and
+% (c) by commands whose names are based on the (modern) name of the
+%     character.
+% These are shown in Table~\ref{tab} for left-to-right writing. For
+% right-to-left typesetting the glyphs, which are mirror images of
+% those for left-to-right writing, can only be accessed by commands
+% corresponding to those in the table --- those that are of the form
+% |\ARxxx| instead of |\Axxx|.
+%
+% \DescribeMacro{\translitphnc}
+%    The command |\translitphnc{|\meta{commands}|}| will typeset the
+% transliteration of the \thisfont{} character commands (those in the
+% last two columns of Table~\ref{tab}).
+%
+% \DescribeMacro{\translitphncfont}
+%    The font used for the transliteration is defined by this macro,
+% which is initialised to an italic font (i.e., |\itshape|).
+%
+%
+% \StopEventually{
+%
+% \bibliographystyle{alpha}
+% \begin{thebibliography}{GMS94}
+%
+% \bibitem[Dru95]{DRUCKER95}
+% Johanna Drucker.
+% \newblock \emph{The Alphabetic Labyrinth}.
+% \newblock Thames and Hudson, 1995.
+%
+% \bibitem[Fir93]{FIRMAGE93}
+% Richard A.~Firmage.
+% \newblock \emph{The Alphabet Abecedarium}.
+% \newblock David R.~Goodine, 1993.
+%
+% \bibitem[Hea90]{HEALEY90}
+% John F.~Healey.
+% \newblock \emph{The Early Alphabet}.
+% \newblock University of California Press/British Museum, 1990.
+%
+% \bibitem[MG04]{MITTELBACH04}
+% Frank Mittelbach and Michel Goossens.
+% \newblock \emph{The LaTeX Companion}.
+% \newblock Addison-Wesley Publishing Company, second edition, 2004.
+%
+% \end{thebibliography}
+% \PrintIndex
+% }
+%
+% \section{The Metafont code} \label{sec:mf}
+%
+% \subsection{The parameter file}
+%
+%    We deal with the parameter file first, and start by announcing
+% what it is for.
+%    \begin{macrocode}
+%<*up>
+%%% PHNC10.MF  Computer Phoenician font 10 point design size.
+
+%    \end{macrocode}
+%    Specify the font size.
+%    \begin{macrocode}
+
+font_identifier:="phoenician"; font_size 10pt#;
+
+%    \end{macrocode}
+%
+%
+% \begin{macro}{u} 
+% \begin{macro}{ht} 
+% \begin{macro}{s} 
+% \begin{macro}{o} 
+% \begin{macro}{px} 
+% \begin{macro}{font-normal-space} 
+% \begin{macro}{font-normal-shrink} 
+% \begin{macro}{font-x-height} 
+% \begin{macro}{font-quad}
+%    Define the very simple font parameters.
+%    \begin{macrocode}
+u#:=.2pt#;                 % unit width
+ht#:=7pt#;                 % height of characters (CM cap-height is approx 6.8pt)
+s#:=1.5pt#;                % width correction (right and left)
+o#:=1/20pt#;               % overshoot
+px#:=.7pt#;                % horizontal width of pen
+font_normal_space:=7pt#;   % width of a blank space
+font_normal_shrink:=.9pt#; % width correction for blank space
+font_x_height:=4.5pt#;     % height of one ex
+font_quad:=10pt#;          % an em
+
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%    For a full font, normally the driver file would be called next.
+% In this case I have embedded it.
+%    \begin{macrocode} 
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% end of parameters
+% start of driver code
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%    \end{macrocode}
+%
+%
+% \subsection{The driver file}
+%
+%    If there was a seperate driver file, this would be its contents.
+%
+%    \begin{macrocode}
+
+font_coding_scheme:="Phoenician glyphs";
+mode_setup;
+
+%    \end{macrocode}
+%
+% \begin{macro}{ho}
+% \begin{macro}{leftloc}
+% \begin{macro}{py}
+%  Perform additional setup.
+%    \begin{macrocode}
+ho#:=o#;                   % horizontal overshoot
+leftloc#:=s#;              % leftmost xcoord of character
+py#:=.9px#;                % vertical thickness of the pen
+
+define_pixels(s,u);
+define_blacker_pixels(px,py);
+define_good_x_pixels(leftloc);
+define_corrected_pixels(o);             % turn on overshoot correction
+define_horizontal_corrected_pixels(ho);  
+
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{midloc}
+% \begin{macro}{rightloc}
+%    Variables for the middle xcoord and rightmost xcoord of a character.
+%    \begin{macrocode}
+numeric midloc, rightloc;
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{stylus}
+%    Define the pen.
+%    \begin{macrocode}
+pickup pencircle xscaled px yscaled py;
+stylus:=savepen;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{beginglyph}
+%    A macro to save some typing of beginchar arguments.
+%    \begin{macrocode}
+def beginglyph(expr code, unit_width) =
+  beginchar(code, unit_width*ht#+2s#, ht#, 0);
+  midloc:=1/2w; rightloc:=(w-s);
+  pickup stylus enddef;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{cmchar}
+%    |cmchar| should precede each character
+%    \begin{macrocode}
+let cmchar=\;
+
+%    \end{macrocode}
+% \end{macro}
+% 
+%    This would be the end of the driver file, except for calling the
+% glyph code file.
+%
+%
+% \subsection{The glyph code}
+%
+%    The following code generates the glyphs for the Phoenician font. The characters
+% are defined in the Phoenician alphabetic ordering.
+%
+%    \begin{macrocode}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% end of driver code
+% start of glyph code
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%    \end{macrocode}
+%
+% \begin{macro}{'}
+% The Phoenician \textit{alpeh} (ox), which is like our A but tilted.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter alpeh (')";
+beginglyph("'",0.6);
+x3=rightloc; y3=0.5h;                % apex
+x1=0.1[leftloc, rightloc]; y1=0.1h; % bottom leg end
+z2=(leftloc,0.9h);                    % top leg end
+x7= 0.7[leftloc, rightloc]; y7=0;   % construction points
+x6= 0.2[leftloc, rightloc]; y6=h;
+z4'= whatever[z1,z3] = whatever[z7,z6]; % bottom leg intersection
+z5'= whatever[z2,z3] = whatever[z7,z6]; % top leg intersection
+z4 = 1.2[z5', z4']; z5 = 1.1[z4', z5'];
+draw z1--z3--z2;    % the legs
+draw z4--z5;        % the bar
+labels(1,2,3,4,4',5,5',6,7);
+endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{a}
+% The Phoenician \textit{alpeh} (ox), which is like our A but tilted.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter alpeh (a)";
+beginglyph("a",0.6);
+x3=rightloc; y3=0.5h;                % apex
+x1=0.1[leftloc, rightloc]; y1=0.1h; % bottom leg end
+z2=(leftloc,0.9h);                    % top leg end
+x7= 0.7[leftloc, rightloc]; y7=0;   % construction points
+x6= 0.2[leftloc, rightloc]; y6=h;
+z4'= whatever[z1,z3] = whatever[z7,z6]; % bottom leg intersection
+z5'= whatever[z2,z3] = whatever[z7,z6]; % top leg intersection
+z4 = 1.2[z5', z4']; z5 = 1.1[z4', z5'];
+draw z1--z3--z2;    % the legs
+draw z4--z5;        % the bar
+labels(1,2,3,4,4',5,5',6,7);
+endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{b}
+% The Phoenician \textit{beth} (house), somewhat like a modern P.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter beth (b)";
+beginglyph("b",0.6);
+x1=x3=0.2[leftloc, rightloc];
+rt x4=rightloc; y4= 0.75h;
+x2=leftloc;
+bot y1=-o; top y3=h; y2=0.5h;
+draw z1..z2..z3;               % the upright
+draw z3--z4--z2;               % upper bowl
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{g}
+%    The Phoenician \textit{gimel} (camel). Like a broken topped T.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter gimel (g)";
+beginglyph("g", 0.6);
+x3=leftloc; x1=x2=midloc; x4=rightloc;
+bot y1=-o; y2=y3=h;
+y4=0.8h;
+draw z1--z2;      % the stem
+draw z3--z2--z4;  % the top bar
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{D}
+% The Phoenician \textit{daleth} (door); it's like the Greek \textit{delta} ($\Delta$).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter daleth (d)";
+beginglyph("d",0.6);
+x1=leftloc; x2=rightloc; x3=midloc;
+bot y1= bot y2= 0; top y3=h;
+draw z1--z2--z3--cycle;
+labels(1,2,3); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{h}
+% The Phoenician \textit{he} (window?), like a droopy E.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter he (h)";
+beginglyph("h",0.6);
+numeric alpha;
+alpha:=0.1;
+x4=x5=x6=x7=leftloc;
+x1=x2=x3=rightloc; 
+bot y4=-o; y7=h;
+y6=.7h; y5=.4h;
+y1=y5-alpha*h; y2=y6-alpha*h; y3=y7-alpha*h;
+draw z4--z7;                           % the upright
+draw z1--z5; draw z2--z6; draw z3--z7; % the arms
+labels(1,2,3,4,5,6,7); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{f}
+% This is one of forms of the Phoenician \textit{vau} (nail). 
+% It's like a 2-armed E.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter vau (f)";
+beginglyph("f",0.6);
+numeric alpha;
+alpha:=0.1;
+x4=x5=x6=x7=leftloc;
+x1=x2=x3=rightloc; 
+bot y4=-o; y7=h;
+y6=.6h; y5=.4h;
+y1=y5-alpha*h; y2=y6-alpha*h; y3=y7-alpha*h;
+draw z4--z7;                           % the upright
+draw z2--z6; draw z3--z7;              % the arms
+labels(1,2,3,4,5,6,7); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{z}
+% The Phoenician \textit{zayin} (dagger?). It looks like a modern seriffed I.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter zayin (z)";
+beginglyph("z",0.2);
+x1=x2=midloc;
+bot y1=-o; top y2=h;
+draw z1--z2;         % the upright
+x3=x5=leftloc; x4=x6=rightloc;
+y3=y4=y1;  y5=y6=y2;
+draw z3--z4;         % lower bar
+draw z5--z6;         % upper bar
+labels(1,2); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% 
+%
+%
+% \begin{macro}{H}
+% The Phoenician \textit{cheth} (fence?). It looks like a rectangle with two horizontal 
+%  internal bars.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter cheth (H)";
+beginglyph("H", 0.6);
+numeric alpha;
+alpha:=0.1;
+x4=x6=leftloc;
+x1=x3=rightloc; 
+bot y1=-o; top y6=h;
+y3=y6-alpha*h; y4=y1+alpha*h;
+z2=0.35[z1,z3]; z5=0.35[z4,z6]; % ends of one bar
+z7=0.65[z1,z3]; z8=0.65[z4,z6]; % other bar
+draw z1--z3--z6--z4--cycle;     % outer boundary
+draw z2--z5; draw z7--z8;       % the bars
+
+labels(1,2,3,4,5,6); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{Thet}
+% The Phoenician \textit{thet}. It's a precursor of the Greek \textit{theta} ($\Theta$).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter thet (T)";
+beginglyph("T",1.0);
+path p;
+x1=leftloc; x3=rightloc;
+y2=h; y4=0;
+x2=x4=midloc;
+y1=y3=h/2;
+z100=(x2,y3);  % circle center
+p = z1..z2..z3..z4..cycle;
+z11= (z100--(leftloc,h)) intersectionpoint p;
+z12= (z100--(rightloc,h)) intersectionpoint p;
+z13= (z100--(rightloc,0)) intersectionpoint p;
+z14= (z100--(leftloc,0)) intersectionpoint p;
+draw p;
+draw z11--z13; draw z12--z14;   % the cross
+labels(1,2,3,4,11,12,13,14); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{y}
+% The Phoenician \textit{yod} (hand).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter yod (y)";
+beginglyph("y",0.2);
+x1=x2=midloc;
+bot y1=-o; top y2=h;
+draw z1--z2;
+labels(1,2); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{k}
+% The Phoenician \textit{kaph} (palm of the hand).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter kaph (k)";
+beginglyph("k",0.6);
+numeric alpha;
+alpha:=0.8;
+z1=(rightloc,0);
+z3=(rightloc,h);
+z5=(leftloc,h);
+z4=alpha[z1,z5];
+z2=alpha[z1,z3];
+draw z1--z5;     % the stem
+draw z3--z4--z2; % arms
+labels(1,2,3,4,5); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{l}
+% The Phoenician \textit{lamed} (ox goad).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter lamed (l)";
+beginglyph("l",0.4);
+x2=x3=leftloc;
+x1=rightloc; 
+bot y2=-o; 
+y1=.3h;
+y3=h;
+draw z2--z3;               % the upright
+draw z2--z1;               % the arms
+labels(1,2,3); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{m}
+% The Phoenician \textit{mem} (water).
+%    \begin{macrocode}
+ 
+cmchar"Phoenician letter mem (m)";
+beginglyph("m",1.0);
+x1=rightloc;
+x5=x6=leftloc;
+x2=3/4[x5,x1]; x3=1/2[x5,x1]; x4=1/4[x5,x1]; 
+bot y6= -o;
+top y5= top y3 = h;
+top y1=.8h;
+y2=.6h;
+y4=.7h;
+draw z6--z5;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5,6); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{n}
+% The Phoenician \textit{nun} (fish).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter nun (n)";
+beginglyph("n",0.6);
+x1=rightloc;
+x3=midloc; x2=x4=leftloc;
+bot y2=-o;
+top y1= top y4= h;
+y3=.7h;
+draw z2--z4;
+draw z1--z3--z4;
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{s}
+% The Phoenician \textit{samech} (post). 
+% It is a progenitor of the Greek \textit{xi} ($\Xi$).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter samekh (s)";
+beginglyph("s", 0.6);
+x1= x2 = midloc;
+x3=x4=x5=leftloc;
+x6=x7=x8=rightloc;
+y1=0; 
+y3=y6=0.4h;
+y4=y7=0.7h;
+y5=y2=y8=h;
+draw z1--z2;                            % upright
+draw z3--z6; draw z4--z7; draw z5--z8;  % arms
+labels(1,2,3,4,5,6,7,8); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{o}
+% The Phoenician \textit{ayin} (eye).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter ayin (o)";
+beginglyph("o",1.0);
+x1=leftloc; x3=rightloc;
+y2=h; y4=0;
+x2=x4=midloc;
+y1=y3=h/2;
+draw z1..z2..z3..z4..cycle;
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{`}
+% The Phoenician \textit{ayin} (eye).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter ayin (`)";
+beginglyph("`",1.0);
+x1=leftloc; x3=rightloc;
+y2=h; y4=0;
+x2=x4=midloc;
+y1=y3=h/2;
+draw z1..z2..z3..z4..cycle;
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{p}
+% The Phoenician \textit{pe} (mouth).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter pe (p)";
+beginglyph("p", 0.4);
+x1=rightloc; x2=x3=leftloc;
+bot y3=-o; y2=h;
+y1=0.8h;
+draw z1..z2{left}--z3;
+labels(1,2,3); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{x}
+% The Phoenician \textit{tsade}. 
+%    \begin{macrocode}
+
+cmchar "Phoenician letter tsade (x)";
+beginglyph("x", 0.6);
+x1=x2=rightloc;
+x3=0.4[leftloc, rightloc];
+x4=0.6[leftloc, rightloc];
+x5=leftloc;
+y1=0;
+y2=y3=h;
+y4=y5=0.8h;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{q}
+% The Phoenician \textit{qoph} (knot?).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter qoph (q)";
+beginglyph("q",0.6);
+numeric alpha;
+x1=leftloc;
+x3=rightloc;
+alpha=0.5(x3-x1);  % circle radius
+y2=h;
+y4=y2-2alpha;
+bot y5=-o;
+x2=x4=x5=midloc;
+y1=y3=h-alpha;
+draw z1..z2..z3..z4..cycle;  % the circle
+draw z5--z2;                 % the upright
+labels(1,2,3,4,5); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{r}
+% The Phoenician \textit{resh} (head). It looks a little like a P.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter resh(r)";
+beginglyph("r", 0.4);
+x1=x2=x3=leftloc; x4=rightloc;
+bot y1=-o; top y2=h;
+y3=y4=0.5h; 
+draw z1--z2--z4--z3;
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{S}
+% The Phoenician \textit{shin} (teeth). It's like a Greek \textit{sigma} ($\Sigma$)
+% lying on its side.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter shin (S)";
+beginglyph("S", 0.6);
+z1=(leftloc,h); z5=(rightloc,h);
+x2 = 0.2[leftloc, rightloc]; x4 = 0.8[leftloc, rightloc];
+x3=midloc;
+y2=y4=0;
+y3 = 0.4h;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{t}
+% The Phoenician \textit{tav} (mark).
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter tav (t)";
+beginglyph("t", 0.5);
+x1=x2=midloc;
+x3=leftloc; x4=rightloc;
+bot y1=0; y2=h;
+y3=y4=0.6h;
+draw z1--z2;      % the stem
+draw z3--z4;      % the crossbar
+labels(1,2,3,4); endchar;
+ 
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{w}
+%    Another form of the Phoenician \textit{vau}.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician letter vau (w)";
+beginglyph("w", 0.6);
+x1=x2=midloc;
+x3=leftloc; x4=rightloc;
+bot y1=0; y2=0.6h;
+y3=y4=h;
+draw z1--z2;          % the stem
+draw z3--z2--z4;      % the crossbar
+
+labels(1,2,3,4); endchar;
+ 
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+%
+%     The following characters are for the normal Phoenician writing mode
+% of right to left. The characters are mirror images of the ASCII uppercase
+% counterparts. Symmetric characters that are called by \LaTeX{} commands
+% need not be coded.
+% 
+%
+% \begin{macro}{B}
+%    The letter B, which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L b (B)";
+beginglyph("B",0.6);
+x1=x3=0.2[rightloc, leftloc];
+lft x4=leftloc; y4= 0.75h;
+x2=rightloc;
+bot y1=-o; top y3=h; y2=0.5h;
+draw z1..z2..z3;   % the upright
+draw z3--z4--z2;   % the bowl
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{G}
+%    The letter G which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L g (G)";
+beginglyph("G", 0.6);
+x3=rightloc; x1=x2=midloc; x4=leftloc;
+bot y1=-o; y2=y3=h;
+y4=0.8h;
+draw z1--z2;      % the stem
+draw z3--z2--z4;  % top bar
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{e}
+%    The letter he which is asymmetrical. 
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L he (e)";
+beginglyph("e",0.6);
+numeric alpha;
+alpha:=0.1;
+x1=x2=x3=leftloc; x4=x5=x6=x7=rightloc;
+bot y4=-o; y7=h;
+y6=.7h; y5=.4h;
+y1=y5-alpha*h; y2=y6-alpha*h; y3=y7-alpha*h;
+draw z4--z7;                           % the upright
+draw z1--z5; draw z2--z6; draw z3--z7; % the arms
+labels(1,2,3,4,5,6,7); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{F}
+%    The letter vau (f) which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L f-vau (F)";
+beginglyph("F",0.6);
+numeric alpha;
+alpha:=0.1;
+x1=x2=x3=leftloc; x4=x5=x6=x7=rightloc;
+bot y4=-o; y7=h;
+y6=.6h; y5=.4h;
+y1=y5-alpha*h; y2=y6-alpha*h; y3=y7-alpha*h;
+draw z4--z7;                           % the upright
+draw z2--z6; draw z3--z7;              % the arms
+labels(1,2,3,4,5,6,7); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{E}
+%    The letter heth which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L heth (E)";
+beginglyph("E", 0.6);
+numeric alpha;
+alpha:=0.1;
+x1=x3=leftloc; x4=x6=rightloc;
+bot y1=-o; top y6=h;
+y3=y6-alpha*h; y4=y1+alpha*h;
+z2=0.35[z1,z3]; z5=0.35[z4,z6];
+z7=0.65[z1,z3]; z8=0.65[z4,z6];
+draw z1--z3--z6--z4--cycle;   % outer boundary
+draw z2--z5; draw z7--z8;     % bars
+labels(1,2,3,4,5,6,7,8); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{K}
+%    The letter kaph which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L kaph (K)";
+beginglyph("K",0.6);
+numeric alpha;
+alpha:=0.8;
+z1=(leftloc,0);
+z3=(leftloc,h);
+z5=(rightloc,h);
+z4=alpha[z1,z5];
+z2=alpha[z1,z3];
+draw z1--z5;     % the stem
+draw z3--z4--z2; % the arms
+labels(1,2,3,4,5); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{L}
+%    The letter lamed  which is asymmetrical. 
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L lamed (L)";
+beginglyph("L",0.4);
+x1=leftloc; x2=x3=rightloc;
+bot y2=-o; 
+y1=.3h;
+y3=h;
+draw z2--z3;               % the upright
+draw z2--z1;               % the arms
+labels(1,2,3); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{M}
+%    The letter mem which is asymmetrical. 
+%    \begin{macrocode}
+ 
+cmchar"Phoenician R-L mem (M)";
+beginglyph("M",1.0);
+x1=leftloc;
+x5=x6=rightloc;
+x2=1/4[x1,x5]; x3=1/2[x1,x5]; x4=3/4[x1,x5]; 
+bot y6= -o;
+top y5= top y3 = h;
+top y1=.8h;
+y2=.6h;
+y4=.7h;
+draw z6--z5;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5,6); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{N}
+%    The letter nun which is asymmetrical. 
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L nun (N)";
+beginglyph("N",0.6);
+x1=leftloc;
+x3=midloc; x2=x4=rightloc;
+bot y2=-o;
+top y1= top y4= h;
+y3=.7h;
+draw z2--z4;
+draw z1--z3--z4;
+labels(1,2,3,4); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{P}
+%    The letter pe which is asymmetrical.
+%    \begin{macrocode}
+ 
+cmchar "Phoenician R-L pe (P)";
+beginglyph("P", 0.4);
+x1=leftloc; x2=x3=rightloc;
+bot y3=-o; y2=h;
+y1=0.8h;
+draw z1..z2{right}--z3;
+labels(1,2,3); endchar;
+ 
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{X}
+% The Phoenician \textit{tsade} which is asymmetrical.
+%    \begin{macrocode}
+
+cmchar "Phoenician R-L tsade (X)";
+beginglyph("X", 0.6);
+x1=x2=leftloc;
+x3=0.6[leftloc, rightloc];
+x4=0.4[leftloc, rightloc];
+x5=rightloc;
+y1=0;
+y2=y3=h;
+y4=y5=0.8h;
+draw z1--z2--z3--z4--z5;
+labels(1,2,3,4,5); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{R}
+%    The letter resh which is asymmetrical.
+%    \begin{macrocode}
+cmchar "Phoenician R-L resh (R)";
+beginglyph("R", 0.4);
+x1=x2=x3=rightloc; x4=leftloc;
+bot y1=-o; top y2=h;
+y3=y4=0.5h;
+draw z1--z2--z4--z3;
+labels(1,2,3,4); endchar;
+
+%    \end{macrocode}
+% \end{macro}
+%
+%
+%
+%    The end of the glyphs and the file.
+%    \begin{macrocode}
+
+end
+ 
+%</up> 
+%    \end{macrocode}
+%
+%
+%
+% \section{The font definition files} \label{sec:fd}
+%
+%    \begin{macrocode}
+%<*fdot1>
+\DeclareFontFamily{OT1}{phnc}{}
+  \DeclareFontShape{OT1}{phnc}{m}{n}{ <-> phnc10 }{}
+  \DeclareFontShape{OT1}{phnc}{bx}{n}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{OT1}{phnc}{b}{n}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{OT1}{phnc}{m}{sl}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{OT1}{phnc}{m}{it}{ <-> sub phnc/m/n }{}
+%</fdot1>
+%    \end{macrocode}
+%
+%
+%    \begin{macrocode}
+%<*fdt1>
+\DeclareFontFamily{T1}{phnc}{}
+  \DeclareFontShape{T1}{phnc}{m}{n}{ <-> phnc10 }{}
+  \DeclareFontShape{T1}{phnc}{bx}{n}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{T1}{phnc}{b}{n}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{T1}{phnc}{m}{sl}{ <-> sub phnc/m/n }{}
+  \DeclareFontShape{T1}{phnc}{m}{it}{ <-> sub phnc/m/n }{}
+%</fdt1>
+%    \end{macrocode}
+%
+% \section{The \Lpack{phoenician} package code} \label{sec:code}
+%
+%    Announce the name and version of the package, which requires
+% \LaTeXe{}.
+%    \begin{macrocode}
+%<*usc>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{phoenician}[2000/10/01 v1.1 package for Phoenician fonts]
+%    \end{macrocode}
+%
+%
+% \begin{macro}{\phncfamily}
+%    Selects the Phoenician font family in the OT1 encoding.
+%    \begin{macrocode}
+\newcommand{\phncfamily}{\usefont{OT1}{phnc}{m}{n}}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\textphnc}
+%    Text command for the Phoenician font family.
+%    \begin{macrocode}
+\DeclareTextFontCommand{\textphnc}{\phncfamily}
+%    \end{macrocode}
+% \end{macro}
+%
+% The commands for the signs.
+%    \begin{macrocode}
+
+\chardef\Arq=`' \chardef\ARrq=`'   \chardef\Aaleph=`a    \chardef\ARaleph=`a
+\chardef\Aa=`a  \chardef\ARa=`a  
+\chardef\Ab=`b  \chardef\ARb=`B    \chardef\Abeth=`b    \chardef\ARbeth=`B
+\chardef\Ag=`g  \chardef\ARg=`G    \chardef\Agimel=`g    \chardef\ARgimel=`G
+\chardef\Ad=`d  \chardef\ARd=`d    \chardef\Adaleth=`d    \chardef\ARdaleth=`d
+\chardef\Ah=`h  \chardef\ARh=`e    \chardef\Ahe=`h    \chardef\ARhe=`e
+\chardef\Af=`f  \chardef\ARf=`F    \chardef\Avaf=`f    \chardef\ARvaf=`F
+\chardef\Az=`z  \chardef\ARz=`z    \chardef\Azayin=`z    \chardef\ARzayin=`z
+\chardef\Ahd=`H \chardef\ARhd=`E   \chardef\Aheth=`H    \chardef\ARheth=`E
+\chardef\Atd=`T \chardef\ARtd=`T   \chardef\Ateth=`T    \chardef\ARteth=`T
+\chardef\Ay=`y  \chardef\ARy=`y    \chardef\Ayod=`y    \chardef\ARyod=`y
+\chardef\Ak=`k  \chardef\ARk=`K    \chardef\Akaph=`k    \chardef\ARkaph=`K
+\chardef\Al=`l  \chardef\ARl=`L    \chardef\Alamed=`l    \chardef\ARlamed=`L
+\chardef\Am=`m  \chardef\ARm=`M    \chardef\Amem=`m    \chardef\ARmem=`M
+\chardef\An=`n  \chardef\ARn=`N    \chardef\Anun=`n    \chardef\ARnun=`N
+\chardef\As=`s  \chardef\ARs=`s    \chardef\Asamekh=`s    \chardef\ARsamekh=`s
+\chardef\Alq=`` \chardef\ARlq=``   \chardef\Aayin=``    \chardef\ARayin=``
+\chardef\Ao=`o  \chardef\ARo=`o    
+\chardef\Ap=`p  \chardef\ARp=`P    \chardef\Ape=`p    \chardef\ARpe=`P
+\chardef\Asd=`x \chardef\ARsd=`X   \chardef\Asade=`x    \chardef\ARsade=`X
+\chardef\Aq=`q  \chardef\ARq=`q    \chardef\Aqoph=`q    \chardef\ARqoph=`q
+\chardef\Ar=`r  \chardef\ARr=`R    \chardef\Aresh=`r    \chardef\ARresh=`R
+\chardef\Asv=`S \chardef\ARsv=`S   \chardef\Ashin=`S    \chardef\ARshin=`S
+\chardef\At=`t  \chardef\ARt=`t    \chardef\Atav=`t    \chardef\ARtav=`t
+\chardef\Aw=`w  \chardef\ARw=`w    \chardef\Avav=`w    \chardef\ARvav=`w
+
+%    \end{macrocode}
+%
+% \begin{macro}{\translitphnc}
+% \begin{macro}{\translitphncfont}
+% |\translitphnc{|\meta{commands}|}| transliterates \meta{commands}
+% using the |\translitphncfont| font.
+%    \begin{macrocode}
+\newcommand{\translitphnc}[1]{{%
+  \@translitP\translitphncfont #1}}
+\newcommand{\translitphncfont}{\itshape}
+
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\@translitP}
+% This macro redefines all the character commands to produce the
+% transliterated version instead of the glyph.
+% There must be no spaces in the definition.
+%    \begin{macrocode}
+\newcommand{\@translitP}{%
+\def\Arq{'}\def\ARrq{\Arq}\def\Aaleph{\Arq}\def\ARaleph{\Arq}%
+\def\Aa{\Arq}\def\ARa{\Arq}%
+\def\Ab{b}\def\ARb{\Ab}\def\Abeth{\Ab}\def\ARbeth{\Ab}%
+\def\Ag{g}\def\ARg{\Ag}\def\Agimel{\Ag}\def\ARgimel{\Ag}%
+\def\Ad{d}\def\ARd{\Ad}\def\Adaleth{\Ad}\def\ARdaleth{\Ad}%
+\def\Ah{h}\def\ARh{\Ah}\def\Ahe{\Ah}\def\ARhe{\Ah}%
+\def\Af{w}\def\ARf{\Af}\def\Avaf{\Af}\def\ARvaf{\Af}%
+\def\Az{z}\def\ARz{\Az}\def\Azayin{\Az}\def\ARzayin{\Az}%
+\def\Ahd{\d{h}}\def\ARhd{\Ahd}\def\Aheth{\Ahd}\def\ARheth{\Ahd}%
+\def\Atd{\d{t}}\def\ARtd{\Atd}\def\Ateth{\Atd}\def\ARteth{\Atd}%
+\def\Ay{y}\def\ARy{\Ay}\def\Ayod{\Ay}\def\ARyod{\Ay}%
+\def\Ak{k}\def\ARk{\Ak}\def\Akaph{\Ak}\def\ARkaph{\Ak}%
+\def\Al{l}\def\ARl{\Al}\def\Alamed{\Al}\def\ARlamed{\Al}%
+\def\Am{m}\def\ARm{\Am}\def\Amem{\Am}\def\ARmem{\Am}%
+\def\An{n}\def\ARn{\An}\def\Anun{\An}\def\ARnun{\An}%
+\def\As{s}\def\ARs{\As}\def\Asamekh{\As}\def\ARsamekh{\As}%
+\def\Alq{`}\def\ARlq{\Alq}\def\Aayin{\Alq}\def\ARayin{\Alq}%
+\def\Ao{\Alq}\def\ARo{\Ablq}%
+\def\Ap{p}\def\ARp{\Ap}\def\Ape{\Ap}\def\ARpe{\Ap}%
+\def\Asd{\d{s}}\def\ARsd{\Asd}\def\Asade{\Asd}\def\ARsade{\Asd}%
+\def\Aq{q}\def\ARq{\Aq}\def\Aqoph{\Aq}\def\ARqoph{\Aq}%
+\def\Ar{r}\def\ARr{\Ar}\def\Aresh{\Ar}\def\ARresh{\Ar}%
+\def\Asv{\v{s}}\def\ARsv{\Asv}\def\Ashin{\Asv}\def\ARshin{\Asv}%
+\def\At{t}\def\ARt{\At}\def\Atav{\At}\def\ARtav{\At}%
+\def\Aw{w}\def\ARw{\Aw}\def\Avav{\Aw}\def\ARvav{\Aw}%
+}
+
+%    \end{macrocode}
+% \end{macro}
+%
+%
+%
+%
+%
+%    The end of this package.
+%    \begin{macrocode}
+%</usc>
+%    \end{macrocode}
+%
+% \section{The Type1 map file}
+%
+% Just a line.
+% \changes{v2.1}{2005/04/04}{Added the map file}
+%    \begin{macrocode}
+%<*map>
+phnc10  Archaic-Phoenician  <phnc10.pfb
+%</map>
+%    \end{macrocode}
+%
+%
+%
+% \Finale
+% ^^A \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         \~}
+
+