diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-05-07 18:35:36 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-05-07 18:35:36 -0400 |
| commit | 9aaf017b70fb9474d3c5be22a27dfcc86d8b41c1 (patch) | |
| tree | e0e4d7ea975c483ceab1b748c6ae9264f731a303 /examples/particles.scm | |
| parent | a316893a68ae44a100d6dc5be34bf2c7d582e9ca (diff) | |
Make sprites immutable.
* 2d/sprite.scm (<sprite>): 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.
Diffstat (limited to 'examples/particles.scm')
| -rw-r--r-- | examples/particles.scm | 3 |
1 files changed, 1 insertions, 2 deletions
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) |