[gsharp-cvs] CVS gsharp

[crhodes]

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

Modified Files:
	drawing.lisp 
Log Message:
Whoops.  Fix up the treble-8 patch.


--- /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/03/02 09:21:34	1.65
+++ /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/03/02 09:32:15	1.66
@@ -40,13 +40,13 @@
 	       :x ,(+ x1 10)
 	       :staff-step ,(lineno (clef staff)))
 	     :stream pane)
-    (let ((yoffset (b-position clef)))
+    (let ((yoffset (b-position (clef staff))))
       (loop for pitch in '(6 2 5 1 4 0 3)
 	    for line in '(0 3 -1 2 -2 1 -3)
 	    for x from (+ x1 10 (score-pane:staff-step 8)) by (score-pane:staff-step 2)
 	    while (eq (aref (alterations (keysig staff)) pitch) :flat)
 	    do (score-pane:draw-accidental pane :flat x (+ line yoffset))))
-    (let ((yoffset (f-position clef)))
+    (let ((yoffset (f-position (clef staff))))
       (loop for pitch in '(3 0 4 1 5 2 6)
 	    for line in '(0 -3 1 -2 -5 -1 -4)
 	    for x from (+ x1 10 (score-pane:staff-step 8)) by (score-pane:staff-step 2.5)