[gsharp-cvs] CVS gsharp

[rstrandh]

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