diff options
author | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-07-22 11:58:16 -0500 |
commit | 00841605110612f6e7f3bbfc054ceff980bf25be (patch) | |
tree | 1f16b86d5c555eea22e60cb2d36f88682bd9023b /examples/07-renderarea.lisp | |
parent | 6d9b8b48423dba99ecdba004f260c30e6717b6a6 (diff) |
[version] [refactor] [redesign] removed containers
Diffstat (limited to 'examples/07-renderarea.lisp')
-rw-r--r-- | examples/07-renderarea.lisp | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/examples/07-renderarea.lisp b/examples/07-renderarea.lisp index 95a6e9d..5fc6f0e 100644 --- a/examples/07-renderarea.lisp +++ b/examples/07-renderarea.lisp @@ -33,27 +33,20 @@ (let ((cube (make-instance 'ww::image - :texture (ww::get-asset "GelatinousCube.png"))) - (cube-container - (make-instance - 'ww::container - :bottom 200 :top 400 - :left 200 :right 600))) + :texture (ww::get-asset "GelatinousCube.png")))) (setf (cube app) cube) (ww::add-handler app #'move-cube) (ww::add-handler cube #'clicked) - (setf (ww::x cube) 400 (ww::y cube) 300) (ww::scale-by cube 2.0) - (ww::add-unit cube-container cube) - (ww::add-unit app cube-container) - - (describe cube-container))) + (ww::add-unit cube) + (setf (ww::unit-region cube) + (make-instance 'ww::region :bottom 200 :top 400 :left 200 :right 600)))) (defun start () |