[gsharp-cvs] CVS gsharp

[crhodes]

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