diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-11-30 12:34:00 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-11-30 12:34:00 -0500 |
| commit | d73ec673e3dfa2986e9fb6050dc54377a556b186 (patch) | |
| tree | 794616c66386d36f825852035e33230fe4240f14 /2d/sprite.scm | |
| parent | 781a3dcacedc210e51e9dfc6669b4319a48878ab (diff) | |
Allow signals to be used for certain sprite properties.
* 2d/sprite.scm (update-sprite-vertices!)
(draw-sprite-batched): Use signals.
Diffstat (limited to '2d/sprite.scm')
| -rw-r--r-- | 2d/sprite.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm index 7e322a0..445fcff 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -33,6 +33,7 @@ #:use-module (2d color) #:use-module (2d helpers) #:use-module (2d math) + #:use-module (2d signals) #:use-module (2d texture) #:use-module (2d vector2) #:use-module (2d wrappers gl)) @@ -225,8 +226,8 @@ sprite." (define (update-sprite-vertices! sprite) "Rebuild the internal vertex array." - (let ((pos (sprite-position sprite)) - (scale (sprite-scale sprite)) + (let ((pos (signal-ref-maybe (sprite-position sprite))) + (scale (signal-ref-maybe (sprite-scale sprite))) (anchor (sprite-anchor-vector sprite)) (texture (sprite-texture sprite))) (pack-sprite-vertices (sprite-vertices sprite) @@ -239,7 +240,7 @@ sprite." (vy anchor) (vx scale) (vy scale) - (sprite-rotation sprite) + (signal-ref-maybe (sprite-rotation sprite)) (texture-s1 texture) (texture-t1 texture) (texture-s2 texture) @@ -264,8 +265,8 @@ currently bound." (define (draw-sprite-batched sprite) "Add SPRITE to the current sprite batch batch." (let ((texture (sprite-texture sprite)) - (pos (sprite-position sprite)) - (scale (sprite-scale sprite)) + (pos (signal-ref-maybe (sprite-position sprite))) + (scale (signal-ref-maybe (sprite-scale sprite))) (anchor (sprite-anchor-vector sprite))) (register-animated-sprite-maybe sprite) (%sprite-batch-draw *sprite-batch* @@ -278,7 +279,7 @@ currently bound." (vy anchor) (vx scale) (vy scale) - (sprite-rotation sprite) + (signal-ref-maybe (sprite-rotation sprite)) (texture-s1 texture) (texture-t1 texture) (texture-s2 texture) |