From d2af56e4b6489e7f157c2d4a0e65a471f0984915 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 29 Aug 2013 22:52:26 -0400 Subject: Clean up lines longer than 80 characters. --- 2d/sprite.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/2d/sprite.scm b/2d/sprite.scm index 7c036f3..16d40b6 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -142,7 +142,8 @@ ;; texture-region, animation, etc.) with a given position, scale, ;; rotation, and color. (define-record-type - (%make-sprite drawable position scale rotation color anchor vertices dirty animation-state) + (%make-sprite drawable position scale rotation color anchor vertices + dirty animation-state) sprite? (drawable sprite-drawable set-sprite-drawable!) (position sprite-position %set-sprite-position!) @@ -162,7 +163,8 @@ (animation-state (if (animation? drawable) (make-animation-state drawable) #f))) - (%make-sprite drawable position scale rotation color anchor vertices #t animation-state))) + (%make-sprite drawable position scale rotation color anchor vertices + #t animation-state))) (define-syntax-rule (dirty-sprite-setter setter private-setter) "Defines a setter that calls the private version of the given @@ -311,7 +313,8 @@ bound." (define* (make-sprite-batch #:optional (max-size 1000)) "Creates a new sprite batch. The default max-size is 1000." - (%make-sprite-batch max-size 0 #f (make-packed-array sprite-vertex (* 4 max-size)))) + (let ((vertex-array (make-packed-array sprite-vertex (* 4 max-size)))) + (%make-sprite-batch max-size 0 #f vertex-array))) (define (sprite-batch-draw . args) "Adds a textured quad to the current sprite batch." -- cgit v1.2.3