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)