home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / Snack / notescale.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  826 b   |  27 lines
  1. #!/bin/sh
  2. # the next line restarts using wish \
  3. exec wish8.3 "$0" "$@"
  4.  
  5. package require -exact snack 2.1
  6.  
  7. set f [snack::filter generator 440.0 30000 0.0 sine 8000]
  8. snack::sound s
  9. #snack::audio playLatency 100
  10.  
  11. wm resizable . 0 0
  12.  
  13. proc Beep {freq} {
  14.   $::f configure $freq
  15.   s stop
  16.   s play -filter $::f
  17. }
  18.  
  19. pack [button .b1 -text C4 -command [list Beep 261.6]] -side left
  20. pack [button .b2 -text D4 -command [list Beep 293.7]] -side left
  21. pack [button .b3 -text E4 -command [list Beep 329.7]] -side left
  22. pack [button .b4 -text F4 -command [list Beep 349.3]] -side left
  23. pack [button .b5 -text G4 -command [list Beep 392.1]] -side left
  24. pack [button .b6 -text A4 -command [list Beep 440.0]] -side left
  25. pack [button .b7 -text B4 -command [list Beep 493.9]] -side left
  26. pack [button .b8 -text C5 -command [list Beep 523.3]] -side left
  27.