summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/fonts/archaic/phoenician.dtx')
-rw-r--r--Master/texmf-dist/source/fonts/archaic/phoenician.dtx153
1 files changed, 84 insertions, 69 deletions
diff --git a/Master/texmf-dist/source/fonts/archaic/phoenician.dtx b/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
index a7780a1400f..23435aeb82f 100644
--- a/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
+++ b/Master/texmf-dist/source/fonts/archaic/phoenician.dtx
@@ -3,7 +3,7 @@
% phoenician.dtx
%
% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
-% Copyright 1999--2005 Peter R. Wilson
+% Copyright 1999--2006 Peter R. Wilson
%
% This work may be distributed and/or modified under the
% conditions of the Latex Project Public License, either
@@ -101,10 +101,12 @@
% \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}
+% \changes{v2.2}{2006/02/05}{Changes to two characters plus some fixes}
%
% \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}
+% \def\fileversion{v2.2} \def\filedate{2006/02/05}
% \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
@@ -415,7 +417,7 @@
% Specify the font size.
% \begin{macrocode}
-font_identifier:="phoenician"; font_size 10pt#;
+font_identifier:="Archaic-Phoenician"; font_size 10pt#;
% \end{macrocode}
%
@@ -470,7 +472,7 @@ font_quad:=10pt#; % an em
%
% \begin{macrocode}
-font_coding_scheme:="Phoenician glyphs";
+font_coding_scheme:="Archaic-Phoenician";
mode_setup;
% \end{macrocode}
@@ -553,8 +555,7 @@ let cmchar=\;
% \begin{macro}{'}
% The Phoenician \textit{alpeh} (ox), which is like our A but tilted.
% \begin{macrocode}
-
-cmchar "Phoenician letter alpeh (')";
+cmchar "Phoenician letter aleph (')";
beginglyph("'",0.6);
x3=rightloc; y3=0.5h; % apex
x1=0.1[leftloc, rightloc]; y1=0.1h; % bottom leg end
@@ -573,10 +574,9 @@ endchar;
% \end{macro}
%
% \begin{macro}{a}
-% The Phoenician \textit{alpeh} (ox), which is like our A but tilted.
+% The Phoenician \textit{aleph} (ox), which is like our A but tilted.
% \begin{macrocode}
-
-cmchar "Phoenician letter alpeh (a)";
+cmchar "Phoenician letter aleph (a)";
beginglyph("a",0.6);
x3=rightloc; y3=0.5h; % apex
x1=0.1[leftloc, rightloc]; y1=0.1h; % bottom leg end
@@ -597,7 +597,6 @@ endchar;
% \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];
@@ -614,7 +613,6 @@ labels(1,2,3,4); endchar;
% \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;
@@ -630,7 +628,6 @@ labels(1,2,3,4); endchar;
% \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;
@@ -644,7 +641,6 @@ labels(1,2,3); endchar;
% \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;
@@ -665,7 +661,6 @@ labels(1,2,3,4,5,6,7); endchar;
% 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;
@@ -685,7 +680,6 @@ labels(1,2,3,4,5,6,7); endchar;
% \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;
@@ -704,10 +698,10 @@ labels(1,2); endchar;
%
%
% \begin{macro}{H}
-% The Phoenician \textit{cheth} (fence?). It looks like a rectangle with two horizontal
-% internal bars.
+% The Phoenician \textit{cheth} (fence?). It looks like a rectangle with
+% one horizontal internal bar.
+% \changes{v2.2}{2006/02/05}{Deleted one bar from (c)heth}
% \begin{macrocode}
-
cmchar "Phoenician letter cheth (H)";
beginglyph("H", 0.6);
numeric alpha;
@@ -716,11 +710,9 @@ 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
+z2=0.5[z1,z3]; z5=0.5[z4,z6];
draw z1--z3--z6--z4--cycle; % outer boundary
-draw z2--z5; draw z7--z8; % the bars
-
+draw z2--z5; % bar
labels(1,2,3,4,5,6); endchar;
% \end{macrocode}
@@ -729,7 +721,6 @@ labels(1,2,3,4,5,6); endchar;
% \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;
@@ -753,14 +744,18 @@ labels(1,2,3,4,11,12,13,14); endchar;
%
% \begin{macro}{y}
% The Phoenician \textit{yod} (hand).
+% A bit like a leaning F with a reversed leaning L.
+% \changes{v2.2}{2006/02/05}{Completely changed yod --- it was horribly wrong}
% \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;
+beginglyph("y",0.6);
+x1=rightloc; y1=0.7h; % end top arm
+x4=leftloc; y4=0.25h; % end bottom arm
+x2=1/3[x1,x4]; y2=h; % top
+x3=1/4[x4,x1]; y3=0; % bottom
+z5=5/8[z3,z2]; z5-z6 = 0.6(z2-z1); % middle arm
+draw z1--z2--z3--z4; draw z5--z6;
+labels (1,2,3,4,5,6); endchar;
% \end{macrocode}
% \end{macro}
@@ -769,7 +764,6 @@ labels(1,2); endchar;
% \begin{macro}{k}
% The Phoenician \textit{kaph} (palm of the hand).
% \begin{macrocode}
-
cmchar "Phoenician letter kaph (k)";
beginglyph("k",0.6);
numeric alpha;
@@ -787,13 +781,11 @@ labels(1,2,3,4,5); endchar;
% \end{macro}
%
% \begin{macro}{l}
-% The Phoenician \textit{lamed} (ox goad).
+% The letter \textit{lamed} (ox goad) which is asymmetrical.
% \begin{macrocode}
-
-cmchar "Phoenician letter lamed (l)";
+cmchar "Phoenician lamed (l)";
beginglyph("l",0.4);
-x2=x3=leftloc;
-x1=rightloc;
+x1=leftloc; x2=x3=rightloc;
bot y2=-o;
y1=.3h;
y3=h;
@@ -828,7 +820,6 @@ labels(1,2,3,4,5,6); endchar;
% \begin{macro}{n}
% The Phoenician \textit{nun} (fish).
% \begin{macrocode}
-
cmchar "Phoenician letter nun (n)";
beginglyph("n",0.6);
x1=rightloc;
@@ -848,7 +839,6 @@ labels(1,2,3,4); endchar;
% 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;
@@ -868,7 +858,6 @@ labels(1,2,3,4,5,6,7,8); endchar;
% \begin{macro}{o}
% The Phoenician \textit{ayin} (eye).
% \begin{macrocode}
-
cmchar "Phoenician letter ayin (o)";
beginglyph("o",1.0);
x1=leftloc; x3=rightloc;
@@ -884,7 +873,6 @@ labels(1,2,3,4); endchar;
% \begin{macro}{`}
% The Phoenician \textit{ayin} (eye).
% \begin{macrocode}
-
cmchar "Phoenician letter ayin (`)";
beginglyph("`",1.0);
x1=leftloc; x3=rightloc;
@@ -900,7 +888,6 @@ labels(1,2,3,4); endchar;
% \begin{macro}{p}
% The Phoenician \textit{pe} (mouth).
% \begin{macrocode}
-
cmchar "Phoenician letter pe (p)";
beginglyph("p", 0.4);
x1=rightloc; x2=x3=leftloc;
@@ -915,7 +902,6 @@ labels(1,2,3); endchar;
% \begin{macro}{x}
% The Phoenician \textit{tsade}.
% \begin{macrocode}
-
cmchar "Phoenician letter tsade (x)";
beginglyph("x", 0.6);
x1=x2=rightloc;
@@ -935,7 +921,6 @@ labels(1,2,3,4,5); endchar;
% \begin{macro}{q}
% The Phoenician \textit{qoph} (knot?).
% \begin{macrocode}
-
cmchar "Phoenician letter qoph (q)";
beginglyph("q",0.6);
numeric alpha;
@@ -957,7 +942,6 @@ labels(1,2,3,4,5); endchar;
% \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;
@@ -973,7 +957,6 @@ labels(1,2,3,4); endchar;
% 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);
@@ -990,7 +973,6 @@ labels(1,2,3,4,5); endchar;
% \begin{macro}{t}
% The Phoenician \textit{tav} (mark).
% \begin{macrocode}
-
cmchar "Phoenician letter tav (t)";
beginglyph("t", 0.5);
x1=x2=midloc;
@@ -1001,14 +983,12 @@ 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;
@@ -1017,10 +997,8 @@ 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}
%
@@ -1032,10 +1010,31 @@ labels(1,2,3,4); endchar;
% need not be coded.
%
%
+% \begin{macro}{A}
+% The Phoenician \textit{aleph} (ox), which is like our A but tilted.
+% \changes{v2.2}{2006/02/05}{Added the missing R-L aleph}
+% \begin{macrocode}
+cmchar "Phoenician letter R-L aleph (A)";
+beginglyph("A",0.6);
+x3=leftloc; y3=0.5h; % apex
+x1=0.1[rightloc,leftloc]; y1=0.1h; % end bottom leg
+z2=(rightloc,0.9h); % end top leg
+x7=0.7[rightloc,leftloc]; y7=0; % construction points
+x6=0.2[rightloc,leftloc]; 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 letter B, which is asymmetrical.
+% The letter beth, which is asymmetrical.
% \begin{macrocode}
-
cmchar "Phoenician R-L b (B)";
beginglyph("B",0.6);
x1=x3=0.2[rightloc, leftloc];
@@ -1052,7 +1051,6 @@ labels(1,2,3,4); endchar;
% \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;
@@ -1068,7 +1066,6 @@ labels(1,2,3,4); endchar;
% \begin{macro}{e}
% The letter he which is asymmetrical.
% \begin{macrocode}
-
cmchar "Phoenician R-L he (e)";
beginglyph("e",0.6);
numeric alpha;
@@ -1087,7 +1084,6 @@ labels(1,2,3,4,5,6,7); endchar;
% \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;
@@ -1106,8 +1102,8 @@ labels(1,2,3,4,5,6,7); endchar;
%
% \begin{macro}{E}
% The letter heth which is asymmetrical.
+% \changes{v2.2}{2006/02/05}{Deleted one bar from L-R heth}
% \begin{macrocode}
-
cmchar "Phoenician R-L heth (E)";
beginglyph("E", 0.6);
numeric alpha;
@@ -1115,20 +1111,38 @@ 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];
+z2=0.5[z1,z3]; z5=0.5[z4,z6];
draw z1--z3--z6--z4--cycle; % outer boundary
-draw z2--z5; draw z7--z8; % bars
+draw z2--z5; % bar
labels(1,2,3,4,5,6,7,8); endchar;
% \end{macrocode}
% \end{macro}
%
%
+%
+% \begin{macro}{Y}
+% The Phoenician \textit{yod} (hand), which is asymetrical.
+% A bit like a leaning F with a reversed leaning L.
+% \changes{v2.2}{2006/02/05}{Added L-R yod}
+% \begin{macrocode}
+cmchar "Phoenician letter L-R yod (Y)";
+beginglyph("Y",0.6);
+x1=leftloc; y1=0.7h; % end top arm
+x4=rightloc; y4=0.25h; % end bottom arm
+x2=1/3[x1,x4]; y2=h; % top
+x3=1/4[x4,x1]; y3=0; % bottom
+z5=5/8[z3,z2]; z5-z6 = 0.6(z2-z1); % middle arm
+draw z1--z2--z3--z4; draw z5--z6;
+labels (1,2,3,4,5,6); 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;
@@ -1146,12 +1160,12 @@ labels(1,2,3,4,5); endchar;
% \end{macro}
%
% \begin{macro}{L}
-% The letter lamed which is asymmetrical.
+% The Phoenician \textit{lamed} (ox goad) which is asymmetrical.
% \begin{macrocode}
-
cmchar "Phoenician R-L lamed (L)";
beginglyph("L",0.4);
-x1=leftloc; x2=x3=rightloc;
+x2=x3=leftloc;
+x1=rightloc;
bot y2=-o;
y1=.3h;
y3=h;
@@ -1165,7 +1179,6 @@ labels(1,2,3); endchar;
% \begin{macro}{M}
% The letter mem which is asymmetrical.
% \begin{macrocode}
-
cmchar"Phoenician R-L mem (M)";
beginglyph("M",1.0);
x1=leftloc;
@@ -1186,7 +1199,6 @@ labels(1,2,3,4,5,6); endchar;
% \begin{macro}{N}
% The letter nun which is asymmetrical.
% \begin{macrocode}
-
cmchar "Phoenician R-L nun (N)";
beginglyph("N",0.6);
x1=leftloc;
@@ -1205,7 +1217,6 @@ labels(1,2,3,4); endchar;
% \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;
@@ -1221,7 +1232,6 @@ labels(1,2,3); endchar;
% \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;
@@ -1292,10 +1302,12 @@ end
%
% Announce the name and version of the package, which requires
% \LaTeXe{}.
+% \changes{v1.2}{2006/02/05}{Added code for L-R yod}
% \begin{macrocode}
%<*usc>
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{phoenician}[2000/10/01 v1.1 package for Phoenician fonts]
+%%%\ProvidesPackage{phoenician}[2000/10/01 v1.1 package for Phoenician fonts]
+\ProvidesPackage{phoenician}[2006/02/05 v1.2 package for Phoenician fonts]
% \end{macrocode}
%
%
@@ -1316,8 +1328,10 @@ end
% The commands for the signs.
% \begin{macrocode}
-\chardef\Arq=`' \chardef\ARrq=`' \chardef\Aaleph=`a \chardef\ARaleph=`a
-\chardef\Aa=`a \chardef\ARa=`a
+%%%\chardef\Arq=`' \chardef\ARrq=`' \chardef\Aaleph=`a \chardef\ARaleph=`a
+%%%\chardef\Aa=`a \chardef\ARa=`a
+\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
@@ -1326,7 +1340,8 @@ end
\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\Ay=`y \chardef\ARy=`y \chardef\Ayod=`y \chardef\ARyod=`y
+\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