summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/archaic/etruscan.sty
blob: 16940cd4fd9804462c12145c270dc44fe33f5f49 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
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'.