From c37224c7d13cd9aa63b9d614e24b1832acf168d7 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 6 Jul 2013 19:50:51 -0400 Subject: Update demos to use new sprite-batch-draw procedure. --- examples/particles.scm | 4 +--- examples/tilemap.scm | 16 +++++----------- 2 files changed, 6 insertions(+), 14 deletions(-) (limited to 'examples') 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) -- cgit v1.2.3