From 0d3a3d0be9474c6a8b6dc3497ecdefdf41057a81 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 15 Feb 2014 22:16:18 -0500
Subject: Formatting cleanup.

* 2d/sprite.scm: Reindent file.
---
 2d/sprite.scm | 30 +++++++++++++++---------------
 1 file 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
-- 
cgit v1.2.3