sprite: Add null-sprite.

* sly/render/sprite.scm (null-sprite): New variable.

1 files changed, 4 insertions, 0 deletions

diff --git a/sly/render/sprite.scm b/sly/render/sprite.scm
index c0ad5bb..40c2115 100644
--- a/sly/render/sprite.scm
+++ b/sly/render/sprite.scm
@@ -35,6 +35,7 @@
   #:use-module (sly render utils)
   #:use-module (sly math vector)
   #:export (make-sprite
+            null-sprite
             load-sprite
             sprite?
             sprite-texture
@@ -47,6 +48,9 @@
   (texture sprite-texture)
   (mesh sprite-mesh))
 
+(define null-sprite
+  (%make-sprite null-texture null-mesh))
+
 (define* (make-sprite texture #:key (anchor 'center))
   "Create a sprite that displays the image in TEXTURE.  The size of
 the mesh is the size of TEXTURE in pixels.  ANCHOR defines the origin