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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;