ph_slovenian
2.54 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
phoneme : // lengthen previous vowel by "length"
virtual
length 50 // only a small increase for "long stress" because we probably put the stress on the wrong syllable
endphoneme
phoneme @ // Schwa, can be stressed
vowel starttype #@ endtype #@
length 160
FMT(vowel/@)
endphoneme
phoneme i
vowel starttype #i endtype #i
length 160
// IfNextVowelAppend(;)
// IF thisPh(isStressed) AND NOT nextPhW(isRhotic) THEN
// FMT(vowel/ii_6)
// ENDIF
FMT(vowel/ii_3)
endphoneme
phoneme u
vowel starttype #u endtype #u
length 160
FMT(vowel/u_2)
endphoneme
phoneme a
vowel starttype #a endtype #a
length 170
IF thisPh(isUnstressed) THEN
FMT(vowel/a_8)
ENDIF
FMT(vowel/a)
endphoneme
phoneme e
vowel starttype #e endtype #e
length 170
ChangeIfUnstressed(E)
FMT(vowel/e_2)
endphoneme
phoneme e+ // doesn't reduce to [e]
vowel starttype #e endtype #e
ChangePhoneme(e)
endphoneme
phoneme E
vowel starttype #e endtype #e
length 160
FMT(vowel/e_mid)
endphoneme
phoneme E#
vowel starttype #e endtype #e
length 160
IF thisPh(isNotStressed) THEN
ChangePhoneme(@)
ENDIF
FMT(vowel/e_mid)
endphoneme
phoneme o
vowel starttype #o endtype #o
length 170
ChangeIfUnstressed(O)
FMT(vowel/o_8)
endphoneme
phoneme o+ // doesn't reduce to [O]
vowel starttype #o endtype #o
ChangePhoneme(o)
endphoneme
phoneme O
vowel starttype #o endtype #o
length 170
IF thisPh(isStressed) THEN
FMT(vowel/0_2)
ENDIF
FMT(vowel/oo_4)
endphoneme
phoneme v
import_phoneme base/v#
endphoneme
phoneme t
vls dnt stop
lengthmod 2
voicingswitch d
Vowelin f1=0 f2=1600 -300 300 f3=-100 80
Vowelout f1=0 f2=1600 -300 250 f3=-100 80 rms=20
IF nextPh(isPause2) AND prevPhW(isVowel) THEN
WAV(ustop/t_dnt, 40)
ENDIF
WAV(ustop/t_dnt, 60)
endphoneme
phoneme k
vls vel stop
voicingswitch g
lengthmod 2
Vowelin f1=0 f2=2300 200 300 f3=-200 80
Vowelout f1=0 f2=2300 300 400 f3=-200 80 rms=20
IF KlattSynth THEN
Vowelout f1=0 f2=2300 200 300 f3=-200 80 rms=20
ENDIF
IF thisPh(isWordEnd) THEN
WAV(ustop/k)
ELIF nextPh(isPause2) THEN
WAV(ustop/k_)
ELIF nextPh(r) OR nextPh(R) OR nextPh(R2) THEN
WAV(ustop/kr)
ELIF nextPh(#i) OR nextPh(;) THEN
WAV(ustop/ki)
ELIF nextPh(l) THEN
WAV(ustop/kl)
ELIF nextPh(@-) THEN
WAV(ustop/k_unasp, 70)
ENDIF
WAV(ustop/k)
endphoneme
// for foreign letters
phoneme y
vowel starttype #i endtype #i
length 170
FMT(vowel/y)
endphoneme
phoneme R^ // Czech r-caron
import_phoneme sk/R^
endphoneme