Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv23570 Modified Files: sdl.lisp Log Message: Fixed off-by-one-pixel but in pixmap drawing. Date: Mon Nov 14 22:51:26 2005 Author: rstrandh Index: gsharp/sdl.lisp diff -u gsharp/sdl.lisp:1.9 gsharp/sdl.lisp:1.10 --- gsharp/sdl.lisp:1.9 Fri Nov 11 20:19:39 2005 +++ gsharp/sdl.lisp Mon Nov 14 22:51:26 2005 @@ -110,7 +110,7 @@ (declare (ignore initargs)) (with-slots (gf-char x-offset y-offset) glyph (setf x-offset (floor (gf-char-min-m gf-char) 4) - y-offset (- (floor (1+ (gf-char-max-n gf-char)) 4))))) + y-offset (- (ceiling (gf-char-max-n gf-char) 4))))) (defmethod glyph ((font font) glyph-no) (with-slots (gf-char pixmap) (aref (glyphs font) glyph-no)