#!/bin/sh
# the next line restarts using wish \
exec wish8.5 "$0" "$@"

package require -exact snack 2.2

pack [canvas .c -height 200 -width 400]

snack::sound s -load ex1.wav

.c create spectrogram 0 0 -sound s -height 200 -width 400

pack [button .bClose -text Close -command exit]
