summaryrefslogtreecommitdiff
path: root/chickadee/graphics/particles.scm
diff options
context:
space:
mode:
Diffstat (limited to 'chickadee/graphics/particles.scm')
-rw-r--r--chickadee/graphics/particles.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/chickadee/graphics/particles.scm b/chickadee/graphics/particles.scm
index d8bd1b2..35aa6fc 100644
--- a/chickadee/graphics/particles.scm
+++ b/chickadee/graphics/particles.scm
@@ -24,10 +24,10 @@
#:use-module (chickadee math matrix)
#:use-module (chickadee math rect)
#:use-module (chickadee math vector)
- #:use-module (chickadee graphics blend)
#:use-module (chickadee graphics buffer)
#:use-module (chickadee graphics color)
#:use-module (chickadee graphics engine)
+ #:use-module (chickadee graphics gpu)
#:use-module (chickadee graphics shader)
#:use-module (chickadee graphics texture)
#:export (make-particle-emitter
@@ -285,7 +285,7 @@ default.
(hw (- hh) 1.0 0.0)
(hw hh 1.0 1.0)
((- hw) hh 0.0 1.0)))
- (geometry-index-append! geometry 0 3 2 0 2 1))
+ (geometry-index-append! geometry 0 2 3 0 1 2))
(%make-particles capacity
0
;; 1 extra element as swap space for sorting.
@@ -431,8 +431,8 @@ default.
(let ((shader (graphics-variable-ref particles-shader))
(mvp (graphics-variable-ref mvp-matrix))
(geometry (particles-geometry particles)))
- (with-graphics-state ((g:blend-mode (particles-blend-mode particles))
- (g:texture-0 (particles-texture particles)))
+ (with-graphics-state ((blend-mode (particles-blend-mode particles))
+ (texture 0 (texture-id (particles-texture particles))))
(shader-apply/instanced shader
(geometry-vertex-array geometry)
(particles-size particles)