From 063ee44a4fbf286dc8a56d7b5502da430d23e6f6 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Tue, 31 Jan 2017 21:53:31 +0000
Subject: [PATCH] =?UTF-8?q?ipa:=20=CE=B2=20(vcd=20blb=20frc).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 118602f7..bbd65478 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -13,7 +13,7 @@
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | frc     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
+// | frc     |     | B   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     |     |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -384,6 +384,28 @@ phoneme dz\\\)
   FMT(dzh/dzh) addWav(x/dz_pzd)
 endphoneme
 
+// fricative
+
+phoneme B
+  vcd blb frc
+  ipa β
+  lengthmod 6
+  Vowelin  f1=2  f2=1000 -300 -200  f3=-100 100
+  Vowelout f1=2  f2=1000 -500 -300  f3=-100 60  len=50
+
+  IF KlattSynth THEN
+    IF nextPh(isPause2) THEN
+      FMT(klatt/v_) addWav(vocw/v)
+    ENDIF
+    FMT(klatt/bh) addWav(vocw/v)
+  ENDIF
+
+  IF nextPh(isPause2) THEN
+    FMT(voc/v_) addWav(vocw/v)
+  ENDIF
+  FMT(voc/bh) addWav(vocw/v)
+endphoneme
+
 // approximant
 
 phoneme r\\
diff --git a/phsource/phonemes b/phsource/phonemes
index d5043432..4fed7a06 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -735,26 +735,10 @@ endphoneme
 
 
 phoneme B
-  vcd blb frc
+  import_phoneme ipa/B
   voicingswitch f
-  lengthmod 6
-  Vowelin  f1=2  f2=1000 -300 -200  f3=-100 100
-  Vowelout f1=2  f2=1000 -500 -300  f3=-100 60  len=50
-
-  IF KlattSynth THEN
-    IF nextPh(isPause2) THEN
-      FMT(klatt/v_) addWav(vocw/v)
-    ENDIF
-    FMT(klatt/bh) addWav(vocw/v)
-  ENDIF
-
-  IF nextPh(isPause2) THEN
-    FMT(voc/v_) addWav(vocw/v)
-  ENDIF
-  FMT(voc/bh) addWav(vocw/v)
 endphoneme
 
-
 phoneme v
   vcd lbd frc
   voicingswitch f