|
Lines 56-61
Link Here
|
| 56 |
(Parameter.set 'Language 'britishenglish) |
56 |
(Parameter.set 'Language 'britishenglish) |
| 57 |
) |
57 |
) |
| 58 |
|
58 |
|
|
|
59 |
(define (language_french) |
| 60 |
"(language_french) |
| 61 |
Set up language parameters for French." |
| 62 |
|
| 63 |
(load '/usr/share/festival/franfest/franfest.scm) |
| 64 |
|
| 65 |
(set! male1 voice_fr1_mbrola) |
| 66 |
(male1) |
| 67 |
(set! female1 voice_fr2_mbrola) |
| 68 |
(female1) |
| 69 |
|
| 70 |
(Parameter.set 'Language 'français) |
| 71 |
) |
| 72 |
|
| 59 |
(define (language_american_english) |
73 |
(define (language_american_english) |
| 60 |
"(language_american_english) |
74 |
"(language_american_english) |
| 61 |
Set up language parameters for Aemerican English." |
75 |
Set up language parameters for Aemerican English." |
|
Lines 109-114
Link Here
|
| 109 |
(language_welsh)) |
123 |
(language_welsh)) |
| 110 |
((equal? language 'spanish) |
124 |
((equal? language 'spanish) |
| 111 |
(language_castillian_spanish)) |
125 |
(language_castillian_spanish)) |
|
|
126 |
((equal? language 'french) |
| 127 |
(language_french)) |
| 112 |
((equal? language 'klingon) |
128 |
((equal? language 'klingon) |
| 113 |
(language_klingon)) |
129 |
(language_klingon)) |
| 114 |
(t |
130 |
(t |
