From e51dc6e61a5665fd2aea6f0ded7a390cfc6c3d4b Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Wed, 1 Feb 2017 22:54:05 +0000
Subject: [PATCH] =?UTF-8?q?ipa:=20s=CA=B2=20(vls=20alv=20sib=20frc=20pzd).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index bddb7999..068611b6 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -587,6 +587,19 @@ phoneme s
   WAV(ufric/s)
 endphoneme
 
+phoneme s_j
+  vls alv sib frc pzd
+  ipa sʲ
+  lengthmod 3
+  Vowelin  f1=1  f2=2700 400 600  f3=200 70 rate len=70
+  Vowelout f1=1  f2=2700 400 600  f3=200 70 rate len=70
+
+  IF nextPh(isPause) THEN
+    WAV(ufric/s_pzd_)
+  ENDIF
+  WAV(ufric/s_pzd)
+endphoneme
+
 phoneme z
   vcd alv sib frc
   ipa z
diff --git a/phsource/phonemes b/phsource/phonemes
index f4a76ad4..3df5da37 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -740,20 +740,10 @@ phoneme s.
 endphoneme
 
 phoneme s;
-  vls pal frc sib pzd
-  ipa ʂ
+  import_phoneme ipa/s_j
   voicingswitch z;
-  lengthmod 3
-  Vowelin  f1=1  f2=2700 400 600  f3=200 70 rate len=70
-  Vowelout f1=1  f2=2700 400 600  f3=200 70 rate len=70
-
-  IF nextPh(isPause) THEN
-    WAV(ufric/s_pzd_)
-  ENDIF
-  WAV(ufric/s_pzd)
 endphoneme
 
-
 phoneme S;
   vls alp sib frc
   voicingswitch Z;