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*)))