Posted to tcl by rmax at Fri Apr 17 12:54:32 GMT 2015view raw
- 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