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

Modified Files: sdl.lisp Log Message: Fix a bug in the C clef. It's still not symmetrical about the X axis, but the weird zooming point in the curve is fixed.

--- /project/gsharp/cvsroot/gsharp/sdl.lisp 2006/05/31 19:51:58 1.17 +++ /project/gsharp/cvsroot/gsharp/sdl.lisp 2006/06/01 11:01:26 1.18 @@ -598,7 +598,7 @@ (c (+ xd (* 0.5 dot-width)) (+ yd dot-width)) right ++ (c (+ xd dot-width) (+ yd (* 0.5 dot-width))) down ++ (c (+ xd (* 0.5 dot-width)) yd) left ++ - (c xd (* yd (* 0.5 dot-width))) up ++ (c xf top) right ++ + (c xd (+ yd (* 0.5 dot-width))) up ++ (c xf top) right ++ (c xk yk) down ++ (c xh (- yh staff-line-thickness)) ++ (c xl yl) & (c xl yl) ++ down (c xi 0))) (q (translate (yscale p -1) (c 0 (- staff-line-thickness))))