\relax

Part of the tolkienfonts package
Copyright 2009 Ariel Barton\metrics

%\comment{Adding some extra space to the punctuation}

\setint{punctspace}{\scale{\int{interword}}{600}}

\setint{fontdimen(7)}{\add{-\int{interword}}{\int{punctspace}}} % Extra space for non-french spacing (default 111)

\ifisglyph{onedot}\then        \resetglyph{onedot}       \movert{\int{punctspace}}\glyph{onedot}{1000}\endresetglyph\fi
\ifisglyph{twodots}\then       \resetglyph{twodots}      \movert{\int{punctspace}}\glyph{twodots}{1000}\endresetglyph\fi
\ifisglyph{threedots}\then     \resetglyph{threedots}    \movert{\int{punctspace}}\glyph{threedots}{1000}\endresetglyph\fi
\ifisglyph{tallthreedots}\then \resetglyph{tallthreedots}\movert{\int{punctspace}}\glyph{tallthreedots}{1000}\endresetglyph\fi
\ifisglyph{fourdots}\then      \resetglyph{fourdots}     \movert{\int{punctspace}}\glyph{fourdots}{1000}\endresetglyph\fi
\ifisglyph{tildevertical}\then \resetglyph{tildevertical}\movert{\int{punctspace}}\glyph{tildevertical}{1000}\endresetglyph\fi
\ifisglyph{tengquestion}\then  \resetglyph{tengquestion} \movert{\int{punctspace}}\glyph{tengquestion}{1000}\endresetglyph\fi
\ifisglyph{tengparen}\then     
    \setglyph{tengparenleft} \glyph{tengparen}{1000}\movert{\int{punctspace}}\endsetglyph   
    \resetglyph{tengparen} \movert{\int{punctspace}}\glyph{tengparen}{1000}\endresetglyph   
\fi

\ifisglyph{onedot}\then\ifisglyph{onedot}\then       \resetkern{onedot}       {onedot}{\add{-\int{punctspace}}{\kerning{onedot}{onedot}}}\fi\fi
\ifisglyph{onedot}\then\ifisglyph{twodots}\then      \resetkern{onedot}      {twodots}{\add{-\int{punctspace}}{\kerning{onedot}{twodots}}}\fi\fi
\ifisglyph{onedot}\then\ifisglyph{threedots}\then    \resetkern{onedot}    {threedots}{\add{-\int{punctspace}}{\kerning{onedot}{threedots}}}\fi\fi
\ifisglyph{onedot}\then\ifisglyph{tallthreedots}\then\resetkern{onedot}{tallthreedots}{\add{-\int{punctspace}}{\kerning{onedot}{tallthreedots}}}\fi\fi
\ifisglyph{onedot}\then\ifisglyph{fourdots}\then     \resetkern{onedot}     {fourdots}{\add{-\int{punctspace}}{\kerning{onedot}{fourdots}}}\fi\fi

\ifisglyph{twodots}\then\ifisglyph{onedot}\then       \resetkern{twodots}       {onedot}{\add{-\int{punctspace}}{\kerning{twodots}{onedot}}}\fi\fi
\ifisglyph{twodots}\then\ifisglyph{twodots}\then      \resetkern{twodots}      {twodots}{\add{-\int{punctspace}}{\kerning{twodots}{twodots}}}\fi\fi
\ifisglyph{twodots}\then\ifisglyph{threedots}\then    \resetkern{twodots}    {threedots}{\add{-\int{punctspace}}{\kerning{twodots}{threedots}}}\fi\fi
\ifisglyph{twodots}\then\ifisglyph{tallthreedots}\then\resetkern{twodots}{tallthreedots}{\add{-\int{punctspace}}{\kerning{twodots}{tallthreedots}}}\fi\fi
\ifisglyph{twodots}\then\ifisglyph{fourdots}\then     \resetkern{twodots}     {fourdots}{\add{-\int{punctspace}}{\kerning{twodots}{fourdots}}}\fi\fi

\ifisglyph{threedots}\then\ifisglyph{onedot}\then       \resetkern{threedots}       {onedot}{\add{-\int{punctspace}}{\kerning{threedots}{onedot}}}\fi\fi
\ifisglyph{threedots}\then\ifisglyph{twodots}\then      \resetkern{threedots}      {twodots}{\add{-\int{punctspace}}{\kerning{threedots}{twodots}}}\fi\fi
\ifisglyph{threedots}\then\ifisglyph{threedots}\then    \resetkern{threedots}    {threedots}{\add{-\int{punctspace}}{\kerning{threedots}{threedots}}}\fi\fi
\ifisglyph{threedots}\then\ifisglyph{tallthreedots}\then\resetkern{threedots}{tallthreedots}{\add{-\int{punctspace}}{\kerning{threedots}{tallthreedots}}}\fi\fi
\ifisglyph{threedots}\then\ifisglyph{fourdots}\then     \resetkern{threedots}     {fourdots}{\add{-\int{punctspace}}{\kerning{threedots}{fourdots}}}\fi\fi

\ifisglyph{tallthreedots}\then\ifisglyph{onedot}\then       \resetkern{tallthreedots}       {onedot}{\add{-\int{punctspace}}{\kerning{tallthreedots}{onedot}}}\fi\fi
\ifisglyph{tallthreedots}\then\ifisglyph{twodots}\then      \resetkern{tallthreedots}      {twodots}{\add{-\int{punctspace}}{\kerning{tallthreedots}{twodots}}}\fi\fi
\ifisglyph{tallthreedots}\then\ifisglyph{threedots}\then    \resetkern{tallthreedots}    {threedots}{\add{-\int{punctspace}}{\kerning{tallthreedots}{threedots}}}\fi\fi
\ifisglyph{tallthreedots}\then\ifisglyph{tallthreedots}\then\resetkern{tallthreedots}{tallthreedots}{\add{-\int{punctspace}}{\kerning{tallthreedots}{tallthreedots}}}\fi\fi
\ifisglyph{tallthreedots}\then\ifisglyph{fourdots}\then     \resetkern{tallthreedots}     {fourdots}{\add{-\int{punctspace}}{\kerning{tallthreedots}{fourdots}}}\fi\fi

\ifisglyph{fourdots}\then\ifisglyph{onedot}\then       \resetkern{fourdots}       {onedot}{\add{-\int{punctspace}}{\kerning{fourdots}{onedot}}}\fi\fi
\ifisglyph{fourdots}\then\ifisglyph{twodots}\then      \resetkern{fourdots}      {twodots}{\add{-\int{punctspace}}{\kerning{fourdots}{twodots}}}\fi\fi
\ifisglyph{fourdots}\then\ifisglyph{threedots}\then    \resetkern{fourdots}    {threedots}{\add{-\int{punctspace}}{\kerning{fourdots}{threedots}}}\fi\fi
\ifisglyph{fourdots}\then\ifisglyph{tallthreedots}\then\resetkern{fourdots}{tallthreedots}{\add{-\int{punctspace}}{\kerning{fourdots}{tallthreedots}}}\fi\fi
\ifisglyph{fourdots}\then\ifisglyph{fourdots}\then     \resetkern{fourdots}     {fourdots}{\add{-\int{punctspace}}{\kerning{fourdots}{fourdots}}}\fi\fi

\endmetrics