[pal-cvs] CVS pal/examples

tneste tneste at common-lisp.net
Sun Jul 1 22:49:25 UTC 2007


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




More information about the Pal-cvs mailing list