X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=draw.lisp;h=1b058e6dba20970021dfe64d909f859825bbc468;hp=03a40b8eb038d969beb90ae311ecfadcf0e28480;hb=b97da26f7129191eff0f3c90e831fd9e94e52a56;hpb=c2914c4c77ff9ffe9dd8dbe24992bcb07bb17611

diff --git a/draw.lisp b/draw.lisp
index 03a40b8..1b058e6 100755
--- a/draw.lisp
+++ b/draw.lisp
@@ -46,7 +46,9 @@
 	  ))
     (draw-background *current-translation-x* *current-translation-y*)
     (dolist (image (get-objects obj 'uxul-world::game-object))
-      (if (and (redraw image) (visible image)) (draw image)))))
+      (if (and (redraw image)
+	       (visible image)
+	       (rectangle-in-screen image)) (draw image)))))
 
 
 ;; FIXME