From 6a85d3e63242411bbe5ef9b439805c43b07354d2 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Thu, 2 Mar 2017 07:01:06 +0000
Subject: [PATCH] en: Create a custom /n/ phoneme to support /n/ velarization.

---
 dictsource/en_rules | 11 -----------
 phsource/ph_english | 10 ++++++++++
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/dictsource/en_rules b/dictsource/en_rules
index b63acda1..e434428c 100644
--- a/dictsource/en_rules
+++ b/dictsource/en_rules
@@ -924,7 +924,6 @@ propag) an (d      'an
      r) anging     eIndZIN
      r) anged (S1  d
   perm) an (en     @n
-        ang (er    aNg
      h) ang (er    aN
      m) anoeu (v   @nu:
    _qu) an         0n
@@ -2533,7 +2532,6 @@ _it_separ) ate (_  @t
 
 .group en
      _) en (@      %e#n
-     _) en (g@     %e#N // velarized
         en (_$w_alt1 En
      &) eness (_S4 n@s
     &r) en (@      En
@@ -2581,7 +2579,6 @@ _it_separ) ate (_  @t
         engin      EndZIn
         eng (_     'EN       // place names
         enging     EndZIN
-        eng (th    EN
         en (ig     En
         en (igma_  %En
      &) enine      @ni:n
@@ -3683,13 +3680,11 @@ _it_separ) ate (_  @t
      _) info (t    ,InfoU
      _) infra (P5  ,Infr@
      _) infra (c   %Infra
-        in (ga_    'IN
         in (got    IN
      _) in (gro    IN
      _) inher (en  I2nhi@r
      _) in (im     I2n
      _) in (jur    In
-     _) in (k      IN
      _) in (l      In
      _) in (m      In
      _) inn (K     In
@@ -4329,9 +4324,7 @@ multip) ly         laI
         necessit   n@sEsIt
      &) ness (_S4im n@s
 ?8   &) ness (_S4im nEs
-     @) n (cC      N
      @) n (ch      n
-        n (c_      N
     2_) nd (_ 
     &B) ne (_      n%I
     &n) ne (_ 
@@ -4339,8 +4332,6 @@ multip) ly         laI
      _) news (P4   n'ju:z
 ?3   _) news (P4   n'u:z
         n (x       N
-        nk         Nk
-?7      nk         nk        // ?? Scottish
         n (kn      n
         n't        @-nt
      A) n't        nt
@@ -6392,8 +6383,6 @@ contin) u          ju:
 .group un
      _) un (@P2    %Vn       // prefix
      _) un (AP2    %Vn       // prefix
-     _) un (g@P2   %VN       // prefix (velarized)
-     _) un (k@P2   %VN       // prefix (velarized)
      _) un (A_     ju:n
      _) unn        %Vnn
      @) un (al     'ju:n
diff --git a/phsource/ph_english b/phsource/ph_english
index 3e4c7eb6..87af2c07 100644
--- a/phsource/ph_english
+++ b/phsource/ph_english
@@ -93,6 +93,16 @@ phoneme w#
 endphoneme
 
 
+phoneme n
+  vcd alv nas
+  ipa n
+  IF nextPh(isVelar) THEN // /n/ is velarized to /N/ when before velar stops
+    ChangePhoneme(N)
+  ENDIF
+  CALL ipa/n
+endphoneme
+
+
 //*******************************************************************
 // VOWELS
 //*******************************************************************