#! /bin/sh
# Playmisc -- play a tune at random or by index
LOG=/tmp/playmisc.log
MIDIBIN=/u/psl/midi/`arch`/bin
TUNES="/u/psl/tunes/Cmin.prelude \
	/u/psl/midi/tunes/boogie \
	/u/psl/tunes/chopin \
	/u/psl/tunes/rag \
	/u/psl/midi/tunes/bwv881.p \
	/u/psl/midi/tunes/asmoothone \
	/u/psl/midi/tunes/bwv871.p \
	/u/psl/midi/tunes/birthday \
	/u/psl/midi/tunes/bwv874.f \
	/u/psl/tunes/airmail_special \
	/u/psl/midi/tunes/chime \
	/u/psl/midi/tunes/dfugue \
	/u/psl/midi/tunes/acca.test1 \
	/u/psl/midi/tunes/fanfare \
	/u/psl/midi/tunes/file \
	/u/psl/midi/tunes/fractal \
	/u/psl/midi/tunes/funk \
	/u/psl/midi/tunes/goldberg.theme \
	/u/psl/midi/tunes/happytrails \
	/u/psl/midi/tunes/mystery \
	/u/psl/midi/tunes/high_holiday \
	/u/psl/midi/tunes/sweetlorraine \
	"
RANDOM="no"
while [ "$1" = "loop" ]; do
	$0
done
N="$1"
if [ "$N" = "" -o "$N" -lt "0" ]; then
	N=`date | sed 's/^.*[0-9]:\(.[0-9]\):\(.[0-9]\) ..T.*/\1\2/'`
	RANDOM="yes"
fi
set $TUNES
if [ "$N" -ge $# ]; then
	N=`expr  $N % $#`
fi
shift $N
if [ "$RANDOM" = "yes" ]; then echo "	`basename $1`"; fi
(date | tr "\012" " "; echo $1) >>$LOG
$MIDIBIN/play "|$MIDIBIN/inst 10=41" $1
