Using a speech engine to highlight words: Difference between revisions

We use the simple SAPI.SPVoice COM Object and a parsing loop.

The highlighting is done with [http://msdn.microsoft.com/en-us/library/bb761661 EM_SETSEL] and Notepad. Rather crude, but it works. Due to the simplistic nature of the parsing loop, the text ends with a space.

EM_SETSEL := 0x00B1

 

}

Else word .= lf, i++

 

 

 

We are going to invoke vbscript directly

 

Sub Speak(Texto As String)

Print palabra(n)

Speak palabra(n)

 

 

 

Very robotic but it works.

 

import (

time.Sleep(time.Second)

fmt.Printf("%s%s\n", bs, prev)

 

 

=={{header|Julia}}==

{{trans|Go}}

for word in split(sentence)

s = replace(lowercase(word), r"[^a-z]" => "")

 

speak("Are those 144 shy Eurasian footwear, cowboy chaps, or jolly earthmoving headgear?")

 

=={{header|M2000 Interpreter}}==

Module UsingEvents {

Form 60, 32

UsingEvents

 

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Panel@Column@{Dynamic[

Row[Riffle[

Button["Speak",

While[i < Length@words, i++; FinishDynamic[]; Speak[words[[i]]];

 

=={{header|Nim}}==

{{trans|Go}}

Works on Linux but may also work on other platforms provided "espeak" is installed.

 

const S = "Actions speak louder than words."

bs = repeat('\b', prevlen)

sleep(1000)

 

=={{header|Phix}}==

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Speech.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Speech.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Raku}}==

{{trans|Go}}

 

my \s = "Actions speak louder than words.";

}

 

 

=={{header|REXX}}==

 

Each word of the text is highlighted (by showing the word in uppercase). &nbsp; the terminal screen is cleared before showing the text that is being spoken; &nbsp; the repeated calls to the (Windows) speech engine makes for a slower speech rate.

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

#= words(t)

oneWord= dq x dq /*surround a word in double quotes (").*/

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

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

 

 

=={{header|Ring}}==

load "guilib.ring"

 

Func pClose

MyApp.quit()

{{out}}

<pre>

 

Uses the Ruby code from [[Speech synthesis]]

 

if ARGV.length == 1

@sentence.replace($words.each_with_index.map {|word, idx| idx == @idx ? strong(word + " ") : span(word + " ")})

end

 

=={{header|Tcl}}==

This code uses the external <code>/usr/bin/say</code> program (known available on Mac OS X) as its interface to the speech engine; this produces rather stilted speech because it forces the text to be spoken one word at a time instead of as a whole sentence (in order to keep the highlighting synchronized).

{{libheader|Tk}}

package require Tk 8.5

proc say {text button} {

pack [text .t]

pack [button .b -text "Speak, computer!" -command {say .t .b}] -fill x

 

=={{header|Wren}}==

{{libheader|Wren-str}}

The ability to call external processes such as ''espeak'' is expected to be added to Wren-cli in the next release. In the meantime, we embed the following Wren script in a minimal C host (no error checking) to complete this task.

 

import "./str" for Str

bs = "\b" * prevLen

C.usleep(1000)

<br>

We now embed this in the following C program, compile and run it.

#include <stdlib.h>

#include <string.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

wrenInterpret(vm, module, script);

free(script);

return 0;