//====================================================
//  French - Canadian
//====================================================

// Based on French.
// This file redefines phonemes which differ from those in ph_french


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




phoneme E
  vowel starttype #e endtype #e
  length 164
  FMT(vowel/e_mid)
endphoneme


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


phoneme E~
  vowel  starttype #e  endtype #e
  length 192
  FMT(vnasal/ee_n)
endphoneme


phoneme I
  vowel  starttype #i endtype #i
  length 158
  IfNextVowelAppend(;)
  FMT(vowel/ii)
endphoneme

phoneme U
  vowel starttype #u endtype #u
  length 150
  FMT(vowel/uu_bck)
endphoneme


phoneme y"
  vowel starttype #u endtype #u
  length 140
  FMT(vowel/yy)        // was sv_y2
endphoneme

phoneme E:         // [ae] diphthong
  vowel starttype #@ endtype #e
  length 230
  FMT(vdiph/ae)
endphoneme

phoneme A
  vowel  starttype #a  endtype #a
  length 166
  FMT(vowel/aa)
endphoneme





// CONSONANTS
//===========
// uses the consonants in file "phonemes", unless overridden here

phoneme R
  liquid trill
  lengthmod 7
  Vowelin f1=0  f2=1500 -400 400  f3=-400 80
  IF nextPh(isNotVowel) THEN
    ChangePhoneme(r/)
  ENDIF
  FMT(vwl_fr/@R2) addWav(r3/rx, 120)
endphoneme