Speech synthesis: Difference between revisions

[[Category:Temporal media]]

 

<br><br>

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey_L}}

 

 

=={{header|BASIC256}}==

 

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

This calls the SAPI5 API directly, it does not need an external program.

ON ERROR SYS `CoUninitialize` : PRINT 'REPORT$ : END

ON CLOSE SYS `CoUninitialize` : QUIT

DEF PROC_voice_free(V%)

SYS !(!V%+8), V%

 

=={{header|C}}==

 

{{libheader|POSIX}}

#include <stdio.h>

#include <stdlib.h>

talk("This is an example of speech synthesis.");

return 0;

 

=={{header|C sharp|C#}}==

You need to 'Add Reference' to the COM "Microsoft Speech Object Library" in your Preferences.

 

namespace Speaking_Computer

}

}

 

=={{header|Clojure}}==

{{libheader|facts/speech-synthesis}}

 

=={{header|Go}}==

Here's a library solution, but using a library written from scratch in Go.

 

import (

synthesized := gospeech.DefaultVoice.Synthesize(phonetics)

wav.WriteFile(synthesized, "output.wav")

 

=={{header|Groovy}}==

Mac only:

 

=={{header|Haskell}}==

 

 

main = say "This is an example of speech synthesis."

 

=={{header|JavaScript}}==

{{works with|JScript}}

 

=={{header|Liberty BASIC}}==

Assumes that 'espeak' is available at the path shown.

nomainwin

run "C:\Program Files\eSpeak\command_line\espeak "; chr$( 34); "This is an example of speech synthesis."; chr$( 34)

end

Another dll has been posted to do the same job, at [http://basic.wikispaces.com/SpeechLibrary LB Community Wiki]

 

Both hardware and software-only speech synthesizers exist for the CPC. A software-only solution, [http://www.cpc-power.com/index.php?page=detail&num=4372 Speech 1.1] by Superior Software (1986), supplies three BASIC extension commands (RSXes), "|say", "|speak", and "|pitch":

 

 

 

=={{header|Perl}}==

 

 

($engine) = Speech::Synthesis->InstalledEngines();

Speech::Synthesis

->new(engine => $engine, voice => $voice->{id})

 

=={{header|PicoLisp}}==

 

=={{header|PowerShell}}==

Add-Type -AssemblyName System.Speech

 

$anna.Speak("I'm sorry Dave, I'm afraid I can't do that.")

$anna.Dispose()

 

=={{header|Racket}}==

Should work on all platforms.

#lang racket

(require racket/lazy-require)

[else (error 'speak "I'm speechless!")]))

(speak "This is an example of speech synthesis.")

 

=={{header|REXX}}==

{{works with|Windowx/XP or later}}

Programming note: &nbsp; This REXX program uses a freeware program &nbsp; NIRCMD &nbsp; to interface with the Microsoft Windows speech synthesizer program &nbsp; '''SAM''', &nbsp; a text to speech using a male voice. &nbsp; SAM can possibly be configured to use other voices with later releases of Windows. &nbsp; More recent Microsoft Windows have another speech synthesizer program: &nbsp; ANNA.

Note: &nbsp; The name of the above REXX program is &nbsp; '''speak.rex'''<br>

'''usage''' &nbsp; using the command:

<pre>

speak This is an example of speech synthesis.

</pre>

 

=={{header|Ruby}}==

Using this module to encapsulate operating system lookup

require 'rbconfig'

module_function

def windows?; operating_system == :windows; end

def mac?; operating_system == :mac; end

 

{{libheader|win32-utils}}

{{works with|Ruby|1.9}}

Uses <code>espeak</code> on Linux, <code>say</code> on Mac, and the win32 SAPI library on Windows.

 

def speak(text)

end

 

 

=={{header|Scala}}==

{{libheader|FreeTTS|1.2}}

import javax.speech.synthesis.{Synthesizer, SynthesizerModeDesc}

 

|with its lapping disasters

|is feared and hearkened.""".stripMargin)

 

=={{header|Sidef}}==

Sys.run("espeak -v #{lang} -w /dev/stdout #{text.escape} | aplay");

}

 

=={{header|Swift}}==

OS X comes with a program called "say," that does speech.

 

let task = NSTask()

task.launchPath = "/usr/bin/say"

task.arguments = ["This is an example of speech synthesis."]

 

=={{header|Tcl}}==

This just passes the string into the Festival system:

Alternatively, on MacOS X, you'd use the system <code>say</code> program:

On Windows, there is a service available by COM for speech synthesis:

{{libheader|tcom}}

 

set msg "This is an example of speech synthesis."

set voice [::tcom::ref createobject Sapi.SpVoice]

Putting these together into a helper procedure, we get:

global tcl_platform

if {$tcl_platform(platform) eq "windows"} {

}

}

 

=={{header|UNIX Shell}}==

 

{{works with|Bourne Shell}} {{works with|bash}}

 

=={{header|VBScript}}==

Dim message, sapi

message = "This is an example of speech synthesis."

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak message

 

=={{header|ZX Spectrum Basic}}==

This example makes use of the Currah Speech Synthesizer peripheral device.

 

{{omit from|TI-83 BASIC}}

{{omit from|Maxima}}