Speech synthesis: Difference between revisions

:*   [[Using_a_Speech_engine_to_highlight_words|using a speech engine to highlight words]]

<br><br>

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey_L}}

 

 

=={{header|AutoIt}}==

 

 

=={{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|GlovePIE}}==

var.number=1

say("This is an example of 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|Julia}}==

It seems that this and similar tasks can reduce to how the language can call an external program. Using the Julia REPL:

julia> a = "hello world"

"hello world"

 

julia> run(`espeak $a`)

 

=={{header|Kotlin}}==

Whilst it is often possible to wrap such macros in 'ordinary' C functions and then expose the latter to Kotlin via a .klib, it is not worth the effort here. I have therefore confined myself to simply reporting a non-zero error status.

 

 

import kotlinx.cinterop.*

fun main(args: Array<String>) {

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

 

=={{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|M2000 Interpreter}}==

 

===Using Statement Speech===

Module UsingStatementSpeech {

Volume 100

}

UsingStatementSpeech

===Print each word as speak===

Module UsingEvents {

Declare WithEvents sp "SAPI.SpVoice"

EndStream=False

Function sp_Word {

Rem: Print StreamNumber, StreamPosition, CharacterPosition, Length

Print Mid$(That$, CharacterPosition+1, Length);" ";

}

UsingEvents

 

 

=={{header|PARI/GP}}==

 

Define a function that is using espeak package from Linux.

 

Now let it speak:

 

A monster speech tongue-twister:

 

A foreign language "Zungenbrecher":

 

=={{header|Perl}}==

 

 

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

Speech::Synthesis

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

 

=={{header|Phix}}==

 

=={{header|PHP}}==

 

{{works with|Mac OS & Linux OS}}

<?php

<?php

// Save it to a File

exec("$voice '$statement' $save_file_args");

 

 

{{works with|Windows OS}}

<?php

 

// Have $voice (Zira) announce file stream completion

$voice->Speak('File stream complete');

 

=={{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|Python}}==

import pyttsx

 

engine.say("It was all a dream.")

engine.runAndWait()

 

=={{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.

parse arg t /*get the (optional) text from the C.L.*/

if t='' then exit /*Nothing to say? Then exit program.*/

/* [↓] where the rubber meets the road*/

'NIRCMD' "speak text" dquote t dquote rate /*NIRCMD invokes Microsoft's Sam voice*/

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

 

 

For typing:

For importing:

 

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

 

{{omit from|TI-83 BASIC}}

{{omit from|Maxima}}