diff options
| -rw-r--r-- | starling/node-2d.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 09894a3..67ec6e6 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -690,13 +690,10 @@ (texture-height (texture sprite))) (define-method (render (sprite <sprite>) alpha) - (let* ((tex (texture sprite)) - (rect (size sprite)) - (tint (tint sprite)) - (matrix (world-matrix sprite))) - (draw-sprite* tex rect matrix - #:tint tint - #:texcoords (texture-gl-tex-rect tex)))) + (let ((t (texture sprite))) + (draw-sprite* t (size sprite) (world-matrix sprite) + #:tint (tint sprite) + #:texcoords (texture-gl-tex-rect t)))) ;;; |