hieroglf

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

3 files changed, 530 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/hieroglf/hieroglf.sty b/Master/texmf-dist/tex/latex/hieroglf/hieroglf.sty
new file mode 100644
index 00000000000..786cf28eb16
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/hieroglf/hieroglf.sty
@@ -0,0 +1,476 @@
+%%
+%% This is file `hieroglf.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% hieroglf.dtx  (with options: `usc')
+%% 
+%%  Copyright 2000 Peter R. Wilson
+%% 
+%%  This program is provided under the terms of the
+%%  LaTeX Project Public License distributed from CTAN
+%%  archives in directory macros/latex/base/lppl.txt.
+%% 
+%% Author: Peter Wilson (CUA)
+%%         now at: peter.r.wilson@boeing.com
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{hieroglf}[2000/09/23 v1.2 package for poor mans hieroglyphs]
+\RequirePackage{oands}
+
+\providecommand{\Tienc}{T1}
+\ifx\Tienc\encodingdefault
+  \newcommand{\pmhgfamily}{\usefont{T1}{pmhg}{m}{n}}
+\else
+  \newcommand{\pmhgfamily}{\usefont{OT1}{pmhg}{m}{n}}
+\fi
+
+\DeclareTextFontCommand{\textpmhg}{\pmhgfamily}
+
+\chardef\HAi='007      % A1
+\chardef\HAii=`I       % A2
+\chardef\HAxxviii=`Y   % A28
+\chardef\HCxi=`7       % C11
+\chardef\HDi=`Q        % D1
+\chardef\HDii=`q       % D2
+\chardef\HDiv=`e       % D4
+\chardef\HDxxi=`r      % D21
+\chardef\HDxxxvi=`A    % D36
+\chardef\HDxlvi=`d     % D46
+\chardef\HDxlvii=`P    % D47
+\chardef\HDl=`5        % D50
+\chardef\HDliv=`L      % D54
+\chardef\HDlviii=`b    % D58
+\chardef\HExxiii=`l    % E23
+\chardef\HFi=`X        % F1
+\chardef\HFxx='010     % F20
+\chardef\HFxxxi='001   % F36
+\chardef\HFxxxiv=`G    % F34
+\chardef\HFxl=`Z       % F40
+\chardef\HGi=`a        % G1
+\chardef\HGxvii=`m     % G17
+\chardef\HGxxvi='002   % G26
+\chardef\HGxxvis='003  % G26*
+\chardef\HGxxvii='004  % G27
+\chardef\HGxxviii='005 % G28
+\chardef\HGxxxvi=`R    % G36
+\chardef\HGxliii=`w    % G43
+\chardef\HHviii=`O    % H8
+\chardef\HIviii=`6     % I8
+\chardef\HIix=`f       % I9
+\chardef\HIx=`D        % I10
+\chardef\HKi=`F        % K1
+\chardef\HMiii=`N      % M3
+\chardef\HMviii=`E     % M8
+\chardef\HMxii=`4      % M12
+\chardef\HMxvii=`i     % M17
+\chardef\HNxxix=`K     % N29
+\chardef\HNxxxv=`n     % N35
+\chardef\HNxxxvii=`z   % N37
+\chardef\HOi=`j        % O1
+\chardef\HOiv=`h       % O4
+\chardef\HOxxxiv=`S    % O34
+\chardef\HQiii=`p      % Q3
+\chardef\HRvii=`B      % R7
+\chardef\HSxii=`v      % S12
+\chardef\HSxxix=`s     % S29
+\chardef\HSxxxix=`?    % S39
+\chardef\HSxli=`c      % S41
+\chardef\HTiii=`u      % T3
+\chardef\HTxiv=`/      % T14
+\chardef\HUxxxvi=`J    % U36
+\chardef\HVi=`3        % V1
+\chardef\HViv=`o       % V4
+\chardef\HVxiii=`T     % V13
+\chardef\HVxx=`2       % V20
+\chardef\HVxxiv=`U     % V24
+\chardef\HVxxviii=`H   % V28
+\chardef\HVxxxi=`k     % V31
+\chardef\HWxi=`g       % W11
+\chardef\HXi=`t        % X1
+\chardef\HYiV=`V       % Y1v
+\chardef\HYiv='011     % Y4
+\chardef\HZi=`|        % Z1
+\chardef\HZii='012     % Z2
+\chardef\HZiv='013     % Z4
+\chardef\HZvi='006     % Z6
+\chardef\HZvii=`W      % Z7
+\chardef\HZxi=`+       % Z11
+\chardef\HAai=`C       % Aa1
+\chardef\HAaxii=`M     % Aa12
+\chardef\HPWi=`x       % PW1
+\chardef\HPWii=`y      % PW2
+
+\chardef\HA=`A
+\chardef\HB=`B
+\chardef\HC=`C
+\chardef\HD=`D
+\chardef\HE=`E
+\chardef\HF=`F
+\chardef\HG=`G
+\chardef\HH=`H
+\chardef\HI=`I
+\chardef\HJ=`J
+\chardef\HK=`K
+\chardef\HL=`L
+\chardef\HM=`M
+\chardef\HN=`N
+\chardef\HO=`O
+\chardef\HP=`P
+\chardef\HQ=`Q
+\chardef\HR=`R
+\chardef\HS=`S
+\chardef\HT=`T
+\chardef\HU=`U
+\chardef\HV=`V
+\chardef\HW=`W
+\chardef\HX=`X
+\chardef\HY=`Y
+\chardef\HZ=`Z
+\chardef\Ha=`a
+\chardef\Hb=`b
+\chardef\Hc=`c
+\chardef\Hd=`d
+\chardef\He=`e
+\chardef\Hf=`f
+\chardef\Hg=`g
+\chardef\Hh=`h
+\chardef\Hi=`i
+\chardef\Hj=`j
+\chardef\Hk=`k
+\chardef\Hl=`l
+\chardef\Hm=`m
+\chardef\Hn=`n
+\chardef\Hp=`p
+\chardef\Ho=`o
+\chardef\Hp=`p
+\chardef\Hq=`q
+\chardef\Hr=`r
+\chardef\Hs=`s
+\chardef\Ht=`t
+\chardef\Hu=`u
+\chardef\Hv=`v
+\chardef\Hw=`w
+\chardef\Hx=`x
+\chardef\Hy=`y
+\chardef\Hz=`z
+\chardef\Hplus=`+
+\chardef\Hquery=`?
+\chardef\Hvbar=`|
+\chardef\Hslash=`/
+\chardef\Hms='001
+\chardef\Hibp='002
+\chardef\Hibw='003
+\chardef\Hibs='004
+\chardef\Hibl='005
+\chardef\Hsv='006
+\chardef\Hman='007
+\chardef\Htongue='010
+\chardef\Hscribe='011
+\chardef\Hplural='012
+\chardef\Hdual='013
+\chardef\Hone=`|
+\chardef\Hten=`2
+\chardef\Hhundred=`3
+\chardef\Hthousand=`4
+\chardef\HXthousand=`5
+\chardef\HCthousand=`6
+\chardef\Hmillion=`7
+
+\DeclareTextCommand{\uunder}{OT1}[1]%
+  {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}%
+    \vbox to.2ex{\hbox{\char21}\vss}\hidewidth}}}
+
+\DeclareTextCommand{\cedover}{OT1}[1]%
+  {#1\ifdim\fontdimen\@ne\font>\z@%
+     \kern-.18em
+   \else
+     \kern-.4em
+   \fi
+   \raisebox{1.75ex}{\char24}}
+
+\newcommand{\Hic}{\cedover{\i}\ensuremath{\!}}
+\newcommand{\Hrp}{\,\textoands{`}}
+\newcommand{\Hag}{\textoands{z}}
+
+\newcommand{\translitpmhgfont}{\itshape}
+
+\newcommand{\translitpmhg}[1]{{%
+  \c@rttranslit\translitpmhgfont #1}}
+
+\newcommand{\c@rttranslit}{%
+\def\HA{\Hrp}%
+\def\HB{b}%
+\def\HC{\uunder{h}}%
+\def\HD{\b{d}}%
+\def\HE{\v{s}\Hag}%
+\def\HF{}%
+\def\HG{\Hic b}%
+\def\HH{\d{h}}%
+\def\HI{}%
+\def\HJ{\d{h}m}%
+\def\HK{\d{k}}%
+\def\HL{\Hic w}%
+\def\HM{m}%
+\def\HN{\uunder{h}t}%
+\def\HO{\Hag st}%
+\def\HP{}%
+\def\HQ{tp}%
+\def\HR{wr}%
+\def\HS{s}%
+\def\HT{\b{t}}%
+\def\HU{w\b{d}}%
+\def\HV{}%
+\def\HW{w}%
+\def\HX{\b{h}}%
+\def\HY{}%
+\def\HZ{\textoands{z}w}%
+\def\Ha{\Hag}%
+\def\Hb{b}%
+\def\Hc{\b{d}\Hrp m}%
+\def\Hd{d}%
+\def\He{\Hic r}%
+\def\Hf{f}%
+\def\Hg{g}%
+\def\Hh{h}%
+\def\Hi{\Hic}%
+\def\Hj{pr}%
+\def\Hk{k}%
+\def\Hl{l}%
+\def\Hm{m}%
+\def\Hn{n}%
+\def\Ho{w\Hag}%
+\def\Hp{p}%
+\def\Hq{\d{h}r}%
+\def\Hr{r}%
+\def\Hs{s}%
+\def\Ht{t}%
+\def\Hu{\d{h}\b{d}}%
+\def\Hv{nbw}%
+\def\Hw{w}%
+\def\Hx{}%
+\def\Hy{y}%
+\def\Hz{\v{s}}%
+\def\Hplus{\Hic my}%
+\def\Hquery{awt}%
+\def\Hslash{\d{k}m\Hag}%
+\def\Hvbar{w\Hrp}%
+\def\Hms{ms}%
+\def\Hibp{\b{d}\d{h}wty}%
+\def\Hibw{b\Hag}%
+\def\Hibs{}%
+\def\Hibl{gm}%
+\def\Hsv{}%
+\def\Hman{}%
+\def\Htongue{ns}%
+\def\Hscribe{s\b{h}}%
+\def\Hplural{}%
+\def\Hdual{}%
+\def\Hone{w\Hrp}%
+\def\Hten{m\b{d}w}%
+\def\Hhundred{\v{s}t}%
+\def\Hthousand{\uunder{h}\Hag}%
+\def\HXthousand{\b{d}b\Hag}%
+\def\HCthousand{\d{h}fnw}%
+\def\Hmillion{\d{h}\d{h}}%
+}
+
+%%%%%%%%%%%%%%%% file EgypUtil.sty from the hieroglyph package %%%%%%%
+
+
+\def\echange#1#2#3{%
+\def\echangeaux##1##2{\ifx##2\end\def\next{##1}%
+\else\ifx##2#1\relax\def\next{\echangeaux{##1#2}}\else\def\next{\echangeaux{##1##2}}\fi\fi%
+\next}%
+\echangeaux#3\relax\end}
+
+%%%%%%%%%%%%%%%% end of file EgypUtil.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def\c@rttg#1\relax{%
+\hskip 0.1pt\textpmhg{#1}\hskip 0.1pt}
+
+\newlength{\c@rthm}
+\newcommand{\setc@rthm}{%
+  \settoheight{\c@rthm}{\textpmhg{\HY\HH}}%
+  \addtolength{\c@rthm}{1.2pt}%
+}
+
+\newcommand{\c@rtline}[1]{\echange{-}{\relax\c@rtqA}{\c@rttg{#1}}}
+
+\def\c@rtoN#1\relax{\hbox{\c@rtline{#1}}}
+\def\c@rton#1\relax{\vskip 0.1mm plus 1fil\hbox to \dimen0{\hskip 0em
+  plus 0.25fil\c@rtline{#1}\hskip 0em plus 0.25fil}}
+
+\def\c@rtqA#1\relax{\hfil{\setbox0=\vbox{%
+\echange{:}{\relax\c@rtoN}{\relax:#1\relax}%
+}\hbox{\box0}}}
+
+\def\c@rtq#1\relax{{\setbox0=\vbox{\offinterlineskip%
+\echange{:}{\relax\c@rtoN}{\relax:#1\relax}}\dimen0=\wd0%
+\ifdim\ht0>\c@rthm%
+  \c@rtqS#1\relax%
+\else%
+  \setbox0=\vbox to \c@rthm{\offinterlineskip%
+  \echange{:}{\relax\vfil\c@rton}{\relax\c@rton#1\relax}}%
+  \hbox{\box0}%
+\fi%
+}}
+
+\def\c@rtvq#1\relax{%
+  {\setbox0=\vbox{\offinterlineskip%
+   \echange{:}{\relax\c@rtoN}{\relax:#1\relax}}\dimen0=\wd0%
+   \setbox0=\vbox{%
+     \lineskiplimit=100pt\lineskip=0.25ex%       vertical spacing
+     \echange{:}{\relax\vfil\c@rton}{\relax\c@rton#1\relax}}%
+   \hbox{\box0}%
+}}
+
+\def\c@rtqS#1\relax{{\c@rtsmaller\setbox0=\vbox{\offinterlineskip%
+  \echange{:}{\relax\c@rtoN}{\relax:#1\relax}}\dimen0=\wd0%
+  \ifdim\ht0>\c@rthm%
+    \ifx\@currsize\tiny%
+      \c@rtTS#1\relax%
+    \else%
+      \c@rtqS#1\relax%
+    \fi%
+  \else%
+    \c@rtTS#1\relax%
+  \fi%
+}}
+
+\def\c@rtTS#1\relax{%
+  \setbox0=\vbox to \c@rthm{\offinterlineskip%
+  \echange{:}{\relax\vfil\c@rton}{\relax\c@rton#1\relax}}%
+  \hbox{\box0}%
+}
+
+\def\pmglyph#1{{%
+  \setc@rthm%
+  \dimen0=\c@rthm%
+  \advance\dimen0 by 2mm%
+  \setbox0=\hbox{%
+  \echange{-}{\relax\c@rtq}{\relax-#1}}%
+  \sloppy\unhbox0%
+}}
+
+\def\pmvglyph#1{{%
+  \setc@rthm%
+  \dimen0=\c@rthm%
+  \advance\dimen0 by 2mm%
+  \setbox0=\hbox{%
+  \echange{-}{\relax\c@rtvq}{\relax-#1}}%
+  \sloppy\unhbox0%
+}}
+
+\DeclareRobustCommand\c@rtrelsize[1]{%
+\ifmmode \@nomath\c@rtrelsize\else
+  \@tempcnta
+    \ifx\@currsize\normalsize 4\else
+      \ifx\@currsize\small 3\else
+        \ifx\@currsize\footnotesize 2\else
+          \ifx\@currsize\large 5\else
+            \ifx\@currsize\Large 6\else
+              \ifx\@currsize\LARGE 7\else
+                \ifx\@currsize\scriptsize 1\else
+                  \ifx\@currsize\tiny 0\else
+                    \ifx\@currsize\huge 8\else
+                      \ifx\@currsize\Huge 9\else
+                        4 % unknown state, start at normalsize
+\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+\advance\@tempcnta#1\relax
+\ifnum\@tempcnta<\z@ \@tempcnta\z@ \fi
+\ifcase\@tempcnta
+  \tiny \or \scriptsize \or \footnotesize \or \small \or \normalsize \or
+  \large \or \Large \or \LARGE \or \huge \else \Huge
+\fi\fi}
+
+\DeclareRobustCommand\c@rtsmaller{\c@rtrelsize{-1}}
+
+\newbox\c@rtbox
+\@ifundefined{@tempdimc}{\newdimen\@tempdimc}{}
+\newdimen\c@rtht
+\newcommand{\cartouchecorner}{\@ifstar{\sc@rtcorner}{\c@rtcorner}}
+\newcommand{\sc@rtcorner}[1]{%
+  \@tempdima=#1\relax
+  \edef\thec@rtcorner{\number\@tempdima sp}}
+\newcommand{\c@rtcorner}[1]{%
+  \edef\thec@rtcorner{#1\noexpand\@tempdimb}}
+\cartouchecorner{.75}
+
+\def\c@rtoval(#1,#2){%
+  \begingroup
+    \c@rt@oval{#1\unitlength}{#2\unitlength}%
+    \@put{-.5\wd\@tempboxa}{-.5\ht\@tempboxa}{\ht\@tempboxa=\z@\box\@tempboxa}%
+  \endgroup}
+
+\newcommand{\c@rt@oval}[2]{%
+  \boxmaxdepth \maxdimen
+  \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue
+  \@ovxx#1\relax
+  \advance\@ovxx-\@wholewidth
+  \@ovyy#2\relax
+  \advance\@ovyy-\@wholewidth
+  \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi
+  \advance\@tempdimb-2\p@
+  \ifdim\@tempdimb>\thec@rtcorner\relax
+    \@tempdimb=\thec@rtcorner
+  \fi
+  \@getcirc\@tempdimb
+  \@ovro\ht\@tempboxa \@ovri\dp\@tempboxa
+  \@ovdx\@ovxx \advance\@ovdx-\@tempdima \divide\@ovdx \tw@
+  \@ovdy\@ovyy \advance\@ovdy-\@tempdima \divide\@ovdy \tw@
+  \@circlefnt
+  \setbox\@tempboxa\hbox{%
+    \@ovvert32\kern -\@tempdima
+    \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx
+    \@ovhorz \kern -\@ovxx
+    \raise \@ovyy \@ovhorz}%
+  \advance\@ovdx\@ovro
+  \advance\@ovdy\@ovro
+  \advance\@ovxx\@wholewidth
+  \wd\@tempboxa=\@ovxx
+  \dp\@tempboxa=\z@}
+
+\newcommand{\cartouche}{\c@rtouche\thinlines}
+\newcommand{\Cartouche}{\c@rtouche\thicklines}
+
+\newcommand{\vertouche}{\c@rtouchev\thinlines}
+\newcommand{\Vertouche}{\c@rtouchev\thicklines}
+
+\newcommand{\c@rtouche}[2]{
+  \begingroup
+    #1\relax
+    \c@rtsetoval{#2}
+    \leavevmode\hbox{%
+      \lower\@tempdima\box\@tempboxa
+      \kern\@tempdimc\box\c@rtbox\kern\@tempdimc}%
+    \rule[-\@tempdima]{\@wholewidth}{\c@rtht}% % thick/thin line at end
+  \endgroup}
+
+\newcommand{\c@rtsetoval}[1]{%
+  \setbox\c@rtbox\hbox{{#1}}%
+  \@tempdimc\fboxsep \advance\@tempdimc\@wholewidth
+  \@tempdima\ht\c@rtbox \advance\@tempdima\dp\c@rtbox
+  \advance\@tempdima2\@tempdimc
+  \@tempdimb\wd\c@rtbox \advance\@tempdimb2\@tempdimc
+  \c@rt@oval\@tempdimb\@tempdima%
+  \@tempdima\dp\c@rtbox \advance\@tempdima\@tempdimc
+  \c@rtht\ht\c@rtbox \advance\c@rtht\@tempdima \advance\c@rtht\@tempdimc
+  \wd\@tempboxa=\z@
+}
+
+\newcommand{\c@rtouchev}[2]{
+  \begingroup
+    #1\relax
+    \c@rtsetoval{#2}
+    \leavevmode\hbox{%
+      \lower\@tempdima\box\@tempboxa
+      \kern\@tempdimc\box\c@rtbox\kern\@tempdimc}%
+      \advance\@tempdimb-\@tempdimc
+      \kern-2\@tempdimb\rule[-\@tempdima]{2\@tempdimb}{\@wholewidth}%
+  \endgroup}
+
+\endinput
+%%
+%% End of file `hieroglf.sty'.
diff --git a/Master/texmf-dist/tex/latex/hieroglf/ot1pmhg.fd b/Master/texmf-dist/tex/latex/hieroglf/ot1pmhg.fd
new file mode 100644
index 00000000000..45e7bcae6f0
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/hieroglf/ot1pmhg.fd
@@ -0,0 +1,27 @@
+%%
+%% This is file `ot1pmhg.fd',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% hieroglf.dtx  (with options: `fdot1')
+%% 
+%%  Copyright 2000 Peter R. Wilson
+%% 
+%%  This program is provided under the terms of the
+%%  LaTeX Project Public License distributed from CTAN
+%%  archives in directory macros/latex/base/lppl.txt.
+%% 
+%% Author: Peter Wilson (CUA)
+%%         now at: peter.r.wilson@boeing.com
+%% 
+\ProvidesFile{ot1pmhg.fd}[2000/08/19 v1.0 PM Hieroglyphic font definitions]
+\DeclareFontFamily{OT1}{pmhg}{}
+  \DeclareFontShape{OT1}{pmhg}{m}{n}{ <-> pmhg }{}
+  \DeclareFontShape{OT1}{pmhg}{bx}{n}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{OT1}{pmhg}{b}{n}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{OT1}{pmhg}{m}{sl}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{OT1}{pmhg}{m}{it}{ <-> sub pmhg/m/n }{}
+\endinput
+%%
+%% End of file `ot1pmhg.fd'.
diff --git a/Master/texmf-dist/tex/latex/hieroglf/t1pmhg.fd b/Master/texmf-dist/tex/latex/hieroglf/t1pmhg.fd
new file mode 100644
index 00000000000..014588967a9
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/hieroglf/t1pmhg.fd
@@ -0,0 +1,27 @@
+%%
+%% This is file `t1pmhg.fd',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% hieroglf.dtx  (with options: `fdt1')
+%% 
+%%  Copyright 2000 Peter R. Wilson
+%% 
+%%  This program is provided under the terms of the
+%%  LaTeX Project Public License distributed from CTAN
+%%  archives in directory macros/latex/base/lppl.txt.
+%% 
+%% Author: Peter Wilson (CUA)
+%%         now at: peter.r.wilson@boeing.com
+%% 
+\ProvidesFile{t1pmhg.fd}[2000/08/19 v1.0 PM Hieroglyphic font definitions]
+\DeclareFontFamily{T1}{pmhg}{}
+  \DeclareFontShape{T1}{pmhg}{m}{n}{ <-> pmhg }{}
+  \DeclareFontShape{T1}{pmhg}{bx}{n}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{T1}{pmhg}{b}{n}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{T1}{pmhg}{m}{sl}{ <-> sub pmhg/m/n }{}
+  \DeclareFontShape{T1}{pmhg}{m}{it}{ <-> sub pmhg/m/n }{}
+\endinput
+%%
+%% End of file `t1pmhg.fd'.