diff options
Diffstat (limited to 'lisparuga/asset.scm')
| -rw-r--r-- | lisparuga/asset.scm | 10 |
1 files changed, 9 insertions, 1 deletions
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)) |