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

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv8268

Modified Files:
	drawing.lisp 
Log Message:
Fixed a rounding problem that sometimes caused the beam to 
extend beyond the stem.

Date: Fri Nov 11 03:11:19 2005
Author: rstrandh

Index: gsharp/drawing.lisp
diff -u gsharp/drawing.lisp:1.15 gsharp/drawing.lisp:1.16
--- gsharp/drawing.lisp:1.15	Thu Nov 10 23:55:45 2005
+++ gsharp/drawing.lisp	Fri Nov 11 03:11:19 2005
@@ -311,9 +311,9 @@
 	(start-time 0))
     (mapc (lambda (element)
 	    (setf (element-xpos element)
-		  (+ x
-		     (score-pane:staff-step (xoffset element))
-		     (cdr (assoc start-time time-alist))))
+		  (round (+ x
+			    (score-pane:staff-step (xoffset element))
+			    (cdr (assoc start-time time-alist)))))
 	    (incf start-time (duration element)))
 	  (elements bar))))