diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-07-06 19:50:51 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-07-06 19:50:51 -0400 |
| commit | c37224c7d13cd9aa63b9d614e24b1832acf168d7 (patch) | |
| tree | 434630df0cd6ff25efc328049cf92bd665c2c82a | |
| parent | e7d1153289529f7d816fc8f3fabba3bac8e6a3ee (diff) | |
Update demos to use new sprite-batch-draw procedure.
| -rw-r--r-- | examples/particles.scm | 4 | ||||
| -rw-r--r-- | examples/tilemap.scm | 16 |
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) |