diff --git a/docs/phonemes.md b/docs/phonemes.md index 8e36f38c..ce587d59 100644 --- a/docs/phonemes.md +++ b/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 diff --git a/phsource/ph_ipa b/phsource/ph_ipa index 847480eb..e2af8644 100644 --- a/phsource/ph_ipa +++ b/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 diff --git a/phsource/phonemes b/phsource/phonemes index 095612f2..4d0a0513 100644 --- a/phsource/phonemes +++ b/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