render: tiled: Respect image transparent color values.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 14 Nov 2019 13:48:32 +0000 (08:48 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 14 Nov 2019 13:48:32 +0000 (08:48 -0500)
chickadee/render/tiled.scm

index e51e3c0..7ce8c53 100644 (file)
                            (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)))