diff options
Diffstat (limited to 'examples/01-bitmap-display.lisp')
| -rw-r--r-- | examples/01-bitmap-display.lisp | 11 |
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 () |