eSpeak NG is an open source speech synthesizer that supports more than hundred languages and accents.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

ph_french 17KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064
  1. //====================================================
  2. // French
  3. //====================================================
  4. // Updated 2011-10-14 Michel Such <[email protected]>
  5. phoneme #l virtual
  6. // Used for l and l/
  7. endphoneme
  8. phoneme #r virtual
  9. // Used for "r" sounds
  10. endphoneme
  11. phoneme : // Lengthen previous vowel by "length"
  12. virtual
  13. length 40 // shorter than for fr-ca
  14. endphoneme
  15. phoneme #cFR virtual
  16. // To identify "b k d f g p t v" when before "r"
  17. endphoneme
  18. procedure pre_r
  19. IF prevPh(y) THEN
  20. VowelEnding(vwl_fr/y2r)
  21. ELIF prevPh(E) THEN
  22. VowelEnding(vwl_fr/e_2r)
  23. ELIF prevPh(A~) THEN
  24. VowelEnding(vwl_fr/aa2r)
  25. ELIF prevPh(E~) OR prevPh(W~) THEN
  26. VowelEnding(vwl_fr/ee2r)
  27. ELIF prevPh(O~) THEN
  28. VowelEnding(vwl_fr/oo2r)
  29. ELIF prevPh(isVowel) THEN
  30. PrevVowelEndings
  31. VowelEnding(vwl_fr/@2r)
  32. VowelEnding(vwl_fr/a2r)
  33. VowelEnding(vwl_fr/e2r)
  34. VowelEnding(vwl_fr/i2r)
  35. VowelEnding(vwl_fr/o2r)
  36. VowelEnding(vwl_fr/u2r)
  37. EndSwitch
  38. ENDIF
  39. endprocedure
  40. procedure post_r
  41. IF nextPh(E) THEN
  42. VowelStart(vwl_fr/re2)
  43. ELIF nextPh(W) THEN
  44. VowelStart(vwl_fr/r@2)
  45. ELIF nextPh(A~) THEN
  46. VowelStart(vwl_fr/raa)
  47. ELIF nextPh(E~) OR nextPh(W~) THEN
  48. VowelStart(vwl_fr/ree)
  49. ELIF nextPh(y) THEN
  50. VowelStart(vwl_fr/ry)
  51. ELIF nextPh(w) THEN
  52. VowelStart(vwl_fr/rw)
  53. ELIF nextPh(O~) THEN
  54. VowelStart(vwl_fr/roo)
  55. ELIF nextPh(j) OR nextPh(j/) THEN
  56. VowelStart(vwl_fr/rj)
  57. ELIF nextPh(isVowel) THEN
  58. NextVowelStarts
  59. VowelStart(vwl_fr/r@)
  60. VowelStart(vwl_fr/ra)
  61. VowelStart(vwl_fr/re)
  62. VowelStart(vwl_fr/ri)
  63. VowelStart(vwl_fr/ro)
  64. VowelStart(vwl_fr/ru)
  65. EndSwitch
  66. ENDIF
  67. endprocedure
  68. phoneme r
  69. vcd uvl frc nopause
  70. rhotic
  71. starttype #r endtype #r
  72. Vowelin f1=0 f2=1500 -400 400 f3=-400 80
  73. lengthmod 7
  74. ipa U+0281
  75. IF nextPh(isNotVowel) THEN
  76. ChangePhoneme(r/)
  77. ELIF prevPh(isNotVowel) OR prevPh(isPause) THEN
  78. ChangePhoneme(r/2)
  79. ENDIF
  80. CALL pre_r
  81. CALL post_r
  82. FMT(vwl_fr/r)
  83. endphoneme
  84. phoneme r2 // silent unless followed by vowel
  85. vcd uvl frc
  86. rhotic
  87. starttype #r endtype #r
  88. ipa U+0281
  89. IF nextPh(isNotVowel) THEN
  90. ChangePhoneme(NULL)
  91. ELSE
  92. ChangePhoneme(r)
  93. ENDIF
  94. endphoneme
  95. phoneme r/ // variant of [r] when not preceding a vowel
  96. vcd uvl frc
  97. rhotic
  98. starttype #r endtype #r
  99. lengthmod 7
  100. ipa U+0281
  101. IF prevPhW(t) OR prevPhW(p) OR prevPhW(k) THEN
  102. FMT(vwl_fr/trr) addWav(r3/rx, 15)
  103. ELIF prevPh(isNotVowel) THEN
  104. FMT(vwl_fr/rr) addWav(r3/rx, 15)
  105. ENDIF
  106. PrevVowelEndings
  107. VowelEnding(vwl_fr/r_@)
  108. VowelEnding(vwl_fr/r_a)
  109. VowelEnding(vwl_fr/r_e)
  110. VowelEnding(vwl_fr/r_i)
  111. VowelEnding(vwl_fr/r_o)
  112. VowelEnding(vwl_fr/r_u)
  113. EndSwitch
  114. IF prevPh(y) THEN
  115. VowelEnding(vwl_fr/r_y)
  116. ENDIF
  117. IF nextPh(isNasal) THEN
  118. FMT(vwl_fr/r_n) addWav(r3/rx, 20)
  119. ELIF nextPh(#r) THEN
  120. length 30
  121. ENDIF
  122. FMT(vwl_fr/r_) addWav(r3/rx, 20)
  123. endphoneme
  124. phoneme r/2
  125. liquid rhotic uvl nopause
  126. starttype #r endtype #r
  127. Vowelin f1=0 f2=1500 -400 400 f3=-400 80
  128. ipa U+0281
  129. CALL post_r
  130. IF prevPhW(f) OR prevPhW(k) OR prevPhW(p) OR prevPhW(s) OR prevPhW(t) OR prevPhW(S) THEN
  131. FMT(vwl_fr/tr)
  132. ELIF prevPhW(#cFR) THEN
  133. FMT(vwl_fr/br)
  134. ELSE
  135. length 80
  136. FMT(vwl_fr/r)
  137. ENDIF
  138. endphoneme
  139. phoneme l
  140. liquid
  141. starttype #l endtype #l
  142. lengthmod 7
  143. IF nextPh(isNotVowel) THEN
  144. ChangePhoneme(l/)
  145. ELIF prevPhW(#cFR) THEN
  146. ChangePhoneme(l/2)
  147. ENDIF
  148. NextVowelStarts
  149. VowelStart(l/l@)
  150. VowelStart(l/la, -10)
  151. VowelStart(l/le, -15)
  152. VowelStart(l/li, -15)
  153. VowelStart(vwl_fr/lo, -10)
  154. VowelStart(l/lu, -20)
  155. EndSwitch
  156. IF prevPh(#@) THEN
  157. VowelEnding(l/xl, -50)
  158. ELIF prevPh(isVowel) THEN
  159. VowelEnding(l/xl, -40)
  160. ENDIF
  161. IF prevPh(isPause) OR thisPh(isWordStart) THEN
  162. FMT(l/_l)
  163. ENDIF
  164. IF prevPh(isRhotic) OR prevPh(isNasal) THEN
  165. FMT(l/_l)
  166. ENDIF
  167. IF prevPh(t) THEN
  168. FMT(l/tl)
  169. ENDIF
  170. IF prevPh(l/) THEN
  171. FMT(l/l_long) // double l, make it longer
  172. ENDIF
  173. FMT(l/l)
  174. endphoneme
  175. phoneme l/ // used for [l] when not before a vowel
  176. liquid rfx
  177. starttype #l endtype #l
  178. lengthmod 7
  179. IF nextPh(isVowel) THEN
  180. ChangePhoneme(l)
  181. ENDIF
  182. IF prevPhW(y) THEN
  183. VowelEnding(l/l_y)
  184. ELIF prevPhW(isVowel) THEN
  185. PrevVowelEndings
  186. VowelEnding(l/l_@)
  187. VowelEnding(l/l_a)
  188. VowelEnding(l/l_e)
  189. VowelEnding(l/l_i)
  190. VowelEnding(l/l_o)
  191. VowelEnding(l/l_u)
  192. EndSwitch
  193. ENDIF
  194. IF prevPh(#r) THEN
  195. FMT(l/_l)
  196. ENDIF
  197. FMT(l/l_)
  198. endphoneme
  199. phoneme l/2
  200. liquid
  201. starttype #l endtype #l
  202. IF nextPh(isNotVowel) THEN
  203. ChangePhoneme(l/)
  204. ENDIF
  205. NextVowelStarts
  206. VowelStart(l/l@)
  207. VowelStart(l/la, -10)
  208. VowelStart(l/le, -15)
  209. VowelStart(l/li, -15)
  210. VowelStart(l/lo, -10)
  211. VowelStart(l/lu, -20)
  212. EndSwitch
  213. IF prevPh(t) THEN
  214. FMT(l/tl)
  215. ENDIF
  216. FMT(l/l)
  217. endphoneme
  218. // Vowels
  219. //=======
  220. phoneme @
  221. vowel starttype #@ endtype #@
  222. length 170
  223. FMT(vowel/@_hgh)
  224. endphoneme
  225. phoneme @-
  226. vowel starttype #@ endtype #@
  227. unstressed
  228. length 130
  229. FMT(vowel/@_hgh)
  230. endphoneme
  231. phoneme a
  232. vowel starttype #a endtype #a
  233. IF nextPhW(isVowel) THEN
  234. length 220
  235. ELSE
  236. length 170
  237. ENDIF
  238. FMT(vowel/a_7, 80)
  239. endphoneme
  240. phoneme a-
  241. vowel starttype #a endtype #a
  242. unstressed
  243. length 130
  244. FMT(vowel/a_7, 80)
  245. endphoneme
  246. phoneme a# // For english words
  247. import_phoneme en/a#
  248. endphoneme
  249. phoneme e
  250. vowel starttype #e endtype #e
  251. IF nextPh(l/) THEN
  252. VowelEnding(l/xl, -20)
  253. ELIF nextPh(isVowel) THEN
  254. length 200
  255. ELSE
  256. length 170
  257. ENDIF
  258. FMT(vowel/e_8)
  259. endphoneme
  260. phoneme e-
  261. vowel starttype #e endtype #e
  262. unstressed
  263. length 130
  264. FMT(vowel/e_8)
  265. endphoneme
  266. phoneme E
  267. vowel starttype #e endtype #e
  268. IF nextPhW(j) THEN
  269. length 190
  270. ELSE
  271. length 170
  272. ENDIF
  273. FMT(vowel/e_mid)
  274. endphoneme
  275. phoneme E-
  276. vowel starttype #e endtype #e
  277. unstressed
  278. length 130
  279. FMT(vowel/e_mid)
  280. endphoneme
  281. phoneme i
  282. vowel starttype #i endtype #i
  283. palatal
  284. IF prevPhW(r/2) OR prevPhW(l/2) THEN
  285. IF nextPhW(isVowel) THEN
  286. length 240
  287. ENDIF
  288. ELIF prevPhW(#r) AND nextPhW(isVowel) THEN
  289. IF nextPhW(#i) THEN
  290. length 220
  291. IfNextVowelAppend(;)
  292. ELSE
  293. ChangePhoneme(j/)
  294. ENDIF
  295. ELIF nextPhW(isVowel) THEN
  296. ChangePhoneme(j)
  297. ELSE
  298. length 150
  299. IfNextVowelAppend(;)
  300. ENDIF
  301. FMT(vowel/i_8)
  302. endphoneme
  303. phoneme I // For english words
  304. import_phoneme en/I
  305. endphoneme
  306. phoneme I2 // For english words
  307. import_phoneme en/I2
  308. endphoneme
  309. phoneme j/ // Short "i" between "r" and a vowel
  310. vowel starttype #i endtype #i
  311. length 80
  312. // unstressed
  313. NextVowelStarts
  314. VowelStart(j/j@)
  315. VowelStart(j/ja)
  316. VowelStart(j/je)
  317. VowelStart(j/ji)
  318. VowelStart(j/jo)
  319. VowelStart(j/ju)
  320. EndSwitch
  321. FMT(vwl_fr/j)
  322. endphoneme
  323. phoneme o
  324. vowel starttype #o endtype #o
  325. IF nextPh(isVowel) THEN
  326. length 220
  327. ELSE
  328. length 170
  329. ENDIF
  330. IF thisPh(isFinalVowel) THEN
  331. FMT(vowel/o_8)
  332. ELSE
  333. FMT(vowel/o)
  334. ENDIF
  335. endphoneme
  336. phoneme O
  337. vowel starttype #o endtype #o
  338. length 170
  339. IF thisPh(isFinalVowel) THEN
  340. FMT(vowel/o_mid2)
  341. ENDIF
  342. IF nextPhW(#l) AND next2Ph(isNotVowel) THEN
  343. FMT(vowel/o_mid2)
  344. ENDIF
  345. IF nextPhW(#r) AND next2Ph(isNotVowel) THEN
  346. FMT(vowel/o_mid2)
  347. ENDIF
  348. FMT(vowel/o_mid)
  349. endphoneme
  350. phoneme oU
  351. import_phoneme en/oU
  352. endphoneme
  353. phoneme u
  354. vowel starttype #u endtype #u
  355. IF nextPh(isVowel) OR nextPh(j) THEN
  356. length 220
  357. ELSE
  358. length 180
  359. ENDIF
  360. FMT(vowel/u_bck2)
  361. endphoneme
  362. phoneme u: // slitely longer than u
  363. vowel starttype #u endtype #u
  364. length 240
  365. FMT(vowel/u_bck2)
  366. endphoneme
  367. phoneme y
  368. vowel starttype #u endtype #u
  369. IF nextPhW(E~) OR nextPhW(#i) THEN
  370. length 110
  371. FMT(vowel/y, 80)
  372. ENDIF
  373. length 180
  374. FMT(vowel/y)
  375. endphoneme
  376. phoneme y-
  377. vowel starttype #u endtype #u
  378. unstressed
  379. length 130
  380. FMT(vowel/y)
  381. endphoneme
  382. phoneme W
  383. vowel starttype #@ endtype #@
  384. length 180
  385. FMT(vowel/@_6)
  386. endphoneme
  387. phoneme W2 // For english words
  388. vowel starttype #@ endtype #@
  389. length 100
  390. unstressed
  391. FMT(vowel/@_6)
  392. endphoneme
  393. phoneme Y
  394. vowel starttype #@ endtype #@
  395. length 170
  396. FMT(vowel/y#)
  397. endphoneme
  398. phoneme w
  399. vowel starttype #u endtype #u
  400. IF prevPh(#r) OR prevPhW(#l) THEN
  401. NextVowelStarts
  402. VowelStart(w/w@)
  403. VowelStart(vwl_fr/wa)
  404. VowelStart(w/we)
  405. VowelStart(w/wi)
  406. VowelStart(w/wo)
  407. VowelStart(w/wu)
  408. EndSwitch
  409. ELSE
  410. ChangePhoneme(w/)
  411. ENDIF
  412. endphoneme
  413. phoneme w/
  414. liquid
  415. lengthmod 7
  416. IF nextPh(isVowel) THEN
  417. NextVowelStarts
  418. VowelStart(w/w@)
  419. VowelStart(vwl_fr/wa)
  420. VowelStart(w/we)
  421. VowelStart(w/wi)
  422. VowelStart(w/wo)
  423. VowelStart(w/wu)
  424. EndSwitch
  425. VowelEnding(w/xw, -30)
  426. IF prevPh(isPause) THEN
  427. FMT(w/_w)
  428. ELSE
  429. FMT(w/_w)
  430. ENDIF
  431. ELSE
  432. // no vowel follows
  433. Vowelout len=50
  434. IF prevPh(#i) THEN
  435. FMT(w/iw_)
  436. ENDIF
  437. FMT(w/w_)
  438. ENDIF
  439. endphoneme
  440. phoneme A~
  441. vowel starttype #a endtype #a
  442. length 190
  443. FMT(vnasal/aa_n4)
  444. endphoneme
  445. phoneme E~ // same as W~ for fr-fr
  446. vowel starttype #e endtype #e
  447. length 190
  448. IF nextPh(n2) THEN
  449. FMT(vowel/e_mid)
  450. ENDIF
  451. FMT(vnasal/W_n)
  452. endphoneme
  453. phoneme O~
  454. vowel starttype #o endtype #o
  455. length 190
  456. FMT(vnasal/o_n4)
  457. endphoneme
  458. phoneme W~
  459. vowel starttype #@ endtype #@
  460. length 190
  461. FMT(vnasal/W_n)
  462. endphoneme
  463. // These vowels map to others in fr-fr, but are distinct in fr-ca
  464. phoneme U // same as [u]
  465. import_phoneme fr/u
  466. endphoneme
  467. phoneme y" // same as [y]
  468. import_phoneme fr/y
  469. endphoneme
  470. phoneme E: // slightly longer than [E]
  471. import_phoneme E
  472. endphoneme
  473. phoneme A // same as [a]
  474. import_phoneme a
  475. endphoneme
  476. // CONSONANTS
  477. //===========
  478. // uses the consonants in file "phonemes", unless overridden here
  479. phoneme b
  480. vcd blb stop
  481. starttype #cFR endtype #cFR
  482. voicingswitch p
  483. lengthmod 6
  484. Vowelin f1=2 f2=1000 -300 -200 f3=-100 100
  485. Vowelout f1=2 f2=1000 -500 -300 f3=-300 80 brk
  486. IF KlattSynth THEN
  487. Vowelin f1=1 f2=1000 -500 -300 f3=-300 80
  488. IF nextPh(isPause2) THEN
  489. FMT(klatt/b) addWav(x/b_)
  490. ENDIF
  491. FMT(klatt/b) addWav(x/b)
  492. ENDIF
  493. IF PreVoicing THEN
  494. IF nextPhW(#r) THEN
  495. FMT(b/xbr)
  496. ELSE
  497. FMT(b/xb)
  498. ENDIF
  499. ENDIF
  500. IF nextPh(isPause2) OR nextPh(l) THEN
  501. FMT(b/b_) addWav(x/b_)
  502. ELIF nextPh(l/) THEN
  503. FMT(b/b)
  504. ELIF nextPh(#r) THEN
  505. FMT(b/br) addWav(x/b, 50)
  506. ENDIF
  507. FMT(b/b) addWav(x/b, 70)
  508. endphoneme
  509. phoneme d
  510. vcd alv stop
  511. starttype #cFR endtype #cFR
  512. voicingswitch t
  513. lengthmod 5
  514. Vowelin f1=1 f2=1700 -300 300 f3=-100 80 amp=20
  515. Vowelout f1=2 f2=1700 -300 300 f3=-100 80
  516. IF PreVoicing THEN
  517. IF nextPhW(#r) THEN
  518. FMT(d/xdr)
  519. ELSE
  520. FMT(d/xd)
  521. ENDIF
  522. ENDIF
  523. IF nextPh(isPause2) THEN
  524. FMT(d/d_) addWav(x/d_, 50)
  525. ELIF nextPhW(#r) THEN
  526. FMT(d/dr) addWav(x/d_, 50)
  527. ENDIF
  528. FMT(d/d) addWav(x/d, 40)
  529. endphoneme
  530. phoneme f
  531. vls lbd frc
  532. starttype #cFR endtype #cFR
  533. voicingswitch v
  534. lengthmod 3
  535. Vowelout f1=0 f2=1000 -500 -350 f3=-200 100
  536. IF nextPh(isPause) THEN
  537. WAV(ufric/f_)
  538. ENDIF
  539. WAV(ufric/f, 80)
  540. endphoneme
  541. phoneme g
  542. vcd vel stop
  543. starttype #cFR endtype #cFR
  544. voicingswitch k
  545. lengthmod 5
  546. Vowelin f1=2 f2=2300 200 300 f3=-300 80
  547. Vowelout f1=1 f2=2300 250 300 f3=-300 80 brk
  548. IF PreVoicing THEN
  549. IF nextPhW(#r) THEN
  550. FMT(g/xgr)
  551. ELSE
  552. FMT(g/xg)
  553. ENDIF
  554. ENDIF
  555. IF nextPh(isPause2) THEN
  556. FMT(g/g_) addWav(x/g_)
  557. ELIF nextPhW(#r) THEN
  558. FMT(g/gr) addWav(x/g, 20)
  559. ENDIF
  560. FMT(g/g) addWav(x/g, 20)
  561. endphoneme
  562. phoneme k
  563. vls vel stop
  564. starttype #cFR endtype #cFR
  565. voicingswitch g
  566. length 50
  567. lengthmod 2
  568. Vowelin f1=0 f2=2300 200 400 f3=-100 80
  569. Vowelout f1=0 f2=2300 300 400 f3=-100 80 rms=20
  570. IF nextPh(isPause2) THEN
  571. WAV(ustop/k_)
  572. ELIF nextPh(#i) OR nextPh(;) THEN
  573. WAV(ustop/ki, 45)
  574. ELIF nextPh(#l) THEN
  575. WAV(ustop/kl, 40)
  576. ELIF nextPh(#r) THEN
  577. length 45
  578. WAV(ustop/k, 50)
  579. ENDIF
  580. WAV(ustop/k, 40)
  581. endphoneme
  582. phoneme n
  583. vcd alv nasal
  584. Vowelout f1=2 f2=1700 -300 250 f3=-100 80 rms=20 brk
  585. lengthmod 4
  586. IF KlattSynth THEN
  587. Vowelin f1=0 f2=1500 -200 200 f3=0 80
  588. FMT(klatt/n)
  589. ENDIF
  590. NextVowelStarts
  591. VowelStart(n/n@)
  592. VowelStart(n/na)
  593. VowelStart(n/ne)
  594. VowelStart(n/ni)
  595. VowelStart(n/no)
  596. VowelStart(n/nu)
  597. EndSwitch
  598. IF prevPh(isNotVowel) AND nextPhW(isLiquid) THEN
  599. FMT(n/nj)
  600. ELIF prevPh(isPause) OR prevPh(n) THEN
  601. FMT(n/_n)
  602. ELIF nextPh(isNotVowel) THEN
  603. length 120
  604. FMT(n/n_long_)
  605. ENDIF
  606. endphoneme
  607. phoneme n2
  608. vcd alv nasal
  609. IF nextPh(w) OR nextPh(isVowel) THEN
  610. ChangePhoneme(n)
  611. ELSE
  612. ChangePhoneme(NULL)
  613. ENDIF
  614. endphoneme
  615. phoneme p
  616. vls blb stop
  617. starttype #cFR endtype #cFR
  618. voicingswitch b
  619. lengthmod 2
  620. Vowelin f1=0 f2=1000 -50 -100 f3=-200 80 amp=11
  621. Vowelout f1=0 f2=1000 -500 -350 f3=-300 80 rms=22
  622. IF nextPh(isPause2) THEN
  623. WAV(ustop/p_, 80)
  624. ELIF nextPh(@-) THEN
  625. WAV(ustop/p_unasp, 70)
  626. ELIF nextPh(#l) THEN
  627. WAV(ustop/pl, 50)
  628. ELIF nextPh(#r) THEN
  629. length 40
  630. WAV(ustop/p_, 80)
  631. ENDIF
  632. WAV(ustop/p_unasp_, 90)
  633. endphoneme
  634. phoneme p2 // silent unless followed by vowel
  635. vls blb stop
  636. lengthmod 2
  637. Vowelin f1=0 f2=1000 -50 -100 f3=-200 80 amp=11
  638. Vowelout f1=0 f2=1000 -500 -350 f3=-300 80 rms=22
  639. IF nextPh(isNotVowel) THEN
  640. ChangePhoneme(NULL)
  641. ENDIF
  642. WAV(ustop/p, 45)
  643. endphoneme
  644. phoneme s
  645. vls alv frc sibilant
  646. voicingswitch z
  647. lengthmod 3
  648. Vowelin f1=0 f2=1700 -300 300 f3=-100 80
  649. Vowelout f1=0 f2=1700 -300 250 f3=-100 80 rms=20
  650. IF nextPh(isPause) THEN
  651. WAV(ufric/s_, 45)
  652. ELIF nextPh(p) OR nextPh(t) OR nextPh(k) THEN
  653. WAV(ufric/s!, 45)
  654. ENDIF
  655. WAV(ufric/s, 45)
  656. endphoneme
  657. phoneme S
  658. vls pla frc sibilant
  659. starttype #cFR endtype #cFR
  660. voicingswitch Z
  661. lengthmod 3
  662. Vowelin f1=0 f2=1900 100 300 f3=-100 80
  663. Vowelout f1=0 f2=1900 100 300 f3=-100 80
  664. IF prevPhW(t) THEN
  665. length 60
  666. ENDIF
  667. IF nextPh(isPause) THEN
  668. WAV(ufric/sh_, 45)
  669. ENDIF
  670. WAV(ufric/sh, 45)
  671. endphoneme
  672. phoneme t
  673. vls alv stop
  674. starttype #cFR endtype #cFR
  675. voicingswitch d
  676. lengthmod 2
  677. Vowelin f1=0 f2=1700 -300 300 f3=-100 80
  678. Vowelout f1=0 f2=1700 -300 250 f3=-100 80 rms=20
  679. IF nextPh(isPause2) THEN
  680. WAV(ustop/t_, 40)
  681. ELIF nextPh(#r) THEN
  682. length 40
  683. WAV(ustop/t_short_, 50)
  684. ENDIF
  685. WAV(ustop/t_short, 40)
  686. endphoneme
  687. phoneme t2 // silent unless followed by vowel
  688. vls alv stop
  689. Vowelin f1=0 f2=1600 -300 300 f3=-100 80
  690. Vowelout f1=0 f2=1600 -300 250 f3=-100 80 rms=20
  691. lengthmod 2
  692. IF nextPh(isVowel) OR nextPh(w) OR nextPh(j) THEN
  693. WAV(ustop/t_short, 30)
  694. ELSE
  695. ChangePhoneme(NULL)
  696. ENDIF
  697. endphoneme
  698. phoneme t3 // silent unless followed by vowel or pause
  699. vls alv stop
  700. lengthmod 2
  701. IF nextPh(isPause) THEN
  702. ChangePhoneme(t)
  703. ELIF nextPh(isNotVowel) THEN
  704. ChangePhoneme(NULL)
  705. ELSE
  706. ChangePhoneme(t2)
  707. ENDIF
  708. endphoneme
  709. phoneme v
  710. vcd lbd frc
  711. starttype #cFR endtype #cFR
  712. voicingswitch f
  713. lengthmod 6
  714. length 90
  715. Vowelin f1=0 f2=1000 -300 -200 f3=-300 100
  716. Vowelout f1=0 f2=1000 -500 -300 f3=-300 100
  717. IF KlattSynth THEN
  718. CALL base/v
  719. RETURN
  720. ENDIF
  721. IF nextPh(isPause2) THEN
  722. FMT(voc/v_) addWav(vocw/v)
  723. ENDIF
  724. IF thisPh(isWordStart) AND nextPhW(isLiquid) THEN
  725. Length 70
  726. ELIF nextPhW(w/) OR nextPhW(#r) THEN
  727. Length 60
  728. ENDIF
  729. FMT(voc/v) addWav(vocw/v, 60)
  730. endphoneme
  731. phoneme V // For english words
  732. vowel starttype #a endtype #@
  733. length 140
  734. ChangeIfDiminished(@)
  735. FMT(vowel/V_2)
  736. endphoneme
  737. phoneme z
  738. vcd alv frc sibilant
  739. voicingswitch s
  740. lengthmod 6
  741. Vowelout f1=0 f2=1700 -300 300 f3=-100 60 len=50
  742. IF nextPhW(z) THEN
  743. FMT(d/xd)
  744. ENDIF
  745. IF nextPh(isPause2) OR nextPh(isPause) THEN
  746. FMT(voc/z_) addWav(ufric/s_, 45)
  747. ENDIF
  748. IF prevPhW(t) THEN
  749. length 60
  750. ENDIF
  751. FMT(voc/z) addWav(ufric/s_, 45)
  752. endphoneme
  753. phoneme z2 // silent unless followed by vowel
  754. vcd alv frc sibilant
  755. IF nextPh(isVowel) OR nextPh(w/) OR nextPh(j) THEN
  756. Length 70
  757. FMT(voc/z) addWav(ufric/s, 40)
  758. ELSE
  759. ChangePhoneme(NULL)
  760. ENDIF
  761. endphoneme
  762. phoneme z3 // "six" and "dix". [s] before pause, [z] before vowel, else []
  763. vcd alv frc sibilant
  764. IF nextPh(isPause) THEN
  765. ChangePhoneme(s)
  766. ELIF nextPh(isVowel) OR nextPh(w/) THEN
  767. ChangePhoneme(z)
  768. ELSE
  769. ChangePhoneme(NULL)
  770. ENDIF
  771. endphoneme
  772. // translate from English to French phonemes
  773. equivalents en
  774. remove_stress
  775. 0 O
  776. 3 W r
  777. 3: W : r
  778. @ W
  779. @- W
  780. @2 W
  781. @5 W
  782. @L W l
  783. a a
  784. a# a#
  785. A: a :
  786. A@ a r
  787. aa a :
  788. aI a j
  789. aI3 a j W2 r
  790. aI@ a j W2 r
  791. aU a w
  792. aU@ a w @
  793. A~ A~
  794. E E
  795. e: e
  796. e@ E : r
  797. eI E : j/
  798. i i
  799. I I
  800. I2 I2
  801. i: i :
  802. i@ i r
  803. i@3 i : r
  804. O O
  805. O: O :
  806. o: o
  807. O@ O r
  808. o@ O r
  809. OI O j
  810. oU oU
  811. O~ O~
  812. U u
  813. u: u:
  814. U@ u r
  815. V V
  816. IR i r
  817. VR W r
  818. b b
  819. C C
  820. d d
  821. D D
  822. dZ dZ
  823. f f
  824. g g
  825. h h
  826. j j
  827. k k
  828. l l
  829. l# l#
  830. m m
  831. n n
  832. N N
  833. n^ n^
  834. p p
  835. Q Q
  836. r r
  837. r- r
  838. s s
  839. S S
  840. t t
  841. T T
  842. t2 t
  843. tS tS
  844. v v
  845. w w/
  846. x x
  847. z z
  848. Z Z
  849. endphoneme