From 98355a0f47469d80df4d6f868ac0797a2b295988 Mon Sep 17 00:00:00 2001
From: "Reece H. Dunn" <msclrhd@gmail.com>
Date: Wed, 1 Feb 2017 23:14:31 +0000
Subject: [PATCH] ipa: h (vls glt frc).

---
 phsource/ph_ipa   | 23 ++++++++++++++++++++++-
 phsource/phonemes | 20 +-------------------
 2 files changed, 23 insertions(+), 20 deletions(-)

diff --git a/phsource/ph_ipa b/phsource/ph_ipa
index b7aab58f..67acc394 100644
--- a/phsource/ph_ipa
+++ b/phsource/ph_ipa
@@ -16,7 +16,7 @@
 // | afr     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | lat afr |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | sib frc |     |     |     |     |     |     | s   | z   | S   | Z   | s`  | z`  | s\  | z\  |     |     |     |     |     |     |     |     |     |     |
-// | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     | C   | j\  | x   | G   | X   | R   |     |     |     |     |
+// | frc     |     | B   | f   | v   | T   | D   |     |     |     |     |     |     |     |     | C   | j\  | x   | G   | X   | R   |     |     | h   |     |
 // | lat frc |     |     |     |     |     |     | K   |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | apr     |     | P   |     |     |     |     |     | r\  |     |     |     |     |     |     |     | j   |     |     |     |     |     |     |     |     |
 // | lat apr |     |     |     |     |     |     |     | l   |     |     |     | l`  |     |     |     | L   |     | L\  |     |     |     |     |     |     |
@@ -821,6 +821,27 @@ phoneme R
   FMT(voc/Q_ulv) addWav(ufric/xx, 80)
 endphoneme
 
+phoneme h
+  vls glt frc
+  ipa h
+  lengthmod 3
+
+  IF nextPh(#@) THEN
+    WAV(h/h@)
+  ELIF nextPh(#a) THEN
+    WAV(h/ha)
+  ELIF nextPh(#e) THEN
+    WAV(h/he)
+  ELIF nextPh(#i) THEN
+    WAV(h/hi)
+  ELIF nextPh(#o) THEN
+    WAV(h/ho)
+  ELIF nextPh(#u) THEN
+    WAV(h/hu)
+  ENDIF
+  WAV(h/h_, 70) // no vowel following
+endphoneme
+
 // approximant
 
 phoneme P
diff --git a/phsource/phonemes b/phsource/phonemes
index ce377cdb..6981f084 100644
--- a/phsource/phonemes
+++ b/phsource/phonemes
@@ -768,28 +768,10 @@ phoneme X
 endphoneme
 
 phoneme h
-  vls glt apr
-  lengthmod 3
-  ipa h
-
-  IF nextPh(#@) THEN
-    WAV(h/h@)
-  ELIF nextPh(#a) THEN
-    WAV(h/ha)
-  ELIF nextPh(#e) THEN
-    WAV(h/he)
-  ELIF nextPh(#i) THEN
-    WAV(h/hi)
-  ELIF nextPh(#o) THEN
-    WAV(h/ho)
-  ELIF nextPh(#u) THEN
-    WAV(h/hu)
-  ENDIF
-  WAV(h/h_, 70)  // no vowel following
+  import_phoneme ipa/h
 endphoneme
 
 
-
 //*******************************************************************
 // ADDITIONAL PHONEME TABLES
 //*******************************************************************