%
% tsipa.sty: Macro-definitions for TSIPA font
%
% Version 1.0 <25 Dec 1992>
% Copyright(C) 1992 by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun
%

%
% logo
%
\def\tsipa{{\sf TSIPA}}

%
% macros who work behind the scenes
%
\def\barthickness{.0305556em} % 11/20u# = 1/18em * 11/20

\def\clap#1#2{{\setbox0\hbox{#1}\dimen0\wd0
 \setbox0\hbox{#2}\ifdim\wd0>\dimen0 \dimen0\wd0 \fi \leavevmode
 \hbox to\dimen0{\hbox to\dimen0{\hss#1\hss}\hss\hbox to\dimen0{\hss#2\hss}}}}

\def\accentbox#1{{\setbox0\hbox{#1}\dimen0\ht0
 \advance\dimen0 by -1ex
 \vbox to \dimen0{\hbox to 0pt{\hss\box0\hss}\vss}}}

\def\upperaccent{\@ifnextchar[{\upper@accent}{\upper@accent[0pt]}}
\def\loweraccent{\@ifnextchar[{\lower@accent}{\lower@accent[0pt]}}

\def\upper@accent[#1]#2#3{{\setbox0\hbox{#3}\leavevmode
 \vbox{\hsize\wd0\offinterlineskip
  \hbox to\wd0{\hss\accentbox{#2}\hss}
  \kern#1
  \hbox to\wd0{#3}}}}

\def\lower@accent[#1]#2#3{{\setbox0\hbox{#3}\leavevmode
 \vtop{\hsize\wd0\offinterlineskip
  \hbox to\wd0{#3}
  \kern#1
  \hbox to\wd0{\hss\accentbox{#2}\hss}}}}


%
% definitions for ipa entries
%
\def\turna{{\ipafonti\char"00}}                    % Turned A
\def\cursa{{\ipafonti\char"01}}                    % Cursive A
\def\turncursa{{\ipafonti\char"02}}                % Turned Cursive A
\def\turnv{{\ipafonti\char"03}}                    % Turned V
\def\hooktopb{{\ipafonti\char"04}}                 % Hooktop B
\def\scb{{\ipafonti\char"05}}                      % Small Capital B
\def\ipabeta{{\ipafonti\char"06}}                  % Beta

\def\hooktopc{{\iparoman c}\kern-.13889em\hooktop} % Hooktop C

\def\curlytailc{{\ipafonti\char"07}}               % Curly-tail C
\def\stretchc{{\ipafonti\char"08}}                 % Stretched C
\def\hooktopd{{\ipafonti\char"09}}                 % Hooktop D
\def\rtaild{{\ipafonti\char"0A}}                   % Right-tail D
\def\dzdigraph{{\iparoman d\kern-.18em z}}         % D-Z digraph
\def\dyoghdigraph{{\ipafonti\char"0B}}             % D-Yogh Digraph

\def\dcurlytailzdigraph{{\iparoman d}\kern-.18em\curlytailz}
                                                   % D-Curly-tail-Z digraph

\def\eth{{\ipafonti\char"0C}}                      % Eth
\def\schwa{{\ipafonti\char"0D}}                    % Schwa
\def\rhookschwa{{\ipafonti\char"0E}}               % Right-hook Schwa
\def\reve{{\ipafonti\char"0F}}                     % Reversed E
\def\ipaepsilon{{\ipafonti\char"10}}               % Epsilon
\def\closeepsilon{{\ipafonti\char"11}}             % Closed Epsilon
\def\revepsilon{{\ipafonti\char"12}}               % Reversed Epsilon
\def\closerevepsilon{{\ipafonti\char"13}}          % Closed Reversed Epsilon
\def\ipag{{\ipafonti\char"14}}                     % Lower-case G
\def\hooktopg{{\ipafonti\char"15}}                 % Hooktop G
\def\scg{{\ipafonti\char"16}}                      % Small Capital G

\def\hooktopscg{\scg\kern-.17em\hooktop}           % Hooktop Small Capital G

\def\ipagamma{{\ipafonti\char"17}}                 % Gamma
\def\babygamma{{\ipafonti\char"18}}                % Baby Gamma
\def\ramshorns{{\ipafonti\char"19}}                % Ram's Horns

\def\crossh{{\setbox0\hbox{\iparoman h}\leavevmode
 \hbox to\wd0{\raise.7\ht0\hbox{\vrule height\barthickness width.27778em}\hss
 \box0}}}                                          % Crossed H

\def\hooktoph{{\ipafonti\char"1A}}                 % Hooktop H
\def\hooktopheng{{\ipafonti\char"1B}}              % Hooktop Heng
\def\turnh{{\ipafonti\char"1C}}                    % Turned H
\def\sch{{\ipafonti\char"1D}}                      % Small Capital H

\def\bari{{\setbox0\hbox{\iparoman i}\leavevmode
 \hbox to\wd0{%
  \raise.5ex\hbox to\wd0{\hss\vrule height\barthickness width.22222em\hss}\hss
  \box0}}}                                         % Barred I

\def\ipaiota{{\ipafonti\char"1E}}                  % Iota
\def\sci{{\ipafonti\char"1F}}                      % Small Capital I
\def\curlytailj{{\ipafonti\char"20}}               % Curly-tail J

\def\oldbardotlessj{{\setbox0\hbox{\ipafonti\char"21}\leavevmode
 \hbox to\wd0{\raise.1ex\hbox to\wd0{\hss
  \vrule height\barthickness width.26em\hss}\hss
  \box0}}}                                         % Old Barred Dotless J

\def\bardotlessj{{\setbox0\hbox{\ipafonti\char"21}\leavevmode
 \hbox to\wd0{\raise.5ex\hbox to\wd0{\hss
  \vrule height\barthickness width.26em\hss}\hss
  \box0}}}                                         % Barred Dotless J

\def\hooktopbardotlessj{{\ipafonti\char"22}}       % Hooktop Barred Dotless J
\def\hooktopk{{\ipafonti\char"23}}                 % Hooktop K
\def\turnk{{\ipafonti\char"24}}                    % Turned K

\def\ltilde{\clap{\iparoman l}{\lower.6ex\hbox to .4444em{\hss\char'176\hss}}}
                                                   % L with Tilde
\def\beltl{{\ipafonti\char"25}}                    % Belted L
\def\rtaill{{\ipafonti\char"26}}                   % Right-tail L
\def\scl{{\ipafonti\char"27}}                      % Small Capital L
\def\oldlyoghdigraph{{\ipafonti\char"28}}          % Old L-Yogh Digraph

\def\lyoghdigraph{{\iparoman l}\kern-.18em\yogh}   % L-Yogh Digraph

\def\ipalambda{{\ipafonti\char"29}}                % Lambda

\def\crosslambda{{\setbox0\hbox{\ipalambda}\leavevmode
 \hbox to\wd0{\ipalambda\hss \hbox{\raise.9ex\hbox to\wd0{\hss
  \vrule height\barthickness width .27778em\hss}}}}} % Crossed Lambda

\def\ltailm{{\ipafonti\char"2A}}                   % Left-tail M (at right)
\def\turnm{{\ipafonti\char"2B}}                    % Turned M
\def\turnmrleg{{\ipafonti\char"2C}}                % Turned M, Right Leg
\def\nrleg{{\ipafonti\char"2D}}                    % N, Right Leg
\def\ltailn{{\ipafonti\char"2E}}                   % Left-tail N (at left)
\def\eng{{\ipafonti\char"2F}}                      % Eng
\def\rtailn{{\ipafonti\char"30}}                   % Right-tail N
\def\scn{{\ipafonti\char"31}}                      % Small Capital N
\def\bullseye{{\ipafonti\char"32}}                 % Bull's Eye

\def\baro{{\setbox0\hbox{\iparoman o}\leavevmode
 \hbox to\wd0{%
  \raise.48ex\hbox to\wd0{\hss\vrule height\barthickness width.33333em\hss}\hss
  \box0}}}                                         % Barred O

\def\scoedigraph{{\ipafonti\char"33}}              % Small Capital O-E Digraph
\def\openo{{\ipafonti\char"34}}                    % Open O
\def\closeomega{{\ipafonti\char"35}}               % Closed Omega
\def\hooktopp{{\ipafonti\char"36}}                 % Hooktop P
\def\ipaphi{{\ipafonti\char"37}}                   % Phi
\def\hooktopq{{\ipafonti\char"38}}                 % Hooktop Q
\def\fishhookr{{\ipafonti\char"39}}                % Fish-hook R
\def\longlegr{{\ipafonti\char"3A}}                 % Long-leg R
\def\turnlonglegr{{\ipafonti\char"3B}}             % Turned Long-leg R
\def\rtailr{{\ipafonti\char"3C}}                   % Right-tail R
\def\turnr{{\ipafonti\char"3D}}                    % Turned R
\def\turnrrtail{{\ipafonti\char"3E}}               % Turned R, Right Tail
\def\scr{{\ipafonti\char"3F}}                      % Small Capital R
\def\invscr{{\ipafonti\char"40}}                   % Inverted Small Capital R

\def\rtails{{\setbox0\hbox{\iparoman s}\leavevmode
 \hbox to\wd0{\kern-.05555ex\oldrhook\hss s}}}     % Right-tail S (at left)

\def\esh{{\ipafonti\char"41}}                      % Esh
\def\curlytailesh{{\ipafonti\char"42}}             % Curly-tail Esh
\def\hooktopt{{\ipafonti\char"43}}                 % Hooktop T

\def\longpalhook{{\setbox0\hbox{\palhook}\leavevmode
 \hbox to\wd0{\lower1.2ex\hbox{\ipafonti\char'136}\hss\box0}}}

\def\lhookt{{\setbox0\hbox{\iparoman t}\leavevmode
 \hbox to\wd0{t\hss\longpalhook\kern-.02em}}}      % Left-hook T

\def\rtailt{{\ipafonti\char"44}}                   % Right-tail T
\def\tsdigraph{{\ipafonti\char"45}}                % T-S Digraph

\def\teshdigraph{{\iparoman t}\kern-.18em\esh}     % T-Esh Digraph
\def\tcurlytailcdigraph{{\iparoman t}\kern-.16667em\curlytailc}
                                                   % T-Curly-tail-C Digraph

\def\turnt{{\ipafonti\char"46}}                    % Turned T
\def\ipatheta{{\ipafonti\char"47}}                 % Theta

\def\baru{{\setbox0\hbox{\iparoman u}\leavevmode
 \hbox to\wd0{%
  \raise.45ex\hbox to\wd0{\hss\vrule height\barthickness width.5em\hss}\hss
  \box0}}}                                         % Barred U

\def\ipaupsilon{{\ipafonti\char"48}}               % Upsilon
\def\cursv{{\ipafonti\char"49}}                    % Cursive V
\def\turnw{{\ipafonti\char"4A}}                    % Turned W
\def\ipachi{{\ipafonti\char"4B}}                   % Chi
\def\turny{{\ipafonti\char"4C}}                    % Turned Y
\def\scy{{\ipafonti\char"4D}}                      % Small Capital Y
\def\curlytailz{{\ipafonti\char"4E}}               % Curly-tail Z

\def\rtailz{{\iparoman z}\kern-.14em\oldrhook}     % Right-tail Z

\def\yogh{{\ipafonti\char"4F}}                     % Yogh
\def\curlytailyogh{{\ipafonti\char"50}}            % Curly-tail Yogh

\def\crosstwo{{\setbox0\hbox{\iparoman 2}\leavevmode
 \hbox to\wd0{%
  \raise.5ex\hbox to\wd0{\hss\vrule height\barthickness width.5em\hss}\hss
  \box0}}}                                         % Crossed Two

\def\glotstop{{\ipafonti\char"51}}                 % Glottal Stop

\def\barglotstop{{\setbox0\hbox{\glotstop}\leavevmode
 \hbox to\wd0{%
  \raise.5ex\hbox to\wd0{\hss\vrule height\barthickness width.3em\hss}\hss
  \box0}}}                                         % Barred Glottal Stop

\def\invglotstop{{\ipafonti\char"52}}              % Inverted Glottal Stop
\def\revglotstop{{\ipafonti\char"53}}              % Reversed Glottal Stop

\def\barrevglotstop{{\setbox0\hbox{\revglotstop}\leavevmode
 \hbox to\wd0{%
  \raise.5ex\hbox to\wd0{\hss\vrule height\barthickness width.3em\hss}\hss
  \box0}}}                                     % Barred Reversed Glottal Stop

\def\pipe{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .25em{\hss\vrule height\ht0 width\barthickness\hss}}} % Pipe

\def\doublebarpipe{\clap{\pipe}{\hbox to .4em{\hss
  \setbox0\hbox{\iparoman l}\vbox to\ht0{\hsize.3em
   \vss
   \hrule height\barthickness width.3em
   \kern.1em
   \hrule height\barthickness width.3em
   \vss}\hss}}}                                    % Double-barred Pipe

\def\doublepipe{\pipe\kern-.1em\pipe}              % Double Pipe

\def\curlytaild{{\ipafonti\char"72}}               % Curly-tail D
\def\curlytailn{{\ipafonti\char"73}}               % Curly-tail N
\def\curlytailt{{\ipafonti\char"74}}               % Curly-tail T
\def\lhooktopi{{\ipafonti\char"75}}                % Left-hooktop I
\def\lhooktoplongi{{\ipafonti\char"76}}            % Left-hooktop Long I
\def\vibyi{{\ipafonti\char"77}}                    % Viby I
\def\raisevibyi{{\setbox0\hbox{\ipafonti\char"77\/}\leavevmode
 \raise\dp0\box0}}                                 % Viby I
\def\vibyy{{\ipafonti\char"78}}                    % Viby Y
\def\sca{{\ipafonti\char"79}}                      % Small Capital A
\def\scq{{\ipafonti\char"7A}}                      % Small Capital Q
\def\scu{{\ipafonti\char"7B}}                      % Small Capital U
\def\thorn{{\ipafonti\char"7C}}                    % Thorn
\def\wynn{{\ipafonti\char"7D}}                     % Wynn
\def\italicschwa{{\ipafonti\char"7E}}              % Italic Schwa


%
% suprasegmentals
%
\def\primestress{{\ipafonti\char'136}}             % Vertical Stroke (Superior)
\def\primstress{{\ipafonti\char"5E}}               % Vertical Stroke (Superior)
\def\secstress{{\setbox0\hbox{\ipafonti\char'136}%
 \loweraccent{\ipafonti\char'136}{\hbox to\wd0{\hss}}}}
                                                   % Vertical Stroke (Inferior)
\def\length{{\ipafonti\char"67}}                   % Length Mark
\def\halflength{{\ipafonti\char"68}}               % Half-length Mark
\def\vertline{{\ipafontiii\char'152}}              % Vertical Line
\def\doublevertline{{\ipafontiii\char'153}}        % Double Vertical Line

%
% arrows
%
\def\globrise{{\ipafontiii\char'045}}              % Upward Diagonal Arrow
\def\globfall{{\ipafontiii\char'046}}              % Downward Diagonal Arrow
\def\downarrow{{\ipafontiii\char'043}}             % Down Arrow
\def\uparrow{{\ipafontiii\char'042}}               % Up Arrow

%
% tone bars
%
\def\exhtonebar{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .4em{\hss
  \vbox to\ht0{\hsize.3em\hrule height\barthickness width.4em\vss}%
  \vrule height\ht0 width\barthickness\hss}}}      % Extra-high Tone Bar

\def\exltonebar{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .4em{\hss
  \vbox to\ht0{\vss\hsize.3em\hrule height\barthickness width.4em}%
  \vrule height\ht0 width\barthickness\hss}}}      % Extra-low Tone Bar

\def\htonebar{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .4em{\hss
  \vbox to\ht0{\vss\hsize.3em\hrule height\barthickness width.4em\vss\vss\vss}%
  \vrule height\ht0 width\barthickness\hss}}}      % High Tone Bar

\def\ltonebar{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .4em{\hss
  \vbox to\ht0{\vss\vss\vss\hsize.3em\hrule height\barthickness width.4em\vss}%
  \vrule height\ht0 width\barthickness\hss}}}      % Low Tone Bar

\def\mtonebar{{\setbox0\hbox{\iparoman l}\leavevmode
 \hbox to .4em{\hss
  \vbox to\ht0{\vss\hsize.3em\hrule height\barthickness width.4em\vss}%
  \vrule height\ht0 width\barthickness\hss}}}      % Mid Tone Bar


%
% other diacritcal marks
%
\def\ipaacute#1{\upperaccent{\char'023}{#1}}       % Acute Accent (over)
\def\ipagrave#1{\upperaccent{\char'022}{#1}}       % Grave Accent (over)
\def\varacute#1{\loweraccent[.2ex]{\ipafonti\char"6D}#1} % Acute Accent (under)
\def\vargrave#1{\loweraccent[.2ex]{\ipafonti\char"6E}#1} % Grave Accent (under)
\def\doubleacute#1{\upperaccent{\char'023\kern-.33333em\char'023}{#1}}
                                                   % Double Acute Accent (over)
\def\doublegrave#1{\upperaccent{\char'022\kern-.33333em\char'022}{#1}}
                                                   % Double Grave Accent (over)
\def\macron#1{\upperaccent{\char'026}{#1}}         % Macron
\def\underbar#1{\loweraccent[.3ex]{\char'026}{#1}} % Under-bar
\def\overring#1{\upperaccent{\char'027}{#1}}       % Over-ring
\def\underring#1{\loweraccent[.3ex]{\char'027}{#1}} % Under-ring
\def\ipawedge#1{\upperaccent{\char'024}{#1}}       % Wedge
\def\subwedge#1{\loweraccent[.3ex]{\char'024}{#1}} % Subscript Wedge
\def\umlaut#1{\upperaccent{\char'177}{#1}}         % Umlaut
\def\subumlaut#1{\loweraccent[.3ex]{\char'177}{#1}} % Subscript Umlaut
\def\ipatilde#1{\upperaccent{\char'176}{#1}}       % Superscript Tilde
\def\subtilde#1{\loweraccent[.3ex]{\char'176}{#1}} % Subscript Tilde
\def\ipabreve#1{\upperaccent{\char'025}{#1}}       % Breve
\def\subarch#1{\loweraccent[.2ex]{\ipafonti\char"5F}#1} % Subscript Arch
\def\overdot#1{\upperaccent{\char'137}{#1}}        % Over-dot
\def\underdot#1{\loweraccent[.3ex]{\char'137}{#1}} % Under-dot
\def\subbridge#1{\loweraccent[.2ex]{\ipafonti\char"57}#1} % Subscript Bridge
\def\invsubbridge#1{\loweraccent[.2ex]{\ipafonti\char"58}{#1}}
                                                   % Inverted Subscript Bridge
\def\subsquare#1{\loweraccent[.2ex]{\ipafonti\char"59}#1} % Subscript Square
\def\subrhalfring#1{\loweraccent[.2ex]{\ipafonti\char"5A}{#1}}
                                                   % Subscript Right Half-ring
\def\sublhalfring#1{\loweraccent[.2ex]{\ipafonti\char"5B}{#1}}
                                                   % Subscript Left Half-ring
\def\subplus#1{\loweraccent[.2ex]{\ipafonti\char"5C}#1} % Subscript Plus
\def\overcross#1{\upperaccent{\ipafonti\char"5D}#1} % Over-cross
\def\raising#1{\loweraccent[.2ex]{\ipafonti\char"63}#1} % Raising Sign
\def\lowering#1{\loweraccent[.2ex]{\ipafonti\char"64}#1} % Lowering Sign
\def\advancing#1{\loweraccent[.2ex]{\ipafonti\char"65}#1} % Advancing Sign
\def\retracting#1{\loweraccent[.2ex]{\ipafonti\char"66}#1} % Retracting Sign
\def\syllabic#1{\loweraccent[.1ex]{\ipafonti\char'136}{#1}} % Syllabicity Mark
\def\circum#1{\upperaccent{\char'136}{#1}}         % Circumflex
\def\subw#1{\loweraccent[.2ex]{\ipafonti\char"6C}#1} % Subscript W
\def\superimposetilde#1{\clap{#1}{\lower1ex\hbox{\ipafonti\char'142}}}
                                                   % Superimposed Tilde
\def\polhook#1{\loweraccent[-1ex]{\ipafonti\char"71}{#1}} % Polish Hook
\def\cedille#1{\loweraccent[-1ex]{\char'030}{#1}}  % Cedille
\def\seagull#1{\loweraccent[.2ex]{\ipafonti\char"56}#1} % Seagull
\def\corner{{\ipafonti\char"61}}                   % Corner
\def\rectangle{{\ipafonti\char"70}}                % Rectangle
\def\rhook{{\ipafonti\char"60}}                    % Right Hook

\def\hooktop{{\ipafonti\char"54}}                  % Hooktop
\def\oldrhook{{\ipafonti\char"55}}                 % Old Right-hook
\def\longoldrhook{{\setbox0\hbox{\oldrhook}\leavevmode
 \hbox to\wd0{\lower1.2ex\hbox{\ipafonti\char'136}\hss\box0}}}
                                                   % Long Old Right-hook

\def\revapostrophe{{\ipafonti\char"6B}}            % Reversed Apostrophe
\def\palhook{{\ipafonti\char"6F}}                  % Palatalization Hook

\def\bottomtiebar#1{\loweraccent[0ex]{\ipafonti\char'151}{#1}} % Bottom Tie Bar
\def\toptiebar#1{\upperaccent[.8ex]{\ipafonti\char'152}{#1}} % Top Tie Bar

\def\super#1{\leavevmode
 \raise.8ex\hbox{\ifcat#1a\ipascriptroman #1%
 \else\let\ipadummy\ipafonti\let\ipafonti\ipascriptfonti #1%
 \let\ipafonti\ipadummy\fi}}

\def\superh{\leavevmode\raise.8ex\hbox{\ipascriptroman h}}
\def\superj{\leavevmode\raise.8ex\hbox{\ipascriptroman j}}
\def\superl{\leavevmode\raise.8ex\hbox{\ipascriptroman l}}
\def\supern{\leavevmode\raise.8ex\hbox{\ipascriptroman n}}
\def\supers{\leavevmode\raise.8ex\hbox{\ipascriptroman s}}
\def\superw{\leavevmode\raise.8ex\hbox{\ipascriptroman w}}
\def\superx{\leavevmode\raise.8ex\hbox{\ipascriptroman x}}
\def\supery{\leavevmode\raise.8ex\hbox{\ipascriptroman y}}
\def\supergamma{\leavevmode\raise.8ex\hbox{\ipascriptfonti\char'027}}
\def\superglotstop{\leavevmode\raise.8ex\hbox{\ipascriptfonti\char'121}}
\def\superrevglotstop{\leavevmode\raise.8ex\hbox{\ipascriptfonti\char'123}}


%
% kerns
%
\def\K{\kern.05em}
\def\KK{\kern.1em}
\def\KKK{\kern.2em}

%
% fonts
%
%                  10pt   11pt   12pt
% -----------------------------------
% \tiny             5pt    6pt    6pt
% \scriptsize       7pt    8pt    8pt
% \footnotesize     8pt    9pt   10pt
% \small            9pt   10pt   11pt
% \normalsize      10pt   11pt   12pt
% \large           12pt   12pt   14pt
% \Large           14pt   14pt   17pt
% \LARGE           17pt   17pt   20pt
% \huge            20pt   20pt   25pt
% \Huge            25pt   25pt   25pt

\font\CMRxxv   cmr10   \@magscale5
\font\CMRxx    cmr10   \@magscale4
\font\CMRxvii  cmr10   \@magscale3
\font\CMRxiv   cmr10   \@magscale2
\font\CMRxii   cmr10   \@magscale1
\font\CMRxi    cmr10   \@halfmag
\font\CMRx     cmr10
\font\CMRix    cmr10   \@ptscale9
\font\CMRviii  cmr10   \@ptscale8
\font\CMRvii   cmr10   \@ptscale7
\font\CMRvi    cmr10   \@ptscale6
\font\CMRv     cmr10   \@ptscale5

\font\IPAxxv   tsipa10 \@magscale5
\font\IPAxx    tsipa10 \@magscale4
\font\IPAxvii  tsipa10 \@magscale3
\font\IPAxiv   tsipa10 \@magscale2
\font\IPAxii   tsipa10 \@magscale1
\font\IPAxi    tsipa10 \@halfmag
\font\IPAx     tsipa10
\font\IPAix    tsipa10 \@ptscale9
\font\IPAviii  tsipa10 \@ptscale8
\font\IPAvii   tsipa10 \@ptscale7
\font\IPAvi    tsipa10 \@ptscale6
\font\IPAv     tsipa10 \@ptscale5

\input ts1\@ptsize pt.sty
\normalsize
