aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/02-moving-bitmp.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'examples/02-moving-bitmp.lisp')
-rw-r--r--examples/02-moving-bitmp.lisp8
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/02-moving-bitmp.lisp b/examples/02-moving-bitmp.lisp
index a1c3c87..9504a87 100644
--- a/examples/02-moving-bitmp.lisp
+++ b/examples/02-moving-bitmp.lisp
@@ -106,7 +106,7 @@
:texture (ww::get-asset "Fezghoul.png")))
(bm2
(make-instance 'ww::bitmap
- :texture (ww::get-asset "RootBear.png"))))
+ :texture (ww::get-asset "GelatinousCube.png"))))
(ww::add-handler app #'wheelie)
@@ -115,7 +115,7 @@
(ww::add-handler bm #'animate-move-thing )
(ww::add-handler bm #'thing-clicked)
(ww::add-handler bm #'mouse-over)
- (ww::add-unit app bm)
+
;;second
(setf (ww::unit-x bm2) 90
(ww::unit-y bm2) 90)
@@ -124,7 +124,9 @@
(ww::add-handler bm2 #'look-at-me)
(ww::add-handler bm2 #'look-away)
(ww::add-handler bm2 #'wheelie)
- (ww::add-unit app bm2)))
+
+ (ww::add-unit app bm2)
+ (ww::add-unit app bm)))
(defun start ()