[pal-cvs] CVS pal

[tneste]

Update of /project/pal/cvsroot/pal
In directory clnet:/tmp/cvs-serv492

Modified Files:
	pal.lisp todo.txt 
Log Message:
KEYSYM-CHAR now returns NIL for characters out the range 1 - 255.

--- /project/pal/cvsroot/pal/pal.lisp	2007/10/24 18:07:03	1.36
+++ /project/pal/cvsroot/pal/pal.lisp	2007/10/29 20:04:19	1.37
@@ -1,7 +1,7 @@
 ;; Notes:
-;; add start/end args to draw-circle, use triangle-fan for circles
+;; add start/end args to draw-circle
 ;; check for redundant close-quads, optimise rotations/offsets etc. in draw-image
-;; newline support for draw-text, optimise gl state handling
+;; optimise gl state handling, fix clipping, structured color values
 
 
 (declaim (optimize (speed 3)
@@ -185,7 +185,10 @@
 
 (defunct keysym-char (keysym)
     (symbol keysym)
-  (code-char (cffi:foreign-enum-value 'pal-ffi:sdl-key keysym)))
+  (let ((kv (cffi:foreign-enum-value 'pal-ffi:sdl-key keysym)))
+    (if (and (> kv 0) (< kv 256))
+        (code-char kv)
+        nil)))
 
 (declaim (inline get-mouse-pos))
 (defun get-mouse-pos ()
@@ -818,7 +821,7 @@
 
 
 (defun load-font (font)
-  (let ((glyphs (make-array 255 :initial-element (make-glyph :width 1 :height 1 :xoff 0) :element-type 'glyph))
+  (let ((glyphs (make-array 256 :initial-element (make-glyph :width 1 :height 1 :xoff 0) :element-type 'glyph))
         (lines (with-open-file (file (data-path (concatenate 'string font ".fnt")))
                  (loop repeat 4 do (read-line file))
                  (loop for i from 0 to 94 collecting
--- /project/pal/cvsroot/pal/todo.txt	2007/09/07 07:55:16	1.18
+++ /project/pal/cvsroot/pal/todo.txt	2007/10/29 20:04:20	1.19
@@ -10,8 +10,6 @@
 
 - I would really like to see it run on OS X.
 
-- The problems with Linux and some gfx drivers should be somehow fixed.
-
 - Documentation and tutorials.
 
 
@@ -22,8 +20,6 @@
 
 - TTF support
 
-- GUI
-
 - Some sort of sprite library?
 
 - Network code?