archaic

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

1 files changed, 123 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/archaic/etruscan.sty b/Master/texmf-dist/tex/latex/archaic/etruscan.sty
new file mode 100644
index 00000000000..16940cd4fd9
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/archaic/etruscan.sty
@@ -0,0 +1,123 @@
+%%
+%% This is file `etruscan.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% etruscan.dtx  (with options: `usc')
+%% ------------------------------------------------------------------
+%%   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.
+%% ------------------------------------------------------------------
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{etruscan}[2000/10/01 v2.0 package for Etruscan fonts]
+\newcommand{\etrfamily}{\usefont{T1}{etr}{m}{n}}
+\DeclareTextFontCommand{\textetr}{\etrfamily}
+
+\chardef\Aalpha=`a
+\chardef\Abeta=`b
+\chardef\Agamma=`g
+\chardef\Adelta=`d
+\chardef\Aepsilon=`e
+\chardef\Adigamma=`F
+\chardef\Azeta=`z
+\chardef\Aeta=`h
+\chardef\Atheta=`T
+\chardef\Aiota=`i
+\chardef\Akappa=`k
+\chardef\Alambda=`l
+\chardef\Amu=`m
+\chardef\Anu=`n
+\chardef\Axi=`x
+\chardef\Aomicron=`o
+\chardef\Api=`p
+\chardef\Aesade=`S
+\chardef\Aqoph=`q
+\chardef\Arho=`r
+\chardef\Asigma=`s
+\chardef\Atau=`t
+\chardef\Aupsilon=`y
+\chardef\Achi=`X
+\chardef\Aphi=`f
+\chardef\Apsi=`P
+\chardef\Avau=`v
+
+\chardef\ARalpha=`a
+\chardef\ARbeta=`B
+\chardef\ARgamma=`G
+\chardef\ARdelta=`D
+\chardef\ARepsilon=`E
+\chardef\ARdigamma=`U
+\chardef\ARzeta=`z
+\chardef\AReta=`H
+\chardef\ARtheta=`T
+\chardef\ARiota=`i
+\chardef\ARkappa=`K
+\chardef\ARlambda=`L
+\chardef\ARmu=`M
+\chardef\ARnu=`N
+%%%%\chardef\ARxi=`x
+\chardef\ARxi=`C
+\chardef\ARomicron=`o
+\chardef\ARpi=`Q
+\chardef\AResade=`S
+\chardef\ARqoph=`q
+\chardef\ARrho=`R
+\chardef\ARsigma=`Z
+\chardef\ARtau=`J
+\chardef\ARupsilon=`y
+\chardef\ARchi=`X
+\chardef\ARphi=`f
+\chardef\ARpsi=`P
+\chardef\ARvau=`v
+
+\newcommand{\translitetr}[1]{{%
+  \@translitETR #1}}
+\newcommand{\translitetrfont}{\mathrm}
+
+\newcommand{\@translitETR}{%
+\def\Aalpha{\ensuremath{\translitetrfont{A}}}\def\ARalpha{\Aalpha}%
+\def\Abeta{\ensuremath{\translitetrfont{B}}}\def\ARbeta{\Abeta}%
+\def\Agamma{\ensuremath{\translitetrfont{G}}}\def\ARgamma{\Agamma}%
+\def\Adelta{\ensuremath{\translitetrfont{D}}}\def\ARdelta{\Adelta}%
+\def\Aepsilon{\ensuremath{\translitetrfont{E}}}\def\ARepsilon{\Aepsilon}%
+\def\Aupsilon{\ensuremath{\translitetrfont{Y}}}\def\ARupsilon{\Aupsilon}%
+\def\Adigamma{\ensuremath{\translitetrfont{F}}}\def\ARdigamma{\Adigamma}%
+\def\Azeta{\ensuremath{\translitetrfont{Z}}}\def\ARzeta{\Azeta}%
+\def\Aeta{\ensuremath{\translitetrfont{H}}}\def\AReta{\Aeta}%
+\def\Atheta{\ensuremath{\translitetrfont{\Theta}}}\def\ARtheta{\Atheta}%
+\def\Aiota{\ensuremath{\translitetrfont{I}}}\def\ARiota{\Aiota}%
+\def\Akappa{\ensuremath{\translitetrfont{K}}}\def\ARkappa{\Akappa}%
+\def\Alambda{\ensuremath{\translitetrfont{L}}}\def\ARlambda{\Alambda}%
+\def\Amu{\ensuremath{\translitetrfont{M}}}\def\ARmu{\Amu}%
+\def\Anu{\ensuremath{\translitetrfont{N}}}\def\ARnu{\Anu}%
+\def\Axi{\ensuremath{\translitetrfont{\Xi}}}\def\ARxi{\Axi}%
+\def\Aomicron{\ensuremath{\translitetrfont{O}}}\def\ARomicron{\Aomicron}%
+\def\Api{\ensuremath{\translitetrfont{P}}}\def\ARpi{\Api}%
+\def\Aesade{\ensuremath{\translitetrfont{S}}}\def\AResade{\Aesade}%
+\def\Aqoph{\ensuremath{\translitetrfont{Q}}}\def\ARqoph{\Aqoph}%
+\def\Arho{\ensuremath{\translitetrfont{R}}}\def\ARrho{\Arho}%
+\def\Asigma{\ensuremath{\translitetrfont{S}}}\def\ARsigma{\Asigma}%
+\def\Atau{\ensuremath{\translitetrfont{T}}}\def\ARtau{\Atau}%
+\def\Achi{\ensuremath{\translitetrfont{X}}}\def\ARchi{\Achi}%
+\def\Aphi{\ensuremath{\translitetrfont{\Phi}}}\def\ARphi{\Aphi}%
+\def\Apsi{\ensuremath{\translitetrfont{\Psi}}}\def\ARpsi{\Apsi}%
+\def\Avau{\ensuremath{\translitetrfont{F}}}\def\ARvau{\Avau}%
+}
+
+\endinput
+%%
+%% End of file `etruscan.sty'.