\relax

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

\begin{document}
\maketitle

\section{Introduction}

This document describes a raw font encoding used for installing Greek
fonts designed by Linotype. It almost exactly reproduces the original
encoding vector of these fonts, but maps all extra characters to arbitrary
slots in the 0x01--0x19 area, thus making them accessible to fontinst.

\encoding

\needsfontinstversion{1.914}

\comment{\section{Default values}}

\setstr{codingscheme}{GREEK RAW FONT ENCODING - 8R-GRK}

\setcommand\lc#1#2{#2}
\setcommand\uc#1#2{#1}
\setcommand\lctop#1#2{#2}
\setcommand\uctop#1#2{#1}
\setcommand\lclig#1#2{#2}
\setcommand\uclig#1#2{#1}
\setcommand\digit#1{#1}

% added for typesetting Greek
\setcommand\capsubscript#1#2{#2}
\setcommand\lowsubscript#1#2{#2}
\setcommand\capcomb#1#2{#2}

\setint{italicslant}{0}

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

\ifisglyph{space}\then
   \setint{interword}{\width{space}}
\else\ifisglyph{hyphen}\then
   \setint{interword}{\width{hyphen}}
\else
   \setint{interword}{333}
\fi\fi

\ifisglyph{Chi}\then
   \setint{capheight}{\height{Chi}}
\else
   \setint{capheight}{750}
\fi

\ifisglyph{delta}\then
   \setint{ascender}{\height{delta}}
\else
   \ifisint{capheight}\then
        \setint{ascender}{\int{capheight}}
   \else
        \setint{ascender}{750}
\fi\fi

\ifisglyph{Iotadieresis}\then
   \setint{acccapheight}{\height{Iotadieresis}}
\else
   \setint{acccapheight}{999}
\fi

\ifisint{descender_neg}\then
    \setint{descender}{\neg{\int{descender_neg}}}
 \else
    \ifisglyph{chi}\then
      \setint{descender}{\depth{chi}}
   \else
      \setint{descender}{250}
   \fi
\fi

\ifisglyph{Iotadieresis}\then
   \setint{maxheight}{\height{Iotadieresis}}
\else
   \setint{maxheight}{1000}
\fi

\ifisint{maxdepth_neg}\then
  \setint{maxdepth}{\neg{\int{maxdepth_neg}}}
\else
   \ifisglyph{chi}\then
    \setint{maxdepth}{\depth{chi}}
  \else
    \setint{maxdepth}{250}
  \fi
\fi

\ifisglyph{six}\then
   \setint{digitwidth}{\width{six}}
\else
   \setint{digitwidth}{500}
\fi

\setint{capstem}{0} % not in AFM files
\setint{baselineskip}{1200}

\begincomment\section{Default font dimensions}\endcomment

\setint{fontdimen(1)}{\int{italicslant}}              % italic slant
\setint{fontdimen(2)}{\int{interword}}                % interword space
\ifisint{monowidth}\then
   \setint{fontdimen(3)}{0}                           % interword stretch
   \setint{fontdimen(4)}{0}                           % interword shrink
\Else
   \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
   \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
\Fi
\setint{fontdimen(5)}{\int{xheight}}                  % x-height
\setint{fontdimen(6)}{1000}                           % quad
\ifisint{monowidth}\then
   \ifisint{typewriter}\then
      \setint{fontdimen(7)}{0}                        % extra space after .
   \Else
      \setint{fontdimen(7)}{\int{interword}}          % extra space after .
   \Fi
\Else
   \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
\Fi
\setint{fontdimen(8)}{\int{capheight}}   % cap height
\setint{fontdimen(9)}{\int{ascender}}  % ascender
\setint{fontdimen(10)}{\int{acccapheight}} % accented cap height
\setint{fontdimen(11)}{\int{descender}} % descender's depth
\setint{fontdimen(12)}{\int{maxheight}} % max height
\setint{fontdimen(13)}{\int{maxdepth}} % max depth
\setint{fontdimen(14)}{\int{digitwidth}} % digit width
\setint{fontdimen(15)}{\int{capstem}} % cap_stem
\setint{fontdimen(16)}{\int{baselineskip}} % baselineskip

\begincomment
\section{The encoding}
\endcomment

\nextslot{1}

\setslot{\lc{Beta}{betatwo}}
\endsetslot

\setslot{\lc{Theta}{thetatwo}}
\endsetslot

\setslot{\lc{Phi}{phitwo}}
\endsetslot

\setslot{dieresisgravegreek}
\endsetslot

\setslot{katwtonos}
\endsetslot

\nextslot{"10}

\setslot{apple}
\endsetslot

\setslot{devicecontroltwo} 
\endsetslot

\setslot{devicecontrolthree} 
\endsetslot

\nextslot{"20}

\setslot{space}
   \comment{The space character.}
\endsetslot

\setslot{exclam}
   \comment{The exclamation mark `!'.}
\endsetslot

\setslot{quotedbl}
   \comment{The `neutral' double quote mark `\,\textquotedbl\,',
      included for use in monowidth fonts, or for setting computer
      programs.}
\endsetslot

\setslot{numbersign}
   \comment{The hash sign `\#'.}
\endsetslot

\setslot{dollar}
   \comment{The dollar sign `\$'.}
\endsetslot

\setslot{percent}
   \comment{The percent sign `\%'.}
\endsetslot

\setslot{ampersand}
   \comment{The ampersand sign `\&'.}
\endsetslot

\setslot{quotesingle}
   \comment{The `neutral' single quote mark `\,\textquotesingle\,',
      included for use in monowidth fonts, or for setting computer
      programs.}
\endsetslot

\setslot{parenleft}
   \comment{The opening parenthesis `('.}
\endsetslot

\setslot{parenright}
   \comment{The closing parenthesis `)'.}
\endsetslot

\setslot{asterisk}
   \comment{The raised asterisk `*'.}
\endsetslot

\setslot{plus}
   \comment{The addition sign `+'.}
\endsetslot

\setslot{comma}
   \comment{The comma `,'.}
\endsetslot

\setslot{hyphen}
   \comment{The hyphen `-'.}
\endsetslot

\setslot{period}
   \comment{The period `.'.}
\endsetslot

\setslot{slash}
   \comment{The forward oblique `/'.}
\endsetslot

\setslot{\digit{zero}}
   \comment{The number `0'.  This (and all the other numerals) may be
      old style or ranging digits.}
\endsetslot

\setslot{\digit{one}}
   \comment{The number `1'.}
\endsetslot

\setslot{\digit{two}}
   \comment{The number `2'.}
\endsetslot

\setslot{\digit{three}}
   \comment{The number `3'.}
\endsetslot

\setslot{\digit{four}}
   \comment{The number `4'.}
\endsetslot

\setslot{\digit{five}}
   \comment{The number `5'.}
\endsetslot

\setslot{\digit{six}}
   \comment{The number `6'.}
\endsetslot

\setslot{\digit{seven}}
   \comment{The number `7'.}
\endsetslot

\setslot{\digit{eight}}
   \comment{The number `8'.}
\endsetslot

\setslot{\digit{nine}}
   \comment{The number `9'.}
\endsetslot

\setslot{colon}
   \comment{The colon `:'.}
\endsetslot

\setslot{semicolon}
   \comment{The semi-colon `;'.}
\endsetslot

\setslot{angleleft}
   \comment{The less-than sign `\textless'.}
\endsetslot

\setslot{equal}
   \comment{The equals sign `='.}
\endsetslot

\setslot{angleright}
   \comment{The greater-than sign `\textgreater'.}
\endsetslot

\setslot{question}
   \comment{The question mark `?'.}
\endsetslot

\setslot{\lc{ALPHA}{alphacircum}}
\endsetslot

\setslot{iotasubscripta}
\endsetslot

\setslot{iotasubscripte}
\endsetslot

\setslot{iotasubscripto}
\endsetslot

\setslot{asperacute}
\endsetslot

\setslot{aspergrave}
\endsetslot

\setslot{aspercircum}
\endsetslot

\setslot{lenisacute}
\endsetslot

\setslot{lenisgrave}
\endsetslot

\setslot{leniscircum}
\endsetslot

\setslot{\lc{ALPHA}{alphagrave}}
\endsetslot

\setslot{\lc{EPSILON}{epsilongrave}}
\endsetslot

\setslot{\lc{ETA}{etagrave}}
\endsetslot

\setslot{\lc{IOTA}{iotagrave}}
\endsetslot

\setslot{\lc{OMICRON}{omicrongrave}}
\endsetslot

\setslot{\lc{UPSILON}{upsilongrave}}
\endsetslot

\setslot{\lc{OMEGA}{omegagrave}}
\endsetslot

\setslot{\lc{ALPHA}{alphaasperacute}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonasperacute}}
\endsetslot

\setslot{\lc{ETA}{etaasperacute}}
\endsetslot

\setslot{\lc{IOTA}{iotaasperacute}}
\endsetslot

\setslot{\lc{OMICRON}{omicronasperacute}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonasperacute}}
\endsetslot

\setslot{\lc{OMEGA}{omegaasperacute}}
\endsetslot

\setslot{\lc{ALPHA}{alphaaspergrave}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonaspergrave}}
\endsetslot

\setslot{\lc{ETA}{etaaspergrave}}
\endsetslot

\setslot{bracketleft}
   \comment{The opening square bracket `['.}
\endsetslot

\setslot{lenis}
\endsetslot

\setslot{bracketright}
   \comment{The closing square bracket `]'.}
\endsetslot

\setslot{asper}
\endsetslot

\setslot{underscore}
   \comment{The ASCII underline character `\textunderscore', usually
      set on the baseline.
      This is included for compatibility with typewriter fonts used
      for computer listings.}
\endsetslot

\setslot{gravegreek}
\endsetslot

\setslot{\lc{IOTA}{iotaaspergrave}}
\endsetslot

\setslot{\lc{OMICRON}{omicronaspergrave}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonaspergrave}}
\endsetslot

\setslot{\lc{OMEGA}{omegaaspergrave}}
\endsetslot

\setslot{\lc{ALPHA}{alphalenisacute}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonlenisacute}}
\endsetslot

\setslot{\lc{ETA}{etalenisacute}}
\endsetslot

\setslot{\lc{IOTA}{iotalenisacute}}
\endsetslot

\setslot{\lc{OMICRON}{omicronlenisacute}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonlenisacute}}
\endsetslot

\setslot{\lc{OMEGA}{omegalenisacute}}
\endsetslot

\setslot{\lc{ALPHA}{alphalenisgrave}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonlenisgrave}}
\endsetslot

\setslot{\lc{ETA}{etalenisgrave}}
\endsetslot

\setslot{\lc{IOTA}{iotalenisgrave}}
\endsetslot

\setslot{\lc{OMICRON}{omicronlenisgrave}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonlenisgrave}}
\endsetslot

\setslot{\lc{OMEGA}{omegalenisgrave}}
\endsetslot

\setslot{\lc{ALPHA}{alphaaspercircum}}
\endsetslot

\setslot{\lc{ETA}{etaaspercircum}}
\endsetslot

\setslot{\lc{IOTA}{iotaaspercircum}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonaspercircum}}
\endsetslot

\setslot{\lc{OMEGA}{omegaaspercircum}}
\endsetslot

\setslot{\lc{ALPHA}{alphaleniscircum}}
\endsetslot

\setslot{\lc{ETA}{etaleniscircum}}
\endsetslot

\setslot{\lc{IOTA}{iotaleniscircum}}
\endsetslot

\setslot{braceleft}
   \comment{The opening curly brace `\textbraceleft'.}
\endsetslot

\setslot{bar}
   \comment{The ASCII vertical bar `\textbar'.
      This is included for compatibility with typewriter fonts used
      for computer listings.}
\endsetslot

\setslot{braceright}
   \comment{The closing curly brace `\textbraceright'.}
\endsetslot

\setslot{circumgreek}
\endsetslot

\nextslot{"80}

\setslot{\lc{UPSILON}{upsilonleniscircum}}
\endsetslot

\setslot{onesuperior}
   \comment{The raised digit `\textonesuperior'.}
\endsetslot

\setslot{quotesinglbase}
   \comment{A German single quote mark `\quotesinglbase' similar to a
      comma, but with different sidebearings.}
\endsetslot

\setslot{\lc{OMEGA}{omegaleniscircum}}
\endsetslot

\setslot{quotedblbase}
   \comment{A German double quote mark `\quotedblbase' similar to two
      commas, but with tighter letterspacing and different sidebearings.}
\endsetslot

\setslot{ellipsis}
   \comment{The ellipsis `\textellipsis'.}
\endsetslot

\setslot{dagger}
   \comment{The single dagger `\textdagger'.}
\endsetslot

\setslot{daggerdbl}
   \comment{The double dagger `\textdaggerdbl'.}
\endsetslot

\setslot{\lc{ALPHA}{alphaasper}}
\endsetslot

\setslot{\lc{ETA}{etacircum}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonasper}}
\endsetslot

\setslot{guilsinglleft}
   \comment{A French single opening quote mark `\guilsinglleft',
      unavailable in \plain\ \TeX.}
\endsetslot

\setslot{\lc{ETA}{etaasper}}
\endsetslot

\setslot{\lc{IOTA}{iotaasper}}
\endsetslot

\setslot{\lc{OMICRON}{omicronasper}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonasper}}
\endsetslot

\setslot{\lc{OMEGA}{omegaasper}}
\endsetslot

\setslot{quoteleft}
    \comment{The English opening single quote mark `\,\textquoteleft\,'.}
\endsetslot

\setslot{quoteright}
    \comment{The English closing single quote mark `\,\textquoteright\,'.}
\endsetslot

\setslot{quotedblleft}
   \comment{The English opening double quote mark `\,\textquotedblleft\,'.}
\endsetslot

\setslot{quotedblright}
   \comment{The English closing double quote mark `\,\textquotedblright\,'.}
\endsetslot

\setslot{bullet}
   \comment{The centered bullet `\textbullet'.}
\endsetslot

\setslot{rangedash}
   \comment{The en-dash `\textendash'.}
\endsetslot

\setslot{punctdash}
   \comment{The em-dash `\textemdash'.}
\endsetslot

\setslot{\lc{ALPHA}{alphalenis}}
\endsetslot

\setslot{\lc{EPSILON}{epsilonlenis}}
\endsetslot

\setslot{\lc{ETA}{etalenis}}
\endsetslot

\setslot{guilsinglright}
   \comment{A French single closing quote mark `\guilsinglright',
      unavailable in \plain\ \TeX.}
\endsetslot

\setslot{\lc{IOTA}{iotalenis}}
\endsetslot

\setslot{\lc{OMICRON}{omicronlenis}}
\endsetslot

\setslot{\lc{UPSILON}{upsilonlenis}}
\endsetslot

\setslot{\lc{OMEGA}{omegalenis}}
\endsetslot

\setslot{nonbreakingspace}
\endsetslot

\setslot{dieresistonos}
\endsetslot

\setslot{\uc{Alphatonos}{alphatonos}}
\endsetslot

\setslot{\lc{Stigma}{stigma}}
\endsetslot

\setslot{\uc{Stigma}{stigma}}
\endsetslot

\setslot{\lc{Qoppa}{qoppa}}
\endsetslot

\setslot{\lc{Iotacircum}{iotacircum}}
\endsetslot

\setslot{section}
   \comment{The section mark `\textsection'.}
\endsetslot

\setslot{dieresisgreek}
\endsetslot

\setslot{\lc{Iotadieresis}{iotadieresisgrave}}
\endsetslot

\setslot{\lc{Upsilondieresis}{upsilondieresisgrave}}
\endsetslot

\setslot{guillemotleft}
   \comment{A French double opening quote mark `\guillemotleft',
      unavailable in \plain\ \TeX.}
\endsetslot

\setslot{\lc{Sampi}{sampi}}
\endsetslot

\setslot{softhyphen}
   \comment{This is the \texttt {alternate-hyphen} (n\'ee `\softhyphen')
      slot.}
\endsetslot

\setslot{\lc{Digamma}{digamma}}
\endsetslot

\setslot{\lc{Upsiloncircum}{upsiloncircum}}
\endsetslot

\setslot{degree}
   \comment{The degree sign `\textdegree'.}
\endsetslot

\setslot{\lc{Rho}{rholenis}}
\endsetslot

\setslot{twosuperior}
   \comment{The raised digit `\texttwosuperior'.}
\endsetslot

\setslot{threesuperior}
   \comment{The raised digit `\textthreesuperior'.}
\endsetslot

\setslot{tonos}
\endsetslot

\setslot{\lc{Omegacircum}{omegacircum}}
\endsetslot

\setslot{paragraph}
   \comment{The paragraph mark `\textparagraph'.}
\endsetslot

\setslot{anoteleia}
\endsetslot

\setslot{\uc{Epsilontonos}{epsilontonos}}
\endsetslot

\setslot{\uc{Etatonos}{Etatonos}}
\endsetslot

\setslot{\uc{Iotatonos}{iotatonos}}
\endsetslot

\setslot{guillemotright}
   \comment{A French double closing quote mark `\guillemotright',
      unavailable in \plain\ \TeX.}
\endsetslot

\setslot{\uc{Omicrontonos}{omicrontonos}}
\endsetslot

\setslot{\lc{Rho}{rhoasper}}
\endsetslot

\setslot{\uc{Upsilontonos}{upsilontonos}}
\endsetslot

\setslot{\uc{Omegatonos}{omegatonos}}
\endsetslot

\setslot{\lc{Iotadieresis}{iotadieresistonos}}
\endsetslot

\setslot{\uc{Alpha}{alpha}}
\endsetslot

\setslot{\uc{Beta}{beta}}
\endsetslot

\setslot{\uc{Gamma}{gamma}}
\endsetslot

\setslot{\uc{Delta}{delta}}
\endsetslot

\setslot{\uc{Epsilon}{epsilon}}
\endsetslot

\setslot{\uc{Zeta}{zeta}}
\endsetslot

\setslot{\uc{Eta}{eta}}
\endsetslot

\setslot{\uc{Theta}{theta}}
\endsetslot

\setslot{\uc{Iota}{iota}}
\endsetslot

\setslot{\uc{Kappa}{kappa}}
\endsetslot

\setslot{\uc{Lambda}{lambda}}
\endsetslot

\setslot{\uc{Mu}{mu}}
\endsetslot

\setslot{\uc{Nu}{nu}}
\endsetslot

\setslot{\uc{Xi}{xi}}
\endsetslot

\setslot{\uc{Omicron}{omicron}}
\endsetslot

\setslot{\uc{Pi}{pi}}
\endsetslot

\setslot{\uc{Rho}{rho}}
\endsetslot

\setslot{quoteright}
\endsetslot

\setslot{\uc{Sigma}{sigma}}
\endsetslot

\setslot{\uc{Tau}{tau}}
\endsetslot

\setslot{\uc{Upsilon}{upsilon}}
\endsetslot

\setslot{\uc{Phi}{phi}}
\endsetslot

\setslot{\uc{Chi}{chi}}
\endsetslot

\setslot{\uc{Psi}{psi}}
\endsetslot

\setslot{\uc{Omega}{omega}}
\endsetslot

\setslot{\uc{Iotadieresis}{iotadieresis}}
\endsetslot

\setslot{\uc{Upsilondieresis}{Upsilondieresis}}
\endsetslot

\setslot{\lc{ALPHA}{alphatonos}}
\endsetslot

\setslot{\lc{EPSILON}{epsilontonos}}
\endsetslot

\setslot{\lc{ETA}{etatonos}}
\endsetslot

\setslot{\lc{IOTA}{iotatonos}}
\endsetslot

\setslot{\lc{Upsilondieresis}{upsilondieresistonos}}
\endsetslot

\setslot{\lc{Alpha}{alpha}}
\endsetslot

\setslot{\lc{Beta}{beta}}
\endsetslot

\setslot{\lc{Gamma}{gamma}}
\endsetslot

\setslot{\lc{Delta}{delta}}
\endsetslot

\setslot{\lc{Epsilon}{epsilon}}
\endsetslot

\setslot{\lc{Zeta}{zeta}}
\endsetslot

\setslot{\lc{Eta}{eta}}
\endsetslot

\setslot{\lc{Theta}{theta}}
\endsetslot

\setslot{\lc{Iota}{iota}}
\endsetslot

\setslot{\lc{Kappa}{kappa}}
\endsetslot

\setslot{\lc{Lambda}{lambda}}
\endsetslot

\setslot{\lc{Mu}{mu}}
\endsetslot

\setslot{\lc{Nu}{nu}}
\endsetslot

\setslot{\lc{Xi}{xi}}
\endsetslot

\setslot{\lc{Omicron}{omicron}}
\endsetslot

\setslot{\lc{Pi}{pi}}
\endsetslot

\setslot{\lc{Rho}{rho}}
\endsetslot

\setslot{\lc{Sigma}{sigma1}}
\endsetslot

\setslot{\lc{Sigma}{sigma}}
\endsetslot

\setslot{\lc{Tau}{tau}}
\endsetslot

\setslot{\lc{Upsilon}{upsilon}}
\endsetslot

\setslot{\lc{Phi}{phi}}
\endsetslot

\setslot{\lc{Chi}{chi}}
\endsetslot

\setslot{\lc{Psi}{psi}}
\endsetslot

\setslot{\lc{Omega}{omega}}
\endsetslot

\setslot{\lc{Iotadieresis}{iotadieresis}}
\endsetslot

\setslot{\lc{Upsilondieresis}{upsilondieresis}}
\endsetslot

\setslot{\lc{OMICRON}{omicrontonos}}
\endsetslot

\setslot{\lc{UPSILON}{upsilontonos}}
\endsetslot

\setslot{\lc{OMEGA}{omegatonos}}
\endsetslot

\setslot{\lc{OMEGAIOTA}{omegaiotaaspergrave}}
\endsetslot

\endencoding

\end{document}