From c88c43eeccc0fcacc68277d08b608c92013cb02f Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Wed, 1 Feb 2017 23:09:53 +0000
Subject: [PATCH] ipa: x (vls vel frc).

---
 phsource/ph_ipa   | 15 ++++++++++++++-
 phsource/phonemes | 11 +----------
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 8ce32df1..039c9e1e 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -16,7 +16,7 @@
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib frc |     |     |     |     |     |     | s   | z   | S   | Z   | s`  | z`  | s\  | z\  |     |     |     |     |     |     |     |     |     |     |
-// | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     | C   | j\  |     | G   |     | R   |     |     |     |     |
+// | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     | C   | j\  | x   | G   |     | R   |     |     |     |     |
 // | lat frc |     |     |     |     |     |     | K   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     | l   |     |     |     | l`  |     |     |     | L   |     | L\  |     |     |     |     |     |     |
@@ -766,6 +766,19 @@ phoneme j\\
   FMT(voc/j) addWav(ufric/ch, 25)
 endphoneme
 
+phoneme x
+  vls vel frc
+  ipa x
+  lengthmod 3
+  Vowelin f1=0  f2=2300 200 400  f3=-100 80
+  Vowelout f1=0 f2=2300 300 400  f3=-100 80  rms=20
+
+  IF nextPh(isPause) THEN
+    WAV(ufric/x_, 60)
+  ENDIF
+  WAV(ufric/x_hr, 20)
+endphoneme
+
 phoneme G
   vcd vel frc
   ipa ɣ
diff --git a/phsource/phonemes b/phsource/phonemes
index c868e1e7..f651353c 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -758,19 +758,10 @@ phoneme C // German i**ch**
 endphoneme
 
 phoneme x // German bu**ch**
-  vls vel frc
+  import_phoneme ipa/x
   voicingswitch Q
-  lengthmod 3
-  Vowelin f1=0  f2=2300 200 400  f3=-100 80
-  Vowelout f1=0 f2=2300 300 400  f3=-100 80  rms=20
-
-  IF nextPh(isPause) THEN
-    WAV(ufric/x_, 60)
-  ENDIF
-  WAV(ufric/x_hr, 20)
 endphoneme
 
-
 phoneme X
   vls uvl frc
   voicingswitch Q"