\relax

Part of the tolkienfonts package
Copyright 2010 Ariel Barton

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 this license is in
http://www.latex-project.org/lppl.txt
and version 1.3 or later is part of all distributions of LaTeX
version 2005/12/01 or later.

This work has the LPPL maintenance status `maintained'.

The Current Maintainer of this work is Ariel Barton.

This work consists of all the files listed in Appendix F of the file
`tolkienfontsdoc.pdf'.

Date: 2010/08/29

Version: 2


\metrics


\newif \ifmazarbul
\newif \ifmannish \mannishtrue

\def\cloneglyph#1#2{
	\setglyph{#1} \glyph{#2}{1000} \endsetglyph
	\setleftrightkerning{#1}{#2}{1000}}
\def\cloneglyphwithtehtar#1#2#3{
	\setglyph{#1} \glyph{#2}{1000}\glyph{#3}{1000} \endsetglyph
	\setleftrightkerning{#1}{#2}{1000}}
\def\tehtarcarrier#1#2{
	\setglyph{#1} \glyph{carrier}{1000}\glyph{#2}{1000} \endsetglyph
	\setleftrightkerning{#1}{#2}{1000}}
\def\tehtarlongcarrier#1#2{
	\setglyph{#1} \glyph{longcarrier}{1000}\glyph{#2}{1000} \endsetglyph
	\setleftrightkerning{#1}{#2}{1000}}

\ifisglyph{barundernarrow}\then\else\fontspecificglyphs\fi
% This defines barundernarrow and (glyph)+silme.
% In Tengwar Annatar, it also adjusts the heights of various glyphs.
% It might have been called by effectUnderdots.

\setcommand\allmodechars{
\nextslot{000}\setslot{scurlO}\endsetslot
\nextslot{013}\setslot{scurlIII}\endsetslot
\nextslot{005}\setslot{scurlV}\endsetslot
\nextslot{006}\setslot{scurlVI}\endsetslot
\nextslot{007}\setslot{scurlVII}\endsetslot
\nextslot{008}\setslot{scurlVIII}\endsetslot
\nextslot{009}\setslot{scurlIX}\endsetslot
\nextslot{011}\setslot{scurlI}\endsetslot % Was 001
\nextslot{012}\setslot{scurlII}\endsetslot % Was 002
\nextslot{003}\setslot{altscurlI}\endsetslot % Was 010
\nextslot{014}\setslot{scurlIV}\endsetslot % Was 004
\nextslot{010}\setslot{Itehtaaccent}\endsetslot % Dot accent
\nextslot{001}\setslot{Etehtaaccent}\endsetslot % Acute accent
\nextslot{002}\setslot{Etehtaaccent}\endsetslot % Circumflex accent
\nextslot{004}\setslot{noaccent}\endsetslot 	% Dieresis accent
\nextslot{025}\setslot{carrier}\ligature{/LIG}{scurlO}{\scurlcarrier}\endsetslot % \i
\nextslot{026}\setslot{longcarrier}\ligature{/LIG}{scurlO}{scurlV}\endsetslot % \j
}

\setcommand\wordendlig#1{
  \ligature{LIG/}{dashsilent}{#1}
  \ligature{LIG/}{tildevertical}{#1}
  \ligature{LIG/}{latinquoteright}{#1}
  \ligature{LIG/}{tildewide}{#1}
  \ligature{LIG/}{latinexclam}{#1}
  \ligature{LIG/}{tengparen}{#1}
  \ligature{LIG/}{tengparen}{#1}
  \ligature{LIG/}{latinsemicolon}{#1}
  \ligature{LIG/}{onedot}{#1}
  \ligature{LIG/}{twodots}{#1}
  \ligature{LIG/}{latinquestion}{#1}
  \ligature{LIG/}{threedots}{#1}
  \ligature{LIG/}{twodots}{#1}
  \ligature{LIG/}{tildedouble}{#1}
  \ligature{LIG/}{tengquestion}{#1}
  \ligature{LIG/}{latinparenleft}{#1}
  \ligature{LIG/}{latinperiod}{#1}
  \ligature{LIG/}{latinparenright}{#1}
  \ligature{LIG/}{latincomma}{#1}
  \ligature{LIG/}{latinquoteleft}{#1}
  \ligature{LIG/}{tildeteng}{#1}
  \ifisglyph{ringswirlright}\then\ligature{LIG/}{ringswirlright}{#1}\fi
}

\def\scurlO{scurlO}

\setcommand\plaincurlsetup#1#2{
    \def\temp{#1}
    \ifx\temp\scurlO
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlO}{#2curl}\fi
    \else\ligature{/LIG}{scurlO}{#1}
    \fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlI}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIV}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlV}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVI}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVIII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIX}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{altscurlI}{#2curl}\fi
}

\setcommand\plaincompoundcurlsetup#1#2#3{
    \def\temp{#1}
    \ifx\temp\scurlO
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlO}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \else\ligature{/LIG}{scurlO}{#1}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlI}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlII}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlIII}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlIV}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlV}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlVI}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlVII}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlVIII}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{scurlIX}{#3}\ligature{LIG/}{#3}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{/LIG/}{altscurlI}{#3}\ligature{LIG/}{#3}{#2curl}\fi
}

\setcommand\englishcurlsetup#1#2{
    \def\temp{#1}
    \ifx\temp\scurlO
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlO}{#2curl}\fi
    \else\ligature{/LIG}{scurlO}{#1}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlI}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIV}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlV}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVI}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlVIII}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{scurlIX}{#2curl}\fi
    \ifisglyph{#2curl}\then\ligature{LIG/}{altscurlI}{#2curl}\fi
    \ifisglyph{#1E}\then
        \ifx\temp\scurlO\else\ligature{/LIG}{scurlOE}{#1E}\fi
        \ifisglyph{#2curl}\then\ligature{LIG/}{#1E}{#2curl}\else\ligature{/LIG/}{#1E}{yantadipthong}\fi
        \else
        \ligature{/LIG}{scurlOE}{scurlsilmeE}
        \ifisglyph{#2curl}\then\else\ligature{/LIG/}{scurlsilmeE}{yantadipthong}\fi
        \fi
}

\setcommand\englishcompoundcurlsetup#1#2#3{
    \def\temp{#1}
    \ifx\temp\scurlO\else\ligature{/LIG}{scurlO}{#1}\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlI}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlII}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlIII}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlIV}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlV}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlVI}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlVII}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlVIII}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{scurlIX}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#2curl}\then\ifisglyph{#3}\then\ligature{/LIG/}{altscurlI}{#3}\ligature{LIG/}{#3}{#2curl}\fi\fi
    \ifisglyph{#1E}\then
        \ifx\temp\scurlO\else\ligature{/LIG}{scurlOE}{#1E}\fi
        \ifisglyph{#2curl}\then\ligature{/LIG/}{#1E}{#3}\ligature{LIG/}{#3}{#2curl}\else\ligature{/LIG/}{#1E}{yantadipthong}\fi
        \else
        \ligature{/LIG}{scurlOE}{scurlsilmeE}
        \ifisglyph{#2curl}\then\else
            \ligature{/LIG/}{scurlsilmeE}{yantadipthong}\fi
        \fi
}


\setint{fontdimen(5)}{\height{tinco}} % 1 ex

%\comment{Blanks}

\setglyph{barsilent}    \endsetglyph
\setglyph{quoteafterosse}   \endsetglyph
\setglyph{dashafterosse}    \endsetglyph
\setrightkerning{quoteafterosse}{osse}{1000}
\setrightkerning{dashafterosse}{osse}{1000}

%\comment{Duplicates}

\cloneglyph{tengparenleft}{tengparen}

\cloneglyph{engnumen}{numen}
\cloneglyph{startnumen}{numen}
\cloneglyph{startcarrier}{carrier}
\cloneglyph{carrierE}{carrier}
\cloneglyph{numenfixed}{numen}
\cloneglyph{maltafixed}{malta}
\cloneglyph{startore}{ore}
\cloneglyph{orenoromen}{ore}
\cloneglyph{startromen}{romen}
\cloneglyph{startlambe}{lambe}
\cloneglyph{wilyaaftera}{wilya}
\cloneglyph{valaaftera}{vala}
\cloneglyph{ureafterosse}{ure}
\cloneglyph{notvformen}{formen}
\cloneglyph{cquesse}{quesse}
\cloneglyph{yantaY}{yanta}

\cloneglyph{tinconotehtar}{tinco}
\cloneglyph{quessenotehtar}{quesse}
\cloneglyph{andonotehtar}{ando}
\cloneglyph{umbarnotehtar}{umbar}
\cloneglyph{ungwenotehtar}{ungwe}
\cloneglyph{silmenotehtar}{silme}
\cloneglyph{nwalmenotehtar}{nwalme}

\cloneglyph{wilyadipthong}{wilya}
\cloneglyph{yantadipthong}{yanta}
\cloneglyph{idipthong}{carrier}
\cloneglyph{annadipthong}{anna}
\cloneglyph{valadipthong}{vala}
\cloneglyph{ydipthong}{longcarrier}
\cloneglyph{uredipthong}{ure}
\cloneglyph{romendipthong}{romen}

\cloneglyph{wilyanodipthong}{wilya}
\cloneglyph{yantanodipthong}{yanta}
\cloneglyph{inodipthong}{carrier}
\cloneglyph{annanodipthong}{anna}
\cloneglyph{valanodipthong}{vala}
\cloneglyph{urenodipthong}{ure}
\cloneglyph{ossenodipthong}{osse}
\cloneglyph{silmennodipthong}{silmen}
\cloneglyph{ynodipthong}{longcarrier}

\cloneglyph{romenydots}{IItehtaVII}
\cloneglyph{tincoydots}{IItehtaVII}
\cloneglyph{calmaydots}{IItehtaVI}
\cloneglyph{hyarmenydots}{IItehtaVI}

\cloneglyph{romenyoverdots}{IItehta\romentehta}
\cloneglyph{tincoyoverdots}{IItehtaII}
\cloneglyph{calmayoverdots}{IItehtaII}
\cloneglyph{lambeyoverdots}{IItehta\lambetehta}

%\comment{After osse: dots (some duplicates, some tengwa+tehta)}

\cloneglyph{oreafterosse}{ore}
\cloneglyph{silmeafterosse}{silme}
\cloneglyph{esseafterosse}{altesse}
\cloneglyph{quesseafterosse}{quesse}
\cloneglyphwithtehtar{barangaafterosse}{anga}{Baroverleft}
\setglyph{calmaafterosse}   \push\movert{\neg{\kerning{osse}{calma}}}\glyph{Itehta\ossetehta}{1000}\pop \glyph{calma}{1000}\endsetglyph
\setglyph{angaafterosse}    \push\movert{\neg{\kerning{osse}{anga}}}\glyph{Itehta\ossetehta}{1000}\pop  \glyph{anga}{1000}\endsetglyph
\setglyph{ahaafterosse}     \push\movert{\neg{\kerning{osse}{aha}}}\glyph{Itehta\ossetehta}{1000}\pop   \glyph{aha}{1000}\endsetglyph
\setglyph{ancaafterosse}    \push\movert{\neg{\kerning{osse}{anca}}}\glyph{Itehta\ossetehta}{1000}\pop  \glyph{anca}{1000}\endsetglyph
\setglyph{noldoafterosse}   \push\movert{\neg{\kerning{osse}{baranga}}}\glyph{Itehta\ossetehta}{1000}\pop   \glyph{noldo}{1000}\endsetglyph


\noleftkerning{oreafterosse}
\setleftrightkerning{calmaafterosse}{calma}{1000}
\setleftrightkerning{angaafterosse}{anga}{1000}
\setleftrightkerning{ahaafterosse}{aha}{1000}
\setleftrightkerning{ancaafterosse}{anca}{1000}
\setleftrightkerning{noldoafterosse}{noldo}{1000}

%\comment{Tehtar as accents}

\setglyph{Itehtaaccent} \movert{\width{vala}}\glyph{ItehtaII}{1000}\endsetglyph
\setglyph{Etehtaaccent} \movert{\width{vala}}\glyph{EtehtaII}{1000}\endsetglyph
\setglyph{Otehtaaccent} \movert{\width{vala}}\glyph{OtehtaII}{1000}\endsetglyph
\setglyph{noaccent} \endsetglyph

%\comment{Doubled tehtar}

\setglyph{EEtehtaI}  \glyph{EtehtaI}{1000}\push\movert{\doubletehtasep}\glyph{EtehtaI}{1000}\pop\endsetglyph
\setglyph{EEtehtaII} \glyph{EtehtaII}{1000}\push\movert{\doubletehtasep}\glyph{EtehtaII}{1000}\pop\endsetglyph
\setglyph{EEtehtaIII}\glyph{EtehtaIII}{1000}\push\movert{\doubletehtasep}\glyph{EtehtaIII}{1000}\pop\endsetglyph
\setglyph{EEtehtaIV} \glyph{EtehtaIV}{1000}\push\movert{-\doubletehtasep}\glyph{EtehtaIV}{1000}\pop\endsetglyph

\setglyph{OOtehtaI}  \glyph{OtehtaI}{1000}\push\movert{\doubletehtasep}\glyph{OtehtaI}{1000}\pop\endsetglyph
\setglyph{OOtehtaII} \glyph{OtehtaII}{1000}\push\movert{\doubletehtasep}\glyph{OtehtaII}{1000}\pop\endsetglyph
\setglyph{OOtehtaIII}\glyph{OtehtaIII}{1000}\push\movert{\doubletehtasep}\glyph{OtehtaIII}{1000}\pop\endsetglyph
\setglyph{OOtehtaIV} \glyph{OtehtaIV}{1000}\push\movert{-\doubletehtasep}\glyph{OtehtaIV}{1000}\pop\endsetglyph

\setglyph{UUtehtaI}  \glyph{UtehtaI}{1000}\push\movert{\doubletehtasep}\glyph{UtehtaI}{1000}\pop\endsetglyph
\setglyph{UUtehtaII} \glyph{UtehtaII}{1000}\push\movert{\doubletehtasep}\glyph{UtehtaII}{1000}\pop\endsetglyph
\setglyph{UUtehtaIII}\glyph{UtehtaIII}{1000}\push\movert{\doubletehtasep}\glyph{UtehtaIII}{1000}\pop\endsetglyph
\setglyph{UUtehtaIV} \glyph{UtehtaIV}{1000}\push\movert{-\doubletehtasep}\glyph{UtehtaIV}{1000}\pop\endsetglyph

%\comment{Tengwar plus tehtar}

\cloneglyphwithtehtar{annaydots}{anna}{IItehtaVI}
\cloneglyphwithtehtar{baranga}{anga}{Baroverleft}
\cloneglyphwithtehtar{barungwe}{ungwe}{Baroverleft}

\cloneglyphwithtehtar{annaandaith}{anna}{EtehtaII}
\cloneglyphwithtehtar{oreandaith}{ore}{EtehtaII}
\cloneglyphwithtehtar{osseandaith}{osse}{Etehta\ossetehta}
\cloneglyphwithtehtar{romenandaith}{romen}{Etehta\romentehta}
\cloneglyphwithtehtar{silmenandaith}{silmen}{Etehta\silmentehta}
\cloneglyphwithtehtar{ureandaith}{ure}{Etehta\uretehta}
\cloneglyphwithtehtar{valaandaith}{vala}{EtehtaII}
\cloneglyphwithtehtar{wilyaandaith}{wilya}{EtehtaII}
\cloneglyphwithtehtar{yantaandaith}{yanta}{Etehta\yantatehta}
\tehtarcarrier{iandaith}{EtehtaIV}
\tehtarlongcarrier{yandaith}{EtehtaIV}

\cloneglyphwithtehtar{Iwilya}{wilya}{ItehtaII}
\cloneglyphwithtehtar{Owilya}{wilya}{OtehtaII}
\cloneglyphwithtehtar{wilyatwist}{wilya}{WtehtaII}
\cloneglyphwithtehtar{IIwilya}{wilya}{IItehtaII}
\cloneglyphwithtehtar{ossetwist}{osse}{Wtehta\ossetehta}
\cloneglyphwithtehtar{IIosse}{osse}{IItehta\ossetehta}
\cloneglyphwithtehtar{Oosse}{osse}{Otehta\ossetehta}
\cloneglyphwithtehtar{uretwist}{ure}{Wtehta\uretehta}
\cloneglyphwithtehtar{IIure}{ure}{IItehta\uretehta}
\cloneglyphwithtehtar{valatwist}{vala}{WtehtaII}
\cloneglyphwithtehtar{IIvala}{vala}{IItehtaII}
\cloneglyphwithtehtar{Avala}{vala}{AtehtaII}
\cloneglyphwithtehtar{Ovala}{vala}{OtehtaII}
\cloneglyphwithtehtar{IIanna}{anna}{IItehtaII}

\cloneglyphwithtehtar{nwalmetwist}{nwalme}{WtehtaI}
\cloneglyphwithtehtar{ungwetwist}{ungwe}{WtehtaI}

\cloneglyphwithtehtar{numenunderdot}{numen}{ItehtaV}
\cloneglyphwithtehtar{maltaunderdot}{malta}{ItehtaV}
\cloneglyphwithtehtar{esseunderdot}{altesse}{Itehta\essesubtehta}
\cloneglyphwithtehtar{oreunderdot}{ore}{ItehtaVI}
\cloneglyphwithtehtar{romenunderdot}{romen}{Itehta\romensubtehta}

\cloneglyph{yantatehtaI}{hattehtaI}
\cloneglyph{yantatehtaII}{hattehtaII}
\cloneglyph{yantatehtaIII}{hattehtaIII}
\cloneglyph{yantatehtaIV}{hattehtaIV}

\cloneglyphwithtehtar{osseyanta}{osse}{yantatehta\ossetehta}
\cloneglyphwithtehtar{annayanta}{anna}{yantatehtaII}
\cloneglyphwithtehtar{Awilya}{wilya}{AtehtaII}
\cloneglyphwithtehtar{IIyanta}{yanta}{IItehta\yantatehta}

\cloneglyphwithtehtar{Aanna}{anna}{AtehtaII}
\cloneglyphwithtehtar{Eanna}{anna}{EtehtaII}
\cloneglyphwithtehtar{Oanna}{anna}{OtehtaII}
\cloneglyphwithtehtar{Uanna}{anna}{UtehtaII}
\cloneglyphwithtehtar{Ayanta}{yanta}{Atehta\yantatehta}
\cloneglyphwithtehtar{Oyanta}{yanta}{Otehta\yantatehta}
\cloneglyphwithtehtar{Uyanta}{yanta}{Utehta\yantatehta}
\cloneglyphwithtehtar{Aure}{ure}{Atehta\uretehta}
\cloneglyphwithtehtar{Eure}{ure}{Etehta\uretehta}
\cloneglyphwithtehtar{Iure}{ure}{Itehta\uretehta}
\cloneglyphwithtehtar{Oure}{ure}{Otehta\uretehta}

\cloneglyphwithtehtar{Asilmen}{silmen}{Atehta\silmentehta}
\cloneglyphwithtehtar{Esilmen}{silmen}{Etehta\silmentehta}
\cloneglyphwithtehtar{Isilmen}{silmen}{Itehta\silmentehta}
\cloneglyphwithtehtar{Osilmen}{silmen}{Otehta\silmentehta}
\cloneglyphwithtehtar{Usilmen}{silmen}{Utehta\silmentehta}
\cloneglyphwithtehtar{IIsilmen}{silmen}{IItehta\silmentehta}
\cloneglyphwithtehtar{Aessen}{essen}{Atehta\essentehta}
\cloneglyphwithtehtar{Eessen}{essen}{Etehta\essentehta}
\cloneglyphwithtehtar{Iessen}{essen}{Itehta\essentehta}
\cloneglyphwithtehtar{Oessen}{essen}{Otehta\essentehta}
\cloneglyphwithtehtar{Uessen}{essen}{Utehta\essentehta}
\cloneglyphwithtehtar{IIessen}{essen}{IItehta\essentehta}

\cloneglyphwithtehtar{Eesse}{altesse}{EtehtaIV}
\cloneglyphwithtehtar{Esilme}{altsilme}{EtehtaIV}

\cloneglyphwithtehtar{Anumen}{numen}{AtehtaI}
\cloneglyphwithtehtar{Enumen}{numen}{EtehtaI}
\cloneglyphwithtehtar{Inumen}{numen}{ItehtaI}
\cloneglyphwithtehtar{Onumen}{numen}{OtehtaI}
\cloneglyphwithtehtar{Unumen}{numen}{UtehtaI}
\cloneglyphwithtehtar{IInumen}{numen}{IItehtaI}
\cloneglyphwithtehtar{EEnumen}{numen}{EEtehtaI}
\cloneglyphwithtehtar{OOnumen}{numen}{OOtehtaI}
\cloneglyphwithtehtar{UUnumen}{numen}{UUtehtaI}
\cloneglyphwithtehtar{Ynumen}{numen}{YtehtaI}

\cloneglyphwithtehtar{Amalta}{malta}{AtehtaI}
\cloneglyphwithtehtar{Emalta}{malta}{EtehtaI}
\cloneglyphwithtehtar{Imalta}{malta}{ItehtaI}
\cloneglyphwithtehtar{Omalta}{malta}{OtehtaI}
\cloneglyphwithtehtar{Umalta}{malta}{UtehtaI}
\cloneglyphwithtehtar{IImalta}{malta}{IItehtaI}
\cloneglyphwithtehtar{EEmalta}{malta}{EEtehtaI}
\cloneglyphwithtehtar{OOmalta}{malta}{OOtehtaI}
\cloneglyphwithtehtar{UUmalta}{malta}{UUtehtaI}
\cloneglyphwithtehtar{Ymalta}{malta}{YtehtaI}

\cloneglyphwithtehtar{Aquesse}{quesse}{AtehtaII}
\cloneglyphwithtehtar{Equesse}{quesse}{EtehtaII}
\cloneglyphwithtehtar{Iquesse}{quesse}{ItehtaII}
\cloneglyphwithtehtar{Oquesse}{quesse}{OtehtaII}
\cloneglyphwithtehtar{Uquesse}{quesse}{UtehtaII}
\cloneglyphwithtehtar{IIquesse}{quesse}{IItehtaII}
\cloneglyphwithtehtar{EEquesse}{quesse}{EEtehtaII}
\cloneglyphwithtehtar{OOquesse}{quesse}{OOtehtaII}
\cloneglyphwithtehtar{UUquesse}{quesse}{UUtehtaII}
\cloneglyphwithtehtar{Yquesse}{quesse}{YtehtaII}

\cloneglyphwithtehtar{Atinco}{tinco}{AtehtaII}
\cloneglyphwithtehtar{Etinco}{tinco}{EtehtaII}
\cloneglyphwithtehtar{Itinco}{tinco}{ItehtaII}
\cloneglyphwithtehtar{Otinco}{tinco}{OtehtaII}
\cloneglyphwithtehtar{Utinco}{tinco}{UtehtaII}
\cloneglyphwithtehtar{IItinco}{tinco}{IItehtaII}
\cloneglyphwithtehtar{EEtinco}{tinco}{EEtehtaII}
\cloneglyphwithtehtar{OOtinco}{tinco}{OOtehtaII}
\cloneglyphwithtehtar{UUtinco}{tinco}{UUtehtaII}
\cloneglyphwithtehtar{Ytinco}{tinco}{YtehtaII}

\cloneglyphwithtehtar{IIromen}{romen}{IItehta\romentehta}
\cloneglyphwithtehtar{IIlambe}{lambe}{IItehta\lambetehta}
\cloneglyphwithtehtar{Elambe}{lambe}{Etehta\lambetehta}
\cloneglyphwithtehtar{Ealda}{alda}{Etehta\lambetehta}
\setglyph{hyarmenII} \glyph{hyarmen}{1000}\glyph{carrier}{1000}\glyph{IItehtaIV}{1000}\endsetglyph
\setleftkerning{hyarmenII}{hyarmen}{1000}
\setrightkerning{hyarmenII}{IItehtaIV}{1000}

\cloneglyphwithtehtar{xcalma}{calma}{scurlIII}
\cloneglyphwithtehtar{xquesse}{quesse}{scurlIII}
\cloneglyphwithtehtar{twistquesse}{quesse}{WtehtaII}

\tehtarcarrier{startIcarrier}{ItehtaIV}
\tehtarcarrier{Acarrier}{AtehtaIV}
\tehtarcarrier{Ecarrier}{EtehtaIV}
\tehtarcarrier{Icarrier}{ItehtaIV}
\tehtarcarrier{Ocarrier}{OtehtaIV}
\tehtarcarrier{Ucarrier}{UtehtaIV}
\tehtarcarrier{Ycarrier}{YtehtaIV}
\tehtarcarrier{Wcarrier}{WtehtaIV}
\tehtarcarrier{Anodipthong}{AtehtaIV}
\tehtarcarrier{Enodipthong}{EtehtaIV}
\tehtarcarrier{Inodipthong}{ItehtaIV}
\tehtarcarrier{IInodipthong}{IItehtaIV}
\tehtarcarrier{Onodipthong}{OtehtaIV}
\tehtarcarrier{Unodipthong}{UtehtaIV}
\tehtarcarrier{Ynodipthong}{YtehtaIV}
\tehtarlongcarrier{Alongcarrier}{AtehtaIV}
\tehtarlongcarrier{Elongcarrier}{EtehtaIV}
\tehtarlongcarrier{Ilongcarrier}{ItehtaIV}
\tehtarlongcarrier{Olongcarrier}{OtehtaIV}
\tehtarlongcarrier{Ulongcarrier}{UtehtaIV}
\tehtarlongcarrier{Ylongcarrier}{YtehtaIV}
\tehtarlongcarrier{Wlongcarrier}{WtehtaIV}
\tehtarcarrier{EEcarrier}{EEtehtaIV}
\tehtarcarrier{IIcarrier}{IItehtaIV}
\tehtarcarrier{OOcarrier}{OOtehtaIV}
\tehtarcarrier{UUcarrier}{UUtehtaIV}
\tehtarlongcarrier{IIlongcarrier}{IItehtaIV}
\tehtarcarrier{IIcarrierafterhyarmen}{IItehtaIV}

\setglyph{Acarrierdouble} \glyph{carrier}{1000}\glyph{AtehtaIV}{1000} \movert{\kerning{AtehtaIV}{AtehtaIV}}\glyph{carrier}{1000} \glyph{AtehtaIV}{1000} \endsetglyph
\setleftrightkerning{Acarrierdouble}{AtehtaIV}{1000}

%\comment{Letters plus S-curls}

\cloneglyphwithtehtar{scurlOE}{yanta}{scurlII}
\cloneglyphwithtehtar{scurlVE}{yanta}{scurlII}
\cloneglyphwithtehtar{scurlsilmeE}{yanta}{scurlII}

%\comment{Two tengwar}

\setglyph{hallaromen} \glyph{halla}{1000}\glyph{romen}{1000}\endsetglyph
\setglyph{hallalambe} \glyph{halla}{1000}\glyph{lambe}{1000}\endsetglyph
\setleftkerning{hallaromen}{halla}{1000}
\setleftkerning{hallalambe}{halla}{1000}
\setrightkerning{hallaromen}{romen}{1000}
\setrightkerning{hallalambe}{lambe}{1000}

%\comment{Shifted characters}

\setglyph{Barover}  \push\movert{\width{ando}}  \glyph{Baroverleft}{1000}\pop\endsetglyph
\setglyph{Barovernotehtar}  \push\movert{\width{ando}}  \glyph{Baroverleft}{1000}\pop\endsetglyph
\setglyph{barover}  \push\movert{\width{tinco}} \glyph{baroverleft}{1000}\pop\endsetglyph
\setglyph{barovernotehtar}  \push\movert{\width{tinco}} \glyph{baroverleft}{1000}\pop\endsetglyph
\setglyph{barunder} \push\movert{\width{tinco}} \glyph{barunderleft}{1000}\pop\endsetglyph
\setglyph{Barunder} \push\movert{\width{ando}}  \glyph{Barunderleft}{1000}\pop\endsetglyph
\setglyph{barL} \push\movert{\width{lambe}} \glyph{barLleft}{1000}\pop\endsetglyph
\setglyph{tildeL}   \push\movert{\width{lambe}} \glyph{tildeLleft}{1000}\pop\endsetglyph

\setglyph{dotposttehtaV}    \push\movert{\width{ando}}\glyph{ItehtaV}{1000}\pop\endsetglyph
\setglyph{dotposttehtaVI}   \push\movert{\width{tinco}}\glyph{ItehtaVI}{1000}\pop\endsetglyph
\setglyph{dotposttehtaVII}  \push\movert{\IIItehtaskip}\glyph{ItehtaVI}{1000}\pop\endsetglyph
\setglyph{dotposttehtaVIII} \push\movert{\width{carrier}}\glyph{ItehtaVIII}{1000}\pop\endsetglyph
\setglyph{dotposttehtaL}    \push\movert{\width{lambe}}\glyph{ItehtaL}{1000}\pop\endsetglyph

\setglyph{AposttehtaI}  \push\movert{\width{ando}}\glyph{AtehtaI}{1000}\pop\endsetglyph
\setglyph{AposttehtaII} \push\movert{\width{tinco}}\glyph{AtehtaII}{1000}\pop\endsetglyph
\setglyph{AposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{AtehtaII}{1000}\pop\endsetglyph

\setglyph{EposttehtaI}  \push\movert{\width{ando}}\glyph{EtehtaI}{1000}\pop\endsetglyph
\setglyph{EposttehtaII} \push\movert{\width{tinco}}\glyph{EtehtaII}{1000}\pop\endsetglyph
\setglyph{EposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{EtehtaII}{1000}\pop\endsetglyph

\setglyph{IposttehtaI}  \push\movert{\width{ando}}\glyph{ItehtaI}{1000}\pop\endsetglyph
\setglyph{IposttehtaII} \push\movert{\width{tinco}}\glyph{ItehtaII}{1000}\pop\endsetglyph
\setglyph{IposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{ItehtaII}{1000}\pop\endsetglyph

\setglyph{OposttehtaI}  \push\movert{\width{ando}}\glyph{OtehtaI}{1000}\pop\endsetglyph
\setglyph{OposttehtaII} \push\movert{\width{tinco}}\glyph{OtehtaII}{1000}\pop\endsetglyph
\setglyph{OposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{OtehtaII}{1000}\pop\endsetglyph

\setglyph{UposttehtaI}  \push\movert{\width{ando}}\glyph{UtehtaI}{1000}\pop\endsetglyph
\setglyph{UposttehtaII} \push\movert{\width{tinco}}\glyph{UtehtaII}{1000}\pop\endsetglyph
\setglyph{UposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{UtehtaII}{1000}\pop\endsetglyph

\setglyph{EEposttehtaI} \push\movert{\width{ando}}\glyph{EEtehtaI}{1000}\pop\endsetglyph
\setglyph{EEposttehtaII}    \push\movert{\width{tinco}}\glyph{EEtehtaII}{1000}\pop\endsetglyph
\setglyph{EEposttehtaIII}   \push\movert{\IIItehtaskip}\glyph{EEtehtaII}{1000}\pop\endsetglyph

\setglyph{IIposttehtaI} \push\movert{\width{ando}}\glyph{IItehtaI}{1000}\pop\endsetglyph
\setglyph{IIposttehtaII}    \push\movert{\width{tinco}}\glyph{IItehtaII}{1000}\pop\endsetglyph
\setglyph{IIposttehtaIII}   \push\movert{\IIItehtaskip}\glyph{IItehtaII}{1000}\pop\endsetglyph

\setglyph{OOposttehtaI} \push\movert{\width{ando}}\glyph{OOtehtaI}{1000}\pop\endsetglyph
\setglyph{OOposttehtaII}    \push\movert{\width{tinco}}\glyph{OOtehtaII}{1000}\pop\endsetglyph
\setglyph{OOposttehtaIII}   \push\movert{\IIItehtaskip}\glyph{OOtehtaII}{1000}\pop\endsetglyph

\setglyph{UUposttehtaI} \push\movert{\width{ando}}\glyph{UUtehtaI}{1000}\pop\endsetglyph
\setglyph{UUposttehtaII}    \push\movert{\width{tinco}}\glyph{UUtehtaII}{1000}\pop\endsetglyph
\setglyph{UUposttehtaIII}   \push\movert{\IIItehtaskip}\glyph{UUtehtaII}{1000}\pop\endsetglyph

\setglyph{YposttehtaI}  \push\movert{\width{ando}}\glyph{YtehtaI}{1000}\pop\endsetglyph
\setglyph{YposttehtaII} \push\movert{\width{tinco}}\glyph{YtehtaII}{1000}\pop\endsetglyph
\setglyph{YposttehtaIII}    \push\movert{\IIItehtaskip}\glyph{YtehtaII}{1000}\pop\endsetglyph

%\comment{Faked glyphs: use these if the base font doesn't have them}

\setglyph{altscurlI}   \glyph{scurlO}{1000}\endsetglyph
\setglyph{althwtengwa} \glyph{hwtengwa}{1000}\endsetglyph

\setglyph{altromen}    \glyph{romen}{1000}\endsetglyph
\setglyph{altanna}     \glyph{anna}{1000}\endsetglyph
\setglyph{altessen}    \glyph{essen}{1000}\endsetglyph
\setglyph{altmhellyn}  \ifisglyph{valacurl}\then\glyph{valacurl}{1000}\else\glyph{vala}{1000}\fi\glyph{scurlO}{1000} \endsetglyph

%\comment{All existing base fonts have these, but just in case...}

\setglyph{altesse}  \glyph{esse}{1000}\endsetglyph
\setglyph{altosse}  \glyph{osse}{1000}\endsetglyph
\setglyph{altsilme} \glyph{silme}{1000}\endsetglyph
\setglyph{altsilmen}\glyph{silmen}{1000}\endsetglyph
\setglyph{mhellyn}  \ifisglyph{maltacurl}\then\glyph{maltacurl}{1000}\else\glyph{malta}{1000}\fi\glyph{scurlO}{1000} \endsetglyph

%\comment{These are fakes of glyphs that I use in no current modes; provided for convenience}

\setglyph{altcarrier}    \glyph{carrier}{1000}\endsetglyph
\setglyph{altlongcarrier}\glyph{longcarrier}{1000}\endsetglyph
\setglyph{altone} \glyph{tengone}{1000}\endsetglyph
\setglyph{altfour}\glyph{tengfour}{1000}\endsetglyph
\setglyph{altsix} \glyph{tengsix}{1000}\endsetglyph
\setglyph{alttengtwelve} \glyph{tengzero}{1000}\glyph{tengone}{1000}\endsetglyph

\setglyph{altYtehtaI}   \glyph{YtehtaI}{1000}\endsetglyph
\setglyph{altYtehtaII}  \glyph{YtehtaII}{1000}\endsetglyph
\setglyph{altYtehtaIII} \glyph{YtehtaIII}{1000}\endsetglyph
\setglyph{altYtehtaIV}  \glyph{YtehtaIV}{1000}\endsetglyph
\setglyph{altUtehtaI}   \glyph{UtehtaI}{1000}\endsetglyph
\setglyph{altUtehtaII}  \glyph{UtehtaII}{1000}\endsetglyph
\setglyph{altUtehtaIII} \glyph{UtehtaIII}{1000}\endsetglyph
\setglyph{altUtehtaIV}  \glyph{UtehtaIV}{1000}\endsetglyph

\setglyph{revAtehtaI}   \push\moveup{\height{Barover}}\moveup{\depth{AtehtaV}}   \glyph{AtehtaV}{1000}\pop\endsetglyph
\setglyph{revAtehtaII}  \push\moveup{\height{Barover}}\moveup{\depth{AtehtaVI}}  \glyph{AtehtaVI}{1000}\pop\endsetglyph
\setglyph{revAtehtaIII} \push\moveup{\height{Barover}}\moveup{\depth{AtehtaVII}} \glyph{AtehtaVII}{1000}\pop\endsetglyph
\setglyph{revAtehtaIV}  \push\moveup{\height{Barover}}\moveup{\depth{AtehtaVIII}}\glyph{AtehtaVIII}{1000}\pop\endsetglyph
\setglyph{circtehtaI}   \push\moveup{\height{Barover}}\moveup{\depth{circtehtaV}}   \glyph{circtehtaV}{1000}\pop\endsetglyph
\setglyph{circtehtaII}  \push\moveup{\height{Barover}}\moveup{\depth{circtehtaVI}}  \glyph{circtehtaVI}{1000}\pop\endsetglyph
\setglyph{circtehtaIII} \push\moveup{\height{Barover}}\moveup{\depth{circtehtaVII}} \glyph{circtehtaVII}{1000}\pop\endsetglyph
\setglyph{circtehtaIV}  \push\moveup{\height{Barover}}\moveup{\depth{circtehtaVIII}}\glyph{circtehtaVIII}{1000}\pop\endsetglyph

\endmetrics