| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139 | 
// use "flag1" for soft vowels
// short vowels
phoneme I
  vowel starttype #@ endtype #@
  flag1
  length 100
  IF thisPh(isWordEnd) THEN
    length 140
  ENDIF
  FMT(vowel/ii#)
endphoneme
phoneme 8
  vowel starttype #@ endtype #@
  length 100
  IF thisPh(isWordEnd) THEN
    length 140
  ENDIF
  FMT(vowel/8)
endphoneme
phoneme u#
  vowel starttype @ endtype @
  length 100
  flag1
  IF thisPh(isWordEnd) THEN
    length 140
  ENDIF
  FMT(vdiph2/uw_6)
endphoneme
phoneme U
  vowel starttype #u endtype #u
  length 100
  IF thisPh(isWordEnd) THEN
    length 140
  ENDIF
  FMT(vowel/uu_2)
endphoneme
// long vowels
phoneme A
  vowel starttype #a endtype #a
  length 200
  FMT(vowel/aa_9)
endphoneme
phoneme a
  vowel starttype #a endtype #a
  length 200
  FMT(vowel/a_5)
endphoneme
phoneme &
  vowel starttype #a endtype #a
  flag1
  length 200
  FMT(vowel/ee_2)
endphoneme
phoneme e
  vowel starttype #e endtype #e
  length 200
  flag1
  FMT(vdiph2/ii@_2)
endphoneme
phoneme E
  vowel starttype @ endtype @
  length 200
  FMT(vowel/@_fnt)
endphoneme
phoneme i
  vowel starttype #i endtype #i
  length 180
  FMT(vowel/ii_8)
endphoneme
phoneme o
  vowel starttype #o endtype #o
  length 200
  FMT(vowel/o_3)
endphoneme
phoneme Y
  vowel starttype #@ endtype #@
  length 200
  flag1
  FMT(vowel/y#_4)
endphoneme
phoneme u
  vowel starttype #u endtype #u
  length 200
  FMT(vowel/u_bck3)
endphoneme
phoneme r
  import_phoneme base/R2
endphoneme
phoneme t
  import_phoneme base2/t
endphoneme
phoneme G
  import_phoneme base/r"
endphoneme
phoneme X
  vls uvl frc
  lengthmod 3
  Vowelin f1=0  f2=2300 200 400  f3=-100 100
  Vowelout f1=0 f2=2300 300 400  f3=-100 100  rms=20
  lengthmod 3
  WAV(ufric/x2, 60)
endphoneme
phoneme L
  import_phoneme sq/ll
//  import_phoneme base/l-
endphoneme
phoneme l
  liquid
  IF nextPhW(isFlag1) THEN
  ELSE
    ChangePhoneme(L)  // Hard
  ENDIF
  CALL base/l
endphoneme
 |