[gsharp-cvs] CVS update: gsharp/sdl.lisp

[Robert Strandh]

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)