[gsharp-cvs] CVS update: gsharp/drawing.lisp

[Christophe Rhodes]

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)