aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-29 08:11:40 -0500
committerColin Okay <colin@cicadas.surf>2022-06-29 08:11:40 -0500
commit467e3343bc1620157073ff88b4990f39a60e3365 (patch)
tree7f0d9155664ac0121dc2898eb227bbe847bcac9c
parent4fc51c6d3b8825eb39b6e7f228c32b9de2c2ed5d (diff)
[example] transparent texture, [modify] render transparent textures
-rw-r--r--examples/02-moving-bitmp.lisp8
-rwxr-xr-xexamples/GelatinousCube.pngbin0 -> 3939 bytes
-rw-r--r--wheelwork.lisp7
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
new file mode 100755
index 0000000..76d9c76
--- /dev/null
+++ b/examples/GelatinousCube.png
Binary files differ
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))