%% This file is part of the GRKFINST project version 0.3.2
%% -------------------------------------------------------
%% 
%% It may be distributed under the terms of the LaTeX Project Public
%% License, as described in lppl.txt in the base LaTeX distribution.
%% Either version 1.0 or, at your option, any later version.
%% Copyright (C) 2001--2004 by Alexej Kryukov
%% Please report errors to: A.M. Kryukov <basileia@yandex.ru>

\relax

\documentclass[twocolumn]{article}
\usepackage{fontdoc}

\title{The {\tt fontinst} Greek glyphs}
\author{A. Kryukov}
\date{26 April 2004. Version 0.5}

\begin{document}
\maketitle

\metrics

\needsfontinstversion{1.926}

% \unfakable is a glyph which can't be faked.

\setcommand\unfakable#1{
   \setglyph{#1}
      \ifisglyph{#1-not}\then
         \moveup{\neg{\depth{#1-not}}}
         \glyphrule{
            \width{#1-not}
         }{
            \add{\depth{#1-not}}{\height{#1-not}}
         }
         \resetitalic{\italic{#1-not}}
         \moveup{\depth{#1-not}}
      \else
         \glyphrule{500}{500}
      \fi
      \glyphwarning{missing glyph `#1'}
   \endsetglyph
}

% A top accent is set by placing the center of the accent at the given
% position along the width of the letter, raised up by the difference
% between the height of the letter and the xheight.

\setcommand\topaccent#1#2#3{
   \push
      \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
      \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
         {\scale{\int{italicslant}}{\sub{\height{#1}}{\int{xheight}}}}}
      \glyph{#2}{1000}
   \pop
   \glyph{#1}{1000}
}

% A bottom accent is set by placing the center of the accent at the given
% position along the width of the letter.

\setcommand\botaccent#1#2#3{
   \push
      \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
      \glyph{#2}{1000}
   \pop
   \glyph{#1}{1000}
}

% A c&sc glyph is created by shrinking the cap glyph, and adding extra
% space.

\setcommand\cscglyph#1{
   \movert{\int{smallcapsextraspace}}
   \glyph{#1}{\int{smallcapsscale}}
   \movert{\int{smallcapsextraspace}}
}

% A c&sc accent is created by moving a shrunk accent up by the
% difference between a scaled x and a scaled X.

\setcommand\cscaccent#1{
   \moveup{\scale{\int{xheight}}{\sub{1000}{\int{smallcapsscale}}}}
   \cscglyph{#1}
   \moveup{\scale{\int{xheight}}{\sub{\int{smallcapsscale}}{1000}}}
}

\setcommand\greekglyph#1#2#3 {
  \foreach(temp@a){#2}
    \ifisglyph{\str{temp@a}}\then
      \setglyph{#1}
         \glyph{\str{temp@a}}{1000}
      \endsetglyph
    \fi
  \endfor(temp@a)
  \unfakable{#1}
  \csname greek@extra@#3\endcsname{#1}
}

\fontinstcc
\let\greek@extra@\gobble_one
\normalcc
\expandafter\def\csname greek@extra@*\endcsname#1{
  \setglyph{#1small}
    \cscglyph{#1}
  \endsetglyph
  \setleftrightkerning{#1small}{#1}{\int{smallcapskerning}}
}
\expandafter\def\csname greek@extra@A\endcsname#1{
  \setglyph{#1small}
     \cscaccent{#1}
  \endsetglyph
}

\comment{\section{Default values}}

\setint{italicslant}{0}

\ifisglyph{x}\then
   \setint{xheight}{\height{x}}
\else
   \setint{xheight}{\height{kappa}}
\fi

\ifisglyph{A}\then
   \setint{capheight}{\height{A}}
\else
   \setint{capheight}{\height{Alpha}}
\fi

\ifisglyph{d}\then
   \setint{ascender}{\height{d}}
\else
   \setint{ascender}{\height{delta}}
\fi

\ifisglyph{g}\then
   \setint{descender}{\depth{g}}
\else
   \setint{descender}{\depth{gamma}}
\fi

\setint{underlinethickness}{40}
\setint{visiblespacedepth}{200}
\setint{visiblespacewidth}{400}
\setint{visiblespacesurround}{50}
\setint{smallcapsscale}{800}
\setint{smallcapskerning}{900}

\ifisint{monowidth}\then
   \setint{capspacing}{0}
   \setint{smallcapsextraspace}
      {\div{\scale{\width{x}}{\sub{1000}{\int{smallcapsscale}}}}{2}}
\else
   \setint{capspacing}{50}
   \setint{smallcapsextraspace}{0}
\fi

\ifisint{visiblespace}\then
   \setint{boundarychar}{\int{visiblespace}}
\fi

\comment{\section{Kerning}}

\setleftrightkerning{visiblespace}{space}{1000}

\setleftkerning{hyphenchar}{hyphen}{1000}

\setleftrightkerning{Alphaiota}{Alpha}{1000}
\setleftrightkerning{Etaiota}{Eta}{1000}
\setleftrightkerning{Omegaiota}{Omega}{1000}

\setleftrightkerning{Alphamacron}{Alpha}{1000}
\setleftrightkerning{Iotamacron}{Iota}{1000}
\setleftrightkerning{Upsilonmacron}{Upsilon}{1000}
\setleftrightkerning{alphamacron}{alpha}{1000}
\setleftrightkerning{iotamacron}{iota}{1000}
\setleftrightkerning{upsilonmacron}{upsilon}{1000}

\setleftrightkerning{Alphabreve}{Alpha}{1000}
\setleftrightkerning{Iotabreve}{Iota}{1000}
\setleftrightkerning{Upsilonbreve}{Upsilon}{1000}
\setleftrightkerning{alphabreve}{alpha}{1000}
\setleftrightkerning{iotabreve}{iota}{1000}
\setleftrightkerning{upsilonbreve}{upsilon}{1000}

\setleftkerning{ALPHAIOTA}{Alpha}{1000}
\setleftkerning{ETAIOTA}{Eta}{1000}
\setleftkerning{OMEGAIOTA}{Omega}{1000}

\setleftrightkerning{Iotadieresis}{Iota}{1000}
\setleftrightkerning{Upsilondieresis}{Upsilon}{1000}
\setleftrightkerning{Iotadieresissmall}{Iota}{\int{smallcapskerning}}
\setleftrightkerning{Upsilondieresissmall}{Upsilon}{\int{smallcapskerning}}

\begincomment
 It is logical to set kerning for all accented letters equal to kerning
 for the same letters without accents. However, since there are too many
 accented letters in Greek, doing so may produce a lot of redundant
 kerning pairs, which will never occur in any real text. On the other hand,
 since we are not trying to fake the most part of small accented letters,
 it is supposed that all these letters are already present in the font
 and have their own kerning pairs, which should be enough for typesetting 
 Greek text. So I've added a possibility to disable automatical generation 
 of kerning pairs for small unfakable accented letters by enabling the 
 `noautokern' option.
\endcomment

\ifoption{noautokern}\then
\else
  \setleftrightkerning{alphatonos}{alpha}{1000}
  \setleftrightkerning{alphaacute}{alpha}{1000}
  \setleftrightkerning{alphagrave}{alpha}{1000}
  \setleftrightkerning{alphacircum}{alpha}{1000}
  \setleftrightkerning{alphalenis}{alpha}{1000}
  \setleftrightkerning{alphaasper}{alpha}{1000}
  \setleftrightkerning{alphalenisacute}{alpha}{1000}
  \setleftrightkerning{alphalenisgrave}{alpha}{1000}
  \setleftrightkerning{alphaleniscircum}{alpha}{1000}
  \setleftrightkerning{alphaasperacute}{alpha}{1000}
  \setleftrightkerning{alphaaspergrave}{alpha}{1000}
  \setleftrightkerning{alphaaspercircum}{alpha}{1000}
  \setleftrightkerning{alphaiota}{alpha}{1000}
  \setleftrightkerning{alphaiotaacute}{alpha}{1000}
  \setleftrightkerning{alphaiotagrave}{alpha}{1000}
  \setleftrightkerning{alphaiotacircum}{alpha}{1000}
  \setleftrightkerning{alphaiotalenis}{alpha}{1000}
  \setleftrightkerning{alphaiotaasper}{alpha}{1000}
  \setleftrightkerning{alphaiotalenisacute}{alpha}{1000}
  \setleftrightkerning{alphaiotalenisgrave}{alpha}{1000}
  \setleftrightkerning{alphaiotaleniscircum}{alpha}{1000}
  \setleftrightkerning{alphaiotaasperacute}{alpha}{1000}
  \setleftrightkerning{alphaiotaaspergrave}{alpha}{1000}
  \setleftrightkerning{alphaiotaaspercircum}{alpha}{1000}

  \setleftrightkerning{etatonos}{eta}{1000}
  \setleftrightkerning{etaacute}{eta}{1000}
  \setleftrightkerning{etagrave}{eta}{1000}
  \setleftrightkerning{etacircum}{eta}{1000}
  \setleftrightkerning{etalenis}{eta}{1000}
  \setleftrightkerning{etaasper}{eta}{1000}
  \setleftrightkerning{etalenisacute}{eta}{1000}
  \setleftrightkerning{etalenisgrave}{eta}{1000}
  \setleftrightkerning{etaleniscircum}{eta}{1000}
  \setleftrightkerning{etaasperacute}{eta}{1000}
  \setleftrightkerning{etaaspergrave}{eta}{1000}
  \setleftrightkerning{etaaspercircum}{eta}{1000}
  \setleftrightkerning{etaiota}{omega}{1000}
  \setleftrightkerning{etaiotaacute}{eta}{1000}
  \setleftrightkerning{etaiotagrave}{eta}{1000}
  \setleftrightkerning{etaiotacircum}{eta}{1000}
  \setleftrightkerning{etaiotalenis}{eta}{1000}
  \setleftrightkerning{etaiotaasper}{eta}{1000}
  \setleftrightkerning{etaiotalenisacute}{eta}{1000}
  \setleftrightkerning{etaiotalenisgrave}{eta}{1000}
  \setleftrightkerning{etaiotaleniscircum}{eta}{1000}
  \setleftrightkerning{etaiotaasperacute}{eta}{1000}
  \setleftrightkerning{etaiotaaspergrave}{eta}{1000}
  \setleftrightkerning{etaiotaaspercircum}{eta}{1000}

  \setleftrightkerning{omegatonos}{omega}{1000}
  \setleftrightkerning{omegaacute}{omega}{1000}
  \setleftrightkerning{omegagrave}{omega}{1000}
  \setleftrightkerning{omegacircum}{omega}{1000}
  \setleftrightkerning{omegalenis}{omega}{1000}
  \setleftrightkerning{omegaasper}{omega}{1000}
  \setleftrightkerning{omegalenisacute}{omega}{1000}
  \setleftrightkerning{omegalenisgrave}{omega}{1000}
  \setleftrightkerning{omegaleniscircum}{omega}{1000}
  \setleftrightkerning{omegaasperacute}{omega}{1000}
  \setleftrightkerning{omegaaspergrave}{omega}{1000}
  \setleftrightkerning{omegaaspercircum}{omega}{1000}
  \setleftrightkerning{omegaiota}{omega}{1000}
  \setleftrightkerning{omegaiotaacute}{omega}{1000}
  \setleftrightkerning{omegaiotagrave}{omega}{1000}
  \setleftrightkerning{omegaiotacircum}{omega}{1000}
  \setleftrightkerning{omegaiotalenis}{omega}{1000}
  \setleftrightkerning{omegaiotaasper}{omega}{1000}
  \setleftrightkerning{omegaiotalenisacute}{omega}{1000}
  \setleftrightkerning{omegaiotalenisgrave}{omega}{1000}
  \setleftrightkerning{omegaiotaleniscircum}{omega}{1000}
  \setleftrightkerning{omegaiotaasperacute}{omega}{1000}
  \setleftrightkerning{omegaiotaaspergrave}{omega}{1000}
  \setleftrightkerning{omegaiotaaspercircum}{omega}{1000}

  \setleftrightkerning{iotatonos}{iota}{1000}
  \setleftrightkerning{iotaacute}{iota}{1000}
  \setleftrightkerning{iotagrave}{iota}{1000}
  \setleftrightkerning{iotacircum}{iota}{1000}
  \setleftrightkerning{iotalenis}{iota}{1000}
  \setleftrightkerning{iotaasper}{iota}{1000}
  \setleftrightkerning{iotalenisacute}{iota}{1000}
  \setleftrightkerning{iotalenisgrave}{iota}{1000}
  \setleftrightkerning{iotaleniscircum}{iota}{1000}
  \setleftrightkerning{iotaasperacute}{iota}{1000}
  \setleftrightkerning{iotaaspergrave}{iota}{1000}
  \setleftrightkerning{iotaaspercircum}{iota}{1000}
  \setleftrightkerning{iotadieresis}{iota}{1000}
  \setleftrightkerning{iotadieresistonos}{iota}{1000}
  \setleftrightkerning{iotadieresisgrave}{iota}{1000}
  \setleftrightkerning{iotadieresiscircum}{iota}{1000}

  \setleftrightkerning{upsilontonos}{upsilon}{1000}
  \setleftrightkerning{upsilonacute}{upsilon}{1000}
  \setleftrightkerning{upsilongrave}{upsilon}{1000}
  \setleftrightkerning{upsiloncircum}{upsilon}{1000}
  \setleftrightkerning{upsilonlenis}{upsilon}{1000}
  \setleftrightkerning{upsilonasper}{upsilon}{1000}
  \setleftrightkerning{upsilonlenisacute}{upsilon}{1000}
  \setleftrightkerning{upsilonlenisgrave}{upsilon}{1000}
  \setleftrightkerning{upsilonleniscircum}{upsilon}{1000}
  \setleftrightkerning{upsilonasperacute}{upsilon}{1000}
  \setleftrightkerning{upsilonaspergrave}{upsilon}{1000}
  \setleftrightkerning{upsilonaspercircum}{upsilon}{1000}
  \setleftrightkerning{upsilondieresis}{upsilon}{1000}
  \setleftrightkerning{upsilondieresistonos}{upsilon}{1000}
  \setleftrightkerning{upsilondieresisgrave}{upsilon}{1000}
  \setleftrightkerning{upsilondieresiscircum}{upsilon}{1000}

  \setleftrightkerning{epsilontonos}{epsilon}{1000}
  \setleftrightkerning{epsilonacute}{epsilon}{1000}
  \setleftrightkerning{epsilongrave}{epsilon}{1000}
  \setleftrightkerning{epsiloncircum}{epsilon}{1000}
  \setleftrightkerning{epsilonlenis}{epsilon}{1000}
  \setleftrightkerning{epsilonasper}{epsilon}{1000}
  \setleftrightkerning{epsilonlenisacute}{epsilon}{1000}
  \setleftrightkerning{epsilonlenisgrave}{epsilon}{1000}
  \setleftrightkerning{epsilonasperacute}{epsilon}{1000}
  \setleftrightkerning{epsilonaspergrave}{epsilon}{1000}

  \setleftrightkerning{omicrontonos}{omicron}{1000}
  \setleftrightkerning{omicronacute}{omicron}{1000}
  \setleftrightkerning{omicrongrave}{omicron}{1000}
  \setleftrightkerning{omicroncircum}{omicron}{1000}
  \setleftrightkerning{omicronlenis}{omicron}{1000}
  \setleftrightkerning{omicronasper}{omicron}{1000}
  \setleftrightkerning{omicronlenisacute}{omicron}{1000}
  \setleftrightkerning{omicronlenisgrave}{omicron}{1000}
  \setleftrightkerning{omicronasperacute}{omicron}{1000}
  \setleftrightkerning{omicronaspergrave}{omicron}{1000}

  \setleftrightkerning{rholenis}{rho}{1000}
  \setleftrightkerning{rhoasper}{rho}{1000}
\fi

\setrightkerning{Alphatonos}{Alpha}{1000}
\setrightkerning{Epsilontonos}{Epsilon}{1000}
\setrightkerning{Etatonos}{Eta}{1000}
\setrightkerning{Iotatonos}{Iota}{1000}
\setrightkerning{Omicrontonos}{Omicron}{1000}
\setrightkerning{Upsilontonos}{Upsilon}{1000}
\setrightkerning{Omegatonos}{Omega}{1000}

\setrightkerning{Alphaacute}{Alpha}{1000}
\setrightkerning{Epsilonacute}{Epsilon}{1000}
\setrightkerning{Etaacute}{Eta}{1000}
\setrightkerning{Iotaacute}{Iota}{1000}
\setrightkerning{Omicronacute}{Omicron}{1000}
\setrightkerning{Upsilonacute}{Upsilon}{1000}
\setrightkerning{Omegaacute}{Omega}{1000}

\setrightkerning{Alphagrave}{Alpha}{1000}
\setrightkerning{Epsilongrave}{Epsilon}{1000}
\setrightkerning{Etagrave}{Eta}{1000}
\setrightkerning{Iotagrave}{Iota}{1000}
\setrightkerning{Omicrongrave}{Omicron}{1000}
\setrightkerning{Upsilongrave}{Upsilon}{1000}
\setrightkerning{Omegagrave}{Omega}{1000}

\setrightkerning{Alphalenis}{Alpha}{1000}
\setrightkerning{Epsilonlenis}{Epsilon}{1000}
\setrightkerning{Etalenis}{Eta}{1000}
\setrightkerning{Iotalenis}{Iota}{1000}
\setrightkerning{Omicronlenis}{Omicron}{1000}
\setrightkerning{Upsilonlenis}{Upsilon}{1000}
\setrightkerning{Omegalenis}{Omega}{1000}

\setrightkerning{Alphaasper}{Alpha}{1000}
\setrightkerning{Epsilonasper}{Epsilon}{1000}
\setrightkerning{Etaasper}{Eta}{1000}
\setrightkerning{Iotaasper}{Iota}{1000}
\setrightkerning{Omicronasper}{Omicron}{1000}
\setrightkerning{Upsilonasper}{Upsilon}{1000}
\setrightkerning{Omegaasper}{Omega}{1000}
\setrightkerning{Rhoasper}{Rho}{1000}

\setrightkerning{Alphalenisacute}{Alpha}{1000}
\setrightkerning{Epsilonlenisacute}{Epsilon}{1000}
\setrightkerning{Etalenisacute}{Eta}{1000}
\setrightkerning{Iotalenisacute}{Iota}{1000}
\setrightkerning{Omicronlenisacute}{Omicron}{1000}
\setrightkerning{Upsilonlenisacute}{Upsilon}{1000}
\setrightkerning{Omegalenisacute}{Omega}{1000}

\setrightkerning{Alphalenisgrave}{Alpha}{1000}
\setrightkerning{Epsilonlenisgrave}{Epsilon}{1000}
\setrightkerning{Etalenisgrave}{Eta}{1000}
\setrightkerning{Iotalenisgrave}{Iota}{1000}
\setrightkerning{Omicronlenisgrave}{Omicron}{1000}
\setrightkerning{Upsilonlenisgrave}{Upsilon}{1000}
\setrightkerning{Omegalenisgrave}{Omega}{1000}

\setrightkerning{Alphaleniscircum}{Alpha}{1000}
\setrightkerning{Epsilonleniscircum}{Epsilon}{1000}
\setrightkerning{Etaleniscircum}{Eta}{1000}
\setrightkerning{Iotaleniscircum}{Iota}{1000}
\setrightkerning{Omicronleniscircum}{Omicron}{1000}
\setrightkerning{Upsilonleniscircum}{Upsilon}{1000}
\setrightkerning{Omegaleniscircum}{Omega}{1000}

\setrightkerning{Alphaasperacute}{Alpha}{1000}
\setrightkerning{Epsilonasperacute}{Epsilon}{1000}
\setrightkerning{Etaasperacute}{Eta}{1000}
\setrightkerning{Iotaasperacute}{Iota}{1000}
\setrightkerning{Omicronasperacute}{Omicron}{1000}
\setrightkerning{Upsilonasperacute}{Upsilon}{1000}
\setrightkerning{Omegaasperacute}{Omega}{1000}

\setrightkerning{Alphaaspergrave}{Alpha}{1000}
\setrightkerning{Epsilonaspergrave}{Epsilon}{1000}
\setrightkerning{Etaaspergrave}{Eta}{1000}
\setrightkerning{Iotaaspergrave}{Iota}{1000}
\setrightkerning{Omicronaspergrave}{Omicron}{1000}
\setrightkerning{Upsilonaspergrave}{Upsilon}{1000}
\setrightkerning{Omegaaspergrave}{Omega}{1000}

\setrightkerning{Alphaaspercircum}{Alpha}{1000}
\setrightkerning{Epsilonaspercircum}{Epsilon}{1000}
\setrightkerning{Etaaspercircum}{Eta}{1000}
\setrightkerning{Iotaaspercircum}{Iota}{1000}
\setrightkerning{Omicronaspercircum}{Omicron}{1000}
\setrightkerning{Upsilonaspercircum}{Upsilon}{1000}
\setrightkerning{Omegaaspercircum}{Omega}{1000}

\setleftrightkerning{Alphaiotaacute}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotagrave}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotacircum}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotalenisacute}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotaasperacute}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotalenisgrave}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotaaspergrave}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotaleniscircum}{Alphaiota}{1000}
\setleftrightkerning{Alphaiotaaspercircum}{Alphaiota}{1000}

\setleftrightkerning{Etaiotaacute}{Etaiota}{1000}
\setleftrightkerning{Etaiotagrave}{Etaiota}{1000}
\setleftrightkerning{Etaiotacircum}{Etaiota}{1000}
\setleftrightkerning{Etaiotalenisacute}{Etaiota}{1000}
\setleftrightkerning{Etaiotaasperacute}{Etaiota}{1000}
\setleftrightkerning{Etaiotalenisgrave}{Etaiota}{1000}
\setleftrightkerning{Etaiotaaspergrave}{Etaiota}{1000}
\setleftrightkerning{Etaiotaleniscircum}{Etaiota}{1000}
\setleftrightkerning{Etaiotaaspercircum}{Etaiota}{1000}

\setleftrightkerning{Omegaiotaacute}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotagrave}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotacircum}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotalenisacute}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotaasperacute}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotalenisgrave}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotaaspergrave}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotaleniscircum}{Omegaiota}{1000}
\setleftrightkerning{Omegaiotaaspercircum}{Omegaiota}{1000}

\setleftrightkerning{ALPHA}{Alpha}{1000}
\setleftrightkerning{EPSILON}{Epsilon}{1000}
\setleftrightkerning{ETA}{Eta}{1000}
\setleftrightkerning{IOTA}{Iota}{1000}
\setleftrightkerning{OMICRON}{Omicron}{1000}
\setleftrightkerning{UPSILON}{Upsilon}{1000}
\setleftrightkerning{OMEGA}{Omega}{1000}

\comment{\section{Unfakable common glyphs}}

\unfakable{slash}
\unfakable{backslash}
\unfakable{bracketleft}
\unfakable{bracketright}
\unfakable{braceleft}
\unfakable{braceright}
\unfakable{parenleft}
\unfakable{parenright}
\unfakable{asciitilde}
\unfakable{asciicircum}
\unfakable{numbersign}
\unfakable{dollar}
\unfakable{percent}
\unfakable{perthousand}{}
\unfakable{asterisk}
\unfakable{euro}{}
\unfakable{hyphen}
\unfakable{comma}
\unfakable{period}
\unfakable{colon}
\unfakable{exclam}
\unfakable{question}
\unfakable{rangedash}
\unfakable{punctdash}
\unfakable{zero}
\unfakable{one}
\unfakable{two}
\unfakable{three}
\unfakable{four}
\unfakable{five}
\unfakable{six}
\unfakable{seven}
\unfakable{eight}
\unfakable{nine}
\unfakable{underscore}

\comment{\section{Common glyphs}}

\setglyph{space}
   \ifisglyph{space-not}\then
      \movert{\width{space-not}}
   \else
      \movert{\width{iota}}
   \fi
\endsetglyph

\setglyph{visiblespace}
   \moveup{\neg{\int{visiblespacedepth}}}
   \movert{\int{visiblespacesurround}}
   \glyphrule
      {\int{underlinethickness}}
      {\int{visiblespacedepth}}
   \glyphrule
      {\int{visiblespacewidth}}
      {\int{underlinethickness}}
   \glyphrule
      {\int{underlinethickness}}
      {\int{visiblespacedepth}}
   \movert{\int{visiblespacesurround}}
   \moveup{\int{visiblespacedepth}}
\endsetglyph

\setglyph{hyphenchar}
   \glyph{hyphen}{1000}
\endsetglyph

\setglyph{compwordmark}
   \glyphrule{0}{\int{xheight}}
\endsetglyph
\setint{compwordmark-spacing}{0}

\greekglyph{plus}{}
\greekglyph{dotbelowcomb}{}

\comment{\section{Greek accents and punctuation marks}}

\greekglyph{tonos}{}
\greekglyph{acutegreek}{tonos}
\greekglyph{gravegreek}{}
\greekglyph{circumgreek}{}
\greekglyph{asper}{}
\greekglyph{lenis}{}
\greekglyph{asperacute}{}
\greekglyph{lenisacute}{}
\greekglyph{aspergrave}{}
\greekglyph{lenisgrave}{}
\greekglyph{aspercircum}{}
\greekglyph{leniscircum}{}
\greekglyph{dieresisgreek}{dieresis}
\greekglyph{dieresistonos}{}
\greekglyph{dieresisacutegreek}{dieresistonos,dieresisacute}
\greekglyph{dieresisgravegreek}{dieresisgrave}

\setglyph{dieresiscircum}
   \topaccent{dieresisgreek}{circumgreek}{500}
\endsetglyph

\greekglyph{anwtonos}{tonos,acute}
\greekglyph{katwtonos}{}
\greekglyph{macrongreek}{macron}
\greekglyph{brevegreek}{breve}
\greekglyph{iotasubscript}{}

\comment{Combining variants of iota subscriptum, used in Linotype Greek
   fonts and in the Ibycus package.}
\greekglyph{iotasubscripto}{}
\greekglyph{iotasubscripta}{}
\greekglyph{iotasubscripte}{}

\setglyph{iotaadscript}
   \glyph{Iota}{500}
\endsetglyph

\setglyph{iotaadscriptsmall}
   \glyph{Iota}{\scale{500}{\int{smallcapsscale}}}
\endsetglyph

\greekglyph{questiongreek}{semicolon}
\greekglyph{anoteleia}{}
\greekglyph{angleleft}{less}
\greekglyph{angleright}{greater}

\setglyph{guillemotleftgreek}
   \ifisglyph{guillemotleft}\then
       \glyph{guillemotleft}{1000}
   \else
       \glyph{angleleft}{1000}
       \movert{\kerning{angleleft}{angleleft}}
       \glyph{angleleft}{1000}
   \fi
\endsetglyph

\setglyph{guillemotrightgreek}
   \ifisglyph{guillemotright}\then
       \glyph{guillemotright}{1000}
   \else
       \glyph{angleright}{1000}
       \movert{\kerning{angleright}{angleright}}
       \glyph{angleright}{1000}
   \fi
\endsetglyph

\setglyph{quotedblleftgreek}
   \ifisglyph{quotedblleft}\then
       \glyph{quotedblleft}{1000}
   \else
       \glyph{asper}{1000}
       \movert{\kerning{asper}{asper}}
       \glyph{asper}{1000}
   \fi
\endsetglyph

\setglyph{quotedblrightgreek}
   \ifisglyph{quotedblright}\then
       \glyph{quotedblright}{1000}
   \else
       \glyph{lenis}{1000}
       \movert{\kerning{lenis}{lenis}}
       \glyph{lenis}{1000}
   \fi
\endsetglyph

\greekglyph{quoteleft}{asper}
\greekglyph{quoteright}{lenis}

\comment{\section{Greek numeric and archaic symbols}}

\setglyph{Stigma}
   \glyph{Sigma}{1000}
   \movert{\kerning{Sigma}{Tau}}
   \glyph{Tau}{1000}
\endsetglyph
\greekglyph{Stigma}{}*

\setglyph{stigma}
   \glyph{sigma}{1000}
   \movert{\kerning{sigma}{tau}}
   \glyph{tau}{1000}
\endsetglyph
\greekglyph{stigma}{}

\greekglyph{Digamma}{F}*
\greekglyph{digamma}{f}
\greekglyph{vardigamma}{}
\greekglyph{Qoppaarchaic}{uni03D8}*
\greekglyph{qoppaarchaic}{uni03D9}
\greekglyph{Qoppa}{uni03DE}*
\greekglyph{qoppa}{uni03DF}
\greekglyph{Sampi}{uni03E0}*
\greekglyph{sampi}{uni03E1}
\greekglyph{yot}{j}
\greekglyph{aspirate}{uni0195}

\greekglyph{pentedeka}{Deltanum}
\greekglyph{pentehekaton}{Etanum}
\greekglyph{penteqilioi}{Chinum}
\greekglyph{pentemurioi}{Munum}

\comment{\section{Greek capital letters}}

\greekglyph{Alpha}{}*
\greekglyph{Beta}{}*
\greekglyph{Gamma}{}*
\greekglyph{Delta}{}*
\greekglyph{Epsilon}{}*
\greekglyph{Zeta}{}*
\greekglyph{Eta}{}*
\greekglyph{Theta}{}*
\greekglyph{Iota}{}*
\greekglyph{Kappa}{}*
\greekglyph{Lambda}{}*
\greekglyph{Mu}{}*
\greekglyph{Nu}{}*
\greekglyph{Xi}{}*
\greekglyph{Omicron}{}*
\greekglyph{Pi}{}*
\greekglyph{Rho}{}*
\greekglyph{Sigma}{}*
\greekglyph{Tau}{}*
\greekglyph{Upsilon}{}*
\greekglyph{Phi}{}*
\greekglyph{Chi}{}*
\greekglyph{Psi}{}*
\greekglyph{Omega}{}*

\begincomment
 The following glyph variants are necessary only for making correct
 ligatures. However they shouldn't be used in Unicode fonts,
 since with $\Omega$ we should use translation processes rather than
 \TeX\ ligatures.
\endcomment

\greekglyph{ALPHA}{Alpha}*

\greekglyph{EPSILON}{Epsilon}*

\greekglyph{ETA}{Eta}*

\greekglyph{IOTA}{Iota}*

\greekglyph{OMICRON}{Omicron}*

\greekglyph{UPSILON}{Upsilon}*

\greekglyph{OMEGA}{Omega}*

\greekglyph{RHO}{Rho}*

\comment{\section{Greek small letters}}

\greekglyph{alpha}{}
\greekglyph{beta}{}
\greekglyph{gamma}{}
\greekglyph{delta}{}
\greekglyph{epsilon}{}
\greekglyph{zeta}{}
\greekglyph{eta}{}
\greekglyph{theta}{}
\greekglyph{iota}{}
\greekglyph{kappa}{}
\greekglyph{lambda}{}
\greekglyph{mu}{}
\greekglyph{nu}{}
\greekglyph{xi}{}
\greekglyph{omicron}{}
\greekglyph{pi}{}
\greekglyph{rho}{}
\greekglyph{sigma1}{}
\greekglyph{sigma}{}
\greekglyph{tau}{}
\greekglyph{upsilon}{}
\greekglyph{phi}{}
\greekglyph{chi}{}
\greekglyph{psi}{}
\greekglyph{omega}{}

\comment{\section{Alternate forms of Greek letters}}

\greekglyph{beta1}{beta}
\greekglyph{theta1}{theta}
\greekglyph{Theta1}{Theta}*
\greekglyph{phi1}{phi}
\greekglyph{pi1}{pi}
\greekglyph{rho1}{rho}
\greekglyph{kappa1}{kappa}
\greekglyph{epsilon1}{epsilon}
\greekglyph{Csigma}{C}*
\greekglyph{csigma}{c}

\greekglyph{greekkai}{uni03D7}

\setglyph{greekkaismall}
   \glyph{Kappasmall}{1000}
   \movert{\kerning{Kappasmall}{Alphasmall}}
   \glyph{Alphasmall}{1000}
   \movert{\kerning{Alphasmall}{Iotasmall}}
   \glyph{Iotasmall}{1000}
\endsetglyph
\greekglyph{greekkaismall}{}

\comment{\section{Greek capital letters with iota subscriptum}}

\setglyph{Alphaiota}
   \botaccent{Alpha}{iotasubscript}{500}
\endsetglyph

\setglyph{Etaiota}
   \botaccent{Eta}{iotasubscript}{500}
\endsetglyph

\setglyph{Omegaiota}
   \botaccent{Omega}{iotasubscript}{500}
\endsetglyph

\comment{\section{Greek capital letters with iota adscriptum,
   intended for use in small caps fonts}}

\setglyph{ALPHAIOTA}
   \glyph{Alpha}{1000}
   \movert{\kerning{Alpha}{iotaadscript}}
   \glyph{iotaadscript}{1000}
\endsetglyph
\greekglyph{ALPHAIOTA}{}*

\setglyph{ETAIOTA}
   \glyph{Eta}{1000}
   \movert{\kerning{Eta}{iotaadscript}}
   \glyph{iotaadscript}{1000}
\endsetglyph
\greekglyph{ETAIOTA}{}*

\setglyph{OMEGAIOTA}
   \glyph{Omega}{1000}
   \movert{\kerning{Omega}{iotaadscript}}
   \glyph{iotaadscript}{1000}
\endsetglyph
\greekglyph{OMEGAIOTA}{}*

\comment{\section{Greek capital letters with tonos}}

\setglyph{Alphatonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etatonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilontonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotatonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicrontonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilontonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegatonos}
   \glyph{tonos}{1000}
   \movert{\kerning{tonos}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\comment{\section{Greek capital accented letters}}

\setglyph{Iotadieresis}
   \topaccent{Iota}{dieresisgreek}{500}
\endsetglyph
\greekglyph{Iotadieresis}{}*

\setglyph{Upsilondieresis}
   \topaccent{Upsilon}{dieresisgreek}{500}
\endsetglyph
\greekglyph{Upsilondieresis}{}*

\setglyph{Alphaacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaacute}
   \glyph{acutegreek}{1000}
   \movert{\kerning{acutegreek}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphagrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etagrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilongrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotagrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicrongrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilongrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegagrave}
   \glyph{gravegreek}{1000}
   \movert{\kerning{gravegreek}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonlenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronlenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonlenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Rhoasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Rho}}
   \glyph{Rho}{1000}
\endsetglyph

\setglyph{Alphalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonlenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronlenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonlenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonlenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronlenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonlenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\setglyph{Alphaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Alpha}}
   \glyph{Alpha}{1000}
\endsetglyph

\setglyph{Etaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Eta}}
   \glyph{Eta}{1000}
\endsetglyph

\setglyph{Epsilonaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Epsilon}}
   \glyph{Epsilon}{1000}
\endsetglyph

\setglyph{Iotaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Iota}}
   \glyph{Iota}{1000}
\endsetglyph

\setglyph{Omicronaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Omicron}}
   \glyph{Omicron}{1000}
\endsetglyph

\setglyph{Upsilonaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Upsilon}}
   \glyph{Upsilon}{1000}
\endsetglyph

\setglyph{Omegaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Omega}}
   \glyph{Omega}{1000}
\endsetglyph

\comment{\section{Greek capital accented letters with ypogegrammeni}}

\setglyph{Alphaiotalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Alphaiotaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Alpha}}
   \glyph{Alphaiota}{1000}
\endsetglyph

\setglyph{Etaiotalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Etaiotaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Eta}}
   \glyph{Etaiota}{1000}
\endsetglyph

\setglyph{Omegaiotalenis}
   \glyph{lenis}{1000}
   \movert{\kerning{lenis}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotaasper}
   \glyph{asper}{1000}
   \movert{\kerning{asper}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotalenisacute}
   \glyph{lenisacute}{1000}
   \movert{\kerning{lenisacute}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotalenisgrave}
   \glyph{lenisgrave}{1000}
   \movert{\kerning{lenisgrave}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotaleniscircum}
   \glyph{leniscircum}{1000}
   \movert{\kerning{leniscircum}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotaasperacute}
   \glyph{asperacute}{1000}
   \movert{\kerning{asperacute}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotaaspergrave}
   \glyph{aspergrave}{1000}
   \movert{\kerning{aspergrave}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\setglyph{Omegaiotaaspercircum}
   \glyph{aspercircum}{1000}
   \movert{\kerning{aspercircum}{Omega}}
   \glyph{Omegaiota}{1000}
\endsetglyph

\comment{\section{Greek small accented letters}}

\greekglyph{iotadieresis}{}
\greekglyph{iotadieresistonos}{}
\greekglyph{iotadieresisacute}{iotadieresistonos}
\greekglyph{iotadieresisgrave}{}

\setglyph{iotadieresiscircum}
   \topaccent{iotadieresis}{circumgreek}{500}
\endsetglyph

\greekglyph{upsilondieresis}{}
\greekglyph{upsilondieresistonos}{}
\greekglyph{upsilondieresisacute}{upsilondieresistonos}
\greekglyph{upsilondieresisgrave}{}

\setglyph{upsilondieresiscircum}
   \topaccent{upsilondieresis}{circumgreek}{500}
\endsetglyph

\comment{Small epslion and omicron with circumflex, not available in most
   Greek fonts.}

\setglyph{epsiloncircum}
   \topaccent{epsilon}{circumgreek}{500}
\endsetglyph
\greekglyph{epsiloncircum}{}

\setglyph{epsilonleniscircum}
   \topaccent{epsilon}{leniscircum}{500}
\endsetglyph
\greekglyph{epsilonleniscircum}{}

\setglyph{epsilonaspercircum}
   \topaccent{epsilon}{aspercircum}{500}
\endsetglyph
\greekglyph{epsilonaspercircum}{}

\setglyph{omicroncircum}
   \topaccent{omicron}{circumgreek}{500}
\endsetglyph
\greekglyph{omicroncircum}{}

\setglyph{omicronleniscircum}
   \topaccent{omicron}{leniscircum}{500}
\endsetglyph
\greekglyph{omicronleniscircum}{}

\setglyph{omicronaspercircum}
   \topaccent{omicron}{aspercircum}{500}
\endsetglyph
\greekglyph{omicronaspercircum}{}

\greekglyph{alphalenis}{}
\greekglyph{alphaasper}{}
\greekglyph{alphatonos}{}
\greekglyph{alphaacute}{alphatonos}
\greekglyph{alphagrave}{}
\greekglyph{alphacircum}{}
\greekglyph{alphalenisacute}{}
\greekglyph{alphalenisgrave}{}
\greekglyph{alphaleniscircum}{}
\greekglyph{alphaasperacute}{}
\greekglyph{alphaaspergrave}{}
\greekglyph{alphaaspercircum}{}
\greekglyph{alphaiota}{}
\greekglyph{alphaiotalenis}{}
\greekglyph{alphaiotaasper}{}
\greekglyph{alphaiotaacute}{}
\greekglyph{alphaiotagrave}{}
\greekglyph{alphaiotacircum}{}
\greekglyph{alphaiotalenisacute}{}
\greekglyph{alphaiotalenisgrave}{}
\greekglyph{alphaiotaleniscircum}{}
\greekglyph{alphaiotaasperacute}{}
\greekglyph{alphaiotaaspergrave}{}
\greekglyph{alphaiotaaspercircum}{}

\greekglyph{etalenis}{}
\greekglyph{etaasper}{}
\greekglyph{etatonos}{}
\greekglyph{etaacute}{etatonos}
\greekglyph{etagrave}{}
\greekglyph{etacircum}{}
\greekglyph{etalenisacute}{}
\greekglyph{etalenisgrave}{}
\greekglyph{etaleniscircum}{}
\greekglyph{etaasperacute}{}
\greekglyph{etaaspergrave}{}
\greekglyph{etaaspercircum}{}
\greekglyph{etaiota}{}
\greekglyph{etaiotalenis}{}
\greekglyph{etaiotaasper}{}
\greekglyph{etaiotaacute}{}
\greekglyph{etaiotagrave}{}
\greekglyph{etaiotacircum}{}
\greekglyph{etaiotalenisacute}{}
\greekglyph{etaiotalenisgrave}{}
\greekglyph{etaiotaleniscircum}{}
\greekglyph{etaiotaasperacute}{}
\greekglyph{etaiotaaspergrave}{}
\greekglyph{etaiotaaspercircum}{}

\greekglyph{omegalenis}{}
\greekglyph{omegaasper}{}
\greekglyph{omegatonos}{}
\greekglyph{omegaacute}{omegatonos}
\greekglyph{omegagrave}{}
\greekglyph{omegacircum}{}
\greekglyph{omegalenisacute}{}
\greekglyph{omegalenisgrave}{}
\greekglyph{omegaleniscircum}{}
\greekglyph{omegaasperacute}{}
\greekglyph{omegaaspergrave}{}
\greekglyph{omegaaspercircum}{}
\greekglyph{omegaiota}{}
\greekglyph{omegaiotalenis}{}
\greekglyph{omegaiotaasper}{}
\greekglyph{omegaiotaacute}{}
\greekglyph{omegaiotagrave}{}
\greekglyph{omegaiotacircum}{}
\greekglyph{omegaiotalenisacute}{}
\greekglyph{omegaiotalenisgrave}{}
\greekglyph{omegaiotaleniscircum}{}
\greekglyph{omegaiotaasperacute}{}
\greekglyph{omegaiotaaspergrave}{}
\greekglyph{omegaiotaaspercircum}{}

\greekglyph{iotalenis}{}
\greekglyph{iotaasper}{}
\greekglyph{iotatonos}{}
\greekglyph{iotaacute}{iotatonos}
\greekglyph{iotagrave}{}
\greekglyph{iotacircum}{}
\greekglyph{iotalenisacute}{}
\greekglyph{iotalenisgrave}{}
\greekglyph{iotaleniscircum}{}
\greekglyph{iotaasperacute}{}
\greekglyph{iotaaspergrave}{}
\greekglyph{iotaaspercircum}{}

\greekglyph{upsilonlenis}{}
\greekglyph{upsilonasper}{}
\greekglyph{upsilontonos}{}
\greekglyph{upsilonacute}{upsilontonos}
\greekglyph{upsilongrave}{}
\greekglyph{upsiloncircum}{}
\greekglyph{upsilonlenisacute}{}
\greekglyph{upsilonlenisgrave}{}
\greekglyph{upsilonleniscircum}{}
\greekglyph{upsilonasperacute}{}
\greekglyph{upsilonaspergrave}{}
\greekglyph{upsilonaspercircum}{}

\greekglyph{epsilonlenis}{}
\greekglyph{epsilonasper}{}
\greekglyph{epsilontonos}{}
\greekglyph{epsilonacute}{epsilontonos}
\greekglyph{epsilongrave}{}
\greekglyph{epsilonlenisacute}{}
\greekglyph{epsilonlenisgrave}{}
\greekglyph{epsilonasperacute}{}
\greekglyph{epsilonaspergrave}{}

\greekglyph{omicronlenis}{}
\greekglyph{omicronasper}{}
\greekglyph{omicrontonos}{}
\greekglyph{omicronacute}{omicrontonos}
\greekglyph{omicrongrave}{}
\greekglyph{omicronlenisacute}{}
\greekglyph{omicronlenisgrave}{}
\greekglyph{omicronasperacute}{}
\greekglyph{omicronaspergrave}{}

\comment{\section{Greek letters with macron/breve}}

\setglyph{Alphamacron}
   \topaccent{Alpha}{macrongreek}{500}
\endsetglyph

\setglyph{Iotamacron}
   \topaccent{Iota}{macrongreek}{500}
\endsetglyph

\setglyph{Upsilonmacron}
   \topaccent{Upsilon}{macrongreek}{500}
\endsetglyph

\setglyph{Alphabreve}
   \topaccent{Alpha}{brevegreek}{500}
\endsetglyph

\setglyph{Iotabreve}
   \topaccent{Iota}{brevegreek}{500}
\endsetglyph

\setglyph{Upsilonbreve}
   \topaccent{Upsilon}{brevegreek}{500}
\endsetglyph

\setglyph{alphamacron}
   \topaccent{alpha}{macrongreek}{500}
\endsetglyph

\setglyph{iotamacron}
   \topaccent{iota}{macrongreek}{500}
\endsetglyph

\setglyph{upsilonmacron}
   \topaccent{upsilon}{macrongreek}{500}
\endsetglyph

\setglyph{alphabreve}
   \topaccent{alpha}{brevegreek}{500}
\endsetglyph

\setglyph{iotabreve}
   \topaccent{iota}{brevegreek}{500}
\endsetglyph

\setglyph{upsilonbreve}
   \topaccent{upsilon}{brevegreek}{500}
\endsetglyph

\comment{\section{Combining dot below}}

\comment{Instead of making a single bottom accent, the Ibycus font 
    provides a special version of combining dot below for almost each
    character. These odd glyphs are listed below (glyph names are taken
    from the PostScript version of the Ibycus font.}

\greekglyph{dotI}{}

\greekglyph{dotJdlmnpqu}{}

\greekglyph{dotbt}{}

\greekglyph{dotchjz}{}

\greekglyph{doti}{}

\greekglyph{dotGZ}{}

\greekglyph{dotkos}{}

\greekglyph{dotCEVaw}{}

\greekglyph{dotDK}{}

\greekglyph{dotfy}{}

\greekglyph{dotgx}{}

\greekglyph{dotkoppa}{}

\greekglyph{dotAOQUXY}{}

\greekglyph{dotr}{}

\greekglyph{dotM}{}

\endmetrics
\end{document}