27 lines
807 B
Scheme
27 lines
807 B
Scheme
(define-module (game util assets)
|
|
#:use-module (chickadee graphics texture)
|
|
#:use-module (chickadee graphics color)
|
|
#:export (assets-load assets-file-name tile-texture tile-atlas hero-texture hero-atlas)
|
|
|
|
)
|
|
|
|
(define tile-texture #f)
|
|
(define tile-atlas #f)
|
|
|
|
(define hero-texture #f)
|
|
(define hero-atlas #f)
|
|
|
|
(define prefix (or (getenv "ASSET_DIR") "." ))
|
|
|
|
|
|
(define (assets-file-name name)
|
|
(string-append prefix "/" name)
|
|
)
|
|
|
|
(define (assets-load)
|
|
(set! tile-texture (load-image (assets-file-name "assets/images/simples_pimples.png")
|
|
#:transparent-color black))
|
|
(set! tile-atlas (split-texture tile-texture 16 16))
|
|
|
|
(set! hero-texture (load-image (assets-file-name "assets/images/lr_penguin2.png")))
|
|
(set! hero-atlas (split-texture hero-texture 32 32)))
|