[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