%% %% 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'.