% extraipa.sty: TIPA optinal package for ExtIPA and VoQS
% Copyright 2002 FUKUI Rei
%
% This program may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.2
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.2 or later is part of all distributions of LaTeX 
% version 1999/12/01 or later.
%
% This program consists of all files listed in Manifest.txt.
%
% Version 1.0 1996/06/10
% Version 1.1 2001/12/31
%

\RequirePackage{tipa}[2001/12/31 TIPA version 1.1]
\RequirePackage{tipx}[2001/12/31 TIPX version 1.1]

% Labial Spreading
\newcommand\spreadlips[1]{\tipxloweraccent[.1ex]{10}{#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[.1ex]%
  {\nrsuper{\nrsuper{\tipaencoding \textupstep}}}{#1}}

% Sliding Articulation
\newcommand\sliding[1]{\tipxloweraccent[.1ex]{9}{#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
