ipa: ʍ (vls ptr vel frc)

phsource/ph_english

@@ -88,23 +88,8 @@ phoneme z/2    // used for 's suffix
   ChangePhoneme(z)
 endphoneme
 
-
 phoneme w#
-  vls glt apr  // [h]
-  ipa ʍ
-  
-  IF nextPh(isVowel) THEN
-    NextVowelStarts
-      VowelStart(w/w@)
-      VowelStart(w/wa)
-      VowelStart(w/we)
-      VowelStart(w/wi)
-      VowelStart(w/wo)
-      VowelStart(w/wu)
-    EndSwitch
-  ENDIF
-
-  WAV(h/hu, 70)
+  import_phoneme ipa/W
 endphoneme
 
 

phsource/ph_ipa

@@ -34,7 +34,7 @@
 // | stp         |     |     |     |     |     |     |     |     |     |     |     |     |
 // | afr         |     |     |     |     |     |     |     |     |     |     |     |     |
 // | vzd frc     |     |     |     |     |     |     |     |     |     |     |     |     |
-// | ptr apr     |     |     |     |     |     |     |     |     |     |     |     | w   |
+// | ptr apr     |     |     |     |     |     |     |     |     |     |     | W   | w   |
 // | fzd lat apr |     |     |     | l_e |     |     |     |     |     |     |     |     |
 
 // NOTE: ')' needs to be replaced with '\)' and '\' with '\\' when referencing these phonemes in the phoneme files.
@@ -1091,6 +1091,24 @@ phoneme L
   FMT(l^/l^)
 endphoneme
 
+phoneme W
+  vls ptr vel frc
+  ipa ʍ
+
+  IF nextPh(isVowel) THEN
+    NextVowelStarts
+      VowelStart(w/w@)
+      VowelStart(w/wa)
+      VowelStart(w/we)
+      VowelStart(w/wi)
+      VowelStart(w/wo)
+      VowelStart(w/wu)
+    EndSwitch
+  ENDIF
+
+  WAV(h/hu, 70)
+endphoneme
+
 phoneme w
   vcd ptr vel apr liquid starttype #u
   ipa w