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

  1. package require Tk
  2. package require snack
  3. set filename snackdummmy.wav
  4.  
  5. proc foo {} {
  6. s max -start 44100
  7. after 20 foo
  8. }
  9.  
  10. file delete -force $filename
  11. snack::sound s -channels 1 -rate 44100 -file $filename
  12. s record
  13. pack [canvas .c]
  14. .c create waveform 1 1 -sound s
  15. after 2000 foo
  16. vwait forever
  17.