From 467e3343bc1620157073ff88b4990f39a60e3365 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 29 Jun 2022 08:11:40 -0500 Subject: [example] transparent texture, [modify] render transparent textures --- examples/02-moving-bitmp.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'examples/02-moving-bitmp.lisp') 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 () -- cgit v1.2.3