\relax

Part of the tolkienfonts package
Copyright 2009 Ariel Barton

\metrics

\ifisglyph{tinco}\then 
  % Tengwar fonts are different, since they come with
  % several different underdots
  
  \fontspecificglyphs 
  % This defines barundernarrow and (glyph)+silme---not glyph+silmen.
  % In Tengwar Annatar, it also adjusts the heights of various glyphs.
  
  \setglyph{Asilmen}\glyph{silme}{1000}\endsetglyph
  \setglyph{Aessen}\glyph{esse}{1000}\endsetglyph
  \setglyph{Ayanta}\glyph{yanta}{1000}\endsetglyph
  \setglyph{Aure}\glyph{ure}{1000}\endsetglyph
  
  
  \setcommand\addunderdots#1#2{%    Adding a dot for no A
    \ifisglyph{#1}\then
        \setglyph{#1nodot}\glyph{#1}{1000}\endsetglyph
        \resetglyph{#1}
            \glyph{#1}{1000}\push\glyph{Itehta#2}{1000}\pop
        \endresetglyph
    \fi
  }
  
  \ifisglyph{alda}\then
    \setglyph{aldanodot}\glyph{alda}{1000}\endsetglyph
    \resetglyph{alda}
        \glyph{alda}{1000}\push\moveup{150}\glyph{ItehtaL}{1000}\pop
    \endresetglyph
  \fi
  
  \ifisglyph{altesse}\then
    \setglyph{essenodot}\glyph{esse}{1000}\endsetglyph
    \resetglyph{esse}
        \glyph{altesse}{1000}\push\glyph{Itehta\essesubtehta}{1000}\pop
    \endresetglyph
  \else
    \setglyph{essenodot}\glyph{esse}{1000}\endsetglyph
    \resetglyph{esse}
        \glyph{esse}{1000}\push\glyph{Itehta\essesubtehta}{1000}\pop
    \endresetglyph
  \fi
  
  \addunderdots{tinco}{\tincosubtehta}
  \addunderdots{parma}{\tincosubtehta}
  \addunderdots{Tinco}{\tincosubtehta}
  \addunderdots{Parma}{\tincosubtehta}
  \addunderdots{calma}{\calmasubtehta}
  \addunderdots{quesse}{\calmasubtehta}
  \addunderdots{Calma}{\calmasubtehta}
  \addunderdots{Quesse}{\calmasubtehta}
  
  \addunderdots{ando}{V}
  \addunderdots{umbar}{V}
  \addunderdots{anga}{V}
  \addunderdots{ungwe}{V}
  \addunderdots{anto}{V}
  \addunderdots{ampa}{V}
  \addunderdots{anca}{V}
  \addunderdots{unque}{V}
  \addunderdots{numen}{V}
  \addunderdots{malta}{V}
  \addunderdots{noldo}{V}
  \addunderdots{nwalme}{V}
  \addunderdots{Ando}{V}
  \addunderdots{Umbar}{V}
  \addunderdots{Anga}{V}
  \addunderdots{Ungwe}{V}
  
  \addunderdots{thule}{VI}
  \addunderdots{formen}{VI}
  \addunderdots{aha}{VI}
  \addunderdots{hwesta}{VI}
  \addunderdots{ore}{VI}
  \addunderdots{vala}{VI}
  %\addunderdots{anna}{VI}
  \addunderdots{wilya}{VI}
  
  \addunderdots{romen}{\romensubtehta}
  \addunderdots{arda}{\romensubtehta}
  \addunderdots{lambe}{L}
  \addunderdots{silme}{\silmesubtehta}
  %\addunderdots{silmen}{\silmensubtehta}
  %\addunderdots{esse}{\essesubtehta}
  %\addunderdots{essen}{\essensubtehta}
  \addunderdots{hyarmen}{VI}
  \addunderdots{hwestas}{VI}
  %\addunderdots{yanta}{VI}
  %\addunderdots{ure}{\uresubtehta}
  \addunderdots{altromen}{VII}
  \addunderdots{osse}{\ossesubtehta}
  \addunderdots{halla}{VIII}
  
  %\addunderdots{altsilme}{VI}
  %\addunderdots{altsilmen}{VI}
  %\addunderdots{altesse}{\essesubtehta}
  %\addunderdots{altessen}{VI}
  %\addunderdots{altosse}{VI}
  %\addunderdots{althwtengwa}{VI}
  %\addunderdots{mhellyn}{VI}
  %\addunderdots{altmhellyn}{VI}
  %\addunderdots{wtengwa}{VI}
  %\addunderdots{wtengwatall}{VI}
  
  
  
\Else
  
  \setcommand\addunderdots#1#2#3{%  Adding a dot for no A
    \ifisglyph{#1}\then
        \setglyph{#1nodot}\glyph{#1}{1000}\endsetglyph
        \resetglyph{#1}
            \glyph{#1}{1000}\push\movert{#2}\moveup{#3}\glyph{novoweltehta}{1000}\pop
        \endresetglyph
    \fi
  }
  
  \makeunderdots
  % "Make underdots" is defined inside the font-specific files
  
\Fi

\endmetrics