[gsharp-cvs] CVS gsharp

[crhodes]

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