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