summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/archaic/hieroglf.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:51:35 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:51:35 +0000
commit7b48ed57d813f99232b3de1c34ee82664b127c52 (patch)
treef9a71429970d85e9d7230a28faab7e8cbfec8b9c /Master/texmf-dist/tex/latex/archaic/hieroglf.sty
parentaec1c1b77ee51b9359530d61cc7b8df2a37c7685 (diff)
archaic
git-svn-id: svn://tug.org/texlive/trunk@674 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/archaic/hieroglf.sty')
-rw-r--r--Master/texmf-dist/tex/latex/archaic/hieroglf.sty483
1 files changed, 483 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/archaic/hieroglf.sty b/Master/texmf-dist/tex/latex/archaic/hieroglf.sty
new file mode 100644
index 00000000000..211b74a34f2
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/archaic/hieroglf.sty
@@ -0,0 +1,483 @@
+%%
+%% This is file `hieroglf.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% hieroglf.dtx (with options: `usc')
+%% ------------------------------------------------------------------
+%% Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
+%% Copyright 2000--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.
+%% ------------------------------------------------------------------
+\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'.