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

[Robert Strandh]

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)