[gsharp-cvs] CVS gsharp

[crhodes]

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

Modified Files:
	drawing.lisp 
Log Message:
MORE DOTS

Well, actually, fix the dots that we already have.  Rests have dots too, 
but fortunately the computation for their dot's offset is slightly 
easier.


--- /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/06/21 16:31:54	1.72
+++ /project/gsharp/cvsroot/gsharp/drawing.lisp	2006/06/26 16:37:43	1.73
@@ -917,7 +917,7 @@
   (let ((x (final-absolute-element-xoffset element)))
     (score-pane:with-vertical-score-position (pane (staff-yoffset (staff element)))
       (score-pane:draw-rest pane (undotted-duration element) x (staff-pos element))
-      (draw-dots pane (dots element) x (1+ (staff-pos element))))))
+      (draw-dots pane (dots element) x (+ x (score-pane:staff-step 2)) (1+ (staff-pos element))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;