File: SphereTest.tcl

package info (click to toggle)
snack 2.2.10.20090623-dfsg-8
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 3,764 kB
  • sloc: ansic: 32,662; sh: 8,558; tcl: 1,086; python: 761; makefile: 582
file content (18 lines) | stat: -rwxr-xr-x 335 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/bin/sh
# the next line restarts using wish \
exec tclsh8.5 "$0" "$@"

package require -exact snack 2.2
package require snacksphere

snack::debug 0
snack::sound s -debug 0

set path "nist/lib"
set fileList [glob $path/data/ex*.wav] 

foreach file $fileList { 
    puts "Playing: $file"
    s config -file $file
    s play -block 1
}