phoneme @
  vowel starttype #@ endtype #@
  unstressed
  length 140
  FMT(vowel/@_low)
endphoneme



phoneme a
  vowel starttype #a endtype #a
  length 180
  ChangeIfUnstressed(a/)
  FMT(vowel/a)
endphoneme


phoneme E
  vowel starttype #e endtype #e
  length 180
  ChangeIfUnstressed(@)
  FMT(vowel/e_mid)
endphoneme

phoneme E2   // as [E] but don't reduce to [@]
  vowel starttype #e endtype #e
  length 180
  FMT(vowel/e_mid)
endphoneme


phoneme e
  vowel starttype #e endtype #e
  length 180
  FMT(vowel/e)
endphoneme


phoneme i
  vowel starttype #i endtype #i
  length 180
  IfNextVowelAppend(;)
  FMT(vowel/i_6)
endphoneme


phoneme O
  vowel starttype #o endtype #o
  length 180
  FMT(vowel/oo)
endphoneme


phoneme o
  vowel starttype #o endtype #o
  length 180
  FMT(vowel/o)
endphoneme


phoneme u
  vowel starttype #u endtype #u
  length 180
  FMT(vowel/u)
endphoneme


phoneme aI
  vowel starttype #a endtype #i
  length 240
  FMT(vdiph/ai)
endphoneme

phoneme eI
  vowel starttype #e endtype #i
  length 240
  FMT(vdiph/eei_2)
endphoneme

phoneme aU
  vowel starttype #a endtype #u
  length 240
  FMT(vdiph/au_4)
endphoneme

phoneme @U
  vowel starttype #@ endtype #u
  length 240
  FMT(vdiph/@u_en)
endphoneme



phoneme d   // English [d]
  import_phoneme base/d
  voicingswitch t
endphoneme