\font\ipatenrm=wsuipa10
\def\ipa{\ipatenrm}
 
%% A-type shapes:
\def\inva{{\ipa\char'000}}%
\def\scripta{{\ipa\char'001}}%
\def\nialpha{{\ipa\char'002}}%
\def\invscripta{{\ipa\char'003}}%
\def\invv{{\ipa\char'004}}%
 
%% B-type shapes:
\def\crossb{{\ipa\char'005}}%
\def\barb{{\ipa\char'006}}%
\def\slashb{{\ipa\char'007}}%
\def\hookb{{\ipa\char'010}}%
\def\nibeta{{\ipa\char'011}}%
 
%% C-type shapes:
\def\slashc{{\ipa\char'012}}%
\def\curlyc{{\ipa\char'013}}%
\def\clickc{{\ipa\char'014}}%
 
%% D-type shapes:
\def\crossd{{\ipa\char'015}}%
\def\bard{{\ipa\char'016}}%
\def\slashd{{\ipa\char'017}}%
\def\hookd{{\ipa\char'020}}%
\def\taild{{\ipa\char'021}}%
\def\dz{{\ipa\char'022}}%
\def\eth{{\ipa\char'023}}%
\def\scd{{\ipa\char'024}}%
 
%% E-type shapes:
\def\schwa{{\ipa\char'025}}%
\def\er{{\ipa\char'026}}%
\def\reve{{\ipa\char'027}}%
\def\niepsilon{{\ipa\char'030}}%
\def\revepsilon{{\ipa\char'031}}%
\def\hookrevepsilon{{\ipa\char'032}}%
\def\closedrevepsilon{{\ipa\char'033}}%
 
%% G-type shapes:
\def\scriptg{{\ipa\char'034}}%
\def\hookg{{\ipa\char'035}}%
\def\scg{{\ipa\char'036}}%
\def\nigamma{{\ipa\char'037}}
\def\ipagamma{{\ipa\char'040}}%
\def\babygamma{{\ipa\char'041}}%
 
%% H-type shapes:
\def\hv{{\ipa\char'042}}%
\def\crossh{{\ipa\char'043}}%
\def\hookh{{\ipa\char'044}}%
\def\hookheng{{\ipa\char'045}}%
\def\invh{{\ipa\char'046}}%
 
%% I-type shapes:
\def\bari{{\ipa\char'047}}%
\def\dlbari{{\ipa\char'050}}% ``dotless bar i''
\def\niiota{{\ipa\char'051}}%
\def\sci{{\ipa\char'052}}%
\def\barsci{{\ipa\char'053}}% ``barred small cap i''
 
%% J-type shape:
\def\invf{{\ipa\char'054}}%
 
%% L-type shapes:
\def\tildel{{\ipa\char'055}}%
\def\barl{{\ipa\char'056}}%
\def\latfric{{\ipa\char'057}}%
\def\taill{{\ipa\char'060}}%
\def\lz{{\ipa\char'061}}%
\def\nilambda{{\ipa\char'062}}%
\def\crossnilambda{{\ipa\char'063}}%
 
%% M-type shapes:
\def\labdentalnas{{\ipa\char'064}}%
\def\invm{{\ipa\char'065}}%
\def\legm{{\ipa\char'066}}%
 
%% N-type shapes:
\def\nj{{\ipa\char'067}}%
\def\eng{{\ipa\char'070}}%
\def\tailn{{\ipa\char'071}}%
\def\scn{{\ipa\char'072}}%
 
%% O-type shapes:
\def\clickb{{\ipa\char'073}}%
\def\baro{{\ipa\char'074}}%
\def\openo{{\ipa\char'075}}%
\def\niomega{{\ipa\char'076}}%
\def\closedniomega{{\ipa\char'077}}%
\def\oo{{\ipa\char'100}}%
 
%% P-type shapes:
\def\barp{{\ipa\char'101}}%
\def\thorn{{\ipa\char'102}}%
\def\niphi{{\ipa\char'103}}%
 
%% R-type shapes:
\def\flapr{{\ipa\char'104}}%
\def\legr{{\ipa\char'105}}%
\def\tailr{{\ipa\char'106}}%
\def\invr{{\ipa\char'107}}%
\def\tailinvr{{\ipa\char'110}}%
\def\invlegr{{\ipa\char'111}}%
\def\scr{{\ipa\char'112}}%
\def\invscr{{\ipa\char'113}}%
 
%% S-type shapes:
\def\tails{{\ipa\char'114}}%
\def\esh{{\ipa\char'115}}%
\def\curlyesh{{\ipa\char'116}}%
\def\nisigma{{\ipa\char'117}}%
 
%% T-type shapes:
\def\tailt{{\ipa\char'120}}%
\def\tesh{{\ipa\char'121}}%
\def\clickt{{\ipa\char'122}}%
\def\nitheta{{\ipa\char'123}}%
 
%% U-type shapes:
\def\baru{{\ipa\char'124}}%
\def\slashu{{\ipa\char'125}}%
\def\niupsilon{{\ipa\char'126}}%
\def\scu{{\ipa\char'127}}%
\def\barscu{{\ipa\char'130}}%
 
%% V-type shape:
\def\scriptv{{\ipa\char'131}}%
 
%% W-type shape:
\def\invw{{\ipa\char'132}}%
 
%% X-type shape:
\def\nichi{{\ipa\char'133}}%
 
%% Y-type shapes:
\def\invy{{\ipa\char'134}}%
\def\scy{{\ipa\char'135}}%
 
%% Z-type shapes:
\def\curlyz{{\ipa\char'136}}%
\def\tailz{{\ipa\char'137}}%
\def\yogh{{\ipa\char'140}}%
\def\curlyyogh{{\ipa\char'141}}%
 
%% ?-type shapes:
\def\glotstop{{\ipa\char'142}}%
\def\revglotstop{{\ipa\char'143}}%
\def\invglotstop{{\ipa\char'144}}%
\def\ipaeject{{\ipa\char'145}}%
\def\reveject{{\ipa\char'146}}%
 
%% AND that should be it, as far as actual characters go.
%%
%% THE following is the set of diacritics. Please try to get
%% the 4 t-bars lined up above the 4 pointers, so you may
%% have to reshuffle things a bit. Not to worry too much. I
%% think the diacritics can be grouped more according to
%% shape, so comma-like things are together, etc.
%%
 
\def\dental#1{\oalign{#1\crcr
          \hidewidth{\ipa\char'147}\hidewidth}}
%\def\dental#1{{\setbox0=\hbox{#1}% ``bridge'' on p.206
%              \setbox1=\hbox to \wd0{{\hss\ipa\char'147\hss}}%
%              \vtop{\offinterlineskip\box0\vskip.5pt\box1}}}%
 
\def\upt{{\ipa\char'154}}%   These are IPA pointers
\def\downt{{\ipa\char'155}}%
\def\leftt{{\ipa\char'156}}%
\def\rightt{{\ipa\char'157}}%
 
\def\upp{{\ipa\char'164}}%  These are American versions of t-bars
\def\downp{{\ipa\char'165}}%
\def\leftp{{\ipa\char'166}}%
\def\rightp{{\ipa\char'167}}%
 
\def\stress{{\ipa\char'150}}%     primary stress
\def\secstress{{\ipa\char'151}}%  secondary stress
 
\def\syllabic{{\accent\ipa\char'152}}%   syllabic marker
 
\def\corner{{\ipa\char'153}}%
 
\def\halflength{{\ipa\char'160}}% American equivalent: raised dot
\def\length{{\ipa\char'161}}%     American equivalent: colon
 
\def\underdots{{\ipa\char'162}}%
 
\def\ain{{\ipa\char'163}}%       ``reversed apostrophe'', p.216
 
\def\overring{{\ipa\char'170}}%
\def\underring{{\ipa\char'171}}%
 
\def\open{{\ipa\char'172}}%
 
\def\midtilde{{\ipa\char'173}}%
\def\undertilde{{\ipa\char'174}}%
 
\def\underwedge{{\ipa\char'175}}%
 
\def\polishhook{{\ipa\char'176}}%
 
\def\underarch#1{\oalign{#1\crcr
          \hidewidth{\ipa\char'177}\hidewidth}}
%\def\underarch#1{{\setbox0=\hbox{#1}%   P&L p. 230
%              \setbox1=\hbox to \wd0{{\hss\ipa\char'177\hss}}%
%              \vtop{\offinterlineskip\box0\vskip.5pt\box1}}}%
 
%% AND that's it for the diacritics. The following are
%% ``useful'' macros for other things...
%%
 
\def\diatop[#1|#2]{{\setbox1=\hbox{{#1{}}}\setbox2=\hbox{{#2{}}}%
                    \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi%
                    \dimen1=\ht2\advance\dimen1by-1ex%
                    \setbox1=\hbox to1\dimen0{\hss#1\hss}%
                    \rlap{\raise1\dimen1\box1}%
                    \hbox to1\dimen0{\hss#2\hss}}}%
 
