From 1d36966b9f9a9cbed43a26105e88695c13f4aa88 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Tue, 31 Jan 2017 21:35:37 +0000
Subject: [PATCH] ipa: j (vcd pal apr).

---
 phsource/ph_ipa   | 29 ++++++++++++++++++++++++++++-
 phsource/phonemes | 28 +---------------------------
 2 files changed, 29 insertions(+), 28 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 1de57e96..875830dc 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -15,7 +15,7 @@
 // | sib frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | frc     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat frc |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | apr     |     |     |     |     |     |     |     | r\  |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
+// | apr     |     |     |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | flp     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat flp |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
@@ -410,3 +410,30 @@ phoneme r\\
 
   FMT(r/r)
 endphoneme
+
+phoneme j
+  vcd pal apr liquid starttype #i
+  ipa j
+  lengthmod 7
+
+  IF nextPhW(isVowel) THEN
+    NextVowelStarts
+      VowelStart(j/j@)
+      VowelStart(j/ja)
+      VowelStart(j/je)
+      VowelStart(j/ji)
+      VowelStart(j/jo)
+      VowelStart(j/ju)
+    EndSwitch
+
+    VowelEnding(j/xj, -30)
+
+    IF prevPh(isPause) THEN
+      FMT(j/_j)
+    ENDIF
+  ELSE
+    // no vowel follows
+    Vowelout len=70
+    FMT(j/j_)
+  ENDIF
+endphoneme
diff --git a/phsource/phonemes b/phsource/phonemes
index ef745e24..2b603843 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -600,36 +600,10 @@ phoneme w
   ENDIF
 endphoneme
 
-
-
-
 phoneme j // **y**es
-  liquid pal starttype #i
-  lengthmod 7
-
-  IF nextPhW(isVowel) THEN
-    NextVowelStarts
-      VowelStart(j/j@)
-      VowelStart(j/ja)
-      VowelStart(j/je)
-      VowelStart(j/ji)
-      VowelStart(j/jo)
-      VowelStart(j/ju)
-    EndSwitch
-
-    VowelEnding(j/xj, -30)
-
-    IF prevPh(isPause) THEN
-      FMT(j/_j)
-    ENDIF
-  ELSE
-    // no vowel follows
-    Vowelout len=70
-    FMT(j/j_)
-  ENDIF
+  import_phoneme ipa/j
 endphoneme
 
-
 phoneme ;     // linking j, used between (i) vowels and a following vowel
               // also to palatalize consonants
   liquid pzd