From a92f569176de809ecdd8f73e9862ee1043b39da0 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 14 Nov 2019 08:48:32 -0500 Subject: render: tiled: Respect image transparent color values. --- chickadee/render/tiled.scm | 6 ++++-- 1 file 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))) -- cgit v1.2.3