1#!/bin/sh
2# the next line restarts using wish \
3exec wish8.4 "$0" "$@"
4
5# 'info sharedlibext' returns '.dll' on Windows and '.so' on most Unix systems
6
7load libsquare[info sharedlibext]
8
9# Create a sound object
10
11snack::sound s
12
13# Set its length to 10000 samples
14
15s length 10000
16
17# Apply the command defined in the square package
18
19s square
20
21pack [button .b -text Play -command {s play}]
22