[example] transparent texture, [modify] render transparent textures

2 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 ()
diff --git a/examples/GelatinousCube.png b/examples/GelatinousCube.png
new file mode 100755
index 0000000..76d9c76
--- /dev/null
+++ b/examples/GelatinousCube.png