phsource/ph_maltese

//====================================================
// Maltese
//====================================================

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



phoneme i
  vwl starttype #i endtype #i
  length 140
  IfNextVowelAppend(;)
  ChangeIfUnstressed(I)
  FMT(vowel/i_4)
endphoneme

phoneme I
  vwl  starttype #i  endtype #i
  length 130
  IfNextVowelAppend(;)
  FMT(vowel/ii_2)
endphoneme

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



phoneme a
  vwl starttype #a endtype #a
  length 170
//  ChangeIfUnstressed(a2)
  FMT(vowel/aa_9)
endphoneme




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

phoneme Y
  vwl starttype #@ endtype #@
  length 155
  FMT(vowel/y#)
endphoneme


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



phoneme U    // TEST
  vwl starttype #u endtype #u
  length 140
  FMT(vowel/uu_4)
endphoneme



phoneme y
  vwl starttype #u endtype #u
  length 150
  FMT(vowel/y)
endphoneme



// Diphthongs
//===========

phoneme ai
  vwl starttype #a endtype #i
  length 310
  lng
  FMT(vdiph/aai_3)
endphoneme

phoneme i
  vwl starttype #a endtype #i
  length 290
  lng
  FMT(vdiph/&i)
endphoneme

phoneme oi
  vwl starttype #o endtype #i
  length 280
  lng
  FMT(vdiph/ooi)
endphoneme

phoneme ei
  vwl starttype #e endtype #i
  length 280
  lng
  FMT(vdiph/eei_2)
endphoneme

phoneme Yi
  vwl starttype #@ endtype #i
  length 270
  lng
  FMT(vdiph/y#i)
endphoneme

phoneme ui
  vwl starttype #u endtype #i
  length 270
  lng
  FMT(vdiph/ui_4)
endphoneme

phoneme yi
  vwl starttype #u endtype #i
  length 270
  lng
  FMT(vdiph/yi)
endphoneme


phoneme au
  vwl starttype #a endtype #u
  length 300
  lng
  FMT(vdiph/aau)
endphoneme

phoneme ou
  vwl starttype #o endtype #u
  length 280
  lng
  FMT(vdiph/ou)
endphoneme

phoneme eu
  vwl starttype #e endtype #u
  length 280
  lng
  FMT(vdiph/eu_2)
endphoneme

phoneme iu
  vwl starttype #i endtype #u
  length 280
  lng
  FMT(vdiph2/iu_2)
endphoneme



phoneme ey
  vwl starttype #e endtype #u
  length 280
  lng
  FMT(vdiph/eey)
endphoneme

phoneme Yy
  vwl starttype #@ endtype #u
  length 270
  lng
  FMT(vdiph/y#y)
endphoneme

phoneme iy
  vwl starttype #i endtype #u
  length 260
  lng
  FMT(vdiph2/iy)
endphoneme


phoneme uo
  vwl starttype #u endtype #o
  length 280
  lng
  FMT(vdiph2/uo)
endphoneme

phoneme ie
  vwl starttype #i endtype #e
  length 280
  lng
  FMT(vdiph2/ie)
endphoneme

phoneme yY
  vwl starttype #u endtype #@
  length 280
  lng
  FMT(vdiph2/y-y#)
endphoneme




// CONSONANTS
//===========


phoneme v        // approximant, not fricative
  vcd lbd frc
  lengthmod 6
  voicingswitch f
  Vowelin  f1=0  f2=1000 -300 -200  f3=-300 100
  Vowelout f1=0  f2=1000 -500 -300  f3=-300 60  len=50
  IF nextPh(isPause2) THEN
    FMT(voc/v_)
  ENDIF
  FMT(voc/v)
endphoneme




phoneme d
  vcd dnt stp
  voicingswitch t
  lengthmod 5
  Vowelin f1=2  f2=1700 -100 200  f3=0 80
  Vowelout f1=2 f2=1700 -100 200  f3=0 80 rms=20

  IF PreVoicing THEN
    FMT(d/xd)
  ENDIF

  IF nextPh(isPause2) THEN
    FMT(d/d_)  addWav(x/d_)
  ELIF nextPh(r) THEN
    FMT(d/dr) addWav(x/d_dnt, 60)
  ENDIF

  FMT(d/d) addWav(x/d_dnt, 60)
endphoneme



phoneme p
  import_phoneme base2/p
  voicingswitch b
endphoneme



phoneme k
  import_phoneme base2/k
  voicingswitch g
endphoneme




phoneme h
  vls glt apr
  lengthmod 3

  IF nextPh(#@) THEN
    WAV(h/h@)
  ELIF nextPh(#a) THEN
    WAV(h/ha)
  ELIF nextPh(#e) THEN
    WAV(h/he)
  ELIF nextPh(#i) THEN
    WAV(h/hi)
  ELIF nextPh(#o) THEN
    WAV(h/hu_fi, 70)
  ELIF nextPh(#u) THEN
    WAV(h/hu_fi, 80)
  ENDIF
  WAV(h/h_, 70)  // no vowel following
endphoneme