pal-cvs

pal-cvs@common-lisp.net

127 discussions

[pal-cvs] CVS pal/examples
by tneste 03 Jul '07

03 Jul '07

Update of /project/pal/cvsroot/pal/examples In directory clnet:/tmp/cvs-serv18496/examples Modified Files: hello.lisp Log Message: Faster bitmap loading --- /project/pal/cvsroot/pal/examples/hello.lisp 2007/07/01 22:49:25 1.2 +++ /project/pal/cvsroot/pal/examples/hello.lisp 2007/07/03 18:10:33 1.3 @@ -3,17 +3,17 @@ (defun hello-1 () - (pal:with-pal (:paths "/path/to/examples/) + (pal:with-pal (:paths "/path/to/examples/") (let ((font (pal:load-font "georgia"))) (pal:draw-text "Hello from PAL" - (pal:v-round - (pal:v (/ (- (pal:get-screen-width) - (pal:get-text-size "Hello from PAL" font)) - 2) - (/ (- (pal:get-screen-height) - (pal:get-font-height font)) - 2))) - font)) + (pal:v-round + (pal:v (/ (- (pal:get-screen-width) + (pal:get-text-size "Hello from PAL" font)) + 2) + (/ (- (pal:get-screen-height) + (pal:get-font-height font)) + 2))) + font)) (pal:wait-keypress))) ;; (hello-1) @@ -23,10 +23,10 @@ (pal:with-pal () (let ((angle 0f0)) (pal:event-loop () - (pal:draw-rectangle (pal:v 0 0) - (pal:get-screen-width) (pal:get-screen-height) - 50 50 200 10) - (pal:with-transformation (:pos (pal:v 400 300) :angle (incf angle 1f0) :scale 3f0) - (pal:draw-text "Hello from PAL" (pal:v 0 0))))))) + (pal:draw-rectangle (pal:v 0 0) + (pal:get-screen-width) (pal:get-screen-height) + 50 50 200 10) + (pal:with-transformation (:pos (pal:v 400 300) :angle (incf angle 1f0) :scale 3f0) + (pal:draw-text "Hello from PAL" (pal:v 0 0))))))) ;; (hello-2) \ No newline at end of file

1 0

[pal-cvs] CVS pal
by tneste 01 Jul '07

01 Jul '07

Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv13199 Modified Files: ffi.lisp pal-macros.lisp pal.lisp todo.txt Log Message: Fixed the Lispworks problems, some minor cleanups --- /project/pal/cvsroot/pal/ffi.lisp 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/ffi.lisp 2007/07/01 22:49:25 1.2 @@ -661,7 +661,6 @@ (defconstant +gl-ONE-MINUS-DST-COLOR+ #x307) (defconstant +gl-ONE-MINUS-SRC-ALPHA+ #x303) (defconstant +gl-ONE-MINUS-SRC-COLOR+ #x301) -(defconstant +gl-depth-buffer-bit+ #x100) (defconstant +gl-texture-mag-filter+ #x2800) (defconstant +gl-texture-min-filter+ #x2801) (defconstant +gl-linear+ #x2601) @@ -673,8 +672,6 @@ (defconstant +gl-renderer+ #x1F01) (defconstant +gl-version+ #x1F02) (defconstant +gl-extensions+ #x1F03) -(defconstant +gl-depth-buffer-bit+ #x100) -(defconstant +gl-DEPTH-TEST+ #xB71) (defconstant +gl-ALPHA-TEST+ #xBC0) (defconstant +gl-ALPHA-TEST-FUNC+ #xBC1) (defconstant +gl-GREATER+ #x204) --- /project/pal/cvsroot/pal/pal-macros.lisp 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/pal-macros.lisp 2007/07/01 22:49:25 1.2 @@ -9,10 +9,10 @@ (defmacro define-tags (&body tags) `(progn - ,@(mapcar (lambda (r) - `(setf (gethash ',(first r) *tags*) - (cons (lambda () ,(second r)) nil))) - (loop for (a b) on tags by #'cddr collect (list a b))))) + ,@(mapcar (lambda (r) + `(setf (gethash ',(first r) *tags*) + (cons (lambda () ,(second r)) nil))) + (loop for (a b) on tags by #'cddr collect (list a b))))) (defun reset-tags () (maphash (lambda (k v) @@ -31,142 +31,149 @@ (defmacro with-resource ((resource init-form) &body body) `(let ((,resource ,init-form)) - (prog1 (progn - ,@body) - (free-resource ,resource)))) + (prog1 (progn + ,@body) + (free-resource ,resource)))) + + +(defmacro with-default-settings (&body body) + `(with-transformation () + (with-blend (:mode :blend :r 255 :g 255 :b 255 :a 255) + (pal-ffi:gl-load-identity) + ,@body))) (defmacro with-blend ((&key (mode t) r g b a) &body body) `(progn - (pal-ffi:gl-push-attrib (logior pal-ffi:+gl-color-buffer-bit+ pal-ffi:+gl-current-bit+ pal-ffi:+gl-enable-bit+)) - ,(unless (eq mode t) - `(set-blend-mode ,mode)) - ,(when (and r g b a) - `(set-blend-color ,r ,g ,b ,a)) - ,@body - (pal-ffi:gl-pop-attrib))) + (pal-ffi:gl-push-attrib (logior pal-ffi:+gl-color-buffer-bit+ pal-ffi:+gl-current-bit+ pal-ffi:+gl-enable-bit+)) + ,(unless (eq mode t) + `(set-blend-mode ,mode)) + ,(when (and r g b a) + `(set-blend-color ,r ,g ,b ,a)) + ,@body + (pal-ffi:gl-pop-attrib))) (defmacro with-clipping ((x y width height) &body body) `(progn - (push-clip ,x ,y ,width ,height) - ,@body - (pop-clip))) + (push-clip ,x ,y ,width ,height) + ,@body + (pop-clip))) (defmacro with-transformation ((&key pos angle scale) &body body) `(progn - (pal-ffi:gl-push-matrix) - ,(when pos - `(translate ,pos)) - ,(when angle - `(pal-ffi:gl-rotatef ,angle 0f0 0f0 1f0)) - ,(when scale - (let ((s (gensym))) - `(let ((,s ,scale)) - (pal-ffi:gl-scalef ,s ,s 1f0)))) - ,@body - (pal-ffi:gl-pop-matrix))) + (pal-ffi:gl-push-matrix) + ,(when pos + `(translate ,pos)) + ,(when angle + `(pal-ffi:gl-rotatef ,angle 0f0 0f0 1f0)) + ,(when scale + (let ((s (gensym))) + `(let ((,s ,scale)) + (pal-ffi:gl-scalef ,s ,s 1f0)))) + ,@body + (pal-ffi:gl-pop-matrix))) (defmacro with-gl (mode &body body) `(progn - (pal-ffi:gl-begin ,mode) - ,@body - (pal-ffi:gl-end))) + (pal-ffi:gl-begin ,mode) + ,@body + (pal-ffi:gl-end))) (defmacro randomly (p &body body) `(when (= (random ,p) 0) - ,@body)) + ,@body)) (defmacro do-n ((&rest args) &body body) (labels ((expand (args) (cond ((null args) `(progn ,@body)) (t `(dotimes ,(list (first args) (second args)) - (declare (type fixnum ,(first args))) - ,(expand (cddr args))))))) + (declare (type fixnum ,(first args))) + ,(expand (cddr args))))))) (expand args))) (defmacro curry (fn &rest args) (let ((rest (gensym))) `(lambda (&rest ,rest) - (declare (dynamic-extent ,rest)) - (apply ,fn ,@args ,rest)))) + (declare (dynamic-extent ,rest)) + (apply ,fn ,@args ,rest)))) (defmacro test-keys (&body args) `(progn - ,@(mapcar (lambda (arg) - `(when ,(if (listp (first arg)) - `(or ,@(mapcar (lambda (a) - (list 'key-pressed-p a)) - (first arg))) - `(key-pressed-p ,(first arg))) - ,@(rest arg))) - args))) + ,@(mapcar (lambda (arg) + `(when ,(if (listp (first arg)) + `(or ,@(mapcar (lambda (a) + (list 'key-pressed-p a)) + (first arg))) + `(key-pressed-p ,(first arg))) + ,@(rest arg))) + args))) (defmacro funcall? (fn &rest args) `(when ,fn - (funcall ,fn ,@args))) + (funcall ,fn ,@args))) (defmacro do-event (event key-up-fn key-down-fn mouse-motion-fn mouse-button-up-fn mouse-button-down-fn quit-fn) `(loop while (pal-ffi:poll-event ,event) - do - (let ((type (cffi:mem-ref ,event :uint8))) - (cond - - ((= type pal-ffi:+key-up-event+) - (let ((keysym (cffi:foreign-slot-value ,event 'pal-ffi:keyboard-event 'pal-ffi:keysym))) - (setf (gethash (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) - *pressed-keys*) - nil) - (funcall? ,key-up-fn - (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym))))) - - ((= type pal-ffi:+key-down-event+) - (let ((keysym (cffi:foreign-slot-value ,event 'pal-ffi:keyboard-event 'pal-ffi:keysym))) - (setf (gethash (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) - *pressed-keys*) - t) - (if ,key-down-fn - (funcall ,key-down-fn - (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym))) - (when (eq (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) :key-escape) - (return-from event-loop))))) - - ((= type pal-ffi:+mouse-motion-event+) - (setf *mouse-x* (cffi:foreign-slot-value ,event 'pal-ffi:mouse-motion-event 'pal-ffi:x) - *mouse-y* (cffi:foreign-slot-value ,event 'pal-ffi:mouse-motion-event 'pal-ffi:y)) - (funcall? ,mouse-motion-fn *mouse-x* *mouse-y*)) - - ((= type pal-ffi:+mouse-button-up-event+) - (let ((button (cffi:foreign-slot-value ,event 'pal-ffi:mouse-button-event 'pal-ffi:button))) - (setf (gethash (read-from-string (format nil ":key-mouse-~a" button)) - *pressed-keys*) nil) - (funcall? ,mouse-button-up-fn button))) - - ((= type pal-ffi:+mouse-button-down-event+) - (let ((button (cffi:foreign-slot-value ,event 'pal-ffi:mouse-button-event 'pal-ffi:button) )) - (setf (gethash (read-from-string (format nil ":key-mouse-~a" button)) - *pressed-keys*) t) - (funcall? ,mouse-button-down-fn button))) - - ((= type pal-ffi:+quit-event+) - (if ,quit-fn - (funcall ,quit-fn) - (return-from event-loop)) - ))))) + do + (let ((type (cffi:mem-ref ,event :uint8))) + (cond + + ((= type pal-ffi:+key-up-event+) + (let ((keysym (cffi:foreign-slot-value ,event 'pal-ffi:keyboard-event 'pal-ffi:keysym))) + (setf (gethash (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) + *pressed-keys*) + nil) + (funcall? ,key-up-fn + (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym))))) + + ((= type pal-ffi:+key-down-event+) + (let ((keysym (cffi:foreign-slot-value ,event 'pal-ffi:keyboard-event 'pal-ffi:keysym))) + (setf (gethash (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) + *pressed-keys*) + t) + (if ,key-down-fn + (funcall ,key-down-fn + (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym))) + (when (eq (cffi:foreign-enum-keyword 'pal-ffi:sdl-key (cffi:foreign-slot-value keysym 'pal-ffi:keysym 'pal-ffi:sym)) :key-escape) + (return-from event-loop))))) + + ((= type pal-ffi:+mouse-motion-event+) + (setf *mouse-x* (cffi:foreign-slot-value ,event 'pal-ffi:mouse-motion-event 'pal-ffi:x) + *mouse-y* (cffi:foreign-slot-value ,event 'pal-ffi:mouse-motion-event 'pal-ffi:y)) + (funcall? ,mouse-motion-fn *mouse-x* *mouse-y*)) + + ((= type pal-ffi:+mouse-button-up-event+) + (let ((button (cffi:foreign-slot-value ,event 'pal-ffi:mouse-button-event 'pal-ffi:button))) + (setf (gethash (read-from-string (format nil ":key-mouse-~a" button)) + *pressed-keys*) nil) + (funcall? ,mouse-button-up-fn button))) + + ((= type pal-ffi:+mouse-button-down-event+) + (let ((button (cffi:foreign-slot-value ,event 'pal-ffi:mouse-button-event 'pal-ffi:button) )) + (setf (gethash (read-from-string (format nil ":key-mouse-~a" button)) + *pressed-keys*) t) + (funcall? ,mouse-button-down-fn button))) + + ((= type pal-ffi:+quit-event+) + (if ,quit-fn + (funcall ,quit-fn) + (return-from event-loop)) + ))))) (defmacro event-loop ((&key key-up-fn key-down-fn mouse-motion-fn mouse-button-up-fn mouse-button-down-fn quit-fn) &body redraw) (let ((event (gensym))) `(block event-loop - (cffi:with-foreign-object (,event :char 1000) - (loop - (do-event ,event ,key-up-fn ,key-down-fn ,mouse-motion-fn ,mouse-button-up-fn ,mouse-button-down-fn ,quit-fn) - ,@redraw - (update-screen)))))) + (cffi:with-foreign-object (,event :char 1000) + (loop + (do-event ,event ,key-up-fn ,key-down-fn ,mouse-motion-fn ,mouse-button-up-fn ,mouse-button-down-fn ,quit-fn) + ,@redraw + (update-screen)))))) (defmacro with-pal (args &body body) `(progn - (apply 'open-pal (list ,@args)) - (unwind-protect - (progn ,@body) - (close-pal)))) \ No newline at end of file + (apply 'open-pal (list ,@args)) + (unwind-protect + (progn ,@body) + (close-pal)))) \ No newline at end of file --- /project/pal/cvsroot/pal/pal.lisp 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/pal.lisp 2007/07/01 22:49:25 1.2 @@ -3,7 +3,9 @@ (in-package :pal) -(defparameter *pal-directory* (make-pathname :directory (pathname-directory *load-pathname*))) +(defparameter *pal-directory* (make-pathname :directory (pathname-directory *load-pathname*) + :host (pathname-host *load-pathname*) + :device (pathname-device *load-pathname*))) (defvar *messages* nil) (defvar *pal-running* nil) (defvar *title* "") @@ -45,7 +47,7 @@ (when *pal-running* (close-pal)) (pal-ffi:init (logior pal-ffi:+init-video+ pal-ffi:+init-audio+)) - (pal-ffi:open-audio 22050 pal-ffi:+audio-s16+ 2 1024) ;; 4096 + (pal-ffi:open-audio 22050 pal-ffi:+audio-s16+ 2 2048) (pal-ffi:gl-set-attribute pal-ffi:+gl-depth-size+ 0) (pal-ffi:gl-set-attribute pal-ffi:+gl-doublebuffer+ 1) (when (cffi:null-pointer-p (pal-ffi::set-video-mode @@ -89,8 +91,8 @@ *width* width *height* height *pal-running* t) - (add-path *default-pathname-defaults*) (add-path *pal-directory*) + (add-path *default-pathname-defaults*) (if (listp paths) (dolist (p paths) (add-path p)) @@ -196,6 +198,15 @@ ;; Screen +(declaim (inline draw-messages)) +(defun draw-messages () + (let ((y 0) + (fh (get-font-height))) + (declare (type u11 y fh)) + (dolist (m *messages*) + (declare (type simple-string m)) + (draw-text m (v 0 (incf y fh)))))) + (declaim (inline update-screen)) (defun update-screen () (let ((e (pal-ffi:gl-get-error))) @@ -210,17 +221,12 @@ (incf *delay* 2)) (pal-ffi:delay *delay*) (if (or (eq t *cursor*) (eq nil *cursor*)) - nil - (with-transformation () - (with-blend (:mode :blend :r 255 :g 255 :b 255 :a 255) - (pal-ffi:gl-load-identity) - (draw-image *cursor* (v- (get-mouse-pos) *cursor-offset*)) - (let ((y 0) - (fh (get-font-height))) - (declare (type u11 y fh)) - (dolist (m *messages*) - (declare (type simple-string m)) - (draw-text m (v 0 (incf y fh)))))))) + (when *messages* + (with-default-settings + (draw-messages))) + (with-default-settings + (draw-image *cursor* (v- (get-mouse-pos) *cursor-offset*)) + (draw-messages))) (pal-ffi:gl-swap-buffers)) (declaim (inline get-screen-width)) @@ -362,7 +368,9 @@ (1- height))) '(6 7 8 9 10)) 10))) (id (cffi:foreign-alloc :uint :count 1)) - (tdata (cffi:foreign-alloc :uint64 :count (/ (* texture-width texture-height) 2) :initial-element 0))) + (tdata (cffi:foreign-alloc :uint32 :count (* texture-width texture-height) :initial-element 0)) + ;; (tdata (cffi:foreign-alloc :uint64 :count (/ (* texture-width texture-height) 2) :initial-element 0)) + ) (do-n (x width y height) (multiple-value-bind (r g b a) (surface-get-pixel surface x y) (let ((p (the fixnum (+ (* y (the u16 (* (the u11 texture-width) 4))) (the u16 (* 4 x)))))) @@ -637,7 +645,7 @@ (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 - (substitute #\space #\, (subseq (read-line file) 6) :start 1))))) + (substitute #\space #\, (subseq (read-line file) 6) :start 1))))) (dolist (line lines) (let ((glyph (glyph-from-line line))) (setf (aref glyphs (char-code (glyph-char glyph))) @@ -676,7 +684,7 @@ font (tag 'default-font)))) (loop for c across text do - (draw-glyph c font))))) + (draw-glyph c font))))) (declaim (inline get-font-height)) (defun get-font-height (&optional font) @@ -691,8 +699,8 @@ font (tag 'default-font))))) (loop for c across text summing - (+ (glyph-width (aref glyphs (char-code c))) - (glyph-xoff (aref glyphs (char-code c)))))) + (+ (glyph-width (aref glyphs (char-code c))) + (glyph-xoff (aref glyphs (char-code c)))))) (pal-ffi:font-height (if font font (tag 'default-font))))) --- /project/pal/cvsroot/pal/todo.txt 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/todo.txt 2007/07/01 22:49:25 1.2 @@ -17,6 +17,9 @@ - CL native font resource builder. -- Fix with-blend (r g b a), message texts in update only when cursor is set, - Lispworks bugs, see that things work on Allegro CL. +- Fix with-blend (r g b a), see that things work on Allegro CL. + +- Image loader need a faster way to allocate zeroed foreign vector. + +- Make it run on OS X.

1 0

[pal-cvs] CVS pal/examples
by tneste 01 Jul '07

01 Jul '07

Update of /project/pal/cvsroot/pal/examples In directory clnet:/tmp/cvs-serv13199/examples Modified Files: hello.lisp teddy.lisp Log Message: Fixed the Lispworks problems, some minor cleanups --- /project/pal/cvsroot/pal/examples/hello.lisp 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/examples/hello.lisp 2007/07/01 22:49:25 1.2 @@ -3,7 +3,7 @@ (defun hello-1 () - (pal:with-pal (:paths "path/to/examples/folder/") + (pal:with-pal (:paths "/path/to/examples/) (let ((font (pal:load-font "georgia"))) (pal:draw-text "Hello from PAL" (pal:v-round --- /project/pal/cvsroot/pal/examples/teddy.lisp 2007/06/28 20:14:05 1.1 +++ /project/pal/cvsroot/pal/examples/teddy.lisp 2007/07/01 22:49:25 1.2 @@ -64,7 +64,7 @@ (defun example () - (with-pal (:width 800 :height 600 :fullscreenp nil :fps 60 :paths "./") + (with-pal (:width 800 :height 600 :fullscreenp nil :fps 60) ;; inits PAL, the args used are the default values. ;; NOTE: fix the PATHS to point to the location of the resource files ;; PATHS is a pathname or list of pathnames that defines paths that the LOAD-* functions use for finding resources. @@ -72,7 +72,6 @@ (setf *sprites* nil) (set-cursor (tag 'cursor) (v 18 18)) - (make-instance 'plane) (dotimes (i 20) (make-instance 'mutant-teddy @@ -100,7 +99,7 @@ (dolist (i *sprites*) (draw i) #+CLISP (ext:without-floating-point-underflow - (act i)) + (act i)) #-CLISP (act i))) (test-keys

1 0

[pal-cvs] CVS pal
by tneste 28 Jun '07

28 Jun '07

Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv26552 Added Files: changes.txt default-font.fnt default-font.png ffi.lisp license.txt package.lisp pal-macros.lisp pal.asd pal.lisp todo.txt vector.lisp Log Message: --- /project/pal/cvsroot/pal/changes.txt 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/changes.txt 2007/06/28 20:14:05 1.1 Release 3 - Renamed GL-PAL system to PAL. - MESSAGE is now a function that just prints it argument. - Added DRAW-ARROW. - Changed TEXT-SIZE to GET-TEXT-SIZE. - Changed REGISTER-RESOURCE, FREE-RESOURCE, FREE-ALL-RESOURCES, OPEN-PAL and CLOSE-PAL into public generic functions. - Foreign libraries are now loaded with CFFI:USE-FOREIGN-LIBRARIES. There is now a function PAL:LOAD-FOREIGN-LIBRARIES that can be used to (re)load the shared libs when needed (mainly to be used when delivering images with CLisp) - Renamed SDL packages name to PAL-FFI and sdl.lisp file to ffi.lisp - Samples and musics are now wrapped in structures, cleaned up resource handling. - Replaced WITH-MATRIX and WITH-TRANSLATION with WITH-TRANSFORMATION. - Added RANDOMLY macro. Release 2, May 19 2007 - Tested on Linux/ia32 (Ubuntu 7.04, SBCL 1.05). - Cleaned up the font reader a bit. - Pathname fixing; added ext:probe-directory for clisp, pathnamified the application folder/file functions and added basic *nix app-dir support. - Cleaned up the type declarations a bit. - MATCH-PRESSED-KEYS is now called TEST-KEYS. - Fixed V-ANGLE since (atan 0 0) errors with DIVISION-BY-ZERO under (at least) CLisp. - Some of the examples had floating point errors under CLisp. Fixed with #+CLISP EXT:WITHOUT-FLOATING-POINT-UNDERFLOWS. - Source directory of PAL is automatically added to the default search paths (to allow PAL to find 'DEFAULT-FONT). - Added a default font (tag 'PAL::DEFAULT-FONT, mainly for debuggin purposes) and changed the order of font & position args in text functions. - Removed the font argument from DRAW-FPS. It now uses the default font. - Added the MESSAGE macro. Release 1, March 14 2007 - I changed my original Pixel Art Library from using software rendering to OpenGL. First release. --- /project/pal/cvsroot/pal/default-font.fnt 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/default-font.fnt 2007/06/28 20:14:05 1.1 [HGEFONT] Bitmap=default-font.png Char=" ",1,1,3,13,-1,2 Char="!",5,1,4,13,1,0 Char=""",10,1,5,13,0,1 Char="#",16,1,10,13,0,-1 Char="$",27,1,9,13,-1,0 Char="%",37,1,12,13,0,-1 Char="&",50,1,10,13,0,0 Char="'",61,1,3,13,0,0 Char="(",65,1,5,13,0,0 Char=")",71,1,5,13,0,0 Char="*",77,1,7,13,-1,0 Char="+",85,1,9,13,0,0 Char=",",95,1,5,13,-1,0 Char="-",101,1,5,13,0,0 Char=".",107,1,4,13,0,0 Char="/",112,1,6,13,-1,-1 Char="0",1,15,8,13,0,0 Char="1",10,15,8,13,0,0 Char="2",19,15,8,13,0,0 Char="3",28,15,8,13,0,0 Char="4",37,15,9,13,0,-1 Char="5",47,15,8,13,0,0 Char="6",56,15,8,13,0,0 Char="7",65,15,8,13,0,0 Char="8",74,15,8,13,0,0 Char="9",83,15,8,13,0,0 Char=":",92,15,4,13,0,0 Char=";",97,15,5,13,-1,0 Char="<",103,15,9,13,0,0 Char="=",113,15,9,13,0,0 Char=">",1,29,9,13,0,0 Char="?",11,29,7,13,0,-1 Char="@",19,29,12,13,0,-1 Char="A",32,29,10,13,-1,-1 Char="B",43,29,9,13,0,0 Char="C",53,29,9,13,0,0 Char="D",63,29,9,13,0,0 Char="E",73,29,8,13,0,0 Char="F",82,29,8,13,0,0 Char="G",91,29,9,13,0,0 Char="H",101,29,9,13,0,0 Char="I",111,29,4,13,0,0 Char="J",116,29,6,13,-2,0 Char="K",1,43,10,13,0,-1 Char="L",12,43,8,13,0,-1 Char="M",21,43,11,13,0,0 Char="N",33,43,9,13,0,0 Char="O",43,43,10,13,0,0 Char="P",54,43,9,13,0,-1 Char="Q",64,43,10,13,0,0 Char="R",75,43,9,13,0,-1 Char="S",85,43,8,13,0,0 Char="T",94,43,10,13,-1,-1 Char="U",105,43,9,13,0,0 Char="V",115,43,10,13,-1,-1 Char="W",1,57,13,13,0,0 Char="X",15,57,10,13,-1,-1 Char="Y",26,57,10,13,-1,-1 Char="Z",37,57,9,13,0,-1 Char="[",47,57,6,13,0,-1 Char="\",54,57,6,13,-1,-1 Char="]",61,57,6,13,-1,0 Char="^",68,57,9,13,0,0 Char="_",78,57,8,13,-1,-1 Char="`",87,57,5,13,0,1 Char="a",93,57,8,13,0,0 Char="b",102,57,8,13,0,0 Char="c",111,57,7,13,0,0 Char="d",1,71,8,13,0,0 Char="e",10,71,8,13,0,0 Char="f",19,71,7,13,-1,-1 Char="g",27,71,8,13,0,0 Char="h",36,71,8,13,0,0 Char="i",45,71,4,13,0,0 Char="j",50,71,5,13,-1,0 Char="k",56,71,9,13,0,-2 Char="l",66,71,4,13,0,0 Char="m",71,71,12,13,0,-1 Char="n",84,71,8,13,0,0 Char="o",93,71,8,13,0,0 Char="p",102,71,8,13,0,0 Char="q",111,71,8,13,0,0 Char="r",120,71,6,13,0,-1 Char="s",1,85,7,13,0,0 Char="t",9,85,7,13,-1,-1 Char="u",17,85,8,13,0,0 Char="v",26,85,9,13,-1,-1 Char="w",36,85,11,13,0,0 Char="x",48,85,9,13,-1,-1 Char="y",58,85,9,13,-1,-1 Char="z",68,85,7,13,0,0 Char="{",76,85,8,13,0,0 Char="|",85,85,3,13,0,1 Char="}",89,85,8,13,0,0 Char="~",98,85,9,13,0,0 --- /project/pal/cvsroot/pal/default-font.png 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/default-font.png 2007/06/28 20:14:05 1.1 PNG IHDRÃ>aË0IDATxí]1Ì+GþôRhò B "ŒWP)A^ DÈ)Ò¥4)-QP Q8]$G(ÒX!þ¥Hà'dä_~S ÅíŒgv÷îìßÿûw?ießÞÜììîÜÞÞÌÎÞ"BE¹øÂ¹š8/ªìc`£ò6!ÿV"ŠÎ¯i&Švòc|fáú]øÏXG®Ø¢ß+Cç|Àg*ÿ³?ÊäsNÌÐÔ=Ç&á÷]ßÄáÝc+ì+ÕQŒÒCÿßFdxÀsîßOUþ§ê<cV1gáØÃu)ÉþÑåc+ÀW<ÿ¿ à_Í»^ðv8îÒQ+A£.Ãï,BcáB>wÕyÆ}ßÿÏoøC§+ÈK»b4&€elÂïÆÏaÊØ&äªrg¢ÌT],Ycç?³LðÎiÇ!iÑ>)vrR;j:jiðÙX$xooDùÜ9DD«Fs±k,äŽeWú%Å°³tI1Lú1]ó[Aëñ¿ ¶wáú1*ä3£}XrÈŽ×ZõÛl!mC¿¥FñŠ] 5w0wÒïÎXÃùÃîè¬/Má8g$ãI+ÊDñ<tikÖj¬tÌIàþæué9?õŠØõGhß 4ÞðGqü!7qø/ñ-4Àï|àâ³tø]ø} òšó7?ðÏ>Þ!:ëk,!ÿ5í:°@3Û¿'ò6þ à9ðEõn¶>îs}Uóc à¯èßùpnš83ª/ pT(U VÚW4ËJÈó²ÉŽBóÊ&1E3»fMÈó iSåyr] ñ,vá£érä¡uvípÓ]ÉÂ(À¹)µ6õæ£<+")CgÈXQkÐ±ÊÌ¹ŠRŠ×r³y QÜë?uóÚ±OQã?b|ädeÃzÖ¹FŽ1+7U¡ï#yG :M¯/@Ëå±Ú±k]d§sóÌºd+%ž%L`-µÄ=Ú»j4ÆÊà%ËñÊÓ i)ÿö}[:T*>/G-wª.V®©étOc8ðPò ÌEuCÊNÊ)ÓãÅân1¹á]5Š}EË;ç&J)@¯di®lŽŸ~fçz§,~1tåeÕÍâ3êXï<Ìoèó:çËû1üÀ«ØÕ~Òc^¹ðÛö[Í À¯ŒfüGÑh19ù/®t8i ]÷÷±Ãÿ1G×Dåy`~Rù^]Œü÷Cb¯xYÑô3©+5,÷gåÐðóš .)=ŽyÚ¬á-üXP;o!¹w?šÞù1@á¿5`ìÈ~HÕeÈhÑ)U_ÀÍÁ1ŒQàæà,^Áª£ú GUÂQ pôQé)ÛÂÀ¢õ±çlîÐ2fÞãkyìÖ°œ¶SŽ1~kØTsŒ94üeÛì"rõÉË9(ÚwB¶.u15zïËÀOZù: ±<=:]Šçã¥ÒjzŸßZk^îÕµ+t~q[ruÍËGXŠÆ2°ADÛÂ§¢rÒËFŠÅÝÌ+j¡X.g¢Ž9ÚãòòõUOÁrxåæõRNlwæ¶ìØÜ±ï|ªÄ×°³D_'ãìä¯Rº£ÐÅò4úÒäÊ5_²,ËÀ¶æ| Àö×Éó³°íÏŒÔÛZò;·Acg6ïÐØÙSeOÑh9s|]n^¯ì>2€ú"*ÎÑtÂoÐ8.Ñpë`CÖó®GpíÄånÈó6f`°Ãéyÿ(üÆYàåkW¯ËóårÎ!àeCÛé?FëÒÍ.¯Ð4ú%öÃ±øÿaL¯ßKŽÊu©ÎyàÖ^¹ß£QŽ Õóz=#ïëOæûNêºñ,êúlQzèMäs×z1 Ù^9]ï·XD·&hú<ßy¢ÌØÒá|*¬Ì€<§ò,|ûñjc?CÀYqz°wñ1/yDÏx'â~àUŽG>:Qyûm}Uo`ášŸÂQ pT(Rô»ýM{æÒ^&ßû¶v®·bœrrc-ÏÜ ¶q©/Ï cò¶.GŸ§1ÇuÍ+óÎÈ¶xk+¶Ü÷] ~G«|~gäéwh¢}û€¯çzY¬><=Gš]õÌuOÅ%Zuícàà¹ªm0ád3Ùù^øTJXI³_Òþ²j~Eû<j:Çy]<xÇæéµÃkÃS)µŒñÀ»ëÝ±±Ø¹® Àw×X{P< Ô+;ÖúòôÂÃ@ñ©`NO® zDè$Oâ1})a5ÍV€Ê°v©tVÂ ÂsgðãŽ }ol¿BO> À>§ö`ö§ÅlŠþCŽ?UÞ{×¢ú°R_ülMmDé)ó©Ïñv¿.ßXÈœv*@Êìº!@/1OéšÊåÉrjSMseåNü(á;Û[:³Œ.ÎkêÀÃ1`áÐqÉ¡U¯?ìªO«ÞOÞYEk:ôBW-O©ôhsFòêp°@óÐ¬žµš@¯ YØòÒ+jÔ pÔ pT(·ARaXÇŸ®+°A98µl{ À+ôÌÃñE8¡`ïô²÷ÉóZªTÌ^ª³¬¥ê±ØÅ¥íËP^êc1Üðß<NñNžPï:ôß+õÞAóÁÛ±£B%6|t±ö-ïÊ±ëù[þæØbu;JÒ¢¶%€X>wA¶;R&6H;uj+UoëÖT#å|KÇº[¥%oCÇW ki»ç€"¯- Àòºx¢¶á§°)Sû)·ï n]ê[w2ú7¶#W¬¬XhçF;Aòv(cÈ)µY}&œö#ÖÜÉ!ÌÒN®w*Q|H.áXçÏŸkRßÓK]ªdµ:/fððŒ£vûëyZ&µy]Qî;8õEÍA 8 ÉÇs;7ŠSÒ¯¿wÑ|£hŸE{W£$~àû!]<k\.6¡ÜØ£9xMÄñYNÿ!œsÊíÓ#uc(/ÐfêgøÖÈãÄ yÆVÊäjn]ï%ùÒAwÐ$]î©º1> Œ Ÿ]ëÝ~æß2F.çº[Û pªàÐR³J>š 0OMG{ž Î )ÀOÔñOŽ¥Ð%ô,'?W{ßnN5<Dóÿ6nÁ0y{ÈÝfíØ×ãúŸü]ît4«¥ YãÐÂFê¿æ¥ËÇçvÈPNÉ?õAG3l1ùýýÝË4-Û;§=ýsÂ*Ä±ïÝÉÝ>ÙKgYûb)¹k*NpNûÞÀ2bü&ÔZ:c;y²cO¶üV{{ûÇhrúMÊãZõðg ¹ïœ±¡ŽK9]hbùRîÇhìêïeÈ#Ë±ä¿N'è; Œ£ÒÓ+4ÛÑ~çÜÜHCÐ#/ÀÞ+qÆËwÆë×²/öäÑ÷Ð<¿ßÇ×ú&«œµ§£Éé7ây ?y*ò<Y4^~n9:/Š÷qè>²ô_>¿ìN ËØ§=o7pàhöô}6A:2¿s¢Ïki§kÎåZwà×Gäû9ÄïÖãÜ#@ÅQA£*@áš 0sä{=¥Y8µôÚÐUs&ð#4^Ï_À·H2îº»áº®ÀâŒe €LÞœ>ät#À^%OçY4;FoCŸŠã<Rçì¡©ktD®d¢õjZuy+ÙòŠ?Ó÷³ÜÂ*óåXør¬_ìMäöê("ÈV.¹É€åÜPBÆ_Õ4ëÈV7Ç«³*ÛK1ÆÓjkOZž²²cûbBës-»O¹¹£uY2šíšX4ñHÔ!Ê Åu6·P¥tPê\ï¢,£µu,ìB¹]N®+,mÓ]C±õ9Vú¯l82z£ìXAH&áëDö,÷H2"vœ{þs]bÛöM çÆï"ŒvGhå¢"»åÂngNüàÀ»³¥¬^Ð(©µG,ß;wíÉÆªü¢çrbÝdgÅ;ÉºÞã;·à»ûu[Äê¡#|S à:[*Õ°F³0Äý^&fhW@«p¬U9ì¬:çZ'(12Ð..x#Þû5JTÙçBõO¢U(U GUÂQ pT(U GUÂQ pT(U GUÂQ pT(U GUÂQ pT(U GUÂQ pT(U GUÂQ pT(U GUÂQ pT(ÿ$%#: IEND®B`--- /project/pal/cvsroot/pal/ffi.lisp 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/ffi.lisp 2007/06/28 20:14:05 1.1 (declaim (optimize (speed 3) (safety 3))) (in-package :pal-ffi) (cffi:define-foreign-library sdl (:windows "SDL") (:linux "libSDL-1.2.so.0")) (cffi:define-foreign-library sdl-mixer (:windows "SDL_mixer") (:linux "libSDL_mixer-1.2.so.0")) (cffi:define-foreign-library sdl-image (:windows "SDL_image") (:linux "libSDL_image-1.2.so.0")) (cffi:define-foreign-library opengl (:windows "opengl32.dll") (:linux "libGL.so")) #+win32 (cffi:define-foreign-library shell32 (:windows "shell32.dll")) (defun load-foreign-libraries () (cffi:use-foreign-library sdl) (cffi:use-foreign-library sdl-mixer) (cffi:use-foreign-library sdl-image) (cffi:use-foreign-library opengl) #+win32 (cffi:use-foreign-library shell32)) (load-foreign-libraries) (deftype u8 () '(unsigned-byte 8)) (deftype u11 () '(unsigned-byte 11)) (deftype u16 () '(unsigned-byte 16)) (defconstant +init-audio+ #x00000010) (defconstant +init-video+ #x00000020) (defconstant +fullscreen+ #x80000000) (defconstant +opengl+ #x00000002) (defconstant +audio-s8+ #x8008) (defconstant +audio-s16lsb+ #x8010) (defconstant +audio-s16msb+ #x9010) (defconstant +audio-s16+ +audio-s16lsb+) (defconstant +channels+ 8) (defconstant +default-frequency+ 22050) (defconstant +default-channels+ 2) (defconstant +max-value+ 128) (defconstant +channel-post+ -2) (defconstant +no-fading+ 0) (defconstant +fading-out+ 1) (defconstant +fading-in+ 2) (defconstant +mus-none+ 0) (defconstant +mus-cmd+ 1) (defconstant +mus-wav+ 2) (defconstant +mus-mod+ 3) (defconstant +mus-mid+ 4) (defconstant +mus-ogg+ 5) (defconstant +mus-mp3+ 6) (defconstant +button-left+ 1) (defconstant +button-middle+ 2) (defconstant +button-right+ 3) (defconstant +button-wheelup+ 4) (defconstant +button-wheeldown+ 5) (cffi:defcstruct rectangle (x :short) (y :short) (w :uint16) (h :uint16)) (cffi:defcstruct color (r :uint8) (g :uint8) (b :uint8) (unused :uint8)) (cffi:defcstruct surface (flags :uint) (pixelformat :pointer) (w :int) (h :int) (pitch :uint16) (pixels :pointer) (offset :int) (hwdata :pointer) (clip-rect rectangle) (unused1 :uint) (locked :uint) (map :pointer) (format-version :uint) (refcount :int)) (cffi:defcstruct pixelformat (palette :pointer) (BitsPerPixel :uint8) (BytesPerPixel :uint8) (Rloss :uint8) (Gloss :uint8) (Bloss :uint8) (Aloss :uint8) (Rshift :uint8) (Gshift :uint8) (Bshift :uint8) (Ashift :uint8) (Rmask :uint) (Gmask :uint) (Bmask :uint) (Amask :uint) (colorkey :uint) (alpha :uint8)) (cffi:defcstruct keysym (scancode :uint8) (sym :int) (mod :int) (unicode :uint16)) (cffi:defcstruct keyboard-event (type :uint8) (state :uint8) (keysym keysym)) (cffi:defcstruct mouse-button-event (type :uint8) (which :uint8) (button :uint8) (state :uint8) (x :uint16) (y :uint16)) (cffi:defcstruct mouse-motion-event (type :uint8) (which :uint8) (state :uint8) (x :uint16) (y :uint16) (xrel :int16) (yrel :int16)) (cffi:defcstruct quit-event (type :uint8)) (cffi:defcstruct active-event (type :uint8) (gain :uint8) (state :uint8)) (cffi:defcstruct resize-event (type :uint8) (w :int) (h :int)) (defconstant +no-event+ 0) (defconstant +active-event+ 1) (defconstant +key-down-event+ 2) (defconstant +key-up-event+ 3) (defconstant +mouse-motion-event+ 4) (defconstant +mouse-button-down-event+ 5) (defconstant +mouse-button-up-event+ 6) (defconstant +quit-event+ 12) (defconstant +resize-event+ 16) (defconstant +expose-event+ 17) (cffi:defcenum sdl-key (:key-unknown 0) (:key-first 0) (:key-backspace 8) (:key-tab 9) (:key-clear 12) (:key-return 13) (:key-pause 19) (:key-escape 27) (:key-space 32) (:key-exclaim 33) (:key-quotedbl 34) (:key-hash 35) (:key-dollar 36) (:key-ampersand 38) (:key-quote 39) (:key-leftparen 40) (:key-rightparen 41) (:key-asterisk 42) (:key-plus 43) (:key-comma 44) (:key-minus 45) (:key-period 46) (:key-slash 47) (:key-0 48) (:key-1 49) (:key-2 50) (:key-3 51) (:key-4 52) (:key-5 53) (:key-6 54) (:key-7 55) (:key-8 56) (:key-9 57) (:key-colon 58) (:key-semicolon 59) [646 lines skipped] --- /project/pal/cvsroot/pal/license.txt 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/license.txt 2007/06/28 20:14:05 1.1 [667 lines skipped] --- /project/pal/cvsroot/pal/package.lisp 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/package.lisp 2007/06/28 20:14:05 1.1 [1106 lines skipped] --- /project/pal/cvsroot/pal/pal-macros.lisp 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/pal-macros.lisp 2007/06/28 20:14:05 1.1 [1278 lines skipped] --- /project/pal/cvsroot/pal/pal.asd 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/pal.asd 2007/06/28 20:14:05 1.1 [1295 lines skipped] --- /project/pal/cvsroot/pal/pal.lisp 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/pal.lisp 2007/06/28 20:14:05 1.1 [2001 lines skipped] --- /project/pal/cvsroot/pal/todo.txt 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/todo.txt 2007/06/28 20:14:05 1.1 [2023 lines skipped] --- /project/pal/cvsroot/pal/vector.lisp 2007/06/28 20:14:05 NONE +++ /project/pal/cvsroot/pal/vector.lisp 2007/06/28 20:14:05 1.1 [2264 lines skipped]

1 0

[pal-cvs] CVS pal/win32dlls
by tneste 28 Jun '07

28 Jun '07

Update of /project/pal/cvsroot/pal/win32dlls In directory clnet:/tmp/cvs-serv26134/win32dlls Log Message: Directory /project/pal/cvsroot/pal/win32dlls added to the repository

1 0

[pal-cvs] CVS pal/examples
by tneste 28 Jun '07

28 Jun '07

Update of /project/pal/cvsroot/pal/examples In directory clnet:/tmp/cvs-serv26134/examples Log Message: Directory /project/pal/cvsroot/pal/examples added to the repository

1 0

[pal-cvs] CVS pal
by tneste 28 Jun '07

28 Jun '07

Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv25600 Log Message: Status: Vendor Tag: tcvs-vendor Release Tags: tcvs-release No conflicts created by this import

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

pal-cvs