% extraipa.sty -- TIPA optinal package for extIPA and VoQS
% 1996/06/10 FUKUI Rei

\RequirePackage{tipa}[1996/06/10 TIPA version 1.0]

% Labial Spreading
\newcommand\spreadlips[1]{\tipaLoweraccent[.3ex]%
  {\nrsuper{\nrsuper{$\leftrightarrow$}}}{#1}}

% Overbridge (Dentolabial)
\newcommand\overbridge[1]{\tipaupperaccent[.2ex]{17}{#1}}

% Bi-bridge (Interdental/Bidental}
\newcommand\bibridge[1]{\tipaupperaccent[.2ex]{17}%
  {\tipaloweraccent[0ex]{17}{#1}}}

% Subscript Double Bar (Alveolar)
\newcommand\subdoublebar[1]{\tipaloweraccent[.05ex]{9}%
  {\tipaloweraccent[.3ex]{9}{#1}}}

% Subscript Double Vertical Line (Strong Articulation)
\newcommand\subdoublevert[1]{\tipaLoweraccent[.2ex]%
  {\hbox{\tipaencoding\char34\kern-.06em\char34}}{#1}}

% Subscript Corner (Weak Articulation)
\newcommand\subcorner[1]{\tipaloweraccent[.2ex]{94}{#1}}

% Whistled Articulation
\newcommand\whistle[1]{\tipaLoweraccent[.15ex]%
  {\nrsuper{\nrsuper{$\uparrow$}}}{#1}}

% Sliding Articulation
\newcommand\sliding[1]{\tipaLoweraccent[.3ex]%
  {\nrsuper{\nrsuper{$\rightarrow$}}}{#1}}

% Crossed tilde (Denasal)
\newcommand\crtilde[1]{\tipaupperaccent[-.5ex]{143}%
  {\tipaupperaccent[.1ex]{3}{#1}}}

% Dotted Tilde (Nasal Escape)
\newcommand\dottedtilde[1]{\tipaUpperaccent[-.55ex]%
  {\hbox{.\kern-.12em\raise.66ex\hbox{.}}}%
  {\tipaupperaccent[.12ex]{3}{#1}}}

% Double Tilde (Velopharyngeal Friction)
\newcommand\doubletilde[1]{\tipaupperaccent[-.2ex]{3}%
  {\tipaupperaccent{3}{#1}}}

% Partial Voiceless
\newcommand\partvoiceless[1]{\tipaloweraccent[-.4ex]{6}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding\char21\kern.2em\char20}}{#1}}}

% Initial Partial Voiceless
\newcommand\inipartvoiceless[1]{\tipaloweraccent[-.4ex]{6}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding\char21\kern.2em
  \setbox\tw@\hbox{\char20}\kern\wd\tw@}}{#1}}}

% final Partial Voiceless
\newcommand\finpartvoiceless[1]{\tipaloweraccent[-.4ex]{6}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding
  \setbox\tw@\hbox{\char21}\kern\wd\tw@\kern.2em\char20}}{#1}}}

% Partial Voicing
\newcommand\partvoice[1]{\tipaloweraccent[-.4ex]{7}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding\char21\kern.2em\char20}}{#1}}}

% Initial Partial Voicing
\newcommand\inipartvoice[1]{\tipaloweraccent[-.4ex]{7}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding\char21\kern.2em
  \setbox\tw@\hbox{\char20}\kern\wd\tw@}}{#1}}}

% Final Partial Voicing
\newcommand\finpartvoice[1]{\tipaloweraccent[-.4ex]{7}%
  {\tipaLoweraccent[.2ex]{\hbox{\tipaencoding
  \setbox\tw@\hbox{\char21}\kern\wd\tw@\kern.2em\char20}}{#1}}}

% Subscript Left Pointer (Right Offset Jaw Voice)
\newcommand\sublptr[1]{\tipaloweraccent[.2ex]{189}{#1}}

% Subscript Right Pointer (left Offset Jaw Voice)
\newcommand\subrptr[1]{\tipaloweraccent[.2ex]{190}{#1}}

\endinput
