%=======================================
%  Vocal Tract Animation Demo
%=======================================
\documentclass{article}
\usepackage{VocalTract}
\pagestyle{empty}

\begin{document}
%\input{vtLatex_TimeParams} % Use this file of Parameters otherwise I will use the codebook in Style file
\psset{yunit=1.5cm,xunit=1.5cm}
\begin{animateinline}[poster=first,loop,controls]{1}%
\multiframe{\Nframes}{IndexStepVocalTract=0+1}{
\begin{pspicture}(0,-0.5)(6.5,8)
\def\BreathType{0.5}  % Normal Breathing [0.1 to 0.9]
%=========== BreathTypeIncreaseLinearly ====
%\FPset\accelerBreath{0.00556}
%\FPmul\BreathType\IndexStepVocalTract\accelerBreath
%\FPadd\BreathType\BreathType{0.1}
\SetOscAmp{\IndexStepVocalTract}{\BreathType}                % For Breath
\UpdateRespOscillation    % For Breath 
\UpdateVocalTract{\IndexStepVocalTract}         % Update Vocal Tract in the respective time   
\VocalChords              % Show VCords
\StomachCompartment       % Show Stomach Compartment   
\rput(1.75,7){\ShowPhonemesGerman{\IndexStepVocalTract}}  % Show the phonemes transcriptions
\ShowPressure{\IndexStepVocalTract}  % Show Pressure as Red Space
\rput(2,0){\ShowLinearTubes{\IndexStepVocalTract}\VocalChords}  % The linear model next to the human 
\rput(2.5,0){\ShowParameters}  % Explain the parameters
%------------ Grid and Axes Labels --------------
%\uput[45](0,8){$\times$ 10 cm}
%\uput[45](3,0){$\times$ 10 cm}
%\psgrid[gridcolor=blue,subgridcolor=gray,gridlabels=7pt,subgriddiv=10](0,0)(5,12) % subgriddiv=4,griddots=10,
%------------------------------------------------
\end{pspicture}
} % Multiframe
\end{animateinline}
\end{document}