diff -ur festival.orig/lib/email-mode.scm festival/lib/email-mode.scm --- festival.orig/lib/email-mode.scm 2001-04-04 07:55:20.000000000 -0400 +++ festival/lib/email-mode.scm 2007-03-13 12:14:01.000000000 -0400 @@ -40,7 +40,7 @@ (define (email_init_func) "(email_init_func) Called on starting email text mode." - (voice_rab_diphone) + (voice_nitech_us_slt_arctic_hts) (set! email_previous_t2w_func token_to_words) (set! english_token_to_words email_token_to_words) (set! token_to_words english_token_to_words) @@ -67,13 +67,13 @@ ((and (string-matches name ">") (string-matches (item.feat token "whitespace") "[ \t\n]*\n *")) - (voice_don_diphone) + (voice_nitech_us_bdl_arctic_hts) nil ;; return nothing to say ) (t ;; for all other cases (if (string-matches (item.feat token "whitespace") ".*\n[ \n]*") - (voice_rab_diphone)) + (voice_nitech_us_slt_arctic_hts)) (email_previous_t2w_func token name)))) (set! tts_text_modes diff -ur festival.orig/lib/festival.scm festival/lib/festival.scm --- festival.orig/lib/festival.scm 2005-10-21 08:34:01.000000000 -0400 +++ festival/lib/festival.scm 2007-03-13 12:15:13.000000000 -0400 @@ -507,8 +507,11 @@ double quotes (tts FILENAME nil) Say contexts of file, FILENAME should be surrounded by double quotes - (voice_rab_diphone) Select voice (Britsh Male) (voice_ked_diphone) Select voice (American Male) + (voice_nitech_us_bdl_arctic_hts) + Select voice (American Male) + (voice_nitech_us_slt_arctic_hts) + Select voice (American Female) ") (define (festival_warranty) diff -ur festival.orig/lib/languages.scm festival/lib/languages.scm --- festival.orig/lib/languages.scm 2002-04-19 17:47:23.000000000 -0400 +++ festival/lib/languages.scm 2007-03-13 12:17:15.000000000 -0400 @@ -58,11 +58,12 @@ (define (language_american_english) "(language_american_english) -Set up language parameters for Aemerican English." +Set up language parameters for American English." - (if (symbol-bound? 'voice_kal_diphone) - (set! female1 voice_kal_diphone)) - (set! male1 voice_ked_diphone) + (if (symbol-bound? 'voice_nitech_us_slt_arctic_hts) + (set! female1 voice_nitech_us_slt_arctic_hts)) + (if (symbol-bound? 'voice_nitech_us_bdl_arctic_hts) + (set! male1 voice_nitech_us_bdl_arctic_hts)) (male1) (Parameter.set 'Language 'americanenglish) @@ -98,11 +99,12 @@ (define (select_language language) (cond - ((or (equal? language 'britishenglish) - (equal? language 'english)) ;; we all know its the *real* English + ((or (equal? language 'americanenglish) + (equal? language 'english)) ;; it may not be the *real* English + (language_american_english)) ;; but at least it's supported without + ;; non-free add-ons. + ((equal? language 'britishenglish) (language_british_english)) - ((equal? language 'americanenglish) - (language_american_english)) ((equal? language 'scotsgaelic) (language_scots_gaelic)) ((equal? language 'welsh) @@ -113,8 +115,8 @@ (language_klingon)) (t (print "Unsupported language, using English") - (language_british_english)))) + (language_american_english)))) -(defvar language_default language_british_english) +(defvar language_default language_american_english) (provide 'languages) diff -ur festival.orig/lib/sable-mode.scm festival/lib/sable-mode.scm --- festival.orig/lib/sable-mode.scm 2006-07-07 17:24:55.000000000 -0400 +++ festival/lib/sable-mode.scm 2007-03-13 12:25:04.000000000 -0400 @@ -222,35 +222,38 @@ (xxml_synth UTT) (set! sable_speaker_stack (cons sable_current_speaker sable_speaker_stack)) (cond - ((not equal? sable_current_language 'britishenglish) + ((not equal? sable_current_language 'americanenglish) (print "SABLE: choosen unknown voice, current voice unchanged")) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male1) - (set! sable_current_speaker 'voice_kal_diphone) - (voice_kal_diphone)) + (set! sable_current_speaker 'voice_nitech_us_bdl_arctic_hts) + (voice_nitech_us_bdl_arctic_hts)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male2) - (set! sable_current_speaker 'voice_don_diphone) - (voice_don_diphone)) + (set! sable_current_speaker 'voice_nitech_us_rms_arctic_hts) + (voice_nitech_us_rms_arctic_hts)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male3) - (set! sable_current_speaker 'voice_ked_diphone) - (voice_ked_diphone)) + (set! sable_current_speaker 'voice_nitech_us_awb_arctic_hts) + (voice_nitech_us_awb_arctic_hts)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male4) - (set! sable_current_speaker 'voice_rab_diphone) - (voice_rab_diphone)) + (set! sable_current_speaker 'voice_nitech_us_jmk_arctic_hts) + (voice_nitech_us_jmk_arctic_hts)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male5) - (set! sable_current_speaker 'voice_cmu_us_jmk_arctic_hts) - (voice_cmu_us_jmk_arctic_hts)) + (set! sable_current_speaker 'voice_kal_diphone) + (voice_kal_diphone)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male6) - (set! sable_current_speaker 'voice_cmu_us_bdl_arctic_hts) - (voice_cmu_us_bdl_arctic_hts)) + (set! sable_current_speaker 'voice_ked_diphone) + (voice_ked_diphone)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male7) - (set! sable_current_speaker 'voice_cmu_us_awb_arctic_hts) - (voice_cmu_us_awb_arctic_hts)) + (set! sable_current_speaker 'voice_kal_diphone) + (voice_kal_diphone)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'male8) - (set! sable_current_speaker 'voice_rab_diphone) + (set! sable_current_speaker 'voice_ked_diphone) (voice_ked_diphone)) ((equal? (car (xxml_attval "NAME" ATTLIST)) 'female1) - (set! sable_current_speaker 'voice_cmu_us_slt_arctic_hts) - (voice_us1_mbrola)) + (set! sable_current_speaker 'voice_nitech_us_slt_arctic_hts) + (voice_nitech_us_slt_arctic_hts)) + ((equal? (car (xxml_attval "NAME" ATTLIST)) 'female2) + (set! sable_current_speaker 'voice_nitech_us_clb_arctic_hts) + (voice_nitech_us_clb_arctic_hts)) (t (set! sable_current_speaker (intern (string-append "voice_" (car (xxml_attval "NAME" ATTLIST))))) (eval (list sable_current_speaker)))) @@ -467,7 +470,7 @@ "(sable_init_func) Initialisation for SABLE mode" (sable_init_globals) - (voice_kal_diphone) + (voice_nitech_us_slt_arctic_hts) (set! sable_previous_elements xxml_elements) (set! xxml_elements sable_elements) (set! sable_previous_token_to_words english_token_to_words) diff -ur festival.orig/lib/soleml-mode.scm festival/lib/soleml-mode.scm --- festival.orig/lib/soleml-mode.scm 2001-04-04 07:55:20.000000000 -0400 +++ festival/lib/soleml-mode.scm 2007-03-13 12:25:48.000000000 -0400 @@ -51,7 +51,7 @@ (define (voice_soleml) "(soleml_voice) Speaker specific initialisation for SOLE museum data." - (voice_rab_diphone) + (voice_nitech_us_slt_arctic_hts) ;; Utterances only come at end of file (set! eou_tree '((0))) ) diff -ur festival.orig/lib/voices.scm festival/lib/voices.scm --- festival.orig/lib/voices.scm 2005-05-02 10:20:37.000000000 -0400 +++ festival/lib/voices.scm 2007-03-13 12:31:07.000000000 -0400 @@ -322,25 +322,19 @@ A variable whose value is a function name that is called on start up to the default voice. [see Site initialization]") +; This list has been reordered for Fedora, since we want to have the option +; to only install a smallish voice by default. And the slt voice is nice. (defvar default-voice-priority-list - '(kal_diphone - cmu_us_bdl_arctic_hts - cmu_us_jmk_arctic_hts - cmu_us_slt_arctic_hts - cmu_us_awb_arctic_hts -; cstr_rpx_nina_multisyn ; restricted license (lexicon) -; cstr_rpx_jon_multisyn ; restricted license (lexicon) -; cstr_edi_awb_arctic_multisyn ; restricted license (lexicon) -; cstr_us_awb_arctic_multisyn + '(nitech_us_slt_arctic_hts + nitech_us_awb_arctic_hts + nitech_us_bdl_arctic_hts + nitech_us_clb_arctic_hts + nitech_us_jmk_arctic_hts + nitech_us_rms_arctic_hts + kal_diphone ked_diphone - don_diphone - rab_diphone - en1_mbrola - us1_mbrola - us2_mbrola - us3_mbrola - gsw_diphone ;; not publically distributed - el_diphone + cstr_us_awb_arctic_multisyn + cstr_us_jmk_arctic_multisyn ) "default-voice-priority-list List of voice names. The first of them available becomes the default voice.")