From a49729cd70ed44ae8f0356c838fb38edf0b165ef Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Mon, 30 Jan 2017 22:51:53 +0000
Subject: [PATCH] ipa: t (vls alv stp).

---
 phsource/ph_ipa   | 18 +++++++++++++++++-
 phsource/phonemes | 14 +-------------
 2 files changed, 18 insertions(+), 14 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index c6e0fb39..45c7de4f 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -8,7 +8,7 @@
 // |         | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd | vls | vcd |
 // |---------|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|-----|
 // | nas     |     | m   |     |     |     |     |     | n   |     |     |     | n`  |     |     |     | J   |     | N   |     |     |     |     |     |     |
-// | stp     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
+// | stp     |     |     |     |     |     |     | t   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -179,6 +179,22 @@ phoneme N
   ENDIF
 endphoneme
 
+// stop
+
+phoneme t
+  vls alv stp
+  lengthmod 2
+  Vowelin f1=0  f2=1700 -300 300  f3=-100 80
+  Vowelout f1=0 f2=1700 -300 250  f3=-100 80  rms=20
+
+  IF nextPh(isPause2) THEN
+    WAV(ustop/t_)
+  ELIF nextPh(isRhotic) THEN
+    WAV(ustop/tr)
+  ENDIF
+  WAV(ustop/t, 90)
+endphoneme
+
 // approximant
 
 phoneme r\\
diff --git a/phsource/phonemes b/phsource/phonemes
index 05c87802..fb7c9e72 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -1183,20 +1183,8 @@ endphoneme
 
 
 phoneme t
-  vls alv stp
+  import_phoneme ipa/t
   voicingswitch d
-  lengthmod 2
-  Vowelin f1=0  f2=1700 -300 300  f3=-100 80
-  Vowelout f1=0 f2=1700 -300 250  f3=-100 80  rms=20
-
-  IF nextPh(isPause2) THEN
-    WAV(ustop/t_)
-  ELIF nextPh(r) OR nextPh(R) OR nextPh(R2) THEN
-    WAV(ustop/tr)
-  ELIF nextPh(@-) THEN
-    WAV(ustop/t_dnt, 50)
-  ENDIF
-  WAV(ustop/t, 90)
 endphoneme