HomoFast-eSpeak-Persian/phsource/ph_latvian

//  IF thisPh(isStressed) THEN
//    FMT(vowel/..., 100)
//  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
//    FMT(vowel/..., 50)
//  ELSE
//    FMT(vowel/..., 80)
//  ENDIF

phoneme a
  vowel starttype #a endtype #a
  length 120
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/a, 100)           // adjusted from aa_3
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/a, 50)
  ELSE
    FMT(vwl_lv/a, 80)
  ENDIF
endphoneme

phoneme a:
  vowel starttype #a endtype #a
  length 300
  long
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/aa, 100)           
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/aa, 50)
  ELSE
    FMT(vwl_lv/aa, 80)
  ENDIF
endphoneme

phoneme E
  vowel starttype #e endtype #e
  length 120
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/e2, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/e2, 50)
  ELSE
    FMT(vwl_lv/e2, 80)
  ENDIF
endphoneme

phoneme E:
  vowel starttype #e endtype #e
  length 300
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/ee2, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/ee2, 50)
  ELSE
    FMT(vwl_lv/ee2, 80)
  ENDIF
endphoneme

phoneme e
  vowel starttype #e endtype #e
  length 120
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/e, 100)  // other alternative e_5
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/e, 50)
  ELSE
    FMT(vwl_lv/e, 80)
  ENDIF
endphoneme

phoneme e:
  vowel starttype #e endtype #e
  length 300
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/ee, 100) // other alternative e_8
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/ee, 50)
  ELSE
    FMT(vwl_lv/ee, 80)
  ENDIF
endphoneme

phoneme i
  vowel starttype #i endtype #i
  length 120
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/i, 110) // was i_6
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/i, 55)
  ELSE
    FMT(vwl_lv/i, 88)
  ENDIF
endphoneme

phoneme i:
  vowel starttype #i endtype #i
  length 300
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/ii, 110) // was i_7
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/ii, 55)
  ELSE
    FMT(vwl_lv/ii, 88)
  ENDIF
endphoneme

phoneme o
  vowel starttype #o endtype #o
  length 120
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/o, 90)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/o, 45)
  ELSE
    FMT(vwl_lv/o, 68)
  ENDIF
endphoneme

phoneme o:
  vowel starttype #o endtype #o
  length 300
  IF thisPh(isStressed) THEN
    FMT(vwl_lv/oo, 80)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/oo, 40)
  ELSE
    FMT(vwl_lv/oo, 60)
  ENDIF
endphoneme

phoneme u
  vowel starttype #u endtype #u
  length 120
  IF thisPh(isMaxStress) THEN
    FMT(vwl_lv/u, 140)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/u, 70)
  ELSE
    FMT(vwl_lv/u, 105)
  ENDIF
endphoneme

phoneme u:
  vowel starttype #u endtype #u
  length 300
  IF thisPh(isMaxStress) THEN
    FMT(vwl_lv/uu, 120)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vwl_lv/uu, 60)
  ELSE
    FMT(vwl_lv/uu, 90)
  ENDIF
endphoneme

phoneme ai
  vowel starttype #a endtype #i
  length 230
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph/aai, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph/aai, 50)
  ELSE
    FMT(vdiph/aai, 80)
  ENDIF
endphoneme

phoneme au
  vowel starttype #a endtype #u
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph/aau, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph/aau, 50)
  ELSE
    FMT(vdiph/aau, 80)
  ENDIF
endphoneme

phoneme ei
  vowel starttype #e endtype #i
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph/eei_2, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph/eei_2, 50)
  ELSE
    FMT(vdiph/eei_2, 80)
  ENDIF
endphoneme

phoneme ie
  vowel starttype #i endtype #e
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph2/ie_2, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph2/ie_2, 50)
  ELSE
    FMT(vdiph2/ie_2, 80)
  ENDIF
endphoneme

phoneme iu
  vowel starttype #i endtype #u
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph2/iu_2, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph2/iu_2, 50)
  ELSE
    FMT(vdiph2/iu_2, 80)
  ENDIF
endphoneme

phoneme ui
  vowel starttype #u endtype #i
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph/ui, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph/ui, 50)
  ELSE
    FMT(vdiph/ui, 80)
  ENDIF
endphoneme

phoneme uo
  vowel starttype #u endtype #a
  length 200
  //long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph2/uaa, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph2/uaa, 50)
  ELSE
    FMT(vdiph2/uaa, 80)
  ENDIF
endphoneme

phoneme oi
  vowel starttype #o endtype #i
  length 250
  long
  IF thisPh(isMaxStress) THEN
    FMT(vdiph/ooi, 100)
  ELIF thisPh(isDiminished) AND NOT prevVowel(isStressed) THEN
    FMT(vdiph/ooi, 50)
  ELSE
    FMT(vdiph/ooi, 80)
  ENDIF
endphoneme

phoneme ts
  vls alv afr nolink
  voicingswitch J
  length 55
  lengthmod 1
  WAV(ustop/ts2, 60)
endphoneme

phoneme tS
  vls pla afr sibilant
  voicingswitch dZ
  lengthmod 2
  length 80
  WAV(ustop/tsh,40)
endphoneme

phoneme R
  liquid
  trill
  lengthmod 6
  Vowelin  f1=0  f2=1700 -300 300  f3=-300 80
  Vowelout f1=2  f2=1700 -300 300  f3=-300 80 brk
  FMT(r3/r_trill) addWav(r3/r_trill.wav, 50)
endphoneme

phoneme t
  vls alv stop //lengthenstop
  lengthmod 1
  voicingswitch d
  IF nextPh(isPause2) THEN
    WAV(ustop/t_dnt, 40)
  ENDIF
  WAV(ustop/t_dnt, 50)
endphoneme

phoneme p
  vls blb stop
  lengthmod 2
  voicingswitch b
  Vowelin  f1=0  f2=1000 -50 -100  f3=-200 80
  Vowelout f1=0  f2=1000 -500 -350  f3=-300 80 rms=30
  IF nextPh(isPause2) THEN
    WAV(ustop/p_unasp_, 80)
  ENDIF
  IF nextPh(l) THEN
    WAV(ustop/pl)
  ENDIF
  WAV(ustop/p_unasp, 120)
endphoneme

phoneme k
  vls vel stop
  lengthmod 2
  voicingswitch g
  Vowelin f1=0  f2=2300 200 400  f3=-100 80
  Vowelout f1=0 f2=2300 300 400  f3=-100 80  rms=20
  IF nextPh(isPause2) THEN
    WAV(ustop/k_)
  ENDIF
  IF nextPh(#i) OR nextPh(l^) THEN
    WAV(ustop/ki)
  ENDIF
  IF nextPh(l) THEN
    WAV(ustop/kl)
  ENDIF
  WAV(ustop/k_unasp, 60)   // weaker
endphoneme

phoneme c
  vls pal stop palatal
  voicingswitch J
  lengthmod 2
  WAV(ustop/c, 90)
endphoneme

phoneme l
  liquid
  unstressed
  dnt
  length 100
  FMT(vwl_hi/l-voc)
endphoneme

phoneme s
  vls alv frc sibilant
  voicingswitch z
  lengthmod 3
  Vowelin  f1=0  f2=1700 -300 300  f3=-100 80
  Vowelout f1=0  f2=1700 -300 250  f3=-100 80  rms=20
  WAV(ufric/s,40)
endphoneme