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)