X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=game-object.lisp;fp=game-object.lisp;h=caee7a69e14c263d9888fa0141771a8a9b8892ed;hp=df28f331ceb24af5aef9bc2bffb404ca997c9120;hb=32d336f81c7ba63968f935b66d6b601ecf9d400b;hpb=074a5863f985bd9a078f41af96310fd55828df3f diff --git a/game-object.lisp b/game-object.lisp index df28f33..caee7a6 100755 --- a/game-object.lisp +++ b/game-object.lisp @@ -1,4 +1,4 @@ -;;; Copyright 2009 Christoph Senjak +;;; Copyright 2009-2011 Christoph Senjak (in-package :uxul-world) @@ -128,10 +128,11 @@ (defmethod draw-bounds ((obj game-object)) "This function draws a rectangle with the Object's Bounds. May be useful for some debug-spam" - (sdl:draw-rectangle-* (+ (x obj) *current-translation-x*) - (+ (y obj) *current-translation-y*) - (width obj) (height obj) - :color sdl:*BLACK*)) + ;; (sdl:draw-rectangle-* (+ (x obj) *current-translation-x*) + ;; (+ (y obj) *current-translation-y*) + ;; (width obj) (height obj) + ;; :color sdl:*BLACK*) +) (defun collide-blocks (moving-rectangle standing-rectangle collision) "as MANY collision-methods need to move the moving-object around the