aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples/02-moving-bitmp.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-29 08:11:40 -0500
committerColin Okay <colin@cicadas.surf>2022-06-29 08:11:40 -0500
commit467e3343bc1620157073ff88b4990f39a60e3365 (patch)
tree7f0d9155664ac0121dc2898eb227bbe847bcac9c /examples/02-moving-bitmp.lisp
parent4fc51c6d3b8825eb39b6e7f228c32b9de2c2ed5d (diff)
[example] transparent texture, [modify] render transparent textures
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 ()