ipa: ɫ (vcd alv fzd lat apr).

docs/phonemes.md

@@ -83,7 +83,7 @@ transcriptions are consistent.
 | `afr`         | p͡f   | b͡v   |       |       |       |       |       |       |       |       |       |       |
 | `vzd frc`     |       |       |       |       | ɧ     |       |       |       |       |       |       |       |
 | `ptr apr`     |       |       |       |       |       |       |       | ɥ     |       |       | ʍ     | w     |
-| `fzd lat apr` |       |       | ɫ     |       |       |       |       |       |       |       |       |       |
+| `fzd lat apr` |       |       |       | ɫ     |       |       |       |       |       |       |       |       |
 
 ### Gemination
 

phsource/ph_ipa

@@ -35,7 +35,7 @@
 // | afr         |     |     |     |     |     |     |     |     |     |     |     |     |
 // | vzd frc     |     |     |     |     |     |     |     |     |     |     |     |     |
 // | ptr apr     |     |     |     |     |     |     |     |     |     |     |     | w   |
-// | fzd lat apr |     |     |     |     |     |     |     |     |     |     |     |     |
+// | fzd lat apr |     |     |     | l_e |     |     |     |     |     |     |     |     |
 
 // NOTE: ')' needs to be replaced with '\)' and '\' with '\\' when referencing these phonemes in the phoneme files.
 
@@ -722,6 +722,61 @@ phoneme l
   FMT(l/l)
 endphoneme
 
+phoneme l_e
+  vcd alv fzd lat apr liquid
+  ipa ɫ
+  lengthmod 7
+
+  IF nextPh(isNotVowel) THEN
+    PrevVowelEndings
+      VowelEnding(l/L1_@L, -60)
+      VowelEnding(l/L1_aL, -40)
+      VowelEnding(l/L1_eL, -30)
+      VowelEnding(l/L1_iL, -30)
+      VowelEnding(l/L1_oL, -40)
+      VowelEnding(l/L1_uL, -40)
+    EndSwitch
+
+    // we need to replace these with new FMT sequeces for jl and wl
+    IF prevPhW(j) THEN
+      FMT(l/L1_eL)
+    ELIF prevPhW(w) THEN
+      FMT(l/L1_eL)
+    ENDIF
+
+    FMT(l/l_)
+  ENDIF
+
+  NextVowelStarts
+    VowelStart(l/l@)
+    VowelStart(l/la)
+    VowelStart(l/le)
+    VowelStart(l/li, -10)
+    VowelStart(l/lo)
+    VowelStart(l/lu)
+  EndSwitch
+
+  IF prevPh(#@) THEN
+    VowelEnding(l/xl, -50)
+  ELIF prevPh(isVowel) THEN
+    VowelEnding(l/xl, -40)
+  ENDIF
+
+  IF prevPh(isPause) THEN
+    FMT(l/_l)
+  ENDIF
+
+  IF prevPh(t) THEN
+    FMT(l/tl)
+  ENDIF
+
+  IF prevPh(l) THEN
+    FMT(l/l_long) // double l, make it longer
+  ENDIF
+
+  FMT(l/l)
+endphoneme
+
 phoneme j
   vcd pal apr liquid starttype #i
   ipa j

phsource/phonemes

@@ -390,33 +390,9 @@ phoneme l/    // used for [l] when not before a vowel
 endphoneme
 
 phoneme l/2    // 'dark' [l] after a vowel
-  liquid
-  lengthmod 7
-
-  IF nextPh(isVowel) THEN
-    ChangePhoneme(l)
-  ENDIF
-
-  CALL vowelstart_l
-
-  IF prevPhW(j) THEN
-    FMT(l/L2_eL)
-  ENDIF
-  IF prevPhW(w) THEN
-    FMT(l/L2_uL)
-  ENDIF
-
-  PrevVowelEndings
-    VowelEnding(l/L2_@L, -60)
-    VowelEnding(l/L2_aL, -50)
-    VowelEnding(l/L2_eL, -40)
-    VowelEnding(l/L2_iL, -30)
-    VowelEnding(l/L2_oL, -50)
-    VowelEnding(l/L2_uL, -40)
-  EndSwitch
+  import_phoneme ipa/l_e
 endphoneme
 
-
 phoneme l/3    // Replacement for [l/]
   liquid
   lengthmod 7