%% This file is part of the OFNTINST 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) 2002--2004 by Alexej Kryukov
%% Please report errors to: A.M. Kryukov <basileia@yandex.ru>

\relax

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

\title{The \texttt{noautokern.mtx} metrics file}
\author{Alexej Kryukov}
\date{26 April 2004}

\begin{document}
\maketitle

This document describes the \texttt{greek-lt.mtx} metrics file, 
used to make some substitutions necessary while installing Greek
fonts designed by Linotype.

\metrics

\ifisglyph{betatwo}\then
   \setglyph{beta1}
      \glyph{beta}{1000}
   \endsetglyph
   \setleftrightkerning{beta1}{beta}{1000}
   
   \resetglyph{beta}
      \glyph{betatwo}{1000}
   \endresetglyph
   \setleftrightkerning{beta}{betatwo}{1000}
\fi

\ifisglyph{phitwo}\then
   \setglyph{phi1}
      \glyph{phi}{1000}
   \endsetglyph
   \setleftrightkerning{phi1}{phi}{1000}
   
   \resetglyph{phi}
      \glyph{phitwo}{1000}
   \endresetglyph
   \setleftrightkerning{phi}{phitwo}{1000}
\fi

\ifisglyph{thetatwo}\then
   \setglyph{theta1}
      \glyph{thetatwo}{1000}
   \endsetglyph
   \setleftrightkerning{theta1}{theta}{1000}
\fi

\ifisglyph{iotasubscripta}\then
   \setglyph{alphaiota}
      \glyph{iotasubscripta}{1000}
      \glyph{alpha}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiota}{alpha}{1000}

   \setglyph{alphaiotaacute}
      \glyph{iotasubscripta}{1000}
      \glyph{alphatonos}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaacute}{alphatonos}{1000}

   \setglyph{alphaiotagrave}
      \glyph{iotasubscripta}{1000}
      \glyph{alphagrave}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotagrave}{alphaiota}{1000}

   \setglyph{alphaiotacircum}
      \glyph{iotasubscripta}{1000}
      \glyph{alphacircum}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotacircum}{alphacircum}{1000}

   \setglyph{alphaiotalenis}
      \glyph{iotasubscripta}{1000}
      \glyph{alphalenis}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotalenis}{alphalenis}{1000}

   \setglyph{alphaiotaasper}
      \glyph{iotasubscripta}{1000}
      \glyph{alphaasper}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaasper}{alphaasper}{1000}

   \setglyph{alphaiotaasperacute}
      \glyph{iotasubscripta}{1000}
      \glyph{alphaasperacute}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaasperacute}{alphaasperacute}{1000}

   \setglyph{alphaiotaaspergrave}
      \glyph{iotasubscripta}{1000}
      \glyph{alphaaspergrave}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaaspergrave}{alphaaspergrave}{1000}

   \setglyph{alphaiotaaspercircum}
      \glyph{iotasubscripta}{1000}
      \glyph{alphaaspercircum}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaaspercircum}{alphaaspercircum}{1000}

   \setglyph{alphaiotalenisacute}
      \glyph{iotasubscripta}{1000}
      \glyph{alphalenisacute}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotalenisacute}{alphalenisacute}{1000}

   \setglyph{alphaiotalenisgrave}
      \glyph{iotasubscripta}{1000}
      \glyph{alphalenisgrave}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotalenis}{alphalenisgrave}{1000}

   \setglyph{alphaiotaleniscircum}
      \glyph{iotasubscripta}{1000}
      \glyph{alphaleniscircum}{1000}
   \endsetglyph
   \setleftrightkerning{alphaiotaleniscircum}{alphaleniscircum}{1000}
\fi

\ifisglyph{iotasubscripte}\then
   \setglyph{etaiota}
      \glyph{iotasubscripte}{1000}
      \glyph{eta}{1000}
   \endsetglyph
   \setleftrightkerning{etaiota}{eta}{1000}

   \setglyph{etaiotaacute}
      \glyph{iotasubscripte}{1000}
      \glyph{etatonos}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaacute}{etatonos}{1000}

   \setglyph{etaiotagrave}
      \glyph{iotasubscripte}{1000}
      \glyph{etagrave}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotagrave}{etaiota}{1000}

   \setglyph{etaiotacircum}
      \glyph{iotasubscripte}{1000}
      \glyph{etacircum}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotacircum}{etacircum}{1000}

   \setglyph{etaiotalenis}
      \glyph{iotasubscripte}{1000}
      \glyph{etalenis}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotalenis}{etalenis}{1000}

   \setglyph{etaiotaasper}
      \glyph{iotasubscripte}{1000}
      \glyph{etaasper}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaasper}{etaasper}{1000}

   \setglyph{etaiotaasperacute}
      \glyph{iotasubscripte}{1000}
      \glyph{etaasperacute}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaasperacute}{etaasperacute}{1000}

   \setglyph{etaiotaaspergrave}
      \glyph{iotasubscripte}{1000}
      \glyph{etaaspergrave}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaaspergrave}{etaaspergrave}{1000}

   \setglyph{etaiotaaspercircum}
      \glyph{iotasubscripte}{1000}
      \glyph{etaaspercircum}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaaspercircum}{etaaspercircum}{1000}

   \setglyph{etaiotalenisacute}
      \glyph{iotasubscripte}{1000}
      \glyph{etalenisacute}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotalenisacute}{etalenisacute}{1000}

   \setglyph{etaiotalenisgrave}
      \glyph{iotasubscripte}{1000}
      \glyph{etalenisgrave}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotalenis}{etalenisgrave}{1000}

   \setglyph{etaiotaleniscircum}
      \glyph{iotasubscripte}{1000}
      \glyph{etaleniscircum}{1000}
   \endsetglyph
   \setleftrightkerning{etaiotaleniscircum}{etaleniscircum}{1000}
\fi

\ifisglyph{iotasubscripto}\then
   \setglyph{omegaiota}
      \glyph{iotasubscripto}{1000}
      \glyph{omega}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiota}{omega}{1000}

   \setglyph{omegaiotaacute}
      \glyph{iotasubscripto}{1000}
      \glyph{omegatonos}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaacute}{omegatonos}{1000}

   \setglyph{omegaiotagrave}
      \glyph{iotasubscripto}{1000}
      \glyph{omegagrave}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotagrave}{omegaiota}{1000}

   \setglyph{omegaiotacircum}
      \glyph{iotasubscripto}{1000}
      \glyph{omegacircum}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotacircum}{omegacircum}{1000}

   \setglyph{omegaiotalenis}
      \glyph{iotasubscripto}{1000}
      \glyph{omegalenis}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotalenis}{omegalenis}{1000}

   \setglyph{omegaiotaasper}
      \glyph{iotasubscripto}{1000}
      \glyph{omegaasper}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaasper}{omegaasper}{1000}

   \setglyph{omegaiotaasperacute}
      \glyph{iotasubscripto}{1000}
      \glyph{omegaasperacute}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaasperacute}{omegaasperacute}{1000}

   \setglyph{omegaiotaaspergrave}
      \glyph{iotasubscripto}{1000}
      \glyph{omegaaspergrave}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaaspergrave}{omegaaspergrave}{1000}

   \setglyph{omegaiotaaspercircum}
      \glyph{iotasubscripto}{1000}
      \glyph{omegaaspercircum}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaaspercircum}{omegaaspercircum}{1000}

   \setglyph{omegaiotalenisacute}
      \glyph{iotasubscripto}{1000}
      \glyph{omegalenisacute}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotalenisacute}{omegalenisacute}{1000}

   \setglyph{omegaiotalenisgrave}
      \glyph{iotasubscripto}{1000}
      \glyph{omegalenisgrave}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotalenis}{omegalenisgrave}{1000}

   \setglyph{omegaiotaleniscircum}
      \glyph{iotasubscripto}{1000}
      \glyph{omegaleniscircum}{1000}
   \endsetglyph
   \setleftrightkerning{omegaiotaleniscircum}{omegaleniscircum}{1000}
   
   \setint{iotashift}{\div{\sub{\width{Omega}}{\width{omega}}}{2}}
   
   \setglyph{Alphaiota}
      \movert{\int{iotashift}}
      \glyph{iotasubscripto}{1000}
      \movert{\neg{\int{iotashift}}}
      \glyph{Alpha}{1000}
   \endsetglyph

   \setglyph{Etaiota}
      \movert{\int{iotashift}}
      \glyph{iotasubscripto}{1000}
      \movert{\neg{\int{iotashift}}}
      \glyph{Eta}{1000}
   \endsetglyph

   \setglyph{Omegaiota}
      \movert{\int{iotashift}}
      \glyph{iotasubscripto}{1000}
      \movert{\neg{\int{iotashift}}}
      \glyph{Omega}{1000}
   \endsetglyph
\fi

\endmetrics
\end{document}