rpm -e clisp-clm
rpm -e cmucl-clm
rpm -e clisp-cm-clm
rpm -e cmucl-cm-clm
rpm -Uvh /usr/src/redhat/RPMS/i386/clisp-cm-clm-cmn*
rpm -Uvh /usr/src/redhat/RPMS/i386/cmucl-cm-clm-cmn*

cd /zap
if [ -d beep ] ; then
    rm -r beep
fi
mkdir beep
cd beep
cp /usr/src/redhat/BUILD/clm-2/v.ins .

echo "======== Starting clisp-cm-clm-cmn ========"
clisp-cm-clm-cmn <<EOF

(compile-file "v.ins")
(load "v.fas")
(with-sound()(fm-violin 0 1 440 0.1))

(defprocess foo ()
  (process repeat 10
	   do
	   (output
	    (new fm-violin
	      time (now)
	      dur 1
	      amplitude .1
	      frequency (between 220.0 440.0)
	      fm-index 3))
	   (wait .5)))

(events 'foo "/tmp/test.clm" :play t)

(in-package :cmn)
(cmn (output-file "test.eps")(size 24)
  (system brace 
    (staff treble (meter 6 8) 
      (c4 e. tenuto) (d4 s) (ef4 e sf) 
      (c4 e) (d4 s) (en4 s) (fs4 e (fingering 3))) 
    (staff treble (meter 3 4) 
      (c5 e. marcato) (d5 s bartok-pizzicato) (ef5 e) 
      (c5 e staccato tenuto) (d5 s down-bow) 
      (en5 s) (fs5 e)))
  (system bracket
    (staff bar bass (meter 6 16) 
      (c4 e. wedge) (d4 s staccato) 
      (ef4 e left-hand-pizzicato) 
      (c4 e tenuto accent rfz) (d4 s mordent) 
      (en4 s pp) (fs4 e fermata))))

(quit)
EOF

gv test.eps

cd /zap
if [ -d beep ] ; then
    rm -r beep
fi
mkdir beep
cd beep
cp /usr/src/redhat/BUILD/clm-2/v.ins .

echo "======== Starting cmucl-cm-clm-cmn ========"
cmucl-cm-clm-cmn <<EOF

(compile-file "v.ins")
(sleep 1)
(load "v.cmucl")
(sleep 1)
(with-sound()(fm-violin 0 1 440 0.1))
(sleep 1)

(defprocess foo ()
  (process repeat 10
	   do
	   (output
	    (new fm-violin
	      time (now)
	      dur 1
	      amplitude .1
	      frequency (between 220.0 440.0)
	      fm-index 3))
	   (wait .5)))

(events 'foo "/tmp/test.clm" :play t)
(sleep 5)

(in-package :cmn)
(cmn (output-file "test.eps")(size 24)
  (system brace 
    (staff treble (meter 6 8) 
      (c4 e. tenuto) (d4 s) (ef4 e sf) 
      (c4 e) (d4 s) (en4 s) (fs4 e (fingering 3))) 
    (staff treble (meter 3 4) 
      (c5 e. marcato) (d5 s bartok-pizzicato) (ef5 e) 
      (c5 e staccato tenuto) (d5 s down-bow) 
      (en5 s) (fs5 e)))
  (system bracket
    (staff bar bass (meter 6 16) 
      (c4 e. wedge) (d4 s staccato) 
      (ef4 e left-hand-pizzicato) 
      (c4 e tenuto accent rfz) (d4 s mordent) 
      (en4 s pp) (fs4 e fermata))))

(user::quit)
EOF

gv test.eps

cd /zap
