Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 [{ =.wav&text=} input-text] voice-file: read/binary synthesis-url write/binary %speech.wav voice-file ] Have fun! -Ryan