//====================================================
//  Ancient Greek  - based on base2
//====================================================

phoneme : //  Lengthen previous vowel by "length"
  virtual
  length 100
endphoneme


phoneme y
  vwl starttype #i endtype #i
  length 160
  FMT(vowel/yy_4)
endphoneme

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

phoneme E
  vwl starttype #e endtype #e
  length 150
  FMT(vowel/ee_1)
endphoneme

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

phoneme O
  vwl starttype #o endtype #o
  length 150
  FMT(vowel/0)
endphoneme


phoneme EU
  vwl starttype #e endtype #u
  length 230
  FMT(vdiph/eeu)
endphoneme

phoneme OI
  vwl starttype #o endtype #i
  length 230
  FMT(vdiph/0i)
endphoneme

phoneme OU
  vwl starttype #o endtype #u
  length 230
  FMT(vdiph/oou)
endphoneme


phoneme yI
  vwl starttype #i endtype #i
  length 230
  FMT(vdiph/yi)
endphoneme


phoneme f   // consider this an affrictive
  vls blb afr
  lengthmod 2
  Vowelout f1=0  f2=1000 -500 -350  f3=-200 80
  WAV(ufric/f)    // could replace this with a [pf] wav file
endphoneme