Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv7698

Modified Files: drawing.lisp Log Message: Place accidentals on the right staff line when there's a C clef.

Date: Tue Jan 3 15:19:07 2006 Author: crhodes

Index: gsharp/drawing.lisp diff -u gsharp/drawing.lisp:1.53 gsharp/drawing.lisp:1.54 --- gsharp/drawing.lisp:1.53 Tue Jan 3 04:10:13 2006 +++ gsharp/drawing.lisp Tue Jan 3 15:19:05 2006 @@ -43,7 +43,7 @@ (let ((yoffset (ecase (name (clef staff)) (:bass (- (lineno (clef staff)) 4)) (:treble (+ (lineno (clef staff)) 2)) - (:c (- (lineno (clef staff))) 1)))) + (:c (- (lineno (clef staff)) 1))))) (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) @@ -52,7 +52,7 @@ (let ((yoffset (ecase (name (clef staff)) (:bass (lineno (clef staff))) (:treble (+ (lineno (clef staff)) 6)) - (:c (+ (lineno (clef staff))) 3)))) + (:c (+ (lineno (clef staff)) 3))))) (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)