summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/archaic/greek6cbc.sty
blob: 29a6b8cc0b6792f39ffd75466ebc25640e114a10 (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
%%
%% This is file `greek6cbc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% greek6cbc.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{greek6cbc}[2000/10/01 v2.0 package for 6th century BC Greek font]
\newcommand{\gvibcfamily}{\usefont{T1}{gvibc}{m}{n}}
\DeclareTextFontCommand{\textgvibc}{\gvibcfamily}

\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\Akoppa=`q
\chardef\Arho=`r
\chardef\Asigma=`s
\chardef\Atau=`t
\chardef\Aupsilon=`y
\chardef\Achi=`X
\chardef\Aphi=`f
\chardef\Apsi=`P
\chardef\Aomega=`O

\newcommand{\translitgvibc}[1]{{%
  \@translitGvi #1}}
\newcommand{\translitgvibcfont}{\mathrm}

\newcommand{\@translitGvi}{%
\def\Aalpha{\ensuremath{\translitgvibcfont{A}}}%
\def\Abeta{\ensuremath{\translitgvibcfont{B}}}%
\def\Agamma{\ensuremath{\translitgvibcfont{\Gamma}}}%
\def\Adelta{\ensuremath{\translitgvibcfont{\Delta}}}%
\def\Aepsilon{\ensuremath{\translitgvibcfont{E}}}%
\def\Adigamma{\ensuremath{\translitgvibcfont{F}}}%
\def\Azeta{\ensuremath{\translitgvibcfont{Z}}}%
\def\Aeta{\ensuremath{\translitgvibcfont{H}}}%
\def\Atheta{\ensuremath{\translitgvibcfont{\Theta}}}%
\def\Aiota{\ensuremath{\translitgvibcfont{I}}}%
\def\Akappa{\ensuremath{\translitgvibcfont{K}}}%
\def\Alambda{\ensuremath{\translitgvibcfont{\Lambda}}}%
\def\Amu{\ensuremath{\translitgvibcfont{M}}}%
\def\Anu{\ensuremath{\translitgvibcfont{N}}}%
\def\Axi{\ensuremath{\translitgvibcfont{\Xi}}}%
\def\Aomicron{\ensuremath{\translitgvibcfont{O}}}%
\def\Api{\ensuremath{\translitgvibcfont{\Pi}}}%
\def\Akoppa{\ensuremath{\translitgvibcfont{Q}}}%
\def\Arho{\ensuremath{\translitgvibcfont{R}}}%
\def\Asigma{\ensuremath{\translitgvibcfont{\Sigma}}}%
\def\Atau{\ensuremath{\translitgvibcfont{T}}}%
\def\Aupsilon{\ensuremath{\translitgvibcfont{\Upsilon}}}%
\def\Achi{\ensuremath{\translitgvibcfont{X}}}%
\def\Aphi{\ensuremath{\translitgvibcfont{\Phi}}}%
\def\Apsi{\ensuremath{\translitgvibcfont{\Psi}}}%
\def\Aomega{\ensuremath{\translitgvibcfont{\Omega}}}%
}

\endinput
%%
%% End of file `greek6cbc.sty'.