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