home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / fest-141.zip / festival / examples / webdemo.scm < prev   
Text File  |  1997-01-06  |  3KB  |  104 lines
  1. ;;;
  2. ;;;  Sentences presynthesized on demo web page
  3. ;;;
  4.  
  5. (set! utt1 
  6. (Utterance Text
  7. "
  8. This is a short introduction to the Festival Speech Synthesis System.
  9. Festival was developed by Alan Black and Paul Taylor, at the Centre
  10. for Speech Technology Research, University of Edinburgh.
  11. "))
  12.  
  13. (set! utt2
  14. (Utterance Text
  15. "
  16. Festival currently uses a diphone synthesizer, both 
  17. residual excited LPC and PSOLA methods are supported.
  18. The upper levels, duration and intonation, are generated from
  19. statistically trained models, built from databases of natural speech.
  20. The architecture of the system is designed to be flexible, including
  21. various tools, which allow new modules to be added easily.
  22. "))
  23.  
  24. (define (make_waves)
  25. "Synthesize the two examples and save them in the desired formats"
  26.  (Synth utt1)
  27.  (Parameter.set 'Wavefiletype 'riff)
  28.  (utt.save.wave utt1 "intro.wav")
  29.  (Parameter.set 'Wavefiletype 'ulaw)
  30.  (utt.save.wave utt1 "intro.au")
  31.  
  32.  (Synth utt2)
  33.  (Parameter.set 'Wavefiletype 'riff)
  34.  (utt.save.wave utt2 "intro2.wav")
  35.  (Parameter.set 'Wavefiletype 'ulaw)
  36.  (utt.save.wave utt2 "intro2.au")
  37. )
  38.  
  39. (set! welsh1
  40. (Utterance Text 
  41. "Dwi'n gallu llefaru pob llinell heb atal, oherwydd does dim tafod gyda fi."))
  42.  
  43. (define (make_welsh)
  44.  (voice_welsh_hl)
  45.  (Synth welsh1)
  46.  (Parameter.set 'Wavefiletype 'riff)
  47.  (utt.save.wave welsh1 "welsh1.wav")
  48.  (Parameter.set 'Wavefiletype 'ulaw)
  49.  (utt.save.wave welsh1 "welsh1.au"))
  50.  
  51. (set! spanish1
  52. (Utterance Text
  53. "m'uchos 'a~nos despu'es, fr'ente al pelot'on de fusilami'ento, el
  54. coron'el aureli'ano buend'ia hab'ia de record'ar de aqu'el d'ia
  55. lej'ano, en que su p'adre lo llev'o a conoc'er el hi'elo."))
  56.  
  57. (define (make_spanish)
  58.  (voice_spanish_el)
  59.  (Synth spanish1)
  60.  (Parameter.set 'Wavefiletype 'riff)
  61.  (utt.save.wave spanish1 "spanish1.wav")
  62.  (Parameter.set 'Wavefiletype 'ulaw)
  63.  (utt.save.wave spanish1 "spanish1.au"))
  64.  
  65.  
  66. (set! utt_pos (Utterance Text 
  67. "My cat who lives dangerously had nine lives. "))
  68.  
  69. (set! utt_Bdi (Utterance Text 
  70. "He wanted to go for a drive in."))
  71. (set! utt_Bditc (Utterance Text 
  72. "He wanted to go for a drive in the country."))
  73.  
  74. (define (make_others)
  75.  (Synth utt_pos)
  76.  (Synth utt_Bdi)
  77.  (Synth utt_Bditc)
  78.  (Parameter.set 'Wavefiletype 'riff)
  79.  (utt.save.wave utt_pos "cat.wav")
  80.  (utt.save.wave utt_Bdi "Bdi.wav")
  81.  (utt.save.wave utt_Bditc "Bditc.wav")
  82.  (Parameter.set 'Wavefiletype 'ulaw)
  83.  (utt.save.wave utt_pos "cat.au")
  84.  (utt.save.wave utt_Bdi "Bdi.au")
  85.  (utt.save.wave utt_Bditc "Bditc.au"))
  86.  
  87. (set! utt_diph (Utterance Text
  88. "This is a short introduction to the Festival Speech Synthesis System."))
  89. (set! utt_sucs (Utterance Text
  90. "This is a short introduction to the Festival Speech Synthesis System."))
  91.  
  92. (define (make_diphsbs)
  93.  (Synth utt_diph)
  94.  (Parameter.set 'Wavefiletype 'riff)
  95.  (utt.save.wave utt_diph "diph1.wav")
  96.  (Parameter.set 'Wavefiletype 'ulaw)
  97.  (utt.save.wave utt_diph "diph1.au")
  98.  (voice_gsw_450)
  99.  (Synth utt_sucs)
  100.  (Parameter.set 'Wavefiletype 'riff)
  101.  (utt.save.wave utt_sucs "sbs1.wav")
  102.  (Parameter.set 'Wavefiletype 'ulaw)
  103.  (utt.save.wave utt_sucs "sbs1.au"))
  104.