Anonymous user
Using a speech engine to highlight words: Difference between revisions
Using a speech engine to highlight words (view source)
Revision as of 12:36, 11 September 2011
, 12 years ago→Tcl: Added implementation
m (Reword the task (based on comments in discussion page) to make it clearer what was intended) |
(→Tcl: Added implementation) |
||
Line 24:
Else word .= lf, i++
}</lang>
=={{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}}
<lang tcl>package require Tcl 8.5
package require Tk 8.5
proc say {text button} {
grab $button
$button configure -state disabled -cursor watch
update
set starts [$text search -all -regexp -count lengths {\S+} 1.0]
foreach start $starts length $lengths {
lappend strings [$text get $start "$start + $length char"]
lappend ends [$text index "$start + $length char"]
}
$text tag remove sel 1.0 end
foreach from $starts str $strings to $ends {
$text tag add sel $from $to
update idletasks
exec /usr/bin/say << $str
$text tag remove sel 1.0 end
}
grab release $button
$button configure -state normal -cursor {}
}
pack [text .t]
pack [button .b -text "Speak, computer!" -command {say .t .b}] -fill x
.t insert 1.0 "This is an example of speech synthesis with Tcl/Tk."</lang>
| |||