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))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;