summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/particles.scm4
-rw-r--r--examples/tilemap.scm16
2 files changed, 6 insertions, 14 deletions
diff --git a/examples/particles.scm b/examples/particles.scm
index b5044bb..9883dfb 100644
--- a/examples/particles.scm
+++ b/examples/particles.scm
@@ -61,9 +61,7 @@
(let* ((pos (particle-position p))
(x (vx pos))
(y (vy pos)))
- (sprite-batch-draw batch particle-image x y 0 0
- particle-width particle-height
- 1 1 0)))
+ (sprite-batch-draw particle-image x y particle-width particle-height)))
particles)))
(set-render-callback (lambda () (render)))
diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 070793e..1b1df2c 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -35,21 +35,15 @@
(do-ec (: y (map-layer-height layer))
(: x (map-layer-width layer))
(let ((tile (array-ref (map-layer-tiles layer) y x)))
- (sprite-batch-draw batch
- (texture-region-texture tile)
+ (sprite-batch-draw (texture-region-texture tile)
(* x (map-layer-tile-width layer))
(* y (map-layer-tile-height layer))
- 0
- 0
(texture-region-width tile)
(texture-region-height tile)
- 1
- 1
- 0
- (texture-region-u tile)
- (texture-region-v tile)
- (texture-region-u2 tile)
- (texture-region-v2 tile))))))))
+ #:u (texture-region-u tile)
+ #:v (texture-region-v tile)
+ #:u2 (texture-region-u2 tile)
+ #:v2 (texture-region-v2 tile))))))))
;; A small 8x8 array of tile indices.
(define map-width 8)