\newcommand{\tengwarquenyacapI}[1][1.0]{%
  % font parameters
  \def\teng@usefont{TengwarQuenyaCapitals1 }%
  \FPmul{\teng@defaultmag}{1100}{#1}%
  % struts
  \def\teng@strutn{\rule[-0.05ex]{\teng@strutwidth}{2.00ex}\kern-\teng@strutwidth}%
  \def\teng@strutt{\rule[-0.05ex]{\teng@strutwidth}{2.90ex}\kern-\teng@strutwidth}%
  \def\teng@strutb{\rule[-1.55ex]{\teng@strutwidth}{3.50ex}\kern-\teng@strutwidth}%
  % space
  \def\teng@space{0.9ex plus 0.45ex minus 0.3ex}%
  % all characters and kernings
  \def\teng@empty                 {\teng@strutn\hphantom{\char020}\teng@setkern{0.5}{0.5}{0.1}{0.4}{0}{0}{0}{0}}%
  \def\teng@tinco                 {\teng@strutb\char000\teng@setkern{0.4}{0.4}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@parma                 {\teng@strutb\char001\teng@setkern{0.45}{0.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@calma                 {\teng@strutb\char002\teng@setkern{0.65}{0.8}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@quesse                {\teng@strutb\char003\teng@setkern{0.65}{0.8}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@ando                  {\teng@strutb\char004\teng@setkern{0.9}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@umbar                 {\teng@strutb\char005\teng@setkern{0.95}{0.95}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@anga                  {\teng@strutb\char006\teng@setkern{1.3}{1.35}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@ungwe                 {\teng@strutb\char007\teng@setkern{1.3}{1.35}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@thuule                {\teng@strutt\char008\teng@setkern{0.45}{0.55}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@formen                {\teng@strutt\char009\teng@setkern{0.45}{0.55}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@aha                   {\teng@strutt\char010\teng@setkern{0.9}{0.75}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@hwesta                {\teng@strutt\char011\teng@setkern{0.9}{0.75}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@anto                  {\teng@strutt\char012\teng@setkern{0.9}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@ampa                  {\teng@strutt\char013\teng@setkern{0.9}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@anca                  {\teng@strutt\char014\teng@setkern{1.35}{1.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@unque                 {\teng@strutt\char015\teng@setkern{1.35}{1.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@nuumen                {\teng@strutn\char016\teng@setkern{0.9}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@malta                 {\teng@strutn\char017\teng@setkern{0.95}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@noldo                 {\teng@strutn\char018\teng@setkern{1.3}{1.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@nwalme                {\teng@strutn\char019\teng@setkern{1.3}{1.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@oore                  {\teng@strutn\char020\teng@setkern{0.4}{0.55}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@vala                  {\teng@strutn\char021\teng@setkern{0.45}{0.55}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@anna                  {\teng@strutn\char022\teng@setkern{0.65}{0.75}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@vilya                 {\teng@strutn\char023\teng@setkern{0.65}{0.75}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedtinco         {\teng@strut \char040\teng@setkern{0.45}{0.4}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedparma         {\teng@strut \char041\teng@setkern{0.45}{0.45}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedcalma         {\teng@strut \char042\teng@setkern{0.9}{0.8}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedquesse        {\teng@strut \char043\teng@setkern{0.9}{0.8}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedando          {\teng@strut \char044\teng@setkern{0.9}{0.9}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedumbar         {\teng@strut \char045\teng@setkern{0.9}{0.95}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedanga          {\teng@strut \char046\teng@setkern{1.35}{1.35}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@extendedungwe         {\teng@strut \char047\teng@setkern{1.35}{1.35}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@roomen                {\teng@strutb\char024\teng@setkern{0.45}{0.25}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@arda                  {\teng@strutb\char025\teng@setkern{0.45}{0.25}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@lambe                 {\teng@strutb\char026\teng@setkern{0.55}{0.45}{-0.9}{0.6}{0}{0}{0}{0}}%
  \def\teng@alda                  {\teng@strutb\char027\teng@setkern{0.55}{0.65}{-0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@roomenalt             {\teng@roomen}%
  \def\teng@ardaalt               {\teng@arda}%
  \def\teng@lambealt              {\teng@lambe}%
  \def\teng@silme                 {\teng@strutt\char028\teng@setkern{-0.25}{0.55}{0}{0.4}{0}{0}{0}{0}}%
  \def\teng@silmenuquerna         {\teng@strutb\char029\teng@setkern{0.65}{1.35}{-0.2}{0.6}{0}{0}{0}{0}}%
  \def\teng@esse                  {\teng@strut \char030\teng@setkern{-0.25}{0.55}{1.4}{0.4}{0}{0}{0}{0}}%
  \def\teng@essenuquerna          {\teng@strutb\char031\teng@setkern{0.6}{0.7}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@silmealt              {\teng@strutt\char132\teng@setkern{0.3}{0.55}{0}{0.4}{0}{0}{0}{0}}%
  \def\teng@silmenuquernaalt      {\teng@strutb\char133\teng@setkern{0.65}{0.8}{0}{0.6}{0}{0}{0}{0}}%
  \def\teng@essealt               {\teng@strutt\char134\teng@setkern{0.3}{0.55}{0}{0.4}{0}{0}{0}{0}}%
  \def\teng@essenuquernaalt       {\teng@essenuquerna}%
  \def\teng@hyarmen               {\teng@strutt\char032\teng@setkern{0.25}{0.65}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@halla                 {\teng@strutt\char036\teng@setkern{0}{0}{0.1}{1.6}{0}{0}{0}{0}}%
  \def\teng@hwestasindarinwa      {\teng@strutt\char033\teng@setkern{0.7}{0.7}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@yanta                 {\teng@strutn\char034\teng@setkern{0.55}{0.65}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@uure                  {\teng@strutn\char035\teng@setkern{0.55}{0.55}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@osse                  {\teng@strutn\char050\teng@setkern{0.4}{0.4}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@telco                 {\teng@strutn\char037\teng@setkern{0}{0}{0.1}{0.6}{0}{0}{0}{0}}%
  \def\teng@aara                  {\teng@strutb\char038\teng@setkern{0}{0}{1.6}{0.6}{0}{0}{0}{0}}%
  \def\teng@lefthook              {}%
  \def\teng@righthook             {}%
  \def\teng@tehta@dot             {}%
  \def\teng@tehta@acute           {}%
  \def\teng@tehta@threedots       {}%
  \def\teng@tehta@rightcurl       {}%
  \def\teng@tehta@leftcurl        {}%
  \def\teng@tehta@caron           {}%
  \def\teng@tehta@breve           {}%
  \def\teng@tehta@doubleacute     {}%
  \def\teng@tehta@doublerightcurl {}%
  \def\teng@tehta@doubleleftcurl  {}%
  \def\teng@tehta@twodots         {}%
  \def\teng@tehta@tilde           {}%
  \def\teng@tehta@lefttilde       {}%
  \def\teng@tehta@nasalizer       {}%
  \def\teng@tehta@doubler         {}%
  \def\teng@tehta@dotbelow        {}%
  \def\teng@tehta@twodotsbelow    {}%
  \def\teng@tehta@threedotsbelow  {}%
  \def\teng@tehta@doubleacutebelow{}%
  \def\teng@tehta@rightcurlbelow  {}%
  \def\teng@tehta@leftcurlbelow   {}%
  \def\teng@tehta@verticalbarbelow{}%
  \def\teng@zero                  {}%
  \def\teng@one                   {}%
  \def\teng@two                   {}%
  \def\teng@three                 {}%
  \def\teng@four                  {}%
  \def\teng@five                  {}%
  \def\teng@six                   {}%
  \def\teng@seven                 {}%
  \def\teng@eight                 {}%
  \def\teng@nine                  {}%
  \def\teng@ten                   {}%
  \def\teng@eleven                {}%
  \def\teng@tehta@decimal         {}%
  \def\teng@tehta@duodecimal      {}%
  \def\teng@tehta@leastsignificant{}%
  \def\teng@centereddot           {}%
  \def\teng@colon                 {}%
  \def\teng@threeverticaldots     {}%
  \def\teng@centeredtilde         {}%
  \def\teng@centeredlongtilde     {}%
  \def\teng@exclamation           {}%
  \def\teng@question              {}%
  \def\teng@parenthesis           {}%
  \def\teng@romanquestion         {}%
  \def\teng@romanexclamation      {}%
  \def\teng@romanperiod           {}%
  \def\teng@romancomma            {}%
  \def\teng@romansemicolon        {}%
  \def\teng@romanquoteleft        {}%
  \def\teng@romanquoteright       {}%
  \def\teng@romandblquoteleft     {}%
  \def\teng@romandblquoteright    {}%
  \def\teng@romanparenleft        {}%
  \def\teng@romanparenright       {}%
  \teng@setfont%
}
