

% this file loads the phonetic font (cmph10) and names the characters 

\newfam \phofam
\newfam\phitfam
\newcount\holdfam

\def\ph{\protect\pph}
\def\phit{\protect\pphit}

% done    ixpt,  xpt,  xipt,  xiipt
% done vpt, vipt, viipt, viiipt, xivpt, xviipt, xxpt, xxvpt

\def\vpt{\textfont\z@\fivrm 
  \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
\textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\fivrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
  \unboldmath\fam\@ne\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@subfont\it\rm}% 
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@getfont\pbf\bffam\@vpt{cmbx5}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\pph{\@getfont\pph\phofam\@vpt{cmph5}}%
\def\pphit{\@subfont\phit\ph}%
\def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly 
    \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
\@setstrut\rm}

\def\vipt{\textfont\z@\sixrm 
  \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
\textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sixrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
  \unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@subfont\it\rm}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@getfont\pbf\bffam\@vipt{cmbx6}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\pph{\@getfont\pph\phofam\@vipt{cmph6}}%
\def\pphit{\@subfont\phit\ph}%
\def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly 
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly 
\@setstrut\rm}

\def\viipt{\textfont\z@\sevrm 
  \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sevrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\sevit}\textfont\itfam\sevit 
   \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
\def\psl{\@subfont\sl\it}%
\def\pbf{\@getfont\pbf\bffam\@viipt{cmbx7}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\pph{\@getfont\pph\phofam\@viipt{cmph7}}%
\def\pphit{\@getfont\pphit\phitfam\@viipt{cmphi7}}%
\def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly 
    \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
\@setstrut \rm}

\def\viiipt{\textfont\z@\egtrm 
  \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\egtrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\egtit}\textfont\itfam\egtit 
   \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
\def\psl{\@getfont\psl\slfam\@viiipt{cmsl8}}%
\def\pbf{\@getfont\pbf\bffam\@viiipt{cmbx8}}%
\def\ptt{\@getfont\ptt\ttfam\@viiipt{cmtt8}\@nohyphens\ptt\@viiipt}%
\def\psf{\@getfont\psf\sffam\@viiipt{cmss8}}%
\def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \@ptscale8}}%
\def\pph{\@getfont\pph\phofam\@viiipt{cmph8}}%
\def\pphit{\@getfont\pphit\phitfam\@viiipt{cmphi8}}%
\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly 
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
\@setstrut \rm}

\def\ixpt{\textfont\z@\ninrm 
  \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\ninrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
    \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\ninit}\textfont\itfam\ninit 
   \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
\def\psl{\@getfont\psl\slfam\@ixpt{cmsl9}}%
\def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf 
   \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
   \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
\def\psf{\@getfont\psf\sffam\@ixpt{cmss9}}%
\def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc \@ptscale9}}%
\def\pph{\@getfont\pph\phofam\@ixpt{cmph9}}%
\def\pphit{\@getfont\pphit\phitfam\@ixpt{cmphi9}}%
\def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly 
   \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
\@setstrut \rm}


\def\xpt{\textfont\z@\tenrm 
  \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
\textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\tenmi 
          \textfont\tw@\tensy \textfont\lyfam\tenly
          \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi 
   \global\font\tensyb\@mbsy 
   \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
   {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
        \textfont\@ne\tenmib \textfont\tw@\tensyb 
        \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
\def\prm{\fam\z@\tenrm}%
\def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
    \scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\tensl}\textfont\slfam\tensl 
     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf 
    \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf 
\def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
    \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
\def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
    \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
\def\pph{\@getfont\pph\phofam\@xpt{cmph10}}%
\def\pphit{\@getfont\pphit\phitfam\@xpt{cmphi10}}%
\def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly 
   \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly 
\@setstrut \rm}

\def\xipt{\textfont\z@\elvrm 
  \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
\textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\elvmi \textfont\tw@\elvsy 
          \textfont\lyfam\elvly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag 
         \global\font\elvsyb\@mbsy\@halfmag
         \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
         {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
                \textfont\@ne\elvmib \textfont\tw@\elvsyb 
                \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
\def\prm{\fam\z@\elvrm}%
\def\pit{\fam\itfam\elvit}\textfont\itfam\elvit 
   \scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl 
    \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl 
\def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf 
   \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
   \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
\def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
    \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xipt{\@mcsc\@halfmag}}%
\def\pph{\@getfont\pph\phofam\@xipt{cmph10 \@halfmag}}%
\def\pphit{\@getfont\pphit\phitfam\@xipt{cmphi10 \@halfmag}}%
\def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly 
   \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly 
\@setstrut \rm}

\def\xiipt{\textfont\z@\twlrm 
  \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
\textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\twlmi 
          \textfont\tw@\twlsy \textfont\lyfam\twlly
          \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magscale1\global
        \font\twlsyb\@mbsy \@magscale1\global\font
         \twllyb\@lasyb\@magscale1\relax\@addfontinfo\@xiipt
              {\def\boldmath{\everymath
                {\mit}\everydisplay{\mit}\@prtct\@nomathbold
                \textfont\@ne\twlmib \textfont\tw@\twlsyb 
                \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
\def\prm{\fam\z@\twlrm}%
\def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
   \scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl 
     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf 
   \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
   \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
\def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
    \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc\@magscale1}}%
\def\pph{\@getfont\pph\phofam\@xiipt{cmph10 \@magscale1}}%
\def\pphit{\@getfont\pphit\phitfam\@xiipt{cmphi10 \@magscale1}}%
\def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly 
   \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
 \@setstrut \rm}

\def\xivpt{\textfont\z@\frtnrm 
  \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
\textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
\textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath 
          \textfont\@ne\frtnmi \textfont\tw@\frtnsy 
          \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{frtnmib}{\global\font
        \frtnmib\@mbi\@magscale2\global\font\frtnsyb\@mbsy\@magscale2
         \global\font\frtnlyb\@lasyb\@magscale2\relax\@addfontinfo\@xivpt
               {\def\boldmath{\everymath
                {\mit}\everydisplay{\mit}\@prtct\@nomathbold
              \textfont\@ne\frtnmib \textfont\tw@\frtnsyb 
              \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
\def\prm{\fam\z@\frtnrm}%
\def\pit{\@getfont\pit\itfam\@xivpt{cmti10\@magscale2}}%
\def\psl{\@getfont\psl\slfam\@xivpt{cmsl10\@magscale2}}%
\def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf 
   \scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf 
\def\ptt{\@getfont\ptt\ttfam\@xivpt{cmtt10\@magscale2}\@nohyphens\ptt\@xivpt}%
\def\psf{\@getfont\psf\sffam\@xivpt{\@mss\@magscale2}}%
\def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc\@magscale2}}%
\def\pph{\@getfont\pph\phofam\@xviipt{cmph10 \@magscale2}}%
\def\pphit{\@getfont\pphit\phitfam\@xviipt{cmphi10 \@magscale2}}%
\def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly 
   \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly 
\@setstrut \rm}

\def\xviipt{\textfont\z@\svtnrm 
  \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
\textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
\textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
          \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\svtnrm}%
\def\pit{\@getfont\pit\itfam\@xviipt{cmti10\@magscale3}}%
\def\psl{\@getfont\psl\slfam\@xviipt{cmsl10\@magscale3}}%
\def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf 
    \scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf 
\def\ptt{\@getfont\ptt\ttfam\@xviipt{cmtt10\@magscale3}\@nohyphens
   \ptt\@xviipt}%
\def\psf{\@getfont\psf\sffam\@xviipt{cmss17}}%
\def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc\@magscale3}}%
\def\pph{\@getfont\pph\phofam\@xviipt{cmph10 \@magscale3}}%
\def\pphit{\@getfont\pphit\phitfam\@xviipt{cmphi10 \@magscale3}}%
\def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly 
   \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
\@setstrut \rm}

\def\xxpt{\textfont\z@\twtyrm 
  \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
\textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
\textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twtyrm}%
\def\pit{\@getfont\pit\itfam\@xxpt{cmti10\@magscale4}}%
\def\psl{\@getfont\psl\slfam\@xxpt{cmsl10\@magscale4}}%
\def\pbf{\@getfont\pbf\bffam\@xxpt{cmbx10\@magscale4}}%
\def\ptt{\@getfont\ptt\ttfam\@xxpt{cmtt10\@magscale4}\@nohyphens\ptt\@xxpt}%
\def\psf{\@getfont\psf\sffam\@xxpt{\@mss\@magscale4}}%
\def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc\@magscale4}}%
\def\pph{\@getfont\pph\phofam\@xxpt{cmph10\@magscale4}}%
\def\pphit{\@getfont\pphit\phitfam\@xxpt{cmphi10\@magscale4}}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
   \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly 
\@setstrut \rm}

\def\xxvpt{\textfont\z@\twfvrm 
  \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
\textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
\textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twfvrm}%
\def\pit{\@subfont\it\rm}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@getfont\pbf\bffam\@xxvpt{cmbx10\@magscale5}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\pph{\@getfont\pph\phofam\@xxvpt{cmph10\@magscale5}}%
\def\pphit{\@subfont\phit\ph}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
   \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly 
\@setstrut \rm}



% eventually this this be family oriented

%\def\t#1{{\edef\next{\the\font}\the\textfont1\accent"7F\next#1}}

\def\phomake#1{\holdfam=\fam\edef\next{\fam\holdfam\the\font}\ph #1\next}
\def\phoitmake#1{\holdfam=\fam\edef\next{\fam\holdfam\the\font}\phit #1\next}

\def\samfam#1{\relax\ifnum\fam=\itfam \phoitmake{#1}\else\phomake{#1}\fi}

\def\palpha{\samfam{\char"0B}}
\def\pbeta{\samfam{\char"0C}}
\def\pgamma{\samfam{\char"0D}}
\def\pdelta{\samfam{\char"0E}}
\def\pepsilon{\samfam{\char"0F}}
\def\epsi{\samfam{\char"22}}
\def\pzeta{\samfam{\char"10}}
\def\peta{\samfam{\char"11}}
\def\ptheta{\samfam{\char"12}}
\def\piota{\samfam{\char"13}}
\def\riota{\samfam{\char"00}}
\def\pkappa{\samfam{\char"14}}
\def\plambda{\samfam{\char"15}}
\def\barlambda{\samfam{\char"01}}
\def\pmu{\samfam{\char"16}}
\def\pnu{\samfam{\char"17}}
\def\pxi{\samfam{\char"18}}
\def\ppi{\samfam{\char"19}}
\def\prho{\samfam{\char"1A}}
\def\psigma{\samfam{\char"1B}}
\def\ptau{\samfam{\char"1C}}
\def\pupsilon{\samfam{\char"1D}}
\def\pphi{\samfam{\char"1E}}
\def\pchi{\samfam{\char"1F}}
\def\ppsi{\samfam{\char"20}}
\def\pomega{\samfam{\char"21}}

\def\omicron{o}
\def\pomicron{\samfam{o}}

\def\rotOmega{\samfam{\char"0A}}
\def\varomega{\samfam{\char"08}}
\let\varU=\rotOmega
\let\varu=\varomega

\def\vara{\relax\ifnum\fam=\itfam \char"61 \else \phomake{\char"61}\fi}
\def\rotvara{\samfam{\char"41}}
\def\openo{\samfam{\char"63}}
\def\varopeno{\relax\ifnum\fam=\itfam\phoitmake{\char"63}\else\phomake{\char"43}\fi}
\let\rotc=\openo
\def\eth{\samfam{\char"64}}
\def\revD{\samfam{\char"02}}

\def\schwa{\samfam{\char"65}}
\def\varschwa{\relax\ifnum\fam=\itfam\phoitmake{\char"65}\else\phomake{\char"45}\fi}
\def\wedge{\relax\ifnum\fam=\itfam\phoitmake{\char"45}\else\phomake{\char"55}\fi}
\def\fj{\samfam{\char"46}}

\def\hausab{\relax\ifnum\fam=\itfam\phoitmake{\char"67}\else\phomake{\char"62}\fi} 
                \let\impb=\hausab
                \let\glottalb\hausab

\def\varg{\relax\ifnum\fam=\itfam g\else \phomake{\char"47}\fi}
\def\voicedh{\samfam{\char"68}}
\def\hausad{\samfam{\char"44}}
               \let\glottald\hausad

\def\hookd{\samfam{\char"4A}}
\def\hausak{\samfam{\char"6B}}
                \let\hookk\hausak
\def\hausaK{\samfam{\char"4B}}
\def\hausaD{\samfam{\char"54}}
\def\hausaB{\samfam{\char"42}}

\def\vari{\samfam{\char"69}}
\def\barj{\samfam{\char"6A}}
\def\rotm{\relax\ifnum\fam=\itfam \phoitmake{\char"6D}\else\phomake{\char"6m}\fi}
\def\engma{\samfam{\char"6E}}
\def\emgma{\samfam{\char"4D}}
\def\enya{\samfam{\char"4E}}


\def\flap{\samfam{\char"66}}

\def\thorn{\samfam{\char"70}}
\def\rotr{\samfam{\char"72}}
\def\esh{\samfam{\char"73}}
\def\udesc{\samfam{\char"75}}

\def\rotw{\phomake{\char"77}}
\def\yogh{\samfam{\char"78}}
\def\roty{\samfam{\char"79}}
\def\rotR{\phomake{\char"52}}

\def\glottal{\samfam{\char"3F}}

\def\upharpoon{{\ph \char"7A}}
\def\uphk{\mathrel{\hbox{\ph\char"7C}}}
\def\downhk{\mathrel{\hbox{\ph\char"7B}}}
\def\dbox{\mathord{\hbox{\ph\char"7E}}}
\def\sbox{\mathord{\hbox{\ph\char"7D}}}


\def\rhookup{\oalign{$\uparrow$\cr\noalign{\vskip-.32ex}
\hidewidth\kern.16em{\ph\char"7C}\hidewidth}}	       
\def\lhookup{\oalign{$\uparrow$\cr\noalign{\vskip-.32ex}
\hidewidth{\ph\char"7C}\kern.22em\hidewidth}}	       

\def\bigrhookup{\oalign{$\bigm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth\kern.16em{\ph\char"7C}\hidewidth}}	       
\def\biglhookup{\oalign{$\bigm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth{\ph\char"7C}\kern.22em\hidewidth}}	       

\def\Bigrhookup{\oalign{$\Bigm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth\kern.16em{\ph\char"7C}\hidewidth}}	       
\def\Biglhookup{\oalign{$\Bigm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth{\ph\char"7C}\kern.22em\hidewidth}}	       
\def\biggrhookup{\oalign{$\biggm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth\kern.16em{\ph\char"7C}\hidewidth}}	       
\def\bigglhookup{\oalign{$\biggm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth{\ph\char"7C}\kern.22em\hidewidth}}	       
\def\Biggrhookup{\oalign{$\Biggm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth\kern.16em{\ph\char"7C}\hidewidth}}	       
\def\Bigglhookup{\oalign{$\Biggm\uparrow$\cr\noalign{\kern-.32ex}
\hidewidth{\ph\char"7C\hfil}\kern.22em\hidewidth}}	       

% made symbols
\catcode`@=11 % borrow the private macros of PLAIN (with care)

\def\m@th{\mathsurround=\z@}

% puts a reverse cedilla under a letter
\def\rc#1{\ooalign{\hidewidth\ph\char"09\hidewidth\crcr #1}}

% \hill puts a half circle under a letter  (NEW)
\def\hill#1{\oalign{#1\crcr\hidewidth\ph\char"7B\hidewidth}}

\def\overchar#1#2#3{\leavevmode\setbox0=\hbox{#2}%
	\rlap{\raise#3\ht0\hbox to\wd0{\hss#1\hss}}\box0}
% places a half circle over a letter
\def\ohill#1{\overchar{\ph\char"7B}{#1}{.67}}
%\acbar{accent}{character}{raised} places an accent over a barred character
\def\acbar#1#2{\overchar{\overchar{#1}{\char'026}{.35}}{#2}{.25}}
%\acarc{accent}{character}{raised} places an accent over a character
% with a half circle in between
\def\acarc#1#2{\overchar{\overchar{#1}{\ph\char"7B\kern1pt}{0}}{#2}{.75}}

% vertical equivalent of \hidewidth
\def\hideheight{\vskip-1000pt plus 1fill}

% \od puts a small o under a letter (needs some revision)
\def\od#1{\oalign{#1\crcr\hidewidth\vbox to.2ex{\hbox{\char'27}\hideheight}\hidewidth}}

% \ut puts a tilde under a letter
\def\ut#1{\oalign{#1\crcr\hidewidth\vbox to.2ex{\hbox{$\mathchar"707E$}\hideheight}\hidewidth}}
% \td puts two dots under a letter
\def\td#1{\oalign{#1\crcr\hidewidth..\hidewidth}}
% puts a small block under a letter
%\def\syl#1{\oalign{#1\crcr\hidewidth\hbox{\vrule height.4ex width.2ex}\hidewidth}}
\def\syl#1{\oalign{#1\crcr\hidewidth\vbox to.33ex{\hbox{\vrule
height.35ex width.2ex}\hideheight}\hidewidth}}

% \uplett raises a letter and sets it in tiny size
\def\uplett#1{$^{\hbox{\tiny\rm #1}}$}
% \labvel puts an arc over the argument (usually two letters)
\newdimen\temp
\def\labvel#1{\setbox0=\hbox{#1}%
\temp=\ht0 \advance\temp by 1ex%
\ht0=\temp%
$\m@th\mathaccent"015F{\box0}$}
% planck's constant (not italicized)
\def\planck{${\mathchar'26\mskip-7mu{\rm h}}$}
% small small caps
\def\ssc#1{{\tiny\rm #1}}

% i with a bar through it
\def\onalign#1{\leavevmode\vtop{\baselineskip=0pt\lineskip=-.5ex
\ialign{##\crcr#1\crcr}}}
\def\ibar{\onalign{\hidewidth i\hidewidth\cr\cr$\mathchar'26$}}

% o smashed into the bottom of the v
\def\vod{\oalign{v\crcr\noalign{\vskip-.4ex}\hidewidth\vbox to.4ex{\hbox{\char'27}\hideheight}\hidewidth}}
% u with a bar through it
\def\ubar{\ifmmode {\raise.5ex\hbox{\vrule width.5em %
height.1ex}\mskip-9mu{\rm u}}\else${\raise.5ex\hbox{\vrule width.5em %
height.1ex}\mskip-9mu{\rm u}}$\fi}  
% a raised vertical line
\def\upbar{\leavevmode\raise.6ex\hbox spread.2em{\hfil\vrule height1ex
width.1ex \hfil}}

\endinput

\def\addelvpoint{
\textfont \phofam=\elvph
\def\ph{\fam\phofam\elvph}
%
\textfont\phitfam=\elvphit
\def\phit{\fam\phitfam\elvphit}}

\def\addtenpoint{
\textfont \phofam=\tenph
\def\ph{\fam\phofam\tenph}
%
\textfont\phitfam=\tenphit
\def\phit{\fam\phitfam\tenphit}}

\def\addninpoint{
\textfont \phofam=\ninph
\def\ph{\fam\phofam\ninph}
%
\textfont\phitfam=\ninphit
\def\phit{\fam\phitfam\ninphit}}

\addtenpoint
