| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311 |  
//====================================================
//  Tone Numbers
//====================================================
phoneme 1   //  tone: high level
  stress
  Tone(50, 50, envelope/p_level, NULL)
endphoneme
phoneme 2   //  tone: rise
  stress
  Tone(30, 50, envelope/p_rise, NULL)
endphoneme
phoneme 3   //  tone: mid level
  stress
  Tone(30, 30, envelope/p_level, NULL)
endphoneme
phoneme 4   //  tone: low fall
  stress
  Tone(20, 10, envelope/p_fall, NULL)
endphoneme
phoneme 5   //  tone: low rise
  stress
  Tone(10, 30, envelope/p_rise, NULL)
endphoneme
phoneme 6   //  tone: low level
  stress
  Tone(20, 20, envelope/p_level, NULL)
endphoneme
phoneme 7   //  tone: high fall
  stress
  Tone(50, 30, envelope/p_fall, NULL)
endphoneme
//====================================================
//  Consonants
//====================================================
phoneme z  // [ts]
  vls alv afr sibilant
  lengthmod 2
  Vowelin f1=0  f2=1700 -300 300  f3=-100 80
  Vowelout f1=0 f2=1700 -300 250  f3=-100 80  rms=20
  WAV(ustop/ts)
endphoneme
phoneme c  // [tS]
  vls pla afr sibilant
  lengthmod 2
  Vowelin f1=0  f2=2300 200 400  f3=-100 80
  IF nextPh(isPause2) THEN
    WAV(ustop/tsh_)
  ENDIF
  WAV(ustop/tsh)
endphoneme
phoneme k
  vls vel stop
  lengthmod 2
  Vowelin f1=0  f2=2300 200 300  f3=-200 80
  Vowelout f1=1 f2=2300 300 400  f3=-200 80  rms=20
  IF nextPh(isPause2) THEN
    WAV(NULL)
  ENDIF
  IF nextPh(#i) THEN
    WAV(ustop/ki)
  ENDIF
  IF nextPh(r) OR nextPh(R) THEN
    WAV(ustop/kr)
  ENDIF
  IF nextPh(l) THEN
    WAV(ustop/kl)
  ENDIF
  IF nextPh(@-) THEN
    WAV(ustop/k_unasp,70)
  ENDIF
  WAV(ustop/k)
endphoneme
phoneme p
  vls blb stop
  lengthmod 2
  Vowelin  f1=0  f2=1000 -50 -100  f3=-200 80 rms=30
  Vowelout f1=1  f2=1000 -500 -350  f3=-300 80 rms=22
  IF nextPh(isPause2) THEN
    WAV(NULL)
  ENDIF
  WAV(ustop/p)
endphoneme
phoneme t
  vls alv stop
  lengthmod 2
  Vowelin f1=0  f2=1700 -300 300  f3=100 80
  Vowelout f1=1 f2=1700 -300 250  f3=-100 80  rms=20
  IF nextPh(isPause2) THEN
    WAV(NULL)
  ENDIF
  WAV(ustop/t)
endphoneme
//====================================================
//  Vowels and Diphtnongs
//====================================================
phoneme aa
  vowel starttype #a endtype #a
  length 230
  FMT(vowel/aa)
endphoneme
phoneme aai
  vowel starttype #a endtype #i
  length 270
  FMT(vdiph/aai)
endphoneme
phoneme aau
  vowel starttype #a endtype #u
  length 260
  FMT(vdiph/aau_2)
endphoneme
phoneme ang
  vowel starttype #a endtype #a
  length 220
  FMT(vwl_zh/ang)
endphoneme
phoneme aang
  vowel starttype #a endtype #a
  length 270
  FMT(vwl_zh/aang)
endphoneme
phoneme a
  vowel  starttype #@  endtype #@
  length 150
  FMT(vowel/a#_3)
endphoneme
phoneme ai
  vowel starttype #@ endtype #i
  length 200
  FMT(vdiph/@i_3)
endphoneme
phoneme au
  vowel starttype #a endtype #u
  length 200
  FMT(vdiph/au_2)
endphoneme
phoneme e
  vowel starttype #e endtype #e
  length 220
  FMT(vowel/ee_1)
endphoneme
phoneme ei
  vowel starttype #e endtype #i
  length 220
  FMT(vdiph/ei)
endphoneme
phoneme eng
  vowel starttype #e endtype #e
  length 220
  FMT(vwl_zh/eng)
endphoneme
phoneme eu
  vowel starttype #e endtype #u
  length 260
  FMT(vdiph/eeu)
endphoneme
phoneme i
  vowel  starttype #i  endtype #i
  length 190
  IfNextVowelAppend(;)
  IF nextPhW(k) OR nextPhW(N) THEN
    Length 150
    FMT(vowel/ii)
  ENDIF
  FMT(vowel/i)
endphoneme
phoneme ing
  vowel starttype #i endtype #i
  length 220
  FMT(vwl_zh/ing)
endphoneme
phoneme iu
  vowel starttype #i endtype #u
  length 200
  FMT(vdiph2/iu)
endphoneme
phoneme ng   // synonym for [N]
  vowel //  starttype ng  endtype ng
  length 350
  IF nextPh(isVowel) THEN
    ChangePhoneme(N)
  ENDIF
  FMT(vwl_zh/ng)
endphoneme
phoneme o
  vowel starttype #o endtype #o
  length 170
  FMT(vowel/oo)
endphoneme
phoneme oeng
  vowel starttype #o endtype #e
  length 280
  FMT(vwl_zh/oeng)
endphoneme
phoneme oi
  vowel starttype #o endtype #i
  length 200
  FMT(vdiph/ooi)
endphoneme
phoneme ou
  vowel starttype #o endtype #u
  length 200
  FMT(vdiph/ou)
endphoneme
phoneme ong
  vowel starttype #o endtype #o 
  length 220
  FMT(vwl_zh/ong)
endphoneme
phoneme u
  vowel starttype #u endtype #u
  length 170
  IF nextPhW(k) OR nextPhW(N) THEN
    FMT(vowel/uu_bck)
  ENDIF
  FMT(vowel/u_bck)
endphoneme
phoneme ung
  vowel starttype #u endtype #u
  length 200
  FMT(vwl_zh/ung)
endphoneme
phoneme ui
  vowel starttype #u endtype #i
  length 220
  FMT(vdiph/ui)
endphoneme
phoneme oe
  vowel  starttype #@  endtype #@
  length 230
  FMT(vowel/y#)
endphoneme
phoneme eo
  vowel  starttype #@  endtype #@
  length 170
  FMT(vowel/8_3)
endphoneme
phoneme eoi
  vowel  starttype #@  endtype #i
  length 220
  FMT(vdiph/y#y_2)
endphoneme
phoneme yu
  vowel  starttype #u  endtype #u
  length 220
  FMT(vowel/y)
endphoneme
 |