From b444de954e55b3f7029ecf1a95cd693867deb916 Mon Sep 17 00:00:00 2001
From: Anh Hoang Nguyen <hoanganhA91013@gmail.com>
Date: Tue, 26 Mar 2019 15:35:36 +0700
Subject: [PATCH] vi: modify phoneme u@ and N

---
 phsource/n/nm       | Bin 1210 -> 1210 bytes
 phsource/ph_vietnam |  30 +++++++++++++++++++++++++-----
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/phsource/n/nm b/phsource/n/nm
index a66f7a6bf65b68e65b3ba3b73c5472503c063bd1..2a5b02b55ad1c573ea8c77380e16302a64f3513f 100644
GIT binary patch
delta 93
zcmdnRxr=i`oR}ly0gew0GE5o_3=B~~%)p?>%)l{;$zbCWH%1(?o0!UQNdYxZ-oyM4
E0A$k<&j0`b

delta 93
zcmdnRxr=i`oY(`#0~{Y1WSBG<7#N~}n1SI7+X3cDOa>d5xH008-NaOeOA4rQ@*d`Y
E0DKP^H~;_u

diff --git a/phsource/ph_vietnam b/phsource/ph_vietnam
index d36e5219..ad973fd5 100644
--- a/phsource/ph_vietnam
+++ b/phsource/ph_vietnam
@@ -590,11 +590,27 @@ endphoneme
 
 phoneme u@
   vwl  starttype #u  endtype #@
-  IF thisPh(isFirstVowel) AND thisPh(isFinalVowel) AND thisPh(isWordEnd) THEN
+  IF nextPhW(p) THEN
+	length 123
+  ELIF nextPhW(t[) THEN
+	length 123
+  ELIF nextPhW(c) THEN
+	length 139
+  ELIF nextPhW(m) THEN
+	length 127
+  ELIF nextPhW(n) THEN
+	length 160
+  ELIF nextPhW(N) THEN
+	length 156
+  ELIF thisPh(isFirstVowel) AND thisPh(isFinalVowel) AND thisPh(isWordEnd) THEN
+	length 300
+  ELIF thisPh(isFirstVowel) AND thisPh(isFinalVowel) AND thisPh(isWordStart) THEN
 	length 240
-	ELSE
-	length 140
-	ENDIF
+  ELIF thisPh(isWordStart) AND thisPh(isWordEnd) THEN
+     length 333
+  ELSE
+	length 240
+  ENDIF
   //FMT(vdiph2/uu@)-
   FMT(vietnam/u@)
 endphoneme
@@ -751,13 +767,17 @@ endphoneme
 
 phoneme N // si**ng** 
   vcd lbv nas
+  IF prevPhW(u@) THEN 
+  // do nothing
+  ELSE 
   Vowelout f1=3 f2=2300 300 400  f3=-200 80  len=40 rms=20 brk
+  ENDIF
   lengthmod 12            // longer than 'n'
   IF thisPh(isWordEnd) THEN 
 	length 163
   ENDIF
   IF thisPh(isWordEnd) THEN 
-	FMT(n/nm)
+	FMT(n/nm, 50)
   ELSE 
 	FMT(nn/_nn)
   ENDIF