[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv2498

Modified Files:
	sdl.lisp 
Log Message:
Fixed beam-drawing problem for staff-line distances other than 6.


--- /project/gsharp/cvsroot/gsharp/sdl.lisp	2007/08/06 19:57:37	1.34
+++ /project/gsharp/cvsroot/gsharp/sdl.lisp	2007/08/20 07:14:35	1.35
@@ -185,7 +185,7 @@
     (setf beam-offset-down
 	  (floor (/ staff-line-distance 2) 2))
     (setf beam-offset-up
-	  (- (ceiling (/ staff-line-distance 2) 2)))
+	  (- (+ beam-offset-down staff-line-thickness)))
     (setf beam-hang-sit-offset
 	  (let ((beam-thickness (- beam-offset-down beam-offset-up)))
 	    (/ (- beam-thickness staff-line-thickness) 2)))))