From 581b366bb069e0b367cc94fe38219332e9eecfa4 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Mon, 30 Jan 2017 21:40:53 +0000
Subject: [PATCH] ipa: m (vcd blb nas).

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

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index c370969a..9198e586 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -3,6 +3,37 @@
 
 // nasal
 
+phoneme m
+  vcd blb nas
+  Vowelout f1=2  f2=1000 -500 -350  f3=-200 80 brk
+  lengthmod 4
+
+  IF KlattSynth THEN
+    Vowelin  f1=0  f2=1000 -50 -200  f3=-200 80
+    IF nextPh(isPause2) THEN
+      FMT(klatt/m_)
+    ENDIF
+    FMT(klatt/m)
+  ENDIF
+
+  NextVowelStarts
+    VowelStart(m/m@)
+    VowelStart(m/ma)
+    VowelStart(m/me)
+    VowelStart(m/mi)
+    VowelStart(m/mo)
+    VowelStart(m/mu)
+  EndSwitch
+
+  IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
+    FMT(m/mj)
+  ELIF prevPh(isPause) THEN
+    FMT(m/_m)
+  ELIF nextPh(isNotVowel) THEN
+    FMT(m/m_)
+  ENDIF
+endphoneme
+
 phoneme n
   vcd alv nas
   Vowelout f1=2 f2=1500 -300 250  f3=-100 80  rms=20 brk
diff --git a/phsource/phonemes b/phsource/phonemes
index a55fbcf0..9d927693 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -712,34 +712,7 @@ endphoneme
 
 
 phoneme m
-  vcd blb nas
-  Vowelout f1=2  f2=1000 -500 -350  f3=-200 80 brk
-  lengthmod 4
-
-  IF KlattSynth THEN
-    Vowelin  f1=0  f2=1000 -50 -200  f3=-200 80
-    IF nextPh(isPause2) THEN
-      FMT(klatt/m_)
-    ENDIF
-    FMT(klatt/m)
-  ENDIF
-
-  NextVowelStarts
-    VowelStart(m/m@)
-    VowelStart(m/ma)
-    VowelStart(m/me)
-    VowelStart(m/mi)
-    VowelStart(m/mo)
-    VowelStart(m/mu)
-  EndSwitch
-
-  IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
-    FMT(m/mj)
-  ELIF prevPh(isPause) THEN
-    FMT(m/_m)
-  ELIF nextPh(isNotVowel) THEN
-    FMT(m/m_)
-  ENDIF
+  import_phoneme ipa/m
 endphoneme