summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-02-15 22:16:18 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-02-16 10:46:58 -0500
commit0d3a3d0be9474c6a8b6dc3497ecdefdf41057a81 (patch)
treeb872d69425b23074db25f9762174eaa8d28f8375
parentd20605bb985002fc5f6285259bfd9c41d55e6fbe (diff)
Formatting cleanup.
* 2d/sprite.scm: Reindent file.
-rw-r--r--2d/sprite.scm30
1 files changed, 15 insertions, 15 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm
index f2c9c83..b8f62ee 100644
--- a/2d/sprite.scm
+++ b/2d/sprite.scm
@@ -100,13 +100,13 @@ sprite."
(define (update-sprite-vertices! sprite)
(let ((texture (sprite-texture sprite)))
(pack-texture-vertices (sprite-vertices sprite)
- 0
- (texture-width texture)
- (texture-height texture)
- (texture-s1 texture)
- (texture-t1 texture)
- (texture-s2 texture)
- (texture-t2 texture))))
+ 0
+ (texture-width texture)
+ (texture-height texture)
+ (texture-s1 texture)
+ (texture-t1 texture)
+ (texture-s2 texture)
+ (texture-t2 texture))))
(define* (make-sprite drawable #:optional #:key
(position (vector2 0 0)) (scale (vector2 1 1))
@@ -121,12 +121,12 @@ ANCHOR is either a vector2 that represents the center point of the
sprite, or 'center which will place the anchor at the center of
DRAWABLE. Sprites are centered by default."
(let* ((vertices (make-packed-array texture-vertex 4))
- (animator (if (animation? drawable)
- (make-animator drawable)
- #f))
- (anchor (make-anchor anchor (drawable-texture drawable animator)))
- (sprite (%make-sprite drawable position scale rotation color
- anchor vertices animator)))
+ (animator (if (animation? drawable)
+ (make-animator drawable)
+ #f))
+ (anchor (make-anchor anchor (drawable-texture drawable animator)))
+ (sprite (%make-sprite drawable position scale rotation color
+ anchor vertices animator)))
(update-sprite-vertices! sprite)
sprite))
@@ -177,8 +177,8 @@ currently bound."
(color (sprite-color sprite))
(projection (signal-ref window-projection)))
(draw-texture-vertices (sprite-texture sprite)
- (sprite-vertices sprite)
- 1))))
+ (sprite-vertices sprite)
+ 1))))
;; A hash table for all of the animated sprites that have been drawn
;; since the last game update. It is cleared after every game-agenda