1 files changed, 113 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/archaic/greek4cbc.sty b/Master/texmf-dist/tex/latex/archaic/greek4cbc.sty
new file mode 100644
index 00000000000..c86679ce6e2
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/archaic/greek4cbc.sty
@@ -0,0 +1,113 @@
+%%
+%% This is file `greek4cbc.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% greek4cbc.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{greek4cbc}[2000/10/22 v1.1 package for 4th century BC Greek fonts]
+\newcommand{\givbcfamily}{\usefont{T1}{givbc}{m}{n}}
+\DeclareTextFontCommand{\textgivbc}{\givbcfamily}
+
+\chardef\Aalpha=`a
+\chardef\Abeta=`b
+\chardef\Agamma=`g
+\chardef\Adelta=`d
+\chardef\Aepsilon=`e
+\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\Arho=`r
+\chardef\Asigma=`s
+\chardef\Atau=`t
+\chardef\Aupsilon=`y
+\chardef\Achi=`X
+\chardef\Aphi=`f
+\chardef\Apsi=`P
+\chardef\Aomega=`O
+
+\chardef\ARalpha=`a
+\chardef\ARbeta=`B
+\chardef\ARgamma=`g
+\chardef\ARdelta=`d
+\chardef\ARepsilon=`e
+\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\ARomicron=`o
+\chardef\ARpi=`p
+\chardef\ARrho=`R
+\chardef\ARsigma=`s
+\chardef\ARtau=`t
+\chardef\ARupsilon=`Y
+\chardef\ARchi=`X
+\chardef\ARphi=`F
+\chardef\ARpsi=`Q
+\chardef\ARomega=`O
+
+\newcommand{\translitgivbc}[1]{{%
+  \@translitGiv #1}}
+\newcommand{\translitgivbcfont}{\mathrm}
+
+\newcommand{\@translitGiv}{%
+\def\Aalpha{\ensuremath{\translitgivbcfont{A}}}\def\ARalpha{\Aalpha}%
+\def\Abeta{\ensuremath{\translitgivbcfont{B}}}\def\ARbeta{\Abeta}%
+\def\Agamma{\ensuremath{\translitgivbcfont{\Gamma}}}\def\ARgamma{\Agamma}%
+\def\Adelta{\ensuremath{\translitgivbcfont{\Delta}}}\def\ARdelta{\Adelta}%
+\def\Aepsilon{\ensuremath{\translitgivbcfont{E}}}\def\ARepsilon{\Aepsilon}%
+\def\Azeta{\ensuremath{\translitgivbcfont{Z}}}\def\ARzeta{\Azeta}%
+\def\Aeta{\ensuremath{\translitgivbcfont{H}}}\def\AReta{\Aeta}%
+\def\Atheta{\ensuremath{\translitgivbcfont{\Theta}}}\def\ARtheta{\Atheta}%
+\def\Aiota{\ensuremath{\translitgivbcfont{I}}}\def\ARiota{\Aiota}%
+\def\Akappa{\ensuremath{\translitgivbcfont{K}}}\def\ARkappa{\Akappa}%
+\def\Alambda{\ensuremath{\translitgivbcfont{\Lambda}}}\def\ARlambda{\Alambda}%
+\def\Amu{\ensuremath{\translitgivbcfont{M}}}\def\ARmu{\Amu}%
+\def\Anu{\ensuremath{\translitgivbcfont{N}}}\def\ARnu{\Anu}%
+\def\Axi{\ensuremath{\translitgivbcfont{\Xi}}}\def\ARxi{\Axi}%
+\def\Aomicron{\ensuremath{\translitgivbcfont{O}}}\def\ARomicron{\Aomicron}%
+\def\Api{\ensuremath{\translitgivbcfont{\Pi}}}\def\ARpi{\Api}%
+\def\Arho{\ensuremath{\translitgivbcfont{R}}}\def\ARrho{\Arho}%
+\def\Asigma{\ensuremath{\translitgivbcfont{\Sigma}}}\def\ARsigma{\Asigma}%
+\def\Atau{\ensuremath{\translitgivbcfont{T}}}\def\ARtau{\Atau}%
+\def\Aupsilon{\ensuremath{\translitgivbcfont{\Upsilon}}}\def\ARupsilon{\Aupsilon}%
+\def\Achi{\ensuremath{\translitgivbcfont{X}}}\def\ARchi{\Achi}%
+\def\Aphi{\ensuremath{\translitgivbcfont{\Phi}}}\def\ARphi{\Aphi}%
+\def\Apsi{\ensuremath{\translitgivbcfont{\Psi}}}\def\ARpsi{\Apsi}%
+\def\Aomega{\ensuremath{\translitgivbcfont{\Omega}}}\def\ARomega{\Aomega}%
+}
+
+\endinput
+%%
+%% End of file `greek4cbc.sty'.