1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
%=======================================
% 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}
|