Update of /project/gsharp/cvsroot/gsharp In directory common-lisp:/tmp/cvs-serv4828

Modified Files: drawing.lisp Log Message: Fixed an off-by-one-pixel problem between a beam and a stem.

--- /project/gsharp/cvsroot/gsharp/drawing.lisp 2006/02/07 03:02:31 1.59 +++ /project/gsharp/cvsroot/gsharp/drawing.lisp 2006/02/07 04:52:06 1.60 @@ -298,7 +298,7 @@ (* force (elasticity timeline)))) do (loop for element in (elements timeline) do (setf (final-absolute-element-xoffset element) - (+ xx (score-pane:staff-step (xoffset element)))))) + (round (+ xx (score-pane:staff-step (xoffset element))))))) (loop for bar in (measure-bars measure) do (compute-bar-coordinates bar x y (size-at-force (elasticity-function measure) force))))