diff options
Diffstat (limited to 'Master/texmf-dist/source/fonts/archaic/phoenician.dtx')
-rw-r--r-- | Master/texmf-dist/source/fonts/archaic/phoenician.dtx | 153 |
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 |