[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hares.lisp teddy.lisp 
Log Message:
Minor fixes. Added HANDLE-EVENTS

--- /project/pal/cvsroot/pal/examples/hares.lisp	2007/07/30 10:38:11	1.7
+++ /project/pal/cvsroot/pal/examples/hares.lisp	2007/08/15 14:36:21	1.8
@@ -70,7 +70,7 @@
                      :angle (random 360.0)))
 
     (event-loop ()
-
+      ;;(+ 1 (v 10 10))
       (draw-rectangle (v 0 0) 800 600 255 255 255 255 :fill (tag 'bg))
       (with-blend (:mode *blend-mode*)
         (dolist (i *sprites*)
@@ -84,4 +84,4 @@
 
       (draw-fps))))
 
-;; (example)
\ No newline at end of file
+;; (example)
--- /project/pal/cvsroot/pal/examples/teddy.lisp	2007/07/29 21:55:23	1.7
+++ /project/pal/cvsroot/pal/examples/teddy.lisp	2007/08/15 14:36:21	1.8
@@ -88,7 +88,6 @@
 
     (setf *sprites* nil)
 
-
     ;; Hide the mouse cursor and use cursor.png instead. 18,18 is the offset ("hotspot") for the cursor image
     ;; Other possible options to cursor are: t - show the default cursor, nil - hide all cursors
     (set-cursor (tag 'cursor) (v 18 18))