haw: fix issue #578: add initial support for Hawaiian language

This commit is contained in:
Valdis Vitolins
2020-04-13 19:23:04 +03:00
parent 7e69e33588
commit 0ee91aaa06
8 changed files with 468 additions and 0 deletions
+236
View File
@@ -0,0 +1,236 @@
phoneme a
vwl starttype #a endtype #a
length 130
FMT(vwl_lv/a, 100)
endphoneme
phoneme a:
vwl starttype #a endtype #a
length 310
lng
FMT(vwl_lv/aa, 90)
endphoneme
phoneme e
vwl starttype #e endtype #e
length 120
FMT(vwl_lv/e, 100)
endphoneme
phoneme e:
vwl starttype #e endtype #e
length 300
FMT(vwl_lv/ee, 100)
endphoneme
phoneme i
vwl starttype #i endtype #i
length 120
FMT(vwl_lv/i, 110)
endphoneme
phoneme i:
vwl starttype #i endtype #i
length 280
FMT(vwl_lv/ii, 90)
endphoneme
phoneme o
vwl starttype #o endtype #o
length 120
FMT(vwl_lv/o, 90)
endphoneme
phoneme o:
vwl starttype #o endtype #o
length 300
FMT(vwl_lv/oo, 75)
endphoneme
phoneme u
vwl starttype #u endtype #u
length 120
FMT(vwl_lv/u, 100)
endphoneme
phoneme u:
vwl starttype #u endtype #u
length 300
FMT(vwl_lv/uu, 90)
endphoneme
phoneme ai
vwl starttype #a endtype #i
length 280
lng
FMT(vdiph/aai, 100)
endphoneme
phoneme au
vwl starttype #a endtype #u
length 300
lng
FMT(vdiph/aau, 100)
endphoneme
phoneme ei
vwl starttype #e endtype #i
length 280
lng
FMT(vdiph/eei_2, 100)
endphoneme
phoneme ie
vwl starttype #i endtype #e
length 250
lng
FMT(vdiph2/ie_2, 100)
endphoneme
phoneme iu
vwl starttype #i endtype #u
length 250
lng
FMT(vdiph2/iu_2, 100)
endphoneme
phoneme ui
vwl starttype #u endtype #i
length 250
lng
FMT(vdiph/ui, 100)
endphoneme
phoneme uo
vwl starttype #u endtype #a
length 280
lng
FMT(vdiph2/ua, 110)
endphoneme
phoneme oi
vwl starttype #o endtype #i
length 250
lng
FMT(vdiph/ooi, 100)
endphoneme
phoneme k
vls vel stp
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)
endphoneme
phoneme l
liquid
IF nextPh(isNotVowel) THEN
PrevVowelEndings
VowelEnding(l/L1_@L)
VowelEnding(l/L1_aL)
VowelEnding(l/L1_eL)
VowelEnding(l/L1_iL)
VowelEnding(l/L1_oL)
VowelEnding(l/L1_uL)
EndSwitch
FMT(l/l_)
RETURN
ENDIF
CALL vowelstart_l
IF prevPh(a) OR prevPh(a:) THEN
VowelEnding(l/xl, 20)
ELSEIF prevPh(isVowel) THEN
VowelEnding(l/xl, 10)
ENDIF
IF prevPh(isPause) THEN
FMT(l/_l)
ENDIF
IF prevPh(t) THEN
FMT(l/tl)
ENDIF
IF prevPh(l/) THEN
FMT(l/l_long)
ENDIF
FMT(l/l)
endphoneme
phoneme m
vcd blb nas
Vowelout f1=2 f2=1000 -500 -350 f3=-200 80 brk
lengthmod 4
IF KlattSynth THEN
Vowelin f1=0 f2=1000 -50 -200 f3=-200 80
IF nextPh(isPause2) THEN
FMT(klatt/m_)
ENDIF
FMT(klatt/m)
ENDIF
NextVowelStarts
VowelStart(m/m@)
VowelStart(m/ma)
VowelStart(m/me)
VowelStart(m/mi)
VowelStart(m/mo)
VowelStart(m/mu)
EndSwitch
IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
FMT(m/mj)
ELIF prevPh(isPause) THEN
FMT(m/_m)
ELIF nextPh(isNotVowel) THEN
FMT(m/m_)
ELIF nextPh(m) THEN
FMT(m/mj)
ENDIF
endphoneme
phoneme p
vls blb stp
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 v
vcd lbd frc
ipa ʋ
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
+3
View File
@@ -1722,6 +1722,9 @@ include ph_guarani
phonemetable hak base1
include ph_hakka
phonemetable haw base1
include ph_hawaiian
phonemetable hi_base base1
include ph_hindi_base