[gsharp-cvs] CVS gsharp

Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv6155

Modified Files: play.lisp Log Message: a above middle c is 69, not 67.

--- /project/gsharp/cvsroot/gsharp/play.lisp 2007/06/18 15:18:17 1.7 +++ /project/gsharp/cvsroot/gsharp/play.lisp 2007/06/19 10:01:37 1.8 @@ -4,7 +4,7 @@ (defvar *tempo*)

(defun midi-pitch (note) - (round (+ (+ 6700 ; a above middle c, 440 Hz + (round (+ (+ 6900 ; a above middle c, 440 Hz (* 1200 (log (/ (master-pitch-freq *tuning*) 440) 2))) (- (note-cents note *tuning*) (note-cents (master-pitch-note *tuning*) *tuning*)))