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