#!/bin/ash
# piano.srv: Play note for "piano" program
# [Italian keyboard]
# by M. Andreoli


. /usr/games/lib/note


duration=5

Play()
{
nota=`set | grep $1`
echo -n "Playing $nota Hz ..." > /tmp/banner
wave $1 $duration 2>/dev/null
}

echo  "PIANO: by M. Andreoli  [ASDF] [HJKL]  ; q for quit"

while [ 1 ] ; do 

nota=`readchar`

case $nota in
a) Play $la ;;
w) Play $sib ;;
s) Play $si ;;
d) Play $do ;;
r) Play $dod ;;
f) Play $re ;;
t) Play $mib ;;

h) Play $mi ;;
j) Play $fa ;;
i) Play $fad ;;
k) Play $sol ;;
o) Play $sold ;;
l) Play $LA ;;

q) exit ;;
esac


done
