[REBOL] text-to-speech

From: ryan::christiansen::intellisol::com at: 3-Jul-2001 10:13

Here is a little function which uses the online text-to-speech synthesizer
at Bell Labs to convert a string! to speech in a .wav file.

text-to-speech: func [
    input-text [string!] "The text you wish to synthesize"
][
    replace/all input-text " " "+"
    synthesis-url: make url! rejoin
[{http://www.bell-labs.com/cgi-user/tts/voicestts-nj?voice=man&audio
=.wav&text=} input-text]
    voice-file: read/binary synthesis-url
    write/binary %speech.wav voice-file
]

Have fun!

-Ryan

  [This is the only message in the thread]