- (sdl:draw-surface-at-* (elt (images obj) (sprite-image-number obj))
- (zoom-trans (+ *current-translation-x* (round (x obj))))
- (zoom-trans (+ *current-translation-y* (round (y obj)))))))
+ (make-quad (elt (images obj) (sprite-image-number obj))
+ (zoom-trans (round (x obj)))
+ (zoom-trans (round (y obj)))
+
+ (ash (elt (full-widths obj)
+ (sprite-image-number obj)) (+ 2 *zoom-ash*))
+ (ash (elt (full-heights obj)
+ (sprite-image-number obj)) (+ 2 *zoom-ash*))
+
+)))