%\def\pc{\usefont{U}{phon}{m}{n}}

\def\pc{\usefont{U}{phon}{\f@series}{\f@shape}}

\def\textpc#1{{\pc #1}}

\let\pcchar=\textpc

%the following may need to be modified.
\def\vara{\pcchar{\char"61}}
\def\varg{\pcchar{\char"47}}


\def\rotvara{\pcchar{\char"41}}
\def\hookb{\pcchar{\char"62}}
    \let\hausab=\hookb
\def\openo{\pcchar{\char"63}}
    \let\rotc=\openo
\def\hookd{\pcchar{\char"44}}
    \let\hausad=\hookd
\def\eth{\pcchar{\char"64}}
\def\schwa{\pcchar{\char"65}}
\def\flap{\pcchar{\char"66}}
\def\hookh{\pcchar{\char"68}}
	\let\voicedh=\hookh
\def\taild{\pcchar{\char"4A}}
\def\hookk{\pcchar{\char"6B}}
    \let\hausak=\hookk
\def\emgma{\pcchar{\char"4D}}
\def\engma{\pcchar{\char"6E}}
\def\thorn{\pcchar{\char"70}}
\def\rotr{\pcchar{\char"72}}
\def\esh{\pcchar{\char"73}}
\def\pwedge{\pcchar{\char"55}}
\def\roth{\pcchar{\char"75}}
    \let\udesc=\roth
\def\yogh{\pcchar{\char"78}}
\def\hookK{\pcchar{\char"4B}}
   \let\hausaK=\hookK
\def\hookD{\pcchar{\char"54}}
   \let\hausaD=\hookD
\def\hookB{\pcchar{\char"42}}
   \let\hausaB=\hookB
\def\glottal{\pcchar{\char"3F}}

\def\barj{\pcchar{\char"6A}}

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

\def\omicron{o}
\def\pomicron{\pcchar{o}}

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

\def\roty{\pcchar{\char"79}}
\def\rotm{\pcchar{\char"6D}}
\def\revD{\pcchar{\char"02}}
\def\enya{\pcchar{\char"4E}}
\def\fj{\pcchar{\char"46}}
\def\varopeno{\pcchar{\char"43}}
\def\vari{\pcchar{\char"69}}
\def\rotw{\pcchar{\char"77}}

% characters not covered
\def\m@th{\mathsurround=\z@}

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

% \hill puts a half circle under a letter  (NEW)
\def\hill#1{\oalign{#1\crcr\hidewidth\pcchar{\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{\pcchar{\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}{\pcchar{\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$}}

% r with a bar through it
\def\rbar{\onalign{\hidewidth r\hidewidth\cr\cr$\mskip-1mu\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}}