From 99bebf5ca1a722256a732d6cd630b1a2165b85d7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 8 Sep 2006 00:00:54 +0000 Subject: archaic update for sarabian, archaicprw.map (10feb06) git-svn-id: svn://tug.org/texlive/trunk@2101 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/source/fonts/archaic/phoenician.dtx | 153 +-- .../texmf-dist/source/fonts/archaic/phoenician.ins | 4 +- .../texmf-dist/source/fonts/archaic/protosem.dtx | 22 +- .../texmf-dist/source/fonts/archaic/protosem.ins | 9 +- .../texmf-dist/source/fonts/archaic/sarabian.dtx | 1046 ++++++++++++++++++++ .../texmf-dist/source/fonts/archaic/sarabian.ins | 90 ++ 6 files changed, 1240 insertions(+), 84 deletions(-) create mode 100644 Master/texmf-dist/source/fonts/archaic/sarabian.dtx create mode 100644 Master/texmf-dist/source/fonts/archaic/sarabian.ins (limited to 'Master/texmf-dist/source/fonts') 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,12 +1111,31 @@ 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} % @@ -1128,7 +1143,6 @@ labels(1,2,3,4,5,6,7,8); endchar; % \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 diff --git a/Master/texmf-dist/source/fonts/archaic/phoenician.ins b/Master/texmf-dist/source/fonts/archaic/phoenician.ins index 49c23384879..ee428d8b4ef 100644 --- a/Master/texmf-dist/source/fonts/archaic/phoenician.ins +++ b/Master/texmf-dist/source/fonts/archaic/phoenician.ins @@ -1,6 +1,6 @@ %% phoenician.ins %% 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 @@ -25,7 +25,7 @@ \preamble ------------------------------------------------------------------ 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 diff --git a/Master/texmf-dist/source/fonts/archaic/protosem.dtx b/Master/texmf-dist/source/fonts/archaic/protosem.dtx index 5bbcb0b9c8c..11d589027b0 100644 --- a/Master/texmf-dist/source/fonts/archaic/protosem.dtx +++ b/Master/texmf-dist/source/fonts/archaic/protosem.dtx @@ -20,6 +20,7 @@ % %<*driver> \documentclass[twoside]{ltxdoc} +\usepackage{docmfp} \usepackage{url} \usepackage[draft=false, plainpages=false, @@ -100,11 +101,13 @@ % % \changes{v1.0}{1999/03/14}{First public release} % \changes{v1.1}{2000/09/30}{Minor changes to glyph encodings} -% \changes{v1.2}{2005/03/18}{Updated details} +% \changes{v1.2}{2005/03/18}{Updated details, added map file} +% \changes{v1.3}{2005/07/21}{Minor fixes} % % \def\fileversion{v1.0} \def\filedate{1999/03/14} % \def\fileversion{v1.1} \def\filedate{2000/09/30} % \def\fileversion{v1.2} \def\filedate{2005/03/18} +% \def\fileversion{v1.3} \def\filedate{2005/07/21} % \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 @@ -226,7 +229,7 @@ % \textit{b} & betu & house & b & |\Ab| |\Abeth| & B & |\AAb| |\AAbeth| \\ % \textit{g} & & throw-stick? & g & |\Ag| |\Agimel| & & \\ % \textit{d} & & fish & d & |\Ad| |\Adaleth| & D & |\AAd| |\AAdaleth| \\ -% \textit{h} & & man? & e & |\Ae| |\Ahe| & E & |\AAe| |\AAhe| \\ +% \textit{h} & & man? & e & |\Ah| |\Ahe| & E & |\AAh| |\AAhe| \\ % \textit{w} & wawwu & hook/peg & w & |\Aw| |\Avav| & & \\ % \textit{z} & & & z & |\Az| |\Azayin| & & \\ % \textit{\d{h}} & hotu & fence & h & |\Ahd| |\Aheth| & H & |\AAhd| |\AAheth| \\ @@ -485,7 +488,7 @@ draw z1--z2--z3--z4--z5--cycle; % head draw z10--z11; % eye draw z2{left}..z6{up}; % a horn draw z3..z7{up}; % other horn -labels(1,2,3,4,,5,,6,7,10); +labels(1,2,3,4,5,6,7,10); endchar; % \end{macrocode} @@ -511,7 +514,7 @@ draw z1--z2--z3--z4--z5--cycle; % head draw z10--z11; % eye draw z2{left}..z6{up}; % a horn draw z3..z7{up}; % other horn -labels(1,2,3,4,,5,,6,7,10); +labels(1,2,3,4,5,6,7,10); endchar; % \end{macrocode} @@ -537,7 +540,7 @@ draw z1--z2--z3--z4--z5--cycle; % head draw z10--z11; % eye draw z2{right}..z6{up}; % a horn draw z3..z7{up}; % other horn -labels(1,2,3,4,,5,,6,7,10); +labels(1,2,3,4,5,6,7,10); endchar; % \end{macrocode} @@ -1379,9 +1382,9 @@ end % % % \begin{macro}{\protofamily} -% Selects the font family in the OT1 encoding. +% Selects the font family in the T1 encoding. % \begin{macrocode} -\newcommand{\protofamily}{\usefont{OT1}{proto}{m}{n}} +\newcommand{\protofamily}{\usefont{T1}{proto}{m}{n}} % \end{macrocode} % \end{macro} % @@ -1394,6 +1397,7 @@ end % \end{macro} % % The commands for the signs. +% \changes{v1.3}{2005/07/21}{Changed \cs{Amum} to \cs{Amem}} % \begin{macrocode} \chardef\Arq=`' \chardef\Aa=`a \chardef\Aaleph=`a @@ -1408,7 +1412,7 @@ end \chardef\Ay=`y \chardef\Ayod=`y \chardef\Ak=`k \chardef\Akaph=`k \chardef\Al=`l \chardef\Alamed=`l -\chardef\Am=`m \chardef\Amum=`m +\chardef\Am=`m \chardef\Amem=`m \chardef\An=`n \chardef\Anun=`n \chardef\Alq=`` \chardef\Ao=`o \chardef\Aayin=`o @@ -1497,7 +1501,7 @@ end % \section{The Postscript Type1 map} \label{sec:map} % % Just one line. -% +% \changes{v1.2}{2005/03/18}{Added map file} % \begin{macrocode} %<*map> proto10 Archaic-ProtoSemitic +\documentclass[twoside]{ltxdoc} +\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 + \DeclareTextCommand{\SAunder}{OT1}[1]% + {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}% + \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}} +\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{sarabian.dtx} +\end{document} +% +% +% \fi +% +% \CheckSum{177} +% +% \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}{2000/09/30}{First public release} +% \changes{v1.1}{2005/11/12}{Added map file} +% +% \def\fileversion{v1.0} +% \def\filedate{2000/09/30} +% \def\fileversion{v1.1} +% \def\filedate{2005/11/12} +% \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}{South Arabian} +% +% \title{The \Lpack{South Arabian} 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{sarabian} package provides a set of fonts, created by +% Alan Stanier, and LaTeX files for typesetting the +% \thisfont{} alphabet which was used around 600~\BC{} in some of the +% ancient kingdoms of Southern Arabia. +% \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{GOOSSENS94}. +% +% 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{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{sarabian} package} \label{sec:usc} +% +% The \thisfont{} alphabet provided by this package is a descendent +% of the Proto-Siniatic or Proto-Canaanite scripts~\cite{HEALEY90}. +% It was used for about 1000 years, from roughly 600~\BC, in Southern +% Arabia. +% +% The alphabet consisted of 29 letters, but the ordering has no +% relationship to either the Semitic alphabets nor our modern day one. +% Table~\ref{tab} lists, in \thisfont{} alphabetic order, the transliterated +% values of the script. Note that there are many consonontal sounds +% represented that we no longer use. These are the letters with diacritics. +% +% \begin{table} +% \centering +% \caption{The \thisfont{} alphabet}\label{tab} +% \begin{tabular}{ccl} \hline +% Value & ASCII & Command \\ \hline +% \textit{h} & h & |\SAh| \\ +% \textit{l} & l & |\SAl| \\ +% \textit{\d{h}} & H & |\SAhd| \\ +% \textit{m} & m & |\SAm| \\ +% \textit{q} & q & |\SAq| \\ +% \textit{w} & w & |\SAw| \\ +% \textit{\v{s}} & S & |\SAsv| \\ +% \textit{r} & r & |\SAr| \\ +% \textit{b} & b & |\SAb| \\ +% \textit{t} & t & |\SAt| \\ +% \textit{s} & s & |\SAs| \\ +% \textit{k} & k & |\SAk| \\ +% \textit{n} & n & |\SAn| \\ +% \textit{\SAunder{h}}& I & |\SAhu| \\ +% \textit{\'{s}} & X & |\SAsa| \\ +% \textit{f} & f & |\SAf| \\ +% \textit{'} & ' a & |\SArq| |\SAa| \\ +% \textit{`} & ` o & |\SAlq| |\SAo| \\ +% \textit{\d{d}} & B & |\SAdd| \\ +% \textit{g} & g & |\SAg| \\ +% \textit{d} & d & |\SAd| \\ +% \textit{\'{g}} & G & |\SAga| \\ +% \textit{\d{t}} & T & |\SA|td \\ +% \textit{z} & z & |\SAz| \\ +% \textit{\b{d}} & D & |\SAdb| \\ +% \textit{y} & y & |\SAy| \\ +% \textit{\b{t}} & J & |\SAtb| \\ +% \textit{\d{s}} & x & |\SAsd| \\ +% \textit{\d{z}} & Z & |\SAzd| \\ +% \hline +% \end{tabular} +% \end{table} +% +% The font provided was developed originally by Alan Stanier of +% Essex University. I have made very minor alterations to make it +% easier to use with the LaTeX font selection system. +% +% +% \DescribeMacro{\sarabfamily} +% This command selects the \thisfont{} font family. The family name is |sarab|. +% +% \DescribeMacro{\textsarab} +% The command |\textsarab{|\meta{text}|}| typesets \meta{text} in the +% \thisfont{} font. +% +% I have provided two means of accessing the \thisfont{} glyphs: +% (a) by ASCII characters, and (b) via commands. These are shown +% in Table~\ref{tab}. +% +% \DescribeMacro{\translitsarab} +% The command |\translitsarab{|\meta{commands}|}| will typeset the transliteration +% of the \thisfont{} character commands (those in the third column of +% Table~\ref{tab}). +% +% \DescribeMacro{\translitsarabfont} +% 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[Dav97]{DAVIES97} +% W. V. Davies. +% \newblock \emph{Reading the Past: Egyptian Hieroglyphs}. +% \newblock University of California Press/British Museum, 1997. +% \newblock (ISBN 0-520-06287-6) +% +% \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[GMS94]{GOOSSENS94} +% Michel Goossens, Frank Mittelbach, and Alexander Samarin. +% \newblock \emph{The LaTeX Companion}. +% \newblock Addison-Wesley Publishing Company, 1994. +% +% \bibitem[Hea90]{HEALEY90} +% John F.~Healey. +% \newblock \emph{Reading the Past: The Early Alphabet}. +% \newblock University of California Press/British Museum, 1990. +% \newblock (ISBN 0-520-07309-6) +% +% \end{thebibliography} +% \PrintIndex +% } +% +% +% \section{The Metafont code} \label{sec:mf} +% +% The code is all in a single file. It is principally Alan Stanier's code, except +% that I have made a few slight modifications to make it easier to use with +% the automatic font generation usually employed by modern LaTeX systems. +% +% Start off by naming the file and including Stanier's comments. +% +% \begin{macrocode} +%<*up> +%%% SARAB10.MF South Arabian font 10 point design size. + +%%% This font was designed by Alan M Stanier ( alan@essex.ac.uk ), +%%% at Essex University Computer Service, Colchester, Essex CO4 3EA. England. +%%% +%%% If you make significant additions or improvements to the font, +%%% please email me an updated version +%%% +%%% This font was used for several languages in Southern Arabia in the +%%% second millenium BC +%%% + +% \end{macrocode} +% +% The next part of the original file looked like this: +% \begin{verbatim} +% mg:=1.0; % CHANGE THIS TO GET DIFFERENT SIZES OF FONT (font size = 10*mg pt) +% +% mode_setup; +% xpensize#:=mg*0.8pt; +% ypensize#:=mg*0.2pt; +% height#:=mg*10pt#; +% width#:=mg*7pt#; +% narrow#:=mg*5.3pt#; +% \end{verbatim} +% but this didn't seem to appeal to MetaFont very much, so I replaced it with: +% \begin{macrocode} +mode_setup; +font_identifier:="sarabian"; +font_size:= 10pt#; % nominally, a 10pt font +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 + +numeric pmg; pmg:=0.8; % a scale factor + +xpensize#:=pmg*0.8pt; +ypensize#:=pmg*0.2pt; +height#:=pmg*10pt#; +width#:=pmg*7pt#; +narrow#:=pmg*5.3pt#; + +mg#:= pmg*0.3pt#; +define_pixels(mg); + +numeric cscale; % scale factor for original circles +cscale# := mg#; +define_pixels(cscale); +let cmchar=\; + +% \end{macrocode} +% Now continue with the original code. +% \begin{macrocode} + +define_pixels(height,width,narrow); +def getpen = pickup pencircle xscaled xpensize# yscaled ypensize# rotated 30 enddef; + +% \end{macrocode} +% That finishes the simple set up. The rest of the code is for creating +% the character glyphs. It is Stanier's code, except that where he had a +% statement like: \\ +% |draw fullcircle scaled 10 shifted(...);| \\ +% I modifed it to: \\ +% |draw fullcircle scaled(10cscale) shifted(...);| \\ +% I also put a |cmchar "comment";| before each glyph code. + +% Note that the +% encoding I use is not the same as Stanier's but does match the encoding +% I use for my other archaic fonts. +% +% \begin{macro}{h} +% The \thisfont{} letter \textit{h}. +% \begin{macrocode} + +cmchar "letter h"; +beginchar("h",width#,height#,0); + getpen; + draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up}; + draw (mg*7.5,mg*15) -- (mg*7.5,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{l} +% The \thisfont{} letter \textit{l}. +% \begin{macrocode} + +cmchar "letter l"; +beginchar("l",width#,height#,0); + getpen; + draw (0,mg*15) -- (mg*15,mg*30) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{H} +% The \thisfont{} letter \textit{\d{h}}. +% \begin{macrocode} + +cmchar "letter h sub dot (coded as H)"; +beginchar("H",width#,height#,0); + getpen; + draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up}; + draw (mg*7.5,mg*30) -- (mg*7.5,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{m} +% The \thisfont{} letter \textit{m}. +% \begin{macrocode} + +cmchar "letter m"; +beginchar("m",width#,height#,0); + getpen; + draw (mg*15,mg*30) -- (mg*15,0) -- (0,mg*7.5) -- (mg*15,mg*15) -- + (0,mg*22.5) -- (mg*15,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{q} +% The \thisfont{} letter \textit{q}. +% \begin{macrocode} + +cmchar "letter q"; +beginchar("q",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*15); + draw (mg*5,mg*20) -- (mg*5,mg*30); + draw (mg*5,mg*10) -- (mg*5,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{w} +% The \thisfont{} letter \textit{w}. +% \begin{macrocode} + +cmchar "letter w"; +beginchar("w",width#,height#,0); + getpen; + draw fullcircle scaled (15cscale) shifted(mg*7.5,mg*15); + draw (mg*7.5,mg*7.5) -- (mg*7.5,mg*22.5); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{S} +% The \thisfont{} letter \textit{\v{s}}. +% \begin{macrocode} + +cmchar "letter s sup v (coded as S)"; +beginchar("S",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0); + draw (mg*7.5,mg*15) -- (mg*7.5,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{r} +% The \thisfont{} letter \textit{r}. +% \begin{macrocode} + +cmchar "letter r"; +beginchar("r",width#,height#,0); + getpen; + draw (0,mg*30){right} .. (mg*15,mg*15){down} .. (0,0){left}; +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{b} +% The \thisfont{} letter \textit{b}. +% \begin{macrocode} + +cmchar "letter b"; +beginchar("b",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{t} +% The \thisfont{} letter \textit{t}. +% \begin{macrocode} + +cmchar "letter t"; +beginchar("t",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,mg*30); + draw (0,mg*30) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{s} +% The \thisfont{} letter \textit{s}. +% \begin{macrocode} + +cmchar "letter s"; +beginchar("s",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,mg*15) -- (0,mg*30); + draw (mg*15,0) -- (0,mg*15) -- (mg*15,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{k} +% The \thisfont{} letter \textit{k}. +% \begin{macrocode} + +cmchar "letter k"; +beginchar("k",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0); + draw (0,mg*15) -- (mg*7.5,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{n} +% The \thisfont{} letter \textit{n}. +% \begin{macrocode} + +cmchar "letter n"; +beginchar("n",width#,height#,0); + getpen; + draw (0,mg*30) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{I} +% The \thisfont{} letter \textit{$h_u$}. +% \begin{macrocode} + +cmchar "letter h sub u (coded as H)"; +%%beginchar("1",width#,height#,0); +beginchar("I",width#,height#,0); + getpen; + draw (0,mg*30){down} .. (mg*7.5,mg*15){right} .. (mg*15,mg*30){up}; + draw (mg*7.5,mg*15) -- (mg*7.5,mg*7.5) -- (mg*15,mg*7.5) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{X} +% The \thisfont{} letter \textit{\'{s}}. +% \begin{macrocode} + +cmchar "letter s acute (coded as X)"; +%%beginchar("2",width#,height#,0); +beginchar("X",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,mg*7.5) -- (0,mg*15) -- + (mg*15,mg*22.5) -- (0,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{f} +% The \thisfont{} letter \textit{f}. +% \begin{macrocode} + +cmchar "letter f"; +beginchar("f",width#,height#,0); + getpen; + draw (0,mg*15) -- (mg*7.5,0) -- (mg*15,mg*15) -- (mg*7.5,mg*30) + -- (0,mg*15); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{`} +% The \thisfont{} letter \textit{`} (semitic ayin). +% \begin{macrocode} + +cmchar "letter `"; +beginchar("`",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0); + draw (mg*7.5,mg*15) -- (mg*7.5,mg*22.5) -- (0,mg*22.5) -- (0,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{o} +% The \thisfont{} letter \textit{`} (semitic ayin). +% \begin{macrocode} + +cmchar "letter ` (coded as o)"; +beginchar("o",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*15) -- (mg*15,mg*15) -- (mg*15,0); + draw (mg*7.5,mg*15) -- (mg*7.5,mg*22.5) -- (0,mg*22.5) -- (0,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{'} +% The \thisfont{} letter \textit{'} (semitic aleph). +% \begin{macrocode} + +cmchar "letter '"; +beginchar("'",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*10); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{a} +% The \thisfont{} letter \textit{'} (semitic aleph). +% \begin{macrocode} + +cmchar "letter ' (coded as a)"; +beginchar("a",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*10); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{B} +% The \thisfont{} letter \textit{\d{d}}. +% \begin{macrocode} + +cmchar "letter d sub dot (coded as B)"; +%%beginchar("D",width#,height#,0); +beginchar("B",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,0) -- (mg*15,mg*30) -- (0,mg*30) -- (0,0); + draw (0,mg*15) -- (mg*15,mg*15); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{g} +% The \thisfont{} letter \textit{g}. +% \begin{macrocode} + +cmchar "letter g"; +beginchar("g",width#,height#,0); + getpen; + draw (0,mg*30) -- (mg*15,mg*30) -- (mg*15,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{d} +% The \thisfont{} letter \textit{d}. +% \begin{macrocode} + +cmchar "letter d"; +beginchar("d",narrow#,height#,0); + getpen; + draw (0,mg*10) -- (0,mg*20) -- (mg*10,mg*15) -- (0,mg*10); + draw (mg*10,0) -- (mg*10,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{G} +% The \thisfont{} letter \textit{\'{g}}. +% \begin{macrocode} + +cmchar "letter g acute (coded as G)"; +beginchar("G",width#,height#,0); + getpen; + draw (0,mg*25) -- (mg*5,mg*30) -- (mg*15,mg*30) -- (mg*15,0); + draw (mg*5,0) -- (mg*5,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{T} +% The \thisfont{} letter \textit{\d{t}}. +% \begin{macrocode} + +cmchar "letter t sub dot (coded as T)"; +beginchar("T",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,0) -- (mg*15,mg*30) -- (0,mg*30) -- (0,0); + draw (mg*7.5,0) -- (mg*7.5,mg*30); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{z} +% The \thisfont{} letter \textit{z}. +% \begin{macrocode} + +cmchar "letter z"; +beginchar("z",width#,height#,0); + getpen; + draw (0,0) -- (mg*15,mg*30) -- (0,mg*30) -- + (mg*15,0) -- (0,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{D} +% The \thisfont{} letter \textit{\b{d}}. +% \begin{macrocode} + +cmchar "letter d sub bar (coded as D)"; +%%beginchar("5",width#,height#,0); +beginchar("D",width#,height#,0); + getpen; + draw (0,0) -- (0,mg*30); + draw (mg*15,0) -- (mg*15,mg*30); + draw (0,mg*12.5) -- (mg*15,mg*12.5); + draw (0,mg*17.5) -- (mg*15,mg*17.5); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{y} +% The \thisfont{} letter \textit{y}. +% \begin{macrocode} + +cmchar "letter y"; +beginchar("y",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*25); + draw (mg*5,mg*20) -- (mg*5,0); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{J} +% The \thisfont{} letter \textit{\b{t}}. +% \begin{macrocode} + +cmchar "letter t sub bar (coded as J)"; +%%beginchar("4",narrow#,height#,0); +beginchar("J",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*25); + draw (mg*5,mg*20) -- (mg*5,mg*10); + draw fullcircle scaled (10cscale) shifted(mg*5,mg*5); +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{x} +% The \thisfont{} letter \textit{\d{s}}. +% \begin{macrocode} + +cmchar "letter s sub dot (coded as x)"; +%%beginchar("3",narrow#,height#,0); +beginchar("x",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*25); + draw (mg*5,mg*20) -- (mg*5,mg*10); + draw (0,0){up} .. (mg*5,mg*10){right} .. (mg*10,0){down}; +endchar; + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{Z} +% The \thisfont{} letter \textit{\d{z}}. +% \begin{macrocode} + +cmchar "letter z sub dot (coded as Z)"; +beginchar("Z",narrow#,height#,0); + getpen; + draw fullcircle scaled (10cscale) shifted(mg*5,mg*25); + draw (mg*5,mg*20) -- (mg*5,0); + draw (mg*5,mg*10){right} .. (mg*10,0){down}; +endchar; + +% \end{macrocode} +% \end{macro} +% +% The end of the glyphs, and file. +% \begin{macrocode} + +end + +% +% \end{macrocode} +% +% +% +% +% \section{The font definition files} \label{sec:fd} +% +% \begin{macrocode} +%<*fdot1> +\DeclareFontFamily{OT1}{sarab}{} + \DeclareFontShape{OT1}{sarab}{m}{n}{ <-> sarab10 }{} + \DeclareFontShape{OT1}{sarab}{bx}{n}{ <-> sub sarab/m/n }{} + \DeclareFontShape{OT1}{sarab}{b}{n}{ <-> sub sarab/m/n }{} + \DeclareFontShape{OT1}{sarab}{m}{sl}{ <-> sub sarab/m/n }{} + \DeclareFontShape{OT1}{sarab}{m}{it}{ <-> sub sarab/m/n }{} +% +% \end{macrocode} +% +% +% \begin{macrocode} +%<*fdt1> +\DeclareFontFamily{T1}{sarab}{} + \DeclareFontShape{T1}{sarab}{m}{n}{ <-> sarab10 }{} + \DeclareFontShape{T1}{sarab}{bx}{n}{ <-> sub sarab/m/n }{} + \DeclareFontShape{T1}{sarab}{b}{n}{ <-> sub sarab/m/n }{} + \DeclareFontShape{T1}{sarab}{m}{sl}{ <-> sub sarab/m/n }{} + \DeclareFontShape{T1}{sarab}{m}{it}{ <-> sub sarab/m/n }{} +% +% \end{macrocode} +% +% \section{The \Lpack{sarabian} package code} \label{sec:code} +% +% Announce the name and version of the package, which requires +% \LaTeXe{}. +% \begin{macrocode} +%<*usc> +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{sarabian}[2005/11/12 v1.1 package for South Arabian fonts] +% \end{macrocode} +% +% +% \begin{macro}{\sarabfamily} +% Selects the font family in the T1 encoding. +% \changes{v1.1}{2005/11/12}{Changed default encoding from OT1 to T1} +% \begin{macrocode} +\newcommand{\sarabfamily}{\usefont{T1}{sarab}{m}{n}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\textsarab} +% Text command for the font family. +% \begin{macrocode} +\DeclareTextFontCommand{\textsarab}{\sarabfamily} + +% \end{macrocode} +% \end{macro} +% +% The commands for the signs. +% \begin{macrocode} +\chardef\SArq=`' +\chardef\SAa=`a +\chardef\SAb=`b +\chardef\SAg=`g +\chardef\SAd=`d +\chardef\SAh=`h +\chardef\SAw=`w +\chardef\SAz=`z +\chardef\SAhd=`H +\chardef\SAtd=`T +\chardef\SAy=`y +\chardef\SAk=`k +\chardef\SAl=`l +\chardef\SAm=`m +\chardef\SAn=`n +\chardef\SAs=`s +\chardef\SAf=`f +\chardef\SAlq=`` +\chardef\SAo=`o +\chardef\SAsd=`x +\chardef\SAq=`q +\chardef\SAr=`r +\chardef\SAsv=`S +\chardef\SAt=`t +\chardef\SAhu=`I +\chardef\SAdb=`D +\chardef\SAtb=`J +\chardef\SAga=`G +\chardef\SAzd=`Z +\chardef\SAsa=`X +\chardef\SAdd=`B + +% \end{macrocode} +% +% \begin{macro}{translitsarab} +% \begin{macro}{translitsarabfont} +% |\translitsarab{|\meta{char-commands}|}| typesets a transliteration +% of the \thisfont{} character commands in the |\translisarabfont| font. +% \begin{macrocode} +\newcommand{\translitsarab}[1]{{% + \@translitSA\translitsarabfont #1}} +\newcommand{\translitsarabfont}{\itshape} + +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\SAunder} +% We need a copmmand to put a small U shaped cup under a letter. +% \begin{macrocode} +\DeclareTextCommand{\SAunder}{OT1}[1]% + {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}% + \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}} + +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\@translitSA} +% This command redefines all the character producing commands for +% use within |\translitsarab|. There must be no spaces in the +% definition. +% \begin{macrocode} +\newcommand{\@translitSA}{% +\def\SArq{'}% +\def\SAa{'}% +\def\SAb{b}% +\def\SAg{g}% +\def\SAd{d}% +\def\SAh{h}% +\def\SAw{w}% +\def\SAz{z}% +\def\SAhd{\d{h}}% +\def\SAtd{\d{t}}% +\def\SAy{y}% +\def\SAk{k}% +\def\SAl{l}% +\def\SAm{m}% +\def\SAn{n}% +\def\SAs{s}% +\def\SAf{f}% +\def\SAlq{`}% +\def\SAo{`}% +\def\SAsd{\d{s}}% +\def\SAq{q}% +\def\SAr{r}% +\def\SAsv{\v{s}}% +\def\SAt{t} +\def\SAhu{\SAunder{h}}% +\def\SAdb{\b{d}}% +\def\SAtb{\b{t}}% +\def\SAga{\'{g}}% +\def\SAzd{\d{z}}% +\def\SAsa{\'{s}}% +\def\SAdd{\d{d}}% +} + +% \end{macrocode} +% \end{macro} +% +% +% +% The end of this package. +% \begin{macrocode} +% +% \end{macrocode} +% +% \section{Map file} +% +% A very short map file. +% \changes{v1.1}{2005/11/12}{Added map file} +% +% \begin{macrocode} +%<*map> +sarab10 Archaic-South-Arabian +% \end{macrocode} +% +% +% \Finale +% +\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 \~} + + diff --git a/Master/texmf-dist/source/fonts/archaic/sarabian.ins b/Master/texmf-dist/source/fonts/archaic/sarabian.ins new file mode 100644 index 00000000000..e2fa91b0444 --- /dev/null +++ b/Master/texmf-dist/source/fonts/archaic/sarabian.ins @@ -0,0 +1,90 @@ +%% sarab.ins +%% 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. +%% +%% This file will generate fast loadable files from the doc files +%% in this work when run through LaTeX +%% +%% --------------------- start of docstrip commands -------------- +%% +\def\batchfile{sarabian.ins} +\input docstrip.tex +\preamble +------------------------------------------------------------------ + Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net + Copyright 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. +------------------------------------------------------------------ +\endpreamble + +\keepsilent + +%%% \Msg{*** Generating the driver file ***} +%%% \generateFile{sarabian.drv}{t}{\from{sarabian.dtx}{driver}} + +\Msg{*** Generating the Metafont files ***} +\usepostamble\empty +\generateFile{sarab10.mf}{t}{\from{sarabian.dtx}{up}} + +\Msg{*** Generating the Font Definition files ***} +\usepostamble\defaultpostamble + +\generateFile{ot1sarab.fd}{t}{\from{sarabian.dtx}{fdot1}} +\generateFile{t1sarab.fd}{t}{\from{sarabian.dtx}{fdt1}} + +\Msg{*** Generating the LaTeX2e package files ***} + +\generateFile{sarabian.sty}{t}{\from{sarabian.dtx}{usc}} + +\Msg{*** Generating the map files ***} +\usepreamble\empty +\usepostamble\empty + +\generateFile{sarabian.map}{t}{\from{sarabian.dtx}{map}} + +\Msg{***********************************************************} +\Msg{*} +\Msg{* To continue the installation move these files} +\Msg{* into the LaTeX macro area:} +\Msg{*} +\Msg{* \space\space t1sarab.fd} +\Msg{* \space\space sarabian.sty} +\Msg{*} +\Msg{* Further installation instructions are in the README} +\Msg{*} +\Msg{* To produce the documentation run the files ending with} +\Msg{* `.dtx' through LaTeX.} +\Msg{* Process any name.idx file by:} +\Msg{* \space\space\space\space makeindex -s gind.ist name} +\Msg{* Process any name.glo file by:} +\Msg{* \space\space\space\space makeindex -s gglo.ist -o name.gls name.glo} +\Msg{*} +\Msg{* Happy TeXing} +\Msg{***********************************************************} + +\endinput -- cgit v1.2.3