[pal-cvs] CVS pal/examples

[tneste]

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

Modified Files:
	hares.lisp 
Log Message:


--- /project/pal/cvsroot/pal/examples/hares.lisp	2007/07/21 16:34:16	1.4
+++ /project/pal/cvsroot/pal/examples/hares.lisp	2007/07/28 13:13:17	1.5
@@ -71,11 +71,7 @@
 
     (event-loop ()
 
-      (draw-image* (tag 'bg)
-                   (v 0 0)
-                   (v 0 0)
-                   (get-screen-width)
-                   (get-screen-height))
+      (draw-rectangle (v 0 0) 800 600 255 255 255 255 :fill (tag 'bg))
       (with-blend (:mode *blend-mode*)
         (dolist (i *sprites*)
           (draw i)