Posted to tcl by rmax at Fri Apr 17 12:54:32 GMT 2015view pretty

package require Tk
package require snack
set filename snackdummmy.wav

proc foo {} {
    s max -start 44100
    after 20 foo
}

file delete -force $filename
snack::sound s -channels 1 -rate 44100 -file $filename
s record
pack [canvas .c]
.c create waveform 1 1 -sound s
after 2000 foo
vwait forever