%%
%% This is file `ipa.sty'

\def\fileversion{v1.2}
\def\filedate{93/1/20}

\typeout{Style Option: `ipa'
  \fileversion\space <\filedate>}
\@ifundefined{selectfont}
     {\@latexerr{`ipa' style option could only be used
                  with the new font selection scheme}\@eha
     \endinput}{}
\new@fontshape{ipa}{m}{n}{%
   <5>wsuipa8 at5pt%
   <6>wsuipa8 at5.6pt%
   <7>wsuipa8 at7pt%
   <8>wsuipa8%
   <9>wsuipa9%
   <10>wsuipa10%
   <11>wsuipa11%
   <12>wsuipa12%
   <14>wsuipa10 at14.4pt%
   <17>wsuipa17%
   <20>wsuipa12 at20.74pt%
   <25>wsuipa12 at24.88pt}{}%
\new@fontshape{ipa}{m}{sl}{%
   <5>wslipa8 at5pt%
   <6>wslipa8 at5.6pt%
   <7>wslipa8 at7pt%
   <8>wslipa8%
   <9>wslipa9%
   <10>wslipa10%
   <11>wslipa11%
   <12>wslipa12%
   <14>wslipa10 at14.4pt%
   <17>wslipa17%
   <20>wslipa12 at20.74pt%
   <25>wslipa12 at24.88pt}{}%
\new@fontshape{ipa}{bx}{n}{%
   <5>wbxipa8 at5pt%
   <6>wbxipa8 at5.6pt%
   <7>wbxipa8 at7pt%
   <8>wbxipa8%
   <9>wbxipa9%
   <10>wbxipa10%
   <11>wbxipa11%
   <12>wbxipa12%
   <14>wbxipa10 at14.4pt%
   <17>wbxipa17%
   <20>wbxipa12 at20.74pt%
   <25>wbxipa12 at24.88pt}{}%
\extra@def{ipa}{}{}

\def\graffiti{\protect\pgraffiti}
\def\pgraffiti{\family{ipa}\series{c}\shape{sl}\size{9}{10pt}\selectfont}
\def\@makefnmark{\raise 1ex\hbox{\scriptsize\@thefnmark}}

\gdef\ipa#1{{\protect\family{ipa}\protect\selectfont#1}} % \ipa redefined

%% The following macro is necessary to place an accent over the
%% character definitions below. For example, you should say:
%%                \diatop[\^|\openo]
%%

\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}}}%

%% As an alternative, you could uncomment the following two lines:
%%
%% \catcode`"=\active
%% \def"#1#2{\diatop[#1|#2]}
%%
%% And then you could place an accent over the ipa character by
%% calling the macro " which itself calls \diatop. For example, you
%% would say:
%%
%%               "\^\openo

%%  THE FOLLOWING macros access the IPA chars from the WSU IPA font

%% 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{{\kern.05em\ipa{\char'075}\kern-.05em}}%
\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}\kern-.05em}}%
\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\ejective{{\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\upt{{\ipa{\char'154}}}%   These are IPA pointers
\def\downt{{\ipa{\char'155}}}%
\def\leftt{{\ipa{\char'156}}}%
\def\rightt{{\ipa{\char'157}}}%

         %  These are American versions of t-bars
\def\upp{{\ipa{\char'164}}}%
\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{{\ipa{\char'152}}}%   syllabic marker

\def\corner{{\ipa{\char'153}}}%

         % American equivalent: raised dot
\def\halflength{{\ipa{\char'160}}}%
         %     American equivalent: colon
\def\length{{\ipa{\char'161}}}%

\def\underdots{{\ipa{\char'162}}}%

         %       ``reversed apostrophe'', p. 216
\def\ain{{\ipa{\char'163}}}%

\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}}

%% AND that's it for the diacritics.

\endinput
%% End of file `ipa.sty'.
