#!/bin/sh

sleep=1
gain=-30

for a in $*; do
case "$a" in
	.*) sub="$a" ;;
	-*|0) gain="$a" ;;
	[1-9]) sleep="$a"
esac
done

export sub
export sleep
export gain

echo "sub=$sub gain=$gain sleep=$sleep"


perl -e 'for(0..12) { $d="/dev/dsp$_$ENV{sub}"; -e "$d" && system "echo $d; env AUDIODEV=$d play -r96000 -n synth 2.5 sin %0-%36 sin %36-%0 sin %12 sin %24 gain $ENV{gain}; echo $d;sleep $ENV{sleep};echo -----------;" }'

#perl -e 'for(0..12) { $d="/dev/dsp$_$ENV{sub}"; -e "$d" && system "echo $d; env AUDIODEV=$d play /usr/local/share/psi/sound/chat2.wav; echo $d;sleep $ENV{sleep};echo -----------;" }'