phoneme : // lengthen previous vowel by "length" virtual length 50 // only a small increase for "long stress" because we probably put the stress on the wrong syllable endphoneme phoneme @ // Schwa, can be stressed vowel starttype #@ endtype #@ length 160 FMT(vowel/@) endphoneme phoneme i vowel starttype #i endtype #i length 160 // IfNextVowelAppend(;) // IF thisPh(isStressed) AND NOT nextPhW(isRhotic) THEN // FMT(vowel/ii_6) // ENDIF FMT(vowel/ii_3) endphoneme phoneme u vowel starttype #u endtype #u length 160 FMT(vowel/u_2) endphoneme phoneme a vowel starttype #a endtype #a length 170 IF thisPh(isUnstressed) THEN FMT(vowel/a_8) ENDIF FMT(vowel/a) endphoneme phoneme e vowel starttype #e endtype #e length 170 ChangeIfUnstressed(E) FMT(vowel/e_2) endphoneme phoneme e+ // doesn't reduce to [e] vowel starttype #e endtype #e ChangePhoneme(e) endphoneme phoneme E vowel starttype #e endtype #e length 160 FMT(vowel/e_mid) endphoneme phoneme E# vowel starttype #e endtype #e length 160 IF thisPh(isNotStressed) THEN ChangePhoneme(@) ENDIF FMT(vowel/e_mid) endphoneme phoneme o vowel starttype #o endtype #o length 170 ChangeIfUnstressed(O) FMT(vowel/o_8) endphoneme phoneme o+ // doesn't reduce to [O] vowel starttype #o endtype #o ChangePhoneme(o) endphoneme phoneme O vowel starttype #o endtype #o length 170 FMT(vowel/0_2) endphoneme phoneme v import_phoneme base/v# endphoneme // for foreign letters phoneme y vowel starttype #i endtype #i length 170 FMT(vowel/y) endphoneme phoneme R^ // Czech r-caron import_phoneme sk/R^ endphoneme