From 695a9007aa59e577d7a3371e9f6c81fe86e7b9f6 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Wed, 1 Feb 2017 13:18:18 +0000
Subject: [PATCH] ipa: q (vls uvl stp)

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

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 640be925..0fdb8f58 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -11,7 +11,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     |     | b   |     |     | t_d | d_d | t   | d   |     |     |     |     |     |     | c   | J\  |     | g   |     |     |     |     |     |     |
+// | stp     |     | b   |     |     | t_d | d_d | t   | d   |     |     |     |     |     |     | c   | J\  |     | g   | q   |     |     |     |     |     |
 // | sib afr |     |     |     |     |     |     |     |     | tS) | dZ) |     |     | ts\)| dz\)|     |     |     |     |     |     |     |     |     |     |
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -359,6 +359,21 @@ phoneme g
   FMT(g/g) addWav(x/g2, 150)
 endphoneme
 
+phoneme q
+  vls uvl stp
+  ipa q
+  lengthmod 2
+  Vowelin f1=1  f2=1700 0 200  f3=-300 80 gpaus f4 rms=30
+  Vowelout f1=1 f2=1700 -100 200  f3=-300 80  f4 rms=35
+
+  IF nextPh(isPause2) THEN
+    WAV(ustop/q, 40)
+  ELIF nextPh(#u) THEN
+    WAV(ustop/q_u, 80)
+  ENDIF
+  WAV(ustop/q, 48)
+endphoneme
+
 // affricate
 
 phoneme tS\)
diff --git a/phsource/phonemes b/phsource/phonemes
index 20105457..980e64d1 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -870,23 +870,11 @@ phoneme k
   WAV(ustop/k)
 endphoneme
 
-
 phoneme q
-  vls uvl stp
-  lengthmod 2
-  Vowelin f1=1  f2=1700 0 200  f3=-300 80 gpaus f4 rms=30
-  Vowelout f1=1 f2=1700 -100 200  f3=-300 80  f4 rms=35
-
-  IF nextPh(isPause2) THEN
-    WAV(ustop/q, 40)
-  ELIF nextPh(#u) THEN
-    WAV(ustop/q_u, 80)
-  ENDIF
-  WAV(ustop/q, 48)
+  import_phoneme ipa/q
 endphoneme
 
 
-
 //*******************************************************************
 // UNVOICED fricatives
 //*******************************************************************