Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv28082
Modified Files: sdl.lisp Log Message: re-inserted a `1+' to compensate for the fact that GF's max-n is off by 1.
Date: Mon Nov 14 23:52:14 2005 Author: rstrandh
Index: gsharp/sdl.lisp diff -u gsharp/sdl.lisp:1.10 gsharp/sdl.lisp:1.11 --- gsharp/sdl.lisp:1.10 Mon Nov 14 22:51:26 2005 +++ gsharp/sdl.lisp Mon Nov 14 23:52:13 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 (- (ceiling (gf-char-max-n gf-char) 4))))) + y-offset (- (ceiling (1+ (gf-char-max-n gf-char)) 4)))))
(defmethod glyph ((font font) glyph-no) (with-slots (gf-char pixmap) (aref (glyphs font) glyph-no)