| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 |
- //====================================================
- // 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
|
