From 9aaf017b70fb9474d3c5be22a27dfcc86d8b41c1 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 7 May 2014 18:35:36 -0400 Subject: Make sprites immutable. * 2d/sprite.scm (): Make immutable. (set-sprite-drawable!, set-sprite-position!, set-sprite-scale!) (set-sprite-rotation!, set-sprite-color!, set-sprite-anchor!): Delete. (set-sprite-drawable, set-sprite-position, set-sprite-scale) (set-sprite-rotation, set-sprite-color, set-sprite-anchor): New procedures. * examples/coroutine.scm: * examples/particles.scm: Use immutable sprite setters. --- examples/particles.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'examples/particles.scm') diff --git a/examples/particles.scm b/examples/particles.scm index 4269b99..b60a537 100644 --- a/examples/particles.scm +++ b/examples/particles.scm @@ -65,8 +65,7 @@ (for-each (lambda (p) (let* ((sprite (particle-sprite p))) - (set-sprite-position! sprite (particle-position p)) - (draw-sprite sprite))) + (draw-sprite (set-sprite-position sprite (particle-position p))))) particles)) (define (draw dt alpha) -- cgit v1.2.3