From ebc1c54b8f184ff485561b7c039be368b6a9d2c9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 10 Apr 2020 22:42:26 -0400
Subject: Day 1 progress.

---
 lisparuga/asset.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lisparuga/asset.scm')

diff --git a/lisparuga/asset.scm b/lisparuga/asset.scm
index b4969b0..a2b0c99 100644
--- a/lisparuga/asset.scm
+++ b/lisparuga/asset.scm
@@ -22,6 +22,7 @@
 ;;; Code:
 
 (define-module (lisparuga asset)
+  #:use-module (chickadee render texture)
   #:use-module (ice-9 ftw)
   #:use-module (ice-9 match)
   #:use-module (oop goops)
@@ -38,7 +39,8 @@
             reload-modified-assets
             clear-asset-cache
             asset-ref
-            define-asset))
+            define-asset
+            load-tile-atlas))
 
 (define-class <asset> ()
   (watch? #:allocation #:class #:init-form #f)
@@ -198,3 +200,9 @@
       #:file-name file-name
       #:loader loader
       #:loader-args (list loader-args ...))))
+
+;; Convenience procedure for loading tilesets
+(define* (load-tile-atlas file-name tile-width tile-height
+                          #:key (margin 0) (spacing 0))
+  (split-texture (load-image file-name) tile-width tile-height
+                 #:margin margin #:spacing spacing))
-- 
cgit v1.2.3