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++

 

=={{header|Go}}==

 

Very robotic but it works.

 

import (

time.Sleep(time.Second)

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

 

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

Module UsingEvents {

Form 60, 32

Call Local LocalTxt()

Function sp_Word {

Call Local LocalTxt()

Cursor 0, height/2

UsingEvents

 

 

Panel@Column@{Dynamic[

Row[Riffle[

Button["Speak",

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

 

 

 

 

 

 

 

 

 

 

 

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

 

<pre>

speakhi This is an example of speech synthesis.

</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