[gsharp-cvs] CVS gsharp

[crhodes]

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

Modified Files:
	sdl.lisp 
Log Message:
Move the dot a little bit rightwards.  Looks better, to my eye...


--- /project/gsharp/cvsroot/gsharp/sdl.lisp	2007/07/18 07:51:54	1.33
+++ /project/gsharp/cvsroot/gsharp/sdl.lisp	2007/08/06 19:57:37	1.34
@@ -721,7 +721,7 @@
   (with-slots (yoffset staff-line-distance) font
     (let ((diameter (* 0.4 staff-line-distance)))
       (translate (scale +full-circle+ diameter)
-		 (complex yoffset yoffset)))))
+		 (complex (+ yoffset (/ diameter 2)) yoffset)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;