Index: drawing.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/drawing.lisp,v
retrieving revision 1.67
diff -u -r1.67 drawing.lisp
--- drawing.lisp	26 Mar 2006 19:28:17 -0000	1.67
+++ drawing.lisp	7 Jun 2006 16:28:26 -0000
@@ -292,7 +317,10 @@
 				 (* force (elasticity timeline))))
         do (loop for element in (elements timeline)
 		 do (setf (final-absolute-element-xoffset element)
-			  (round (+ xx (score-pane:staff-step (xoffset element)))))))
+                          (if (and (typep element 'rest)
+                                   (eq (notehead element) :whole))
+                              (round (+ x (/ (size-at-force (elasticity-function measure) force) 2)))
+                              (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))))
 
