diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:11:40 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:11:40 -0500 |
| commit | 467e3343bc1620157073ff88b4990f39a60e3365 (patch) | |
| tree | 7f0d9155664ac0121dc2898eb227bbe847bcac9c /wheelwork.lisp | |
| parent | 4fc51c6d3b8825eb39b6e7f228c32b9de2c2ed5d (diff) | |
[example] transparent texture, [modify] render transparent textures
Diffstat (limited to 'wheelwork.lisp')
| -rw-r--r-- | wheelwork.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
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)) |