summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/render/tiled.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/chickadee/render/tiled.scm b/chickadee/render/tiled.scm
index e51e3c0..7ce8c53 100644
--- a/chickadee/render/tiled.scm
+++ b/chickadee/render/tiled.scm
@@ -231,8 +231,10 @@
(parse-color-channel value 1)))
(_ (error "unsupported property type" type))))))
(define (parse-image node)
- (let ((source (attr node 'source)))
- (load-image (scope source))))
+ (let ((source (attr node 'source))
+ (trans (attr node 'trans)))
+ (load-image (scope source)
+ #:transparent-color (and trans (string->color trans)))))
(define (parse-frame node)
(let ((tile-id (attr node 'tileid string->number))
(duration (attr node 'duration string->number)))