summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/vocaltract
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-03-13 22:39:05 +0000
committerKarl Berry <karl@freefriends.org>2012-03-13 22:39:05 +0000
commit649d975f9fdc7400e017fe94445d9faf338fa8df (patch)
treed282681dbe272cb6fd771f33b8bcc62259fab99b /Master/texmf-dist/tex/latex/vocaltract
parentb92609b93bc7e9649fd001bd7a0c9585da130691 (diff)
new pstricks package vocaltract (13mar12)
git-svn-id: svn://tug.org/texlive/trunk@25629 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/vocaltract')
-rw-r--r--Master/texmf-dist/tex/latex/vocaltract/VocalTract.sty928
1 files changed, 928 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/vocaltract/VocalTract.sty b/Master/texmf-dist/tex/latex/vocaltract/VocalTract.sty
new file mode 100644
index 00000000000..356fcff07ae
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/vocaltract/VocalTract.sty
@@ -0,0 +1,928 @@
+% VocalTract.sty
+% Release version 1
+%------------------------------------------------------------
+% Vocal Tract Animation package for Latex:
+% - for upper and lower respiration system
+% - with Matlab Interoperability
+%
+% Copyright:
+%
+% This material is subject to the LaTeX Project Public License.
+% See http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html
+% for the details of that license.
+%
+% Thermi, Greece, 13-03-2012
+%-------------------------------------------------------------
+
+% Required Packages
+\usepackage{color}
+\definecolor{pink}{rgb}{.7,.7,.7}
+
+\usepackage{multimedia,multido,animate,fp}
+\usepackage{pstricks,pst-coil}
+\usepackage{arrayjob,ifthen}
+
+% After fp
+\usepackage[point]{fltpoint}
+
+
+%%=====================================================
+%% Maeda Coordinates
+%%=====================================================
+\@ifundefined{SpeakVec}{
+\newarray\SpeakVec
+\readarray{SpeakVec}{%
+%%========================================================================================
+%% 1. Jaw Position 4. Tongue Apex 7. Larynx Height 10. Nasal Cavity
+%% 2. Tongue Position 5. Lip Aperture 8. Glottal Aperture 11. Phoneme Label
+%% 3. Tongue Shape 6. Lip Protrusion 9. Glottal Frequency
+%%========================================================================================
+%% 1 2 3 4 5 6 7 8 9 10 11
+%% JW TP TS TA LA LP LH GA FX NS
+%% 3 3 3 3 3 3 3 3 3 3 Max
+%% 0 0 0 0 0 0 0 0 0 0 Relax
+%% -3 3 -3 -3 -3 -3 -3 -3 -3 -3 Min
+%%========================================================================================
+%------------------------------------------------------------ Vowels -------------
+ 0.5 &-2 & 1 &-2 & 1 & -1 & 0 & 0 & 0 & 0 &i& % 1
+ 0.5 &-2 & 1 &-2 & 0 & 2 & 0 & 0 & 0 & 0 &y& % 2 (\"u)
+ -1 &-1 & 1 &-2 & 1 & -0.5 & 0 & 0 & 0 & 0 &e& % 3
+ -1 &-1 & 1 &-2 & 0 & 2 & 0 & 0 & 0 & 0 &2& % 4 (\"o)
+ -1.5 & 2.5 & 0 &-0.5 & 0 & 2 & 0 & 0 & 0 & 0 &E& % 5 (\"a)
+ -1.5 & 1.5 & 0 & 0.5 & 0.5& -0.5 & 0 & 0 & 0 & 0 &@& % 6 (Schwa)
+ -1.5 & 2.5 & 0 &-0.5 & 0.5& -0.5 & 0 & 0 & 0 & 0 &a& % 7
+ 0.5 & 2 & 1.5 &-2 &-1 & 1.5 & 0 & 0 & 0 & 0 &u& % 8
+ -0.4 & 3.0 & 1.5 & 0 &-0.3& 0 & 0 & 0 & 0 & 0 &o& % 9
+%-------------------------------------------------------------------Unvoiced Cons.--------
+ 0 & 0 & 0 & 0 &-3 & 0 & 0 &-3 & -3 & -3 &p& % 10 % UPlosives
+ 0 & -0.5 &-1 & 2.3 & 0 & 0 & 0 &-3 & -3 & -3 &t& % 11
+ 0 & -1.5 & 3 & -3 & 0 & 0 & 0 &-3 & -3 & -3 &k& % 12
+ 2 & 1 & 0 & 0 &-1.5& -2 & 0 &-3 & -3 & -3 &f& % 13 % UFricatives
+ 2.5 & 0 & 0 & 0.4 & 0 & 0 & 0 &-3 & -3 & -3 &s& % 14
+ 0 & -1 & 3 & -3 & 0 & 0 & 0 &-3 & -3 & -3 &x& % 15
+%----------------------------------------------------------------- Voiced Cons. --------
+ 0 & 0 & 0 & 0 &-3 & 0 &-1 & -1 & 0 & -3 &b& % 16 % VPlosives
+ 0 & -0.5 &-1 & 2.3 & 0 & 0 & 0 & -1 & 0 & -3 &d& % 17
+ 0 & -1.5 & 3 & -3 & 0 & 0 & 0 & -1 & 0 & -3 &g& % 18
+ 1 & 0 & 0 & 3 & 0 & 0 & 0 & -1 & 0 & 0 &r& % 19 % Rolled
+ 0 & -2 & 3 & 3 & 0 & 0 & 0 & -1 & 0 & 0 &l& % 20 % Lateral
+ 0 & 2.3 & 2.5 & -2 & 0 & 0 & 0 & -1 & 0 & 0 &R& % 21 % Approximants
+ 1 & 0 & 2 & 0 & 0 & 0 & 0 & -1 & 0 & 0 &j& % 22
+ 2 & 1 & 0 & 0 &-1.5& -2 & 0 & -1 & 0 & 0 &v& % 23 % VFricatives
+ 2.5 & 0 & 0 & 0.4 & 0 & 0 & 0 & -1 & 0 & 0 &z& % 24
+ 0 & 0 & 0 & 0 &-3 & -1 & 0 & -1 & 0 & 0 &m& % 25 % Nasals
+ 0.5 & 0 & 0 & 3 & 0 & 0 & 0 & -1 & 0 & 0 &n& % 26
+}
+\dataheight=11
+\def\Nframes{27}
+}{}
+%--------------------------------------------------------------------------------------
+% Maeda Loading Factors for
+% Tongue Larynx Lips
+% A[i][0] A[i][1] A[i][2] A[i][3] s_tng[i] u_tng[i vtos[i].x vtos[i].y igd[i].x igd[i].y | A_lrx[i][0,1] s_rlx[i] u_lrx[i] | A_lip[i][0,1,2] s_lip[i] u_lip[i]
+% 10 11,12 13 14 15,16,17 18 19
+\newarray\AMaeda
+\readarray{AMaeda}{%
+ 1.000000 & 0.000000 & 0.000000 & 0.000000 & 0.293351 & 1.105280 & 0 & 0 & 0 & 0 & 1.000000 & 0.000000 & 0.293351 & 1.105280 & 1.000000 & 0.000000 & 0.000000 & 0.293351 & 1.105280 &%
+ -0.464047 & 0.098776 & -0.251690 & 0.228351 & 0.317448 & 4.706277 & 0.980785 &-0.195090 & 10.634367 & 5.134503 & -0.208338 & 0.262446 & 0.440889 & 1.517271 & 0.178244 & -0.395733 & 0.888897 & 0.350522 & 1.301809 &%
+ -0.328015 & 0.337579 & -0.283667 & 0.568234 & 0.473761 & 4.775106 & 0.980785 &-0.195090 & 10.829458 & 6.115289 & 0.127814 & 0.991798 & 0.694961 & -10.051230 & -0.154638 & 0.987971 & 0.000000 & 1.053558 & 1.440946 &%
+ -0.213039 & 0.485565 & -0.283533 & 0.653696 & 1.052688 & 4.239388 & 0.980785 &-0.195090 & 11.024549 & 7.096074 & -0.131840 & 0.300784 & 0.470351 & 4.289589 & -0.217332 & 0.825187 & -0.303429 & 2.268359 & 4.880673 &%
+ -0.302565 & 0.705432 & -0.379044 & 0.392917 & 1.026836 & 3.695193 & 0.980785 &-0.195090 & 11.219639 & 8.076859 & 0.097688 & 0.934267 & 0.701163 & -10.207126 & 0 & 0 & 0 & 0 & 0 &%
+ -0.327806 & 0.786897 & -0.388116 & 0.245703 & 0.891888 & 3.722520 & 0.980785 &-0.195090 & 11.414729 & 9.057644 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.325065 & 0.852409 & -0.285125 & 0.176843 & 0.830590 & 3.873289 & 0.980785 &-0.195090 & 11.609819 & 10.038429 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.325739 & 0.904725 & -0.142602 & 0.138558 & 0.777910 & 3.925084 & 0.980785 &-0.195090 & 11.804910 & 11.019215 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.313741 & 0.926339 & 0.021042 & 0.122976 & 0.773024 & 3.775744 & 0.980785 &-0.195090 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.288138 & 0.924019 & 0.131949 & 0.116762 & 0.757404 & 3.624036 & 1.000000 & 0.000000 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.249008 & 0.909585 & 0.250320 & 0.112433 & 0.734461 & 3.520446 & 0.980785 & 0.195090 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.196936 & 0.882236 & 0.369083 & 0.112396 & 0.706124 & 3.464362 & 0.923880 & 0.382684 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.128884 & 0.830243 & 0.499894 & 0.115700 & 0.674199 & 3.461033 & 0.831470 & 0.555570 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ -0.040825 & 0.730520 & 0.651662 & 0.112048 & 0.635628 & 3.515299 & 0.707107 & 0.707107 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.073420 & 0.543080 & 0.807947 & 0.126204 & 0.600972 & 3.637658 & 0.555570 & 0.831470 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.202726 & 0.230555 & 0.919065 & 0.163735 & 0.598000 & 3.829419 & 0.382684 & 0.923880 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.298853 & -0.162541 & 0.899074 & 0.213884 & 0.657375 & 4.083451 & 0.195090 & 0.980785 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.332785 & -0.491647 & 0.748869 & 0.243163 & 0.776293 & 4.365362 & 0.000000 & 1.000000 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.349955 & -0.681313 & 0.567615 & 0.245295 & 0.890489 & 4.618332 & -0.195090 & 0.980785 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.377277 & -0.771200 & 0.410502 & 0.249425 & 0.969776 & 4.823429 & -0.382684 & 0.923879 & 12.000000 & 12.000000 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.422713 & -0.804874 & 0.270513 & 0.274015 & 0.997716 & 4.905002 & -0.382684 & 0.923880 & 11.076120 & 11.617316 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.474635 & -0.797704 & 0.129324 & 0.314454 & 1.009611 & 4.802065 & -0.382684 & 0.923880 & 10.152241 & 11.234632 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.526087 & -0.746938 & -0.026201 & 0.366149 & 0.991273 & 4.581855 & -0.382684 & 0.923880 & 9.228361 & 10.851950 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.549466 & -0.643572 & -0.190005 & 0.422848 & 0.985804 & 4.317999 & -0.382684 & 0.923880 & 8.304482 & 10.469266 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.494200 & -0.504012 & -0.350434 & 0.488056 & 1.069908 & 4.076241 & -0.382683 & 0.923880 & 7.380602 & 10.086582 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+ 0.448797 & -0.417352 & -0.445410 & 0.500909 & 1.129032 & 3.856664 & -0.382684 & 0.923880 & 6.456723 & 9.703898 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 &%
+}
+\dataheight=19
+
+
+
+
+
+%---------------------------------------------------------------------------------------
+% Recall values from array
+\def\RdVal#1#2#3{%
+\dataheight=11
+\checkSpeakVec(#2,#3)
+\edef#1{\cachedata}}
+
+\def\RdValM#1#2#3{%
+\dataheight=19
+\checkAMaeda(#2,#3)
+\edef#1{\cachedata}}
+
+% -- Tongue -- 1 2 3 4 5 6 7
+% {\vtngCx}{\vtngCy}{\JW}{\TP}{\TS}{\TA}{3}
+\def\TongDepolarLinSys#1#2#3#4#5#6#7{
+% Maeda Linear Transformations by Factor Analysis
+% vA vB vC vD
+%1 = \ATongA*2 + \ATongB*3 + \ATongC*4 + \ATongD*5
+\RdValM{\ATongA}{#7}{1}
+\RdValM{\ATongB}{#7}{2}
+\RdValM{\ATongC}{#7}{3}
+\RdValM{\ATongD}{#7}{4}
+\fpMul\vA{\ATongA}{#3}
+\fpMul\vB{\ATongB}{#4}
+\fpMul\vC{\ATongC}{#5}
+\fpMul\vD{\ATongD}{#6}
+\fpAdd\v\vA\vB
+\fpAdd\v\v\vC
+\fpAdd\v\v\vD
+ %------ Depolarize --------
+\RdValM{\stng}{#7}{5}
+\RdValM{\utng}{#7}{6}
+\RdValM{\vtosx}{#7}{7}
+\RdValM{\vtosy}{#7}{8}
+\RdValM{\igdx}{#7}{9}
+\RdValM{\igdy}{#7}{10}
+%
+% Estimate v_tng[i] from v
+\fpMul\vtng{\stng}{\v}
+\fpAdd\vtng\vtng{\utng}
+% Estimate x1 y1 from vtos[i].x vtos[i].y igd[i].x igd[i].y
+% x1
+\fpMul{#1}\vtosx\vtng
+\fpAdd{#1}{#1}{\igdx}
+\fpSub{#1}{20}{#1} % Reverse orientation
+% y1
+\fpMul{#2}{\vtosy}\vtng
+\fpAdd{#2}{#2}{\igdy}
+% Tranform to Ververidis system
+\LinMov2Verver{#1}{#2}
+%\psdot(#1,#2)
+}
+
+
+%----- Larynx ---------
+%1 i=1 (xFront) ,2 (yFront), 3(xBack),4(yBack)
+%2. v = A_lrx[i][0]*p[0] + A_lrx[i][1]*p[1]
+%3. v_lrx[i] = s_lrx[i]*v + u_lrx[i]; %
+%
+% 1 2 3 4
+% {\vlrxXorY}{\JW}{\LH}{3} % X are 2,4 Y are 3,5
+\def\LrxDepolarLinSys#1#2#3#4{
+% Maeda Linear Transformations by Factor Analysis
+% vA vB
+%1 = \ALrxA*2 + \ALrxB*3
+\RdValM{\ALrxA}{#4}{11}
+\RdValM{\ALrxB}{#4}{12}
+\fpMul\vLA{\ALrxA}{#2}
+\fpMul\vLB{\ALrxB}{#3}
+\fpAdd\vL\vLA\vLB
+% %------ Depolarize --------
+\RdValM{\slrx}{#4}{13}
+\RdValM{\ulrx}{#4}{14}
+%%
+%% Estimate v_tng[i] from v
+\fpMul#1{\slrx}{\vL}
+\fpAdd#1#1{\ulrx}
+
+%% if X then reverse
+%% Tranform to Ververidis system
+\def\dum{3}
+\ifthenelse{#4=2 \or #4=4}
+{\fpSub{#1}{8}{#1}\LinMov2Verver{#1}{\dum}}{\fpAdd{#1}{12}{#1}\LinMov2Verver{\dum}{#1}}
+%\rput(3,#4){#1}
+}
+
+
+%-------- Lips -------
+% JW LA LP
+%1. v = A_lip[i][0]*p[0] + A_lip[i][1]*p[1] + A_lip[i][2]*p[2]
+%2. v_lip[i] = s_lip[i]*v + u_lip[i] %
+%
+% 1 2 3 4 5
+% {\vlip}{\JW}{\LA}{\LP}{3}
+\def\LipDepolarLinSys#1#2#3#4#5{
+% vA vB vC
+%1 = \ALipA*2 + \ALipB*3 + \ALipC*4
+\RdValM{\ALipA}{#5}{15}
+\RdValM{\ALipB}{#5}{16}
+\RdValM{\ALipC}{#5}{17}
+\fpMul\vA{\ALipA}{#2}
+\fpMul\vB{\ALipB}{#3}
+\fpMul\vC{\ALipC}{#4}
+\fpAdd\vLip\vA\vB
+\fpAdd\vLip\vLip\vC
+% %------ Depolarize --------
+\RdValM{\slip}{#5}{18}
+\RdValM{\ulip}{#5}{19}
+%%
+%% Estimate v_tng[i] from v
+\fpMul#1{\slip}{\vLip}
+\fpAdd#1#1{\ulip}
+%
+%% if X then reverse
+%% Tranform to Ververidis system
+%\def\dum{3}
+%\ifthenelse{#4=2 \or #4=4}
+%{\fpSub{#1}{8}{#1}\LinMov2Verver{#1}{\dum}}{\fpAdd{#1}{12}{#1}\LinMov2Verver{\dum}{#1}}
+%\rput(3,#5){#1}
+}
+
+
+
+%-------------- Transform to Ververidis Coordinates --------
+\def\LinMov2Verver#1#2{
+% X
+\fpSub{#1}{#1}{1.0465}
+\fpDiv{#1}{#1}{13.1774}
+\fpAdd{#1}{#1}{1.04}
+% Y
+\fpSub{#2}{#2}{1.8}
+\fpDiv{#2}{#2}{12.3704}
+\fpAdd{#2}{#2}{4.5}
+}
+
+
+
+
+%============= Breath Oscillation Params ====
+\def\OscAmp{0}
+\newcommand{\SetOscAmp}[2]{%
+ \FPmul\OscAmp{#1}{0.314}
+ \FPadd\OscAmp{\OscAmp}{1.57}
+ \FPcos\OscAmp{\OscAmp} % cos(i*2pi/20 + pi/2)/2
+ \FPmul\OscAmp{\OscAmp}{#2}
+ \UpdateRespOscillation % For Breath
+}
+
+
+\def\VarOut{0}
+\def\ScaledOsc{0}
+\newcommand{\SetScaledOsc}[2]{%
+ \FPmul{\ScaledOsc}{#1}{\OscAmp}
+ \FPadd{#2}{\ScaledOsc}{#2}
+}
+
+
+%========== Upper Respiration Sustem Cords
+%
+% Nose - Esophagus (Static)
+\def\NoseBaseX{2.325} \def\NoseBaseY{6}
+\def\NoseEdgeX{2.4375} \def\NoseEdgeY{6.1}
+\def\NoseBoneUpX{2.28} \def\NoseBoneUpY{6.37}
+\def\NoseBoneDownX{2.43} \def\NoseBoneDownY{6.15}
+\def\NoseBoneInX{2.32} \def\NoseBoneInY{6.2}
+\def\NasalCavFrontX{2.175} \def\NasalCavFrontY{6.4}
+\def\NasalCavCeilX{1.8} \def\NasalCavCeilY{6.5}
+\def\NasalCavBackX{1.35} \def\NasalCavBackY{6.4}
+\def\NasalSphenoidUpX{1.35} \def\NasalSphenoidUpY{6.3}
+\def\NasalSphenoidDownX{1.275} \def\NasalSphenoidDownY{6.2}
+\def\NasalPortStaticUpX{1.07} \def\NasalPortStaticUpY{5.7} %1.05,5.7
+\def\NasalPortStaticDownX{1.04} \def\NasalPortStaticDownY{5.55} %1.05,5.7
+%
+\def\PharynxBackUpStaticX{1.04} \def\PharynxBackUpStaticY{5.43} %1.0875,5.3
+\def\PharynxBackMiddleStaticX{1.07} \def\PharynxBackMiddleStaticY{5.14}
+\def\PharynxBackDownStaticX{1.1} \def\PharynxBackDownStaticY{4.81}
+%
+\def\EsophagusBackX{0.9375} \def\EsophagusBackY{4.3}
+\def\EsophagusFrontX{1.0875} \def\EsophagusFrontY{4.3}
+\def\EsophagusPortX{1.2} \def\EsophagusPortY{4.7} %1.27,4.9 ok
+%
+\def\LarynxFrontX{1.35} \def\LarynxFrontY{4.3}
+\def\LarynxBackX{1.2} \def\LarynxBackY{4.3}
+%
+
+%
+% Jaw and Jugular notch
+\def\JugularNotchX{1.65} \def\JugularNotchY{4.2}
+\def\AdamsAppleX{1.725} \def\AdamsAppleY{4.8}
+\def\ThyroidX{1.7} \def\ThyroidY{4.9}
+%
+%Lips
+\def\LipUpOutX{\LipOutX} \def\LipUpOutY{\LipUpY}
+\def\LipUpInX{\LipInX} \def\LipUpInY{\LipUpY}
+\def\LipDownOutX{\LipOutX} \def\LipDownOutY{\LipDownY}
+\def\LipDownInX{\LipInX} \def\LipDownInY{\LipDownY}
+
+% Up
+\def\LipUpBaseOutX{2.25} \def\LipUpBaseOutY{5.8}
+
+%
+% Oral-Nasal Separation
+\def\NasalCavAlvX{2.025} \def\NasalCavAlvY{6.05}
+\def\NasalCavPalX{1.725} \def\NasalCavPalY{6.05}
+\def\NasalCavVelarX{1.275} \def\NasalCavVelarY{5.9}
+%
+ \def\NasalCavMovY{5.72}
+\def\UvularX{1.31} \def\UvularY{5.73}
+\def\VelarX{1.4} \def\VelarY{5.75}
+\def\PalatalX{1.66} \def\PalatalY{5.85}
+%
+\def\PostPostAlveolarX{1.83} \def\PostPostAlveolarY{5.81}
+\def\PostAlveolarX{1.95} \def\PostAlveolarY{5.725}
+\def\AlveolarX{2.02} \def\AlveolarY{5.675}
+
+
+% Epiglotis to Tongue to DownTeeth
+\def\HyoidUpX{1.255} \def\HyoidUpY{4.9}
+\def\HyoidDownX{1.260} \def\HyoidDownY{4.8}
+\def\EpiglotisBaseX{1.275} \def\EpiglotisBaseY{5.1}
+\def\EpiglotisX{1.2} \def\EpiglotisY{5.3}
+\def\TongueBaseX{1.35} \def\TongueBaseY{5.1}
+\def\TonguePharynxX{1.275} \def\TonguePharynxY{5.4}
+%
+\def\TongueUvularX{1.3125}
+\def\TongueVelarX{1.5}
+\def\TonguePalatalX{1.725}
+\def\TonguePostAlvX{1.875}
+%
+\def\TongueBaseFrontX{2} \def\TongueBaseFrontY{5.3}
+% Teeth
+% up
+\def\TeethUpBaseInX{2.1} \def\TeethUpBaseInY{5.675}
+\def\TeethUpEdgeX{2.185} \def\TeethUpEdgeY{5.57}
+\def\TeethUpBaseOutX{2.2125} \def\TeethUpBaseOutY{5.7}
+% down
+\def\TeethDownBaseInX{2.1} \def\TeethDownBaseInY{5.4}
+\def\TeethDownEdgeX{2.175} \def\TeethDownEdgeY{5.5}
+\def\TeethDownBaseOutX{2.2} \def\TeethDownBaseOutY{5.35}
+%
+\def\SubTongueSalX{2.025} \def\SubTongueSalY{5.3}
+
+
+
+
+%============= LowerRespiration System Cords
+\def\TracheaFrontX{1.35}\def\TracheaFrontY{4}
+\def\TracheaBackX{1.2} \def\TracheaBackY{4}
+%
+\def\LungsChestLevelFrontX{2.1} \def\LungsChestLevelFrontY{2.5}
+\def\LungsChestLevelBackX{0.45} \def\LungsChestLevelBackY{2.5}
+%
+\def\LungsSternLevelBackX{0.3} \def\LungsSternLevelBackY{1.2}
+\def\LungsSternLevelBackXHelp{0.375} \def\LungsSternLevelBackYHelp{1.3}
+%
+\def\LungsSternLevelFrontX{2.1} \def\LungsSternLevelFrontY{1.2}
+\def\LungsSternLevelFrontXHelp{2.1} \def\LungsSternLevelFrontYHelp{1.3}
+%
+\def\LungsSternLevelMiddleX{1.125} \def\LungsSternLevelMiddleY{1.5}
+%
+\def\SkinChestFrontX{2.25} \def\SkinChestFrontY{2.7}
+%
+\def\DiaphragmX{1.125} \def\DiaphragmY{1.3}
+
+
+
+%\pscustom[fillstyle=gradient,gradmidpoint=5,gradangle=45, gradbegin=white,gradend=red,showpoints=true,linecolor=black,linewidth=0pt]{
+
+
+%================== ANDROID =====================
+\newcommand{\BackToNoseEdge}{
+% Back
+\pscurve[linearc=0.3](0,0.5)(0.15,2)(0.75,5)
+% Back Head to Eyes
+\pscurve[linearc=0.3](0.75,5)(0.3,6.5)(0.75,7.3)(1.125,7.5)(1.875,7.4)(2.25,7)(2.25,6.5)(\NoseBoneUpX,\NoseBoneUpY)
+% Nose
+\pscurve(\NoseBoneUpX,\NoseBoneUpY)(\NoseBoneDownX,\NoseBoneDownY)
+}
+
+% Nose Edge to Lip Up
+%[linearc=0.3,showpoints=false,linecolor=black,linewidth=1pt]
+\newcommand{\NoseEdgeToLipUp}{
+\pscurve(\NoseBoneDownX,\NoseBoneDownY)(\NoseEdgeX,\NoseEdgeY)(\NoseBaseX,\NoseBaseY)(\LipUpBaseOutX,\LipUpBaseOutY)}
+
+% LipDown to JugularNotch
+\newcommand{\LipDowntoJugularNotch}{
+\pscurve(\LipDownOutX,\LipDownOutY)(\ChinUpX,\ChinUpY)(\ChinMiddleX,\ChinMiddleY)(\ChinDownX,\ChinDownY)(\ThyroidX,\ThyroidY)(\AdamsAppleX,\AdamsAppleY)(\JugularNotchX,\JugularNotchY)}
+% Chest
+\newcommand{\Chest}{
+\pscurve[linearc=0.2](\JugularNotchX,\JugularNotchY)(\SkinChestFrontX,\SkinChestFrontY)(2.25,0.5)}
+
+
+% Diaphragm
+\newcommand{\Diaphragm}{\pscurve[linearc=1.5](0,0.5)(\DiaphragmX,\DiaphragmY)(2.25,0.5)}
+
+%
+%
+% Nose, Nasal Cavity, Nasal Port
+% NasalUpperCav To Pharynx
+\newcommand{\NasalCavUpToPharynx}{
+\pscurve(\NoseBoneDownX,\NoseBoneDownY)(\NoseBoneInX,\NoseBoneInY)(\NasalCavFrontX,\NasalCavFrontY)(\NasalCavCeilX,\NasalCavCeilY)(\NasalCavBackX,\NasalCavBackY)(\NasalSphenoidUpX,\NasalSphenoidUpY)(\NasalSphenoidDownX,\NasalSphenoidDownY)
+(\NasalPortStaticUpX,\NasalPortStaticUpY)(\NasalPortStaticDownX,\NasalPortStaticDownY)(\PharynxBackUpStaticX,\PharynxBackUpStaticY)}
+%
+% Pharynx, Esophagus, EsoPort
+\newcommand{\PharynxToEsophag}{
+\psline(\PharynxBackUpStaticX,\PharynxBackUpStaticY)(\PharynxBackMiddleStaticX,\PharynxBackMiddleStaticY)(\PharynxBackDownStaticX,\PharynxBackDownStaticY)%
+(\EsophagusBackX,\EsophagusBackY)(\EsophagusBackX,3.5)%
+(\EsophagusFrontX,3.75)(\EsophagusFrontX,\EsophagusFrontY)%
+(\EsophagusPortX,\EsophagusPortY)(\ChordsJointBackX,\ChordsJointBackY)}
+%
+% LarynxBack, Trachea, Lungs, LarynxFront
+\newcommand{\LarynxLungsChords}{
+\psline(\ChordsJointBackX,\ChordsJointBackY)(\TracheaBackX,\TracheaBackY)(\LungsChestLevelBackX,\LungsChestLevelBackY)(\LungsSternLevelBackX,\LungsSternLevelBackY)
+%
+\pscurve(\LungsSternLevelBackX,\LungsSternLevelBackY)(\LungsSternLevelBackXHelp,\LungsSternLevelBackYHelp)(\LungsSternLevelMiddleX,\LungsSternLevelMiddleY)(\LungsSternLevelFrontX,\LungsSternLevelFrontY)
+%
+\pscurve(\LungsSternLevelFrontX,\LungsSternLevelFrontY)(\LungsSternLevelFrontXHelp,\LungsSternLevelFrontYHelp)(\LungsChestLevelFrontX,\LungsChestLevelFrontY)(\TracheaFrontX,\TracheaFrontY)(\LarynxFrontX,\LarynxFrontY)
+%
+\psline(\LarynxFrontX,\LarynxFrontY)(\ChordsJointFrontX,\ChordsJointFrontY)
+}
+%
+% Vocal Chords
+\newcommand{\VocalChords}{%
+{
+%
+\FPadd\MidXChords{\ChordsJointBackX}{\ChordsJointFrontX}
+\FPdiv\MidXChords{\MidXChords}{2}
+\FPsub\GlotalWidth\ChordsJointFrontX\ChordsJointBackX
+\FPdiv\GlotalWidth{\GlotalWidth}{2}
+%
+\fpAdd\ChordsJointFrontBackAveY\ChordsJointBackY\ChordsJointFrontY
+\fpDiv\ChordsJointFrontBackAveY\ChordsJointFrontBackAveY{2}
+%
+\pscustom[fillstyle=solid,fillcolor=pink]{
+\psellipse[linewidth=0.2pt](\MidXChords,\ChordsJointFrontBackAveY)(\GlotalWidth,0.05)
+\psellipse[linewidth=0.2pt](\MidXChords,\ChordsJointFrontBackAveY)(\GlotalWidth,\GlottalAperture)}
+%
+\psellipse*[linecolor=white,linewidth=0.2pt](\MidXChords,\ChordsJointFrontBackAveY)(\GlotalWidth,\GlottalAperture)
+\psellipse[linewidth=0.2pt](\MidXChords,\ChordsJointFrontBackAveY)(\GlotalWidth,\GlottalAperture)
+\FPmul\MinusFx\FX{-2}
+\ifthenelse{\FX>2}{%
+\pscoil[coilaspect=0,coilheight=0.7,coilwidth=0.1,coilarm=0.02,linewidth=\ChordsFrequency pt]%
+(\ChordsJointBackX,\ChordsJointBackY)(\ChordsJointFrontX,\ChordsJointFrontY)}{}
+}%
+}
+%
+% Oral-Nasal Border (NoseBase, NasalFloor, OralCeil, TeethUp, LipUp
+\newcommand{\OralNasalBorder}{
+\pscurve[linewidth=0.5pt](\NoseBaseX,\NoseBaseY)(\NasalCavAlvX,\NasalCavAlvY)(\NasalCavPalX,\NasalCavPalY)(\NasalCavVelarX,\NasalCavVelarY)
+\pscurve[linewidth=0.5pt](\NasalCavVelarX,\NasalCavVelarY)(\NasalCavMovX,\NasalCavMovY)(\UvularX,\UvularY)(\VelarX,\VelarY)(\PalatalX,\PalatalY)(\PostPostAlveolarX,\PostPostAlveolarY)(\PostAlveolarX,\PostAlveolarY)(\AlveolarX,\AlveolarY)
+\psline[linewidth=0.5pt](\AlveolarX,\AlveolarY)(\TeethUpBaseInX,\TeethUpBaseInY)(\TeethUpEdgeX,\TeethUpEdgeY)(\TeethUpBaseOutX,\TeethUpBaseOutY)
+\pscurve[linewidth=0.5pt](\TeethUpBaseOutX,\TeethUpBaseOutY)(\LipUpInX,\LipUpInY)(\LipUpOutX,\LipUpOutY)(\LipUpBaseOutX,\LipUpBaseOutY)(\NoseBaseX,\NoseBaseY)
+}
+%
+% Chords to TongueAtPharynx
+\newcommand{\ChordsToTongue}{
+\pscurve[curvature=0.2 -0.5 -0.5](\ChordsJointFrontX,\ChordsJointFrontY)(\HyoidDownX,\HyoidDownY)(\HyoidUpX,\HyoidUpY)(\EpiglotisBaseX,\EpiglotisBaseY)
+(\EpiglotisX,\EpiglotisY)(\TongueBaseX,\TongueBaseY)}
+%
+% Tongue at Pharynx to Tongue Base Front
+\newcommand{\Tongue}{
+\pscurve(\TonguePharynxX,\TonguePharynxY)(\TongueUvularX,\TongueUvularY)
+(\TongueVelarX,\TongueVelarY)(\TonguePalatalX,\TonguePalatalY)(\TonguePostAlvX,\TonguePostAlvY)(\TongueAlveolarX,\TongueAlveolarY)(\TongueBaseFrontX,\TongueBaseFrontY)}
+
+% Tongue Base Front to Down Lips
+\newcommand{\TeethDownLips}{
+\psline(\TongueBaseFrontX,\TongueBaseFrontY)(\SubTongueSalX,\SubTongueSalY)
+(\TeethDownBaseInX,\TeethDownBaseInY)
+(\TeethDownEdgeX,\TeethDownEdgeY)(\TeethDownBaseOutX,\TeethDownBaseOutY)
+\pscurve[curvature=1 0.5 -0.5](\TeethDownBaseOutX,\TeethDownBaseOutY)
+(\LipDownInX,\LipDownInY)(\LipDownOutX,\LipDownOutY)}
+
+
+%========================
+% Stomach Compartment
+%========================
+\newcommand{\StomachCompartment}{
+\psline[linearc=0](0,0.5)(0,0)(2.25,0)(2.25,0.5)
+\FPsub\DiaphragmYALittleSmaller\DiaphragmY{0.05}
+\pscustom[fillcolor=white,fillstyle=solid]{
+\pscurve[linearc=0.1](0.9,\DiaphragmYALittleSmaller)(0.9,.7)(0.525,0.4) % Back Stomach
+ (1.125,0.2) % Bottom Point of Stomach
+ (1.725,0.4)(1.275,.7)(1.2,\DiaphragmY)} % Front Stomach
+
+% ---- Electrode -----
+%\psline[linecolor=gray,linewidth=1pt](1.35,\DiaphragmY)(1.35,1.9) % Up Elect Sensor
+%\psline[linewidth=1pt](1.35,0.5)(1.35,\DiaphragmY) % Down Electr Sensor
+}
+
+
+
+
+
+%=======================
+% Red Flesh
+%=======================
+
+%Begin from 0,0.5 and end there also
+\newcommand{\DrawRedFlesh}
+{\pscustom[fillstyle=solid,fillcolor=pink]
+{
+\BackToNoseEdge
+\NasalCavUpToPharynx
+\PharynxToEsophag
+%
+% Larynx until LungsBackStern
+\psline(\ChordsJointBackX,\ChordsJointBackY)(\TracheaBackX,\TracheaBackY)(\LungsChestLevelBackX,\LungsChestLevelBackY)(\LungsSternLevelBackX,\LungsSternLevelBackY)
+%
+% LungsBackStern to LungsFrontStern
+\pscurve(\LungsSternLevelBackX,\LungsSternLevelBackY)(\LungsSternLevelBackXHelp,\LungsSternLevelBackYHelp)(\LungsSternLevelMiddleX,\LungsSternLevelMiddleY)(\LungsSternLevelFrontX,\LungsSternLevelFrontY)
+% LungsFrontStern to Trachea
+\pscurve(\LungsSternLevelFrontX,\LungsSternLevelFrontY)(\LungsSternLevelFrontXHelp,\LungsSternLevelFrontYHelp)(\LungsChestLevelFrontX,\LungsChestLevelFrontY)(\TracheaFrontX,\TracheaFrontY)(\LarynxFrontX,\LarynxFrontY)
+% Larynx to Chords
+\psline(\LarynxFrontX,\LarynxFrontY)(\ChordsJointFrontX,\ChordsJointFrontY)
+% Chords to Epiglotis
+\pscurve[curvature=0.2 -0.5 -0.5](\ChordsJointFrontX,\ChordsJointFrontY)(\HyoidDownX,\HyoidDownY)(\HyoidUpX,\HyoidUpY)(\EpiglotisBaseX,\EpiglotisBaseY)(\EpiglotisX,\EpiglotisY)(\TongueBaseX,\TongueBaseY)
+%TongueBase to TongueFront
+\Tongue
+% Tongue Front to Lips Down
+\TeethDownLips
+% Lips Down to Jugular Notch
+\LipDowntoJugularNotch
+% Jugular Notch to Chest to Stern
+\Chest
+% Stern Diaphragm to Back
+\pscurve[linearc=1.5](2.25,0.5)(\DiaphragmX,\DiaphragmY)(0,0.5)
+}
+}
+
+
+\newcommand{\DrawRedFleshOralNasalBorder}
+{\pscustom[fillstyle=solid,fillcolor=pink,linewidth=0.5pt]
+{
+\OralNasalBorder
+}}
+
+\newcommand{\DrawRedFleshStomach}
+{\pscustom[fillstyle=solid,fillcolor=pink]
+{\Diaphragm
+\psline[linearc=0](2.25,0.5)(2.25,0)(0,0)(0,0.5)
+}}
+
+%===============================
+% Update Respiration Oscillation
+%================================
+\newcommand{\UpdateRespOscillation}{
+ \SetScaledOsc{-0.2}{\LungsChestLevelFrontX}
+ \SetScaledOsc{0.1}{\LungsChestLevelBackX}
+ \SetScaledOsc{0.2}{\LungsSternLevelBackX}
+ \SetScaledOsc{0.4}{\LungsSternLevelBackY}
+ \SetScaledOsc{0.2}{\LungsSternLevelBackXHelp}
+ \SetScaledOsc{0.4}{\LungsSternLevelBackYHelp}
+ \SetScaledOsc{-0.2}{\LungsSternLevelFrontX}
+ \SetScaledOsc{0.3}{\LungsSternLevelFrontY}
+ \SetScaledOsc{-0.2}{\LungsSternLevelFrontXHelp}
+ \SetScaledOsc{0.3}{\LungsSternLevelFrontYHelp}
+ \SetScaledOsc{0.4}{\LungsSternLevelMiddleY}
+ \SetScaledOsc{0.4}{\LungsSternLevelMiddleY}
+ \SetScaledOsc{-0.2}{\SkinChestFrontX}
+ \SetScaledOsc{0.6}{\DiaphragmY}
+}
+
+
+%\rput(0,0){\DiaphragmYLower}
+
+%=============================================
+% Update Vocal Tract from File
+%=============================================
+\newcommand{\UpdateVocalTract}[1]{
+\RdVal{\JW}{#1}{1}
+\RdVal{\TP}{#1}{2}
+\RdVal{\TS}{#1}{3}
+\RdVal{\TA}{#1}{4}
+\RdVal{\LA}{#1}{5}
+\RdVal{\LP}{#1}{6}
+\RdVal{\LH}{#1}{7}
+\RdVal{\GA}{#1}{8}
+\RdVal{\FX}{#1}{9}
+\RdVal{\NS}{#1}{10}
+%% Linear Transfroms of Coordinates from Maeda to Ververidis
+%% [-3,3] to [1.05,1.2]
+%%1 % 3 % 5 % 7 %9
+%%F0 %LA % NC || %UV %VE %PA %PsAy %ALx %ALy || LOx LIx LUy LDy || GA
+%%-----------------------------------------------------------------------------------
+%%0 4.5 1.09 || 5.45 5.6 5.65 5.65 2.025 5.5 || 2.250 2.197 5.58 5.45 || 0 Min (Open)
+%%1 4.8 1.20 || 6.15 5.78 5.84 5.83 2.175 5.68|| 2.360 2.287 5.65 5.6 || 0.04 Max (Closed)
+%-- \NasalCavMovX
+\fpAdd\NSb\NS{3}
+\fpDiv{\NSb}{\NSb}{6}
+\fpMul{\NSb}{\NSb}{0.15}
+\fpAdd{\NasalCavMovX}{\NSb}{1.09}
+%-- \ChordsFrequency
+\fpAdd\FX\FX{3}
+\fpDiv\ChordsFrequency\FX{6}
+%-- \GlottalAperture
+\fpMul\GAb\GA{-1}
+\fpAdd\GAb\GAb{3}
+\fpDiv{\GAb}{\GAb}{6}
+\fpMul{\GlottalAperture}{\GAb}{0.025}
+%-- These are expressed as a linear transformation of the JW,TP,TS,TA,LA,LP,LH
+
+% This is the way for the tongue
+
+% C is Hyoid Down
+\TongDepolarLinSys{\HyoidDownX}{\HyoidDownY}{\JW}{\TP}{\TS}{\TA}{2}
+% D is Hyoid Up
+\TongDepolarLinSys{\HyoidUpX}{\HyoidUpY}{\JW}{\TP}{\TS}{\TA}{3}
+% D is EpiglotisBase
+%\TongDepolarLinSys{\vtngEx}{\vtngEy}{\JW}{\TP}{\TS}{\TA}{4}
+\def\EpiglotisBaseX{\HyoidUpX}
+\def\EpiglotisBaseY{\HyoidUpY}
+%\TongDepolarLinSys{\vtngFx}{\vtngFy}{\JW}{\TP}{\TS}{\TA}{5}
+% G is TongueBase
+\TongDepolarLinSys{\TongueBaseX}{\TongueBaseY}{\JW}{\TP}{\TS}{\TA}{6}
+% H is Tongue Pharynx
+\TongDepolarLinSys{\TonguePharynxX}{\TonguePharynxY}{\JW}{\TP}{\TS}{\TA}{7}
+%\psdot[linecolor=blue,linewidth=4pt](\TonguePharynxX,\TonguePharynxY)
+% I is Epiglotis (x,y are a bit reduced)
+\TongDepolarLinSys{\EpiglotisXa}{\EpiglotisYa}{\JW}{\TP}{\TS}{\TA}{8}
+\fpSub\EpiglotisX\EpiglotisXa{0.03}
+\fpSub\EpiglotisY\EpiglotisYa{0.1}
+%\psdot[linecolor=blue](\EpiglotisX,\EpiglotisY)
+%\TongDepolarLinSys{\vtngJx}{\vtngJy}{\JW}{\TP}{\TS}{\TA}{9}
+%\TongDepolarLinSys{{\vtngKy}{{\vtngKy}{\JW}{\TP}{\TS}{\TA}{10}
+%\TongDepolarLinSys{\vtngLx}{\vtngLy}{\JW}{\TP}{\TS}{\TA}{11}
+% M is Uvular
+\TongDepolarLinSys{\TongueUvularX}{\TongueUvularY}{\JW}{\TP}{\TS}{\TA}{12}
+%\psdot[linecolor=blue](\TongueUvularX,\TongueUvularY)
+%\TongDepolarLinSys{\vtngNx}{\vtngNy}{\JW}{\TP}{\TS}{\TA}{13}
+%\TongDepolarLinSys{\vtngOx}{\vtngOy}{\JW}{\TP}{\TS}{\TA}{14}
+% P is velar
+\TongDepolarLinSys{\TongueVelarX}{\TongueVelarY}{\JW}{\TP}{\TS}{\TA}{15}
+%\psdot[linecolor=blue](\TongueVelarX,\TongueVelarY)
+%\TongDepolarLinSys{\vtngQx}{\vtngQy}{\JW}{\TP}{\TS}{\TA}{16}
+%\TongDepolarLinSys{\vtngRx}{\vtngRy}{\JW}{\TP}{\TS}{\TA}{17}
+%\TongDepolarLinSys{\vtngSx}{\vtngSy}{\JW}{\TP}{\TS}{\TA}{18}
+% T is Palatal
+\TongDepolarLinSys{\TonguePalatalX}{\TonguePalatalY}{\JW}{\TP}{\TS}{\TA}{19} %\def\TonguePalatalY{5.65}
+%\psdot[linecolor=blue](\TonguePalatalX,\TonguePalatalY)
+%\TongDepolarLinSys{\vtngUx}{\vtngUy}{\JW}{\TP}{\TS}{\TA}{20}
+%\TongDepolarLinSys{\vtngVx}{\vtngVy}{\JW}{\TP}{\TS}{\TA}{21}
+% W is TonguePostAlv
+\TongDepolarLinSys{\TonguePostAlvX}{\TonguePostAlvY}{\JW}{\TP}{\TS}{\TA}{22}
+%\psdot[linecolor=blue](\TonguePostAlvX,\TonguePostAlvY)
+\TongDepolarLinSys{\vtngXx}{\vtngXy}{\JW}{\TP}{\TS}{\TA}{23}
+\TongDepolarLinSys{\vtngYx}{\vtngYy}{\JW}{\TP}{\TS}{\TA}{24}
+% Z is TongueAlveolar
+\TongDepolarLinSys{\TongueAlveolarX}{\TongueAlveolarY}{\JW}{\TP}{\TS}{\TA}{25}
+%\psdot[linecolor=blue](\TongueAlveolarX,\TongueAlveolarY)
+%\TongDepolarLinSys{\vtngPhix}{\vtngPhiy}{\JW}{\TP}{\TS}{\TA}{26}
+
+%---------- Chord Joint Front and Back ---------
+\LrxDepolarLinSys{\ChordsJointFrontX}{\JW}{\LH}{2}
+\LrxDepolarLinSys{\ChordsJointFrontY}{\JW}{\LH}{3}
+\LrxDepolarLinSys{\ChordsJointBackX}{\JW}{\LH}{4}
+\LrxDepolarLinSys{\ChordsJointBackY}{\JW}{\LH}{5}
+%------------ Lips --------------------------------
+\LipDepolarLinSys{\vlipA}{\JW}{\LA}{\LP}{2}
+
+\fpDiv\LAVerver\LA{3} % Verver here
+
+\LipDepolarLinSys{\vlipB}{\JW}{\LAVerver}{\LP}{3}
+\LipDepolarLinSys{\vlipC}{\JW}{\LA}{\LP}{4}
+
+\def\LipInX{3.65} % In X
+\fpSub\LipInX{20}\LipInX
+\def\Dumm{0}
+\LinMov2Verver{\LipInX}{\Dumm}
+
+\def\LipUpY{15.18} % Up Y
+\LinMov2Verver{\Dumm}{\LipUpY}
+
+\def\LipOutX{3.65} % Out X
+\fpSub\LipOutX\LipOutX{\vlipA}
+\fpSub\LipOutX{20}\LipOutX
+\LinMov2Verver{\LipOutX}{\Dumm}
+
+\fpSub\LipDownY{15.18}{\vlipB} % Down Y
+\LinMov2Verver{\Dumm}{\LipDownY}
+
+%vlip[1] = 1.3
+%vlip[2] = 1.44
+%vlip[3] = 4.88
+%----------------- JAW Components ----------
+
+\fpAdd\JawRadiiY\JW{-3}
+\fpMul\JawRadiiY\JW{0.015}
+
+\def\ChinDownX{2.25} \fpAdd\ChinDownY{5.1}\JawRadiiY
+\def\ChinMiddleX{2.325} \fpAdd\ChinMiddleY{5.2}\JawRadiiY
+\def\ChinUpX{2.25} \fpAdd\ChinUpY{5.3}\JawRadiiY
+\def\LipDownBaseOutX{2.25} \fpAdd\LipDownBaseOutY{5.4}\JawRadiiY
+
+
+\def\TeethDownBaseInX{2.1} \fpAdd\TeethDownBaseInY{5.4}\JawRadiiY
+\def\TeethDownEdgeX{2.175} \fpAdd\TeethDownEdgeY{5.5}\JawRadiiY
+\def\TeethDownBaseOutX{2.2} \fpAdd\TeethDownBaseOutY{5.35}\JawRadiiY
+%
+\def\SubTongueSalX{2.025} \fpAdd\SubTongueSalY{5.3}\JawRadiiY
+
+
+%
+\BackToNoseEdge
+\NasalCavUpToPharynx
+\PharynxToEsophag
+\LarynxLungsChords
+\Diaphragm
+\Chest
+\LipDowntoJugularNotch
+%
+\NoseEdgeToLipUp
+\OralNasalBorder
+%
+\ChordsToTongue
+
+\Tongue
+\TeethDownLips
+%
+\DrawRedFlesh
+\DrawRedFleshOralNasalBorder
+\DrawRedFleshStomach
+}
+
+%=======================================
+% Plot dots Movable Parts
+%=======================================
+\newcommand{\PlotDotsVocal}{
+\uput[45](\ChordsJointBackX,\ChordsJointBackY){\scriptsize 1.Freq.}
+
+\rput[c](\ChordsJointFrontX,\ChordsJointFrontY){$\bullet$}
+\uput[320](\ChordsJointFrontX,4.7){\scriptsize 2.Larynx Height}
+
+\rput[c](\NasalCavMovX,\NasalCavMovY){$\bullet$}
+\uput[40](\NasalCavMovX,\NasalCavMovY){\scriptsize 3.NasalCav}
+
+\rput[c](\TongueUvularX,\TongueUvularY){$\bullet$}
+\uput[300](\TongueUvularX,\TongueUvularY){\scriptsize 4.Uvular}
+
+\rput[c](\TongueVelarX,\TongueVelarY){$\bullet$}
+\uput[270](\TongueVelarX,\TongueVelarY){\scriptsize 5.Velar}
+
+\rput[c](\TonguePalatalX,\TonguePalatalY){$\bullet$}
+\uput[270](\TonguePalatalX,\TonguePalatalY){\scriptsize 6.Palatal}
+
+\rput[c](\TonguePostAlvX,\TonguePostAlvY){$\bullet$}
+\uput[100](\TonguePostAlvX,\TonguePostAlvY){\scriptsize 7.PostAlv}
+
+\rput[c](\TongueAlveolarX,\TongueAlveolarY){$\bullet$}
+\uput[20](\TongueAlveolarX,\TongueAlveolarY){\scriptsize 8.Alveolar}
+
+\rput[c](\LipUpOutX,\LipUpOutY){$\bullet$}
+\uput[0](\LipUpOutX,\LipUpOutY){\scriptsize 9.LipUpOut}
+\rput[c](\LipDownOutX,\LipDownOutY){$\bullet$}
+\uput[0](\LipDownOutX,\LipDownOutY){\scriptsize 10.LipDownOut}
+
+\rput[c](\LipUpInX,\LipUpInY){$\bullet$}
+\uput[90](\LipUpInX,\LipUpInY){\scriptsize 11.LipUpIn}
+\rput[c](\LipDownInX,\LipDownInY){$\bullet$}
+\uput[270](\LipDownInX,\LipDownInY){\scriptsize 12.LipDownIn}}
+
+
+%============================================
+% Show Phonemes German
+%============================================
+\newcommand{\ShowPhonemesGerman}[1]{
+\RdVal{\PhonemeLabel}{#1}{11}
+\parbox{2cm}{\Large\PhonemeLabel}}
+
+
+%============================================
+% Show Red Pressure
+%============================================
+
+\newcommand\ShowPressure[1]{%
+\RdVal{\PhonemeLabel}{#1}{11}
+% p
+\ifthenelse{\equal{\PhonemeLabel}{p}\or\equal{\PhonemeLabel}{b}}{\pscustom[fillcolor=red,fillstyle=solid]{%
+%% Chords to Tongue Base
+\ChordsToTongue
+%% Tongue at Pharynx to Tongue Base Front
+\Tongue
+% Tongue Base Front to Down Lips In
+\psline(\TongueBaseFrontX,\TongueBaseFrontY)(\SubTongueSalX,\SubTongueSalY)
+(\TeethDownBaseInX,\TeethDownBaseInY)
+(\TeethDownEdgeX,\TeethDownEdgeY)(\TeethDownBaseOutX,\TeethDownBaseOutY)
+\pscurve(\TeethDownBaseOutX,\TeethDownBaseOutY)
+(\LipDownInX,\LipDownInY)
+% LipUpIn to TeethBaseOut
+\pscurve(\LipUpInX,\LipUpInY)(\TeethUpBaseOutX,\TeethUpBaseOutY)
+% TeethBaseOut to Alveolar
+\psline(\TeethUpBaseOutX,\TeethUpBaseOutY)(\TeethUpEdgeX,\TeethUpEdgeY)(\TeethUpBaseInX,\TeethUpBaseInY)(\AlveolarX,\AlveolarY)
+% NasalCavMov to Alveolar
+\pscurve(\AlveolarX,\AlveolarY)(\PostAlveolarX,\PostAlveolarY)(\PostPostAlveolarX,\PostPostAlveolarY)(\PalatalX,\PalatalY)(\VelarX,\VelarY)(\UvularX,\UvularY)(\NasalCavMovX,\NasalCavMovY)
+% NCavPort to Pharynx
+\psline(\NasalCavMovX,\NasalCavMovY)(\NasalPortStaticUpX,\NasalPortStaticUpY)
+(\NasalPortStaticDownX,\NasalPortStaticDownY)(\PharynxBackUpStaticX,\PharynxBackUpStaticY)
+%
+% Pharynx, Esophagus, EsoPort
+\PharynxToEsophag
+% LarynxBack, Trachea, Lungs, LarynxFront
+\LarynxLungsChords
+}}{}
+% t
+\ifthenelse{\equal{\PhonemeLabel}{t} \or \equal{\PhonemeLabel}{d}}{
+\pscustom[fillcolor=red,fillstyle=solid]{%
+%% Chords to Tongue Base
+\ChordsToTongue
+%% Tongue at Pharynx to Tongue Base Front
+\pscurve(\TonguePharynxX,\TonguePharynxY)(\TongueUvularX,\TongueUvularY)
+(\TongueVelarX,\TongueVelarY)(\TonguePalatalX,\TonguePalatalY)(\TonguePostAlvX,\TonguePostAlvY)(\TongueAlveolarX,\TongueAlveolarY)
+%
+\pscurve(\AlveolarX,\AlveolarY)(\PostAlveolarX,\PostAlveolarY)
+(\PostPostAlveolarX,\PostPostAlveolarY)(\PalatalX,\PalatalY)
+(\VelarX,\VelarY)(\UvularX,\UvularY)(\NasalCavMovX,\NasalCavMovY)
+% NCavPort to Pharynx
+\psline(\NasalCavMovX,\NasalCavMovY)(\NasalPortStaticUpX,\NasalPortStaticUpY)
+(\NasalPortStaticDownX,\NasalPortStaticDownY)(\PharynxBackUpStaticX,\PharynxBackUpStaticY)
+(\PharynxBackMiddleStaticX,\PharynxBackMiddleStaticY)(\PharynxBackDownStaticX,\PharynxBackDownStaticY)
+% Pharynx, Esophagus, EsoPort
+\PharynxToEsophag
+% LarynxBack, Trachea, Lungs, LarynxFront
+\LarynxLungsChords
+}}{}
+%
+%k
+\ifthenelse{\equal{\PhonemeLabel}{k} \or \equal{\PhonemeLabel}{g}}{\pscustom[fillcolor=red,fillstyle=solid]{%
+%% Chords to Tongue Base
+\ChordsToTongue
+%% Tongue at Pharynx to Tongue Base Front
+\pscurve(\TonguePharynxX,\TonguePharynxY)(\TongueUvularX,\TongueUvularY)
+(\TongueVelarX,\TongueVelarY)
+%
+\pscurve(\VelarX,\VelarY)(\UvularX,\UvularY)(\NasalCavMovX,\NasalCavMovY)
+% NCavPort to Pharynx
+\psline(\NasalCavMovX,\NasalCavMovY)(\NasalPortStaticUpX,\NasalPortStaticUpY)(\NasalPortStaticDownX,\NasalPortStaticDownY)
+(\PharynxBackUpStaticX,\PharynxBackUpStaticY)
+% Pharynx, Esophagus, EsoPort
+\PharynxToEsophag
+% LarynxBack, Trachea, Lungs, LarynxFront
+\LarynxLungsChords
+}}{}
+%
+}
+
+%=========================================
+% Show Linear Vocal Tube
+%=========================================
+\newcommand\ShowLinearTubes[1]{
+% ChordsFront to DownLips
+\psline[linecolor=blue,showpoints=true](\ChordsJointFrontX,\ChordsJointFrontY)(\HyoidDownX,\HyoidDownY)
+(\HyoidUpX,\HyoidUpY)(\EpiglotisBaseX,\EpiglotisBaseY)(\EpiglotisX,\EpiglotisY)(\TonguePharynxX,\TonguePharynxY)
+(\TongueUvularX,\TongueUvularY)(\TongueVelarX,\TongueVelarY)(\TonguePalatalX,\TonguePalatalY)
+(\TonguePostAlvX,\TonguePostAlvY)(\TongueAlveolarX,\TongueAlveolarY)(\SubTongueSalX,\SubTongueSalY)
+(\TeethDownBaseInX,\TeethDownBaseInY)(\TeethDownEdgeX,\TeethDownEdgeY)(\LipDownInX,\LipDownInY)(\LipDownOutX,\LipDownOutY)
+% ChordsBack to NPortStatic
+\psline[linecolor=blue,showpoints=true](\ChordsJointBackX,\ChordsJointBackY)(\EsophagusPortX,\EsophagusPortY)
+(\PharynxBackDownStaticX,\PharynxBackDownStaticY)
+(\PharynxBackMiddleStaticX,\PharynxBackMiddleStaticY)
+(\PharynxBackUpStaticX,\PharynxBackUpStaticY)
+(\NasalPortStaticDownX,\NasalPortStaticDownY)
+(\NasalPortStaticUpX,\NasalPortStaticUpY)
+%
+%NPortStatic to Nose
+%\ifthenelse{#2=1.2}{%
+\psline[linecolor=blue,showpoints=true](\NasalPortStaticDownX,\NasalPortStaticDownY)(\NasalPortStaticUpX,\NasalPortStaticUpY)(\NasalSphenoidDownX,\NasalSphenoidDownY)(\NasalSphenoidUpX,\NasalSphenoidUpY)(\NasalCavBackX,\NasalCavBackY)(\NasalCavCeilX,\NasalCavCeilY)(\NasalCavFrontX,\NasalCavFrontY)(\NoseBoneInX,\NoseBoneInY)(\NoseBoneDownX,\NoseBoneDownY)%}{}
+% Nose to NCavPort To Upper Lips
+\psline[linecolor=blue,showpoints=true](\NoseBaseX,\NoseBaseY)(\NasalCavAlvX,\NasalCavAlvY)(\NasalCavPalX,\NasalCavPalY)(\NasalCavVelarX,\NasalCavVelarY)(\NasalCavMovX,\NasalCavMovY)(\UvularX,\UvularY)(\VelarX,\VelarY)(\PalatalX,\PalatalY)(\PostPostAlveolarX,\PostPostAlveolarY)(\PostAlveolarX,\PostAlveolarY)(\AlveolarX,\AlveolarY)(\TeethUpBaseInX,\TeethUpBaseInY)(\TeethUpEdgeX,\TeethUpEdgeY)%(\TeethUpBaseOutX,\TeethUpBaseOutY)
+(\LipUpInX,\LipUpInY)(\LipUpOutX,\LipUpOutY)
+}
+
+%=========================================
+% Show CrossSection Areas
+%=========================================
+\newcommand\ShowParameters{%
+%Lines
+% 1. JW: Jaw Position
+\rput[l](1.8 ,4.8 ){1}
+% 2. TP: Tongue Position
+\rput[l](1.2 ,5){2}
+% 3. TS: Tongue Shape
+\rput[l](1.4 ,5){3}
+% 4. TA: Tongue Apex
+\rput[l](2 ,5.8){4}
+%% 5. LA: LIPS APERTURE
+%\psline[linecolor=green,showpoints=true](\LipOutX,\LipDownY)(\LipOutX,\LipUpY)
+\rput[t](\LipOutX,\LipUpY){5}
+%%% 6. LP: LIPS PROTRUSION
+%\psline[linecolor=green,showpoints=true](\LipDownInX,\LipDownInY)(\LipDownOutX,\LipDownOutY)
+\rput[lt](\LipDownOutX,\LipDownOutY){6}
+%%% 7. LH: LARYNX HEIGHT
+%\psline[linecolor=green,showpoints=true](\ChordsJointFrontX,\ChordsJointFrontY)(\HyoidDownX,\HyoidDownY)
+%%% 8. GA: Glottis Aperture
+%%% 9. FX: Fund. Frequency
+\rput[l](\ChordsJointFrontX,\ChordsJointFrontY){7,8,9}
+%%% 10. NS: Nasal Cavity
+%\psline[linecolor=green,showpoints=true](\NasalCavMovX,\NasalCavMovY)(\NasalPortStaticUpX,\NasalPortStaticUpY)
+\rput[rb](\NasalPortStaticUpX,\NasalPortStaticUpY){10\hspace{0.75cm}}
+%
+%
+\rput[l](0.75,1.7){\parbox{5cm}{1. JW: Jaw Position = \JW \\
+ 2. TP: Tongue Position = \TP \\
+ 3. TS: Tongue Shape = \TS \\
+ 4. TA: Tongue Apex = \TA \\
+ 5. LA: Lips Aperture = \LA \\
+ 6. LP: Lips Protrusion = \LP \\
+ 7. LH: Larynx Heigh = \LH \\
+ 8. GA: Glottis Aperture= \GA \\
+ 9. FX: Fund. Frequency = \FX \\
+ 10. NS: Nasal Cavity = \NS}}
+} \ No newline at end of file