[linux-audio-dev] Snack Audio

[ciccolix]

Yosvany Llerena Rodríguez ha scritto:
> Hi All. I'm using Snack Audio 2.2 and Tcl/Tk to develop some
> application, I need to record a few seconds of voice but it's
> impossible y record an empty file.
> 
> -- Snack Audio
> -- vtcl(GUI for Tcl/tk)
> -- Suse Linux 10.1
> 
> 
> I use this Tcl code.
> 
> package require snack
> 
> snack :: sound s
> 
> proc ::Record {} {
> global widget
> 
> snack::sound s
> 
> proc sstop {} {
>     s stop
>     set filename "tmpwave.wav"
>     s write $filename
>     s destroy
> //     Extract
> }
> 
> after 5000 sstop
> s record
> 
> 
> best regards
> Yosvany
> 

Some things relate to the tcl-language not much clear :)

This is a code that would work as you want:

#start example
package require snack

snack::sound s

proc Record {} {
s record
after 5000 sstop
}
proc sstop {} {
     s stop
     set filename "tmpwave.wav"
     s write $filename
     s destroy
puts "this goes well"
exit
}
Record
#end example

hope help
--
Lazzaro