archaic

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

1 files changed, 92 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/archaic/greek6cbc.sty b/Master/texmf-dist/tex/latex/archaic/greek6cbc.sty
new file mode 100644
index 00000000000..29a6b8cc0b6
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/archaic/greek6cbc.sty
@@ -0,0 +1,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'.