From 8869c72d979f490aa08b8576a58cc13bef39035b Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Mon, 30 Jan 2017 21:34:55 +0000
Subject: [PATCH] ipa: n (vcd alv nas).

---
 phsource/ph_ipa   | 30 ++++++++++++++++++++++++++++++
 phsource/phonemes | 26 +-------------------------
 2 files changed, 31 insertions(+), 25 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index 8e3b9141..c370969a 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -1,3 +1,33 @@
 // International Phonetic Alphabet phonemes using the Conlang X-SAMPA (CXS)
 // transcription scheme.
 
+// nasal
+
+phoneme n
+  vcd alv nas
+  Vowelout f1=2 f2=1500 -300 250  f3=-100 80  rms=20 brk
+  lengthmod 4
+
+  IF KlattSynth THEN
+    Vowelin f1=0 f2=1500 -200 200 f3=0 80
+    FMT(klatt/n)
+  ENDIF
+
+  NextVowelStarts
+    VowelStart(n/n@)
+    VowelStart(n/na)
+    VowelStart(n/ne)
+    VowelStart(n/ni)
+    VowelStart(n/no)
+    VowelStart(n/nu)
+  EndSwitch
+
+  IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
+    FMT(n/nj)
+  ELIF prevPh(isPause) OR prevPh(n) THEN
+    FMT(n/_n)
+  ELIF nextPh(isNotVowel) THEN
+    FMT(n/n_)
+  ENDIF
+endphoneme
+
diff --git a/phsource/phonemes b/phsource/phonemes
index 5486835c..a55fbcf0 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -744,31 +744,7 @@ endphoneme
 
 
 phoneme n
-  vcd alv nas
-  Vowelout f1=2 f2=1500 -300 250  f3=-100 80  rms=20 brk
-  lengthmod 4
-
-  IF KlattSynth THEN
-    Vowelin f1=0 f2=1500 -200 200 f3=0 80
-    FMT(klatt/n)
-  ENDIF
-
-  NextVowelStarts
-    VowelStart(n/n@)
-    VowelStart(n/na)
-    VowelStart(n/ne)
-    VowelStart(n/ni)
-    VowelStart(n/no)
-    VowelStart(n/nu)
-  EndSwitch
-
-  IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
-    FMT(n/nj)
-  ELIF prevPh(isPause) OR prevPh(n) THEN
-    FMT(n/_n)
-  ELIF nextPh(isNotVowel) THEN
-    FMT(n/n_)
-  ENDIF
+  import_phoneme ipa/n
 endphoneme