projects
/
uxul-world.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Major Changes. Windows Compatibility.
[uxul-world.git]
/
functions.lisp
diff --git
a/functions.lisp
b/functions.lisp
index
2cbf8ca
..
aa71ef5
100755
(executable)
--- a/
functions.lisp
+++ b/
functions.lisp
@@
-570,8
+570,9
@@
are not zero"
(defun old-draw-rectangle (obj &key (r 0) (g 0) (b 0))
(defun old-draw-rectangle (obj &key (r 0) (g 0) (b 0))
- (sdl:draw-rectangle-* (+ *current-translation-x* (x obj))
- (+ *current-translation-y* (y obj))
- (width obj)
- (height obj)
+ (declare (type game-object obj))
+ (sdl:draw-rectangle-* (zoom-trans (+ *current-translation-x* (x obj)))
+ (zoom-trans (+ *current-translation-y* (y obj)))
+ (zoom-trans (width obj))
+ (zoom-trans (height obj))
:color (sdl:color :r r :g g :b b)))
:color (sdl:color :r r :g g :b b)))