//====================================================
//  Portuguese  - based on Base2
//====================================================

phoneme I   // epenthetic i
  vowel starttype (i) endtype (i)
  length 90
  formants vowel/ii_6
  unstressed
endphoneme

phoneme e~
  vowel starttype (e) endtype (e)
  length 240
  formants vnasal/e_n
endphoneme

phoneme i~
  vowel starttype (i) endtype (i)
  length 240
  formants vnasal/i_n
  linkout ;
endphoneme

phoneme o~
  vowel starttype (o) endtype (o)
  length 240
  formants vnasal/o_n
endphoneme

phoneme u~
  vowel starttype (u) endtype (u)
  length 180
  formants vnasal/u_n
endphoneme

phoneme &~
  vowel  starttype (@) endtype (@)
  length 180
  formants vnasal/a#_n
//  reduceto &  4
endphoneme

phoneme &U~
  vowel  starttype (@) endtype (u)
  length 240
  formants vnasal/a#u_n
endphoneme

phoneme oI~
  vowel starttype (o) endtype (i)
  length 260
  formants vnasal/oi_n
endphoneme




phoneme &
  vowel starttype (@) endtype (@)
  length 180
  formants vowel/a#_3
endphoneme

phoneme &/       // Used for final "a" when next word starts with "a"
  vowel starttype (@) endtype (@)
  beforevowel NULL
  length 180
  formants vowel/a#_3
endphoneme


phoneme A            // for "al" in European Portuguese, don't reduce to [&]
  vowel starttype (a) endtype (a)
  length 200
  formants vowel/a_2
endphoneme



phoneme E
  vowel starttype (e) endtype (e)
  length 170
  formants vowel/ee_3
endphoneme

phoneme e
  vowel starttype (e) endtype (e)
  length 160
  formants vowel/e
endphoneme


phoneme y          // this is the same as [i] for Brazil
  vowel starttype (i) endtype (i)
  length 110
  formants vowel/ii_6
  linkout ;
endphoneme


phoneme i/            // changes to [j] before a vowel
  vowel starttype (i) endtype (i)
  beforevowel j
  length 150
  formants vowel/ii_6
  linkout ;
endphoneme


phoneme O
  vowel starttype (o) endtype (o)
  length 170
  formants vowel/0
endphoneme


phoneme u
  vowel starttype (u) endtype (u)
  length 160
  formants vowel/u_bck
endphoneme

phoneme u2  // TEST
  vowel starttype (u) endtype (u)
  length 160
  formants vowel/u
endphoneme

phoneme U
  vowel starttype (u) endtype (u)
  length 140
  formants vowel/uu_bck
endphoneme




phoneme aI
  vowel starttype (a) endtype (i)
  length 230
  formants vdiph/ai
  linkout ;
endphoneme


phoneme eI
  vowel starttype (e) endtype (i)
  length 210
  formants vdiph/ei
  linkout ;
endphoneme


phoneme OI
  vowel starttype (o) endtype (i)
  length 230
  formants vdiph/0i
  linkout ;
endphoneme


phoneme eU
  vowel starttype (e) endtype (u)
  length 230
  formants vdiph/eu
endphoneme


phoneme EU
  vowel starttype (e) endtype (u)
  length 230
  formants vdiph/eeu
endphoneme




phoneme l
  liquid
  length 100
  lengthmod 7
  beforenotvowel l/2       // use 'dark' [l] after a vowel, should be [w]
  formants l/l
  after _ l/_l
  after t l/tl
endphoneme


phoneme x   // this is [R] from Slovak/Czech
  liquid
  vowelin  f1=0  f2=1700 -300 300  f3=-300 80
  vowelout f1=2  f2=1700 -300 300  f3=-300 80 brk
  formants r3/r_trill+r3/r_trill.wav%50
  trill
  lengthmod 6
endphoneme


phoneme x2   // for "r"
  vcd vel frc
  vowelin f1=0  f2=1500 0 400  f3=-500 100
  vowelout f1=0 f2=1500 0 400  f3=-500 100  rms=20
  lengthmod 6
  formants voc/Q_less+ufric/x2%110
  before _ voc/Q_+ufric/x2
  switchvoicing x
endphoneme


phoneme s#     // This is [s] for Brazi;, [S] for Portugal
  vls alv frc sibilant
  vowelin  f1=0  f2=1700 -300 300  f3=-100 80
  vowelout f1=0  f2=1700 -300 250  f3=-100 80  rms=20
  lengthmod 3
  wave ufric/s
  before _ ufric/s_
  before p ufric/s!
  before t ufric/s!
  before k ufric/s!
  switchvoicing z
endphoneme


phoneme *
  vcd alv stop
  vowelin f1=1  f2=1700 -300 300  f3=0 80
  vowelout f1=2 f2=1700 -300 300  f3=0 80
  formants d/tap2+x/d%40
  after @ d/x_tap
  lengthmod 6
endphoneme