Files
Reece H. Dunn 9ef1f2eec6 Use base1 as the base phonemetable, not 'base'.
This is a step in the transition to using a common IPA-based
phoneme table for the pronunciations. It allows the base phonemes
to import the IPA versions during this transition phase.
2017-01-30 20:16:47 +00:00

91 lines
1.5 KiB
Plaintext

//====================================================
// Greek - based on base2
//====================================================
phoneme a
vwl starttype #a endtype #a
length 140
IF thisPh(isWordEnd) AND thisPh(isNotStressed) AND nextPh(a) THEN
ChangePhoneme(NULL)
ENDIF
IF thisPh(isDiminished) THEN
FMT(vowel/a_4)
ENDIF
FMT(vowel/a_2)
endphoneme
phoneme e
vwl starttype #e endtype #e
length 140
FMT(vowel/e_mid2)
endphoneme
phoneme i
vwl starttype #i endtype #i
length 140
IfNextVowelAppend(;)
FMT(vowel/i)
endphoneme
phoneme o
vwl starttype #o endtype #o
length 150
FMT(vowel/oo)
endphoneme
phoneme u
vwl starttype #u endtype #u
length 160
FMT(vowel/u_bck)
endphoneme
// CONSONANTS
phoneme t // revert to alveolar /t/
vls alv stp
lengthmod 2
voicingswitch d
Vowelin f1=1 f2=1600 -300 300 f3=-100 80 amp=11
Vowelout f1=0 f2=1600 -300 250 f3=-100 80 rms=20
IF nextPh(isPause2) THEN
WAV(ustop/t_unasp2)
ENDIF
WAV(ustop/t_unasp2)
endphoneme
phoneme d // revert to alveolar /d/
import_phoneme base1/d
voicingswitch t
endphoneme
phoneme k
vls vel stp
lengthmod 2
voicingswitch g
Vowelin f1=0 f2=2300 200 400 f3=-100 80
Vowelout f1=0 f2=2300 300 400 f3=-100 80 rms=20
IF nextPh(isPause2) THEN
WAV(ustop/k_)
ELIF nextPh(isRhotic) THEN
WAV(ustop/kr)
ELIF nextPh(l) THEN
WAV(ustop/kl)
ENDIF
WAV(ustop/k_unasp, 70)
endphoneme
phoneme r
import_phoneme base1/R3
endphoneme