csound play

Charlie Baker baker@jitterbug.ccmrc.ucsb.edu
Sun, 8 May 94 12:18:41 PDT


Well, it's not great, but if you want to play the output .sco files in csound syntax, try
replacing the last method in stella/csound.lisp with the following:

(defmethod play-using-syntax ((syntax csound) file &rest args)
	(declare (ignore args))
  #+mcl (format t "Sorry, can't play csound from Lisp on the Mac.~%")
  #-mcl	(let* ((ofile (ask-file :prompt "Output Sound File name?: " :direction :output))
		(orc  (ask-file :prompt "Orchestra File name?: "))
		(command (format nil "csound -o ~A ~A ~A" ofile orc
					(namestring (truename file))))
		(plcmd (format nil "play ~A" ofile)))
		(cm::shell command)
		(tell-user "Playing ~A ." ofile)
		(cm::shell plcmd)))


This assumes that unix can find csound somewhere in your paths...also I should work out a way to keep the output snd file and .orc files as slots in the io-stream object...is there a way to access other slot values of the io-stream, when all you are passed is the file slot? Rick? Bill?

Best,
Charlie

>From hkt@zkm.de Mon May  9 11:27:29 1994