From 318b28053599249873e6cb89714953beb56774cc Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 27 Aug 2014 11:26:43 -0400
Subject: sprite: Add load-sprite procedure.

* sly/sprite.scm (load-sprite): New procedure.
---
 sly/sprite.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/sly/sprite.scm b/sly/sprite.scm
index 59583db..064ec66 100644
--- a/sly/sprite.scm
+++ b/sly/sprite.scm
@@ -37,6 +37,7 @@
   #:use-module (sly signal)
   #:use-module (sly texture)
   #:export (make-sprite
+            load-sprite
             make-animated-sprite))
 
 ;;;
@@ -65,6 +66,11 @@
                        (vector s2 t2)
                        (vector s1 t2)))))))
 
+(define* (load-sprite file-name #:optional #:key (shader (load-default-shader)))
+  "Return a sprite mesh for the texture loaded from FILE-NAME.
+Optionally, a custom SHADER can be specified."
+  (make-sprite (load-texture file-name) #:shader shader))
+
 (define* (make-animated-sprite textures frame-duration #:optional #:key
                                (loop? #t)
                                (shader (load-default-shader)))
-- 
cgit v1.2.3