diff options
| -rw-r--r-- | examples/02-moving-bitmp.lisp | 8 | ||||
| -rwxr-xr-x | examples/GelatinousCube.png | bin | 0 -> 3939 bytes | |||
| -rw-r--r-- | wheelwork.lisp | 7 |
3 files changed, 10 insertions, 5 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 Binary files differnew file mode 100755 index 0000000..76d9c76 --- /dev/null +++ b/examples/GelatinousCube.png diff --git a/wheelwork.lisp b/wheelwork.lisp index 55996b1..25b4695 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -312,7 +312,7 @@ necessary." (sdl2:with-gl-context (ctx window) (sdl2:gl-make-current window ctx) (gl:viewport 0 0 (application-width app) (application-height app)) - (gl:enable :depth-test) + ;(gl:enable :depth-test) (let ((*application* app)) (unwind-protect (progn @@ -334,7 +334,10 @@ necessary." (defmethod render ((app application)) (run-perframe app) (gl:clear-color 0.0 0.0 0.0 1.0) - (gl:clear :depth-buffer-bit :color-buffer-bit) + ;(gl:clear :depth-buffer-bit :color-buffer-bit) + (gl:clear :color-buffer-bit) + (gl:enable :blend) + (gl:blend-func :src-alpha :one-minus-src-alpha ) (dolist (thing (container-units app)) (render thing)) (sdl2:gl-swap-window (application-window app)) |
