[fix] render in bitmap to include projection

1 files changed, 7 insertions, 4 deletions

diff --git a/examples/01-bitmap-display.lisp b/examples/01-bitmap-display.lisp
index fa743fa..788ae6d 100644
--- a/examples/01-bitmap-display.lisp
+++ b/examples/01-bitmap-display.lisp
@@ -9,10 +9,13 @@
 (defclass bitmap-display (ww::application ) ())
 
 (defmethod ww::boot ((app bitmap-display))
-  (ww::add-unit
-   app
-   (make-instance 'ww::bitmap
-                  :texture (ww::get-asset "Fezghoul.png"))))
+  (let ((bm
+          (make-instance 'ww::bitmap
+                         :texture (ww::get-asset "Fezghoul.png"))))
+    (describe (ww::model-matrix bm))
+    (describe bm)
+    (describe app)
+    (ww::add-unit app bm)))
 
 
 (defun start ()