path: root/fonts/wsuipa/macros/ipalmacs.sty

% ipalmacs.sty
\def\filedate{22-APR-1992}
\def\fileversion{1.0}
%
% Using the wsuipa International Phonetic Alphabet Fonts with LaTeX
% and the New Font Selection Scheme (NFSS)
%
% (c) 1992 by J"org Knappen
% Usage conditions: GNU licence v1.0
% using ipamacs.tex

\@ifundefined{extract@font}
     {\errmessage{The style option `ipalmacs' does not make sense if you
                  do not use a format with the new font selection scheme.}
      \endinput}
     {}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%                                                                     %%
%% Washington State University International Phonetic Alphabet family  %%
%%                                                                     %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{wsuipa}{m}{n}{%
   <5>wsuipa5%
   <6>wsuipa6%
   <7>wsuipa7%
   <8>wsuipa8%
   <9>wsuipa9%
   <10>wsuipa10%
   <11>wsuipa11%
   <12>wsuipa12%
   <14>wsuipa12 at14.4pt%
   <17>wsuipa17%
   <20>wsuipa17 at20.74pt%
   <25>wsuipa17 at24.88pt}{}

\new@fontshape{wsuipa}{m}{sl}{%
   <5>wslipa5%
   <6>wslipa6%
   <7>wslipa7%
   <8>wslipa8%
   <9>wslipa9%
   <10>wslipa10%
   <11>wslipa11%
   <12>wslipa12%
   <14>wslipa12 at14.4pt%
   <17>wslipa17%
   <20>wslipa17 at20.74pt%
   <25>wslipa17 at24.88pt}{}

%%%%%%%%%%%%% bold series

\new@fontshape{wsuipa}{bx}{n}{%
   <5>wbxipa5%
   <6>wbxipa6%
   <7>wbxipa7%
   <8>wbxipa8%
   <9>wbxipa9%
   <10>wbxipa10%
   <11>wbxipa11%
   <12>wbxipa12%
   <14>wbxipa12 at14.4pt%
   <17>wbxipa17%
   <20>wbxipa17 at20.74pt%
   <25>wbxipa17 at24.88pt}{}

\subst@fontshape{wsuipa}{m}{it}{wsuipa}{m}{sl} % slanted for italic
\subst@fontshape{wsuipa}{bx}{it}{wsuipa}{m}{sl} % medium slanted for bold italic
\subst@fontshape{wsuipa}{m}{sc}{wsuipa}{m}{n} % normal for caps & small caps

\extra@def{wsuipa}{}{}

\def\pipa{\family{wsuipa}\selectfont}
\def\ipa{\protect\pipa}

% Here are some special accenting macros, which allow multiple accenting
% \oaccent{#1}{#2} sets accent #1 over #2
% \uaccent{#1}{#2} sets diacritic #1 below #2. #1 should not ascend the
%   baseline in this case. (e.g. \polishhook)
% \taccent{#1}{#2} sets diacritic #1 (which is designed to go UNDER something}
%   over #2
\def\poaccent#1#2{\leavevmode
                    {\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}}}%
\def\oaccent{\protect\poaccent}

\def\puaccent#1#2{\leavevmode
                    {\setbox1=\hbox{{#1{}}}\setbox2=\hbox{{#2{}}}%
                    \dimen0=\ifdim\wd1>\wd2\wd1\else\wd2\fi%
                    \dimen1=-\dp2%
                    \setbox1=\hbox to1\dimen0{\hss#1\hss}%
                    \rlap{\raise1\dimen1\box1}%
                    \hbox to1\dimen0{\hss#2\hss}}}%
\def\uaccent{\protect\puaccent}

\def\ptaccent#1#2{\leavevmode
                  {\tabskip=0pt\offinterlineskip\vbox{\halign{\hfil##\hfil\cr
                     #1\cr#2\cr}}}}
\def\taccent{\protect\ptaccent}

% \diatop from ipamacs kept for compatibility. Fragile!
% added \leavevmode (22. 4. 1992 JK)
%% 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]{\leavevmode
                    {\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}}}%

% The following commands are from ipamacs.tex
% changed \next to \NEXT (20. 4. 1992 JK)
% \protect'ed all the commands (20. 4. 1992 JK)

%% A-type shapes:
\def\pinva{\edef\NEXT{\the\font}\ipa\char'000\NEXT}%
\def\inva{\protect\inva}
\def\pscripta{\edef\NEXT{\the\font}\ipa\char'001\NEXT}%
\def\scripta{\protect\pscripta}
\def\pnialpha{\edef\NEXT{\the\font}\ipa\char'002\NEXT}%
\def\nialpha{\protect\pnialpha}
\def\pinvscripta{\edef\NEXT{\the\font}\ipa\char'003\NEXT}%
\def\invscripta{\protect\scripta}
\def\pinvv{\edef\NEXT{\the\font}\ipa\char'004\NEXT}%
\def\invv{\protect\invv}

%% B-type shapes:
\def\pcrossb{\edef\NEXT{\the\font}\ipa\char'005\NEXT}%
\def\crossb{\protect\pcrossb}
\def\pbarb{\edef\NEXT{\the\font}\ipa\char'006\NEXT}%
\def\barb{\protect\pbarb}
\def\pslashb{\edef\NEXT{\the\font}\ipa\char'007\NEXT}%
\def\slashb{\protect\pslashb}
\def\phookb{\edef\NEXT{\the\font}\ipa\char'010\NEXT}%
\def\hookb{\protect\phookb}
\def\pnibeta{\edef\NEXT{\the\font}\ipa\char'011\NEXT}%
\def\nibeta{\protect\pnibeta}

%% C-type shapes:
\def\pslashc{\edef\NEXT{\the\font}\ipa\char'012\NEXT}%
\def\slashc{\protect\pslashc}
\def\pcurlyc{\edef\NEXT{\the\font}\ipa\char'013\NEXT}%
\def\curlyc{\protect\pcurlyc}
\def\pclickc{\edef\NEXT{\the\font}\ipa\char'014\NEXT}%
\def\clickc{\protect\pclickc}

%% D-type shapes:
\def\pcrossd{\edef\NEXT{\the\font}\ipa\char'015\NEXT}%
\def\crossd{\protect\pcrossd}
\def\pbard{\edef\NEXT{\the\font}\ipa\char'016\NEXT}%
\def\bard{\protect\pbard}
\def\pslashd{\edef\NEXT{\the\font}\ipa\char'017\NEXT}%
\def\slashd{\protect\pslashd}
\def\phookd{\edef\NEXT{\the\font}\ipa\char'020\NEXT}%
\def\hookd{\protect\phookd}
\def\ptaild{\edef\NEXT{\the\font}\ipa\char'021\NEXT}%
\def\taild{\protect\ptaild}
\def\pdz{\edef\NEXT{\the\font}\ipa\char'022\NEXT}%
\def\dz{\protect\pdz}
\def\peth{\edef\NEXT{\the\font}\ipa\char'023\NEXT}%
\def\eth{\protect\peth}
\def\pscd{\edef\NEXT{\the\font}\ipa\char'024\NEXT}%
\def\scd{\protect\pscd}

%% E-type shapes:
\def\pschwa{\edef\NEXT{\the\font}\ipa\char'025\NEXT}%
\def\schwa{\protect\pschwa}
\def\per{\edef\NEXT{\the\font}\ipa\char'026\NEXT}%
\def\er{\protect\per}
\def\preve{\edef\NEXT{\the\font}\ipa\char'027\NEXT}%
\def\reve{\protect\preve}
\def\pniepsilon{\edef\NEXT{\the\font}\ipa\char'030\NEXT}%
\def\niepsilon{\protect\pniepsilon}
\def\prevepsilon{\edef\NEXT{\the\font}\ipa\char'031\NEXT}%
\def\revepsilon{\protect\prevepsilon}
\def\phookrevepsilon{\edef\NEXT{\the\font}\ipa\char'032\NEXT}%
\def\hookrevepsilon{\protect\phookrevepsilon}
\def\pclosedrevepsilon{\edef\NEXT{\the\font}\ipa\char'033\NEXT}%
\def\closedrevepsilon{\protect\pclosedrevepsilon}

%% G-type shapes:
\def\pscriptg{\edef\NEXT{\the\font}\ipa\char'034\NEXT}%
\def\scriptg{\protect\pscriptg}
\def\phookg{\edef\NEXT{\the\font}\ipa\char'035\NEXT}%
\def\hookg{\protect\phookg}
\def\pscg{\edef\NEXT{\the\font}\ipa\char'036\NEXT}%
\def\scg{\protect\pscg}
\def\pnigamma{\edef\NEXT{\the\font}\ipa\char'037\NEXT}
\def\nigamma{\protect\pnigamma}
\def\pipagamma{\edef\NEXT{\the\font}\ipa\char'040\NEXT}%
\def\ipagamma{\protect\pipagamma}
\def\pbabygamma{\edef\NEXT{\the\font}\ipa\char'041\NEXT}%
\def\babygamma{\protect\pbabygamma}

%% H-type shapes:
\def\phv{\edef\NEXT{\the\font}\ipa\char'042\NEXT}%
\def\hv{\protect\phv}
\def\pcrossh{\edef\NEXT{\the\font}\ipa\char'043\NEXT}%
\def\crossh{\protect\pcrossh}
\def\phookh{\edef\NEXT{\the\font}\ipa\char'044\NEXT}%
\def\hookh{\protect\phookh}
\def\phookheng{\edef\NEXT{\the\font}\ipa\char'045\NEXT}%
\def\hookheng{\protect\phookheng}
\def\pinvh{\edef\NEXT{\the\font}\ipa\char'046\NEXT}%
\def\invh{\protect\pinvh}

%% I-type shapes:
\def\pbari{\edef\NEXT{\the\font}\ipa\char'047\NEXT}%
\def\bari{\protect\pbari}
\def\pdlbari{\edef\NEXT{\the\font}\ipa\char'050\NEXT}% ``dotless bar i''
\def\dlbari{\protect\pdlbari}
\def\pniiota{\edef\NEXT{\the\font}\ipa\char'051\NEXT}%
\def\niiota{\protect\pniiota}
\def\psci{\edef\NEXT{\the\font}\ipa\char'052\NEXT}%
\def\sci{\protect\psci}
\def\pbarsci{\edef\NEXT{\the\font}\ipa\char'053\NEXT}% ``barred small cap i''
\def\barsci{\protect\pbarsci}

%% J-type shape:
\def\pinvf{\edef\NEXT{\the\font}\ipa\char'054\NEXT}%
\def\invf{\protect\pinvf}

%% L-type shapes:
\def\ptildel{\edef\NEXT{\the\font}\ipa\char'055\NEXT}%
\def\tildel{\protect\ptildel}
\def\pbarl{\edef\NEXT{\the\font}\ipa\char'056\NEXT}%
\def\barl{\protect\pbarl}
\def\platfric{\edef\NEXT{\the\font}\ipa\char'057\NEXT}%
\def\latfric{\protect\platfric}
\def\ptaill{\edef\NEXT{\the\font}\ipa\char'060\NEXT}%
\def\taill{\protect\ptaill}
\def\plz{\edef\NEXT{\the\font}\ipa\char'061\NEXT}%
\def\lz{\protect\plz}
\def\pnilambda{\edef\NEXT{\the\font}\ipa\char'062\NEXT}%
\def\nilambda{\protect\pnilambda}
\def\pcrossnilambda{\edef\NEXT{\the\font}\ipa\char'063\NEXT}%
\def\crossnilambda{\protect\pcrossnilambda}

%% M-type shapes:
\def\plabdentalnas{\edef\NEXT{\the\font}\ipa\char'064\NEXT}%
\def\labdentalnas{\protect\plabdentalnas}
\def\pinvm{\edef\NEXT{\the\font}\ipa\char'065\NEXT}%
\def\invm{\protect\pinvm}
\def\plegm{\edef\NEXT{\the\font}\ipa\char'066\NEXT}%
\def\legm{\protect\plegm}

%% N-type shapes:
\def\pnj{\edef\NEXT{\the\font}\ipa\char'067\NEXT}%
\def\nj{\protect\pnj}
\def\peng{\edef\NEXT{\the\font}\ipa\char'070\NEXT}%
\def\eng{\protect\peng}
\def\ptailn{\edef\NEXT{\the\font}\ipa\char'071\NEXT}%
\def\tailn{\protect\ptailn}
\def\pscn{\edef\NEXT{\the\font}\ipa\char'072\NEXT}%
\def\scn{\protect\pscn}

%% O-type shapes:
\def\pclickb{\edef\NEXT{\the\font}\ipa\char'073\NEXT}%
\def\clickp{\protect\pclickp}
\def\pbaro{\edef\NEXT{\the\font}\ipa\char'074\NEXT}%
\def\baro{\protect\pbaro}
\def\popeno{\edef\NEXT{\the\font}\ipa\char'075\NEXT}%
\def\openo{\protect\popeno}
\def\pniomega{\edef\NEXT{\the\font}\ipa\char'076\NEXT}%
\def\niomega{\protect\pniomega}
\def\pclosedniomega{\edef\NEXT{\the\font}\ipa\char'077\NEXT}%
\def\closedniomega{\protect\pclosedniomega}
\def\poo{\edef\NEXT{\the\font}\ipa\char'100\NEXT}%
\def\oo{\protect\poo}

%% P-type shapes:
\def\pbarp{\edef\NEXT{\the\font}\ipa\char'101\NEXT}%
\def\barp{\protect\pbarp}
\def\pthorn{\edef\NEXT{\the\font}\ipa\char'102\NEXT}%
\def\thorn{\protect\pthorn}
\def\pniphi{\edef\NEXT{\the\font}\ipa\char'103\NEXT}%
\def\niphi{\protect\pniphi}

%% Q-type shapes: (none)

%% R-type shapes:
\def\pflapr{\edef\NEXT{\the\font}\ipa\char'104\NEXT}%
\def\flabr{\protect\pflabr}
\def\plegr{\edef\NEXT{\the\font}\ipa\char'105\NEXT}%
\def\legr{\protect\plegr}
\def\ptailr{\edef\NEXT{\the\font}\ipa\char'106\NEXT}%
\def\tailr{\protect\ptailr}
\def\pinvr{\edef\NEXT{\the\font}\ipa\char'107\NEXT}%
\def\invr{\protect\pinvr}
\def\ptailinvr{\edef\NEXT{\the\font}\ipa\char'110\NEXT}%
\def\tailinvr{\protect\ptailinvr}
\def\pinvlegr{\edef\NEXT{\the\font}\ipa\char'111\NEXT}%
\def\invlegr{\protect\pinvlegr}
\def\pscr{\edef\NEXT{\the\font}\ipa\char'112\NEXT}%
\def\scr{\protect\pscr}
\def\pinvscr{\edef\NEXT{\the\font}\ipa\char'113\NEXT}%
\def\invscr{\protect\pinvscr}

%% S-type shapes:
\def\ptails{\edef\NEXT{\the\font}\ipa\char'114\NEXT}%
\def\tails{\protect\ptails}
\def\pesh{\edef\NEXT{\the\font}\ipa\char'115\NEXT}%
\def\esh{\protect\pesh}
\def\pcurlyesh{\edef\NEXT{\the\font}\ipa\char'116\NEXT}%
\def\curlyesh{\protect\pcurlyesh}
\def\pnisigma{\edef\NEXT{\the\font}\ipa\char'117\NEXT}%
\def\nisigma{\protect\pnisigma}

%% T-type shapes:
\def\ptailt{\edef\NEXT{\the\font}\ipa\char'120\NEXT}%
\def\tailt{\protect\ptailt}
\def\ptesh{\edef\NEXT{\the\font}\ipa\char'121\NEXT}%
\def\tesh{\protect\ptesh}
\def\pclickt{\edef\NEXT{\the\font}\ipa\char'122\NEXT}%
\def\clickt{\protect\pclickt}
\def\pnitheta{\edef\NEXT{\the\font}\ipa\char'123\NEXT}%
\def\nitheta{\protect\pnitheta}

%% U-type shapes:
\def\pbaru{\edef\NEXT{\the\font}\ipa\char'124\NEXT}%
\def\baru{\protect\pbaru}
\def\pslashu{\edef\NEXT{\the\font}\ipa\char'125\NEXT}%
\def\slashu{\protect\pslashu}
\def\pniupsilon{\edef\NEXT{\the\font}\ipa\char'126\NEXT}%
\def\niupsi;on{\protect\pniupsilon}
\def\pscu{\edef\NEXT{\the\font}\ipa\char'127\NEXT}%
\def\scu{\protect\pscu}
\def\pbarscu{\edef\NEXT{\the\font}\ipa\char'130\NEXT}%
\def\barscu{\protect\pbarscu}

%% V-type shape:
\def\pscriptv{\edef\NEXT{\the\font}\ipa\char'131\NEXT}%
\def\scriptv{\protect\pscriptv}

%% W-type shape:
\def\pinvw{\edef\NEXT{\the\font}\ipa\char'132\NEXT}%
\def\invw{\protect\pinvw}

%% X-type shape:
\def\pnichi{\edef\NEXT{\the\font}\ipa\char'133\NEXT}%
\def\nichi{\protect\pnichi}

%% Y-type shapes:
\def\pinvy{\edef\NEXT{\the\font}\ipa\char'134\NEXT}%
\def\invy{\protect\pinvy}
\def\pscy{\edef\NEXT{\the\font}\ipa\char'135\NEXT}%
\def\scy{\protect\pscy}

%% Z-type shapes:
\def\pcurlyz{\edef\NEXT{\the\font}\ipa\char'136\NEXT}%
\def\curlyz{\protect\pcurlyz}
\def\ptailz{\edef\NEXT{\the\font}\ipa\char'137\NEXT}%
\def\tailz{\protect\ptailz}
\def\pyogh{\edef\NEXT{\the\font}\ipa\char'140\NEXT}%
\def\yogh{\protect\pyogh}
\def\pcurlyyogh{\edef\NEXT{\the\font}\ipa\char'141\NEXT}%
\def\curlyyogh{\protect\pcurlyyogh}

%% ?-type shapes:
\def\pglotstop{\edef\NEXT{\the\font}\ipa\char'142\NEXT}%
\def\glotstop{\protect\pglotstop}
\def\prevglotstop{\edef\NEXT{\the\font}\ipa\char'143\NEXT}%
\def\revglotstop{\protect\prevglotstop}
\def\pinvglotstop{\edef\NEXT{\the\font}\ipa\char'144\NEXT}%
\def\invglotstop{\protect\pinvglotstop}
\def\pejective{\edef\NEXT{\the\font}\ipa\char'145\NEXT}%
\def\ejective{\protect\pejective}
\def\preveject{\edef\NEXT{\the\font}\ipa\char'146\NEXT}%
\def\reveject{\protect\preveject}

%% 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\pdental#1{\oalign{#1\crcr
          \hidewidth{\ipa\char'147}\hidewidth}}
\def\dental{\protect\pdental}

\def\pupt{\edef\NEXT{\the\font}\ipa\char'154\NEXT}%   These are IPA pointers
\def\upt{\protect\pupt}
\def\pdownt{\edef\NEXT{\the\font}\ipa\char'155\NEXT}%
\def\downt{\protect\pdownt}
\def\pleftt{\edef\NEXT{\the\font}\ipa\char'156\NEXT}%
\def\leftt{\protect\pleftt}
\def\prightt{\edef\NEXT{\the\font}\ipa\char'157\NEXT}%
\def\rightt{\protect\prightt}

         %  These are American versions of t-bars
\def\pupp{\edef\NEXT{\the\font}\ipa\char'164\NEXT}
\def\upp{\protect\pupp}
\def\pdownp{\edef\NEXT{\the\font}\ipa\char'165\NEXT}%
\def\downp{\protect\pdownp}
\def\pleftp{\edef\NEXT{\the\font}\ipa\char'166\NEXT}%
\def\leftp{\protect\pleftp}
\def\prightp{\edef\NEXT{\the\font}\ipa\char'167\NEXT}%
\def\rightp{\protect\prightp}

\def\pstress{\edef\NEXT{\the\font}\ipa\char'150\NEXT}%     primary stress
\def\stress{\protect\pstress}
\def\psecstress{\edef\NEXT{\the\font}\ipa\char'151\NEXT}%  secondary stress
\def\secstress{\protect\psecstress}

\def\psyllabic{\edef\NEXT{\the\font}\ipa\char'152\NEXT}%   syllabic marker
\def\syllabic{\protect\psyllabic}

\def\pcorner{\edef\NEXT{\the\font}\ipa\char'153\NEXT}%
\def\corner{\protect\pcorner}

         % American equivalent: raised dot
\def\phalflength{\edef\NEXT{\the\font}\ipa\char'160\NEXT}
\def\halflength{\protect\phalflength}
         %     American equivalent: colon
\def\plength{\edef\NEXT{\the\font}\ipa\char'161\NEXT}
\def\length{\protect\plength}

\def\punderdots{\edef\NEXT{\the\font}\ipa\char'162\NEXT}%
\def\underdots{\protect\punderdots}

         %       ``reversed apostrophe'', p. 216
\def\pain{\edef\NEXT{\the\font}\ipa\char'163\NEXT}
\def\ain{\protect\pain}

\def\poverring{\edef\NEXT{\the\font}\ipa\char'170\NEXT}%
\def\overring{\protect\poverring}
\def\punderring{\edef\NEXT{\the\font}\ipa\char'171\NEXT}%
\def\underring{\protect\punderring}

\def\popen{\edef\NEXT{\the\font}\ipa\char'172\NEXT}%
\def\open{\protect\popen}

\def\pmidtilde{\edef\NEXT{\the\font}\ipa\char'173\NEXT}%
\def\midtilde{\protect\pmidtilde}
\def\pundertilde{\edef\NEXT{\the\font}\ipa\char'174\NEXT}%
\def\undertilde{\protect\pundertilde}

\def\punderwedge{\edef\NEXT{\the\font}\ipa\char'175\NEXT}%
\def\underwedge{\protect\punderwedge}

\def\ppolishhook{\edef\NEXT{\the\font}\ipa\char'176\NEXT}%
\def\polishhook{\protect\ppolishhook}

\def\punderarch#1{\oalign{#1\crcr
          \hidewidth{\ipa\char'177}\hidewidth}}
\def\underarch{\protect\punderarch}

%% AND that's it for the diacritics.

\endinput