From d55f37f023f227774a34c72a4463450fa53fce4a Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 6 Aug 2018 10:57:57 +0200
Subject: Add vignette.

---
 assets/images/vignette.png | Bin 0 -> 16166 bytes
 scenes/death.scm           |   4 ++++
 scenes/game.scm            |   1 +
 3 files changed, 5 insertions(+)
 create mode 100644 assets/images/vignette.png

diff --git a/assets/images/vignette.png b/assets/images/vignette.png
new file mode 100644
index 0000000..d7f102d
Binary files /dev/null and b/assets/images/vignette.png differ
diff --git a/scenes/death.scm b/scenes/death.scm
index a2b6921..1e35563 100644
--- a/scenes/death.scm
+++ b/scenes/death.scm
@@ -40,6 +40,7 @@
   #:export (death))
 
 (define-asset death-map (load-tile-map "assets/maps/death.tmx"))
+(define-asset vignette-image (load-image "assets/images/vignette.png"))
 
 (define-class <death> (<scene>)
   (tile-map #:accessor tile-map #:init-form death-map)
@@ -246,6 +247,9 @@ void main (void) {
             (make <node-2d>
               #:children
               (list death
+                    (make <sprite>
+                      #:name 'vignette
+                      #:texture (asset-ref vignette-image))
                     (let ((text "Press any key to quit.")
                           (font death-font))
                       (make <label>
diff --git a/scenes/game.scm b/scenes/game.scm
index ac6d7df..fae998d 100644
--- a/scenes/game.scm
+++ b/scenes/game.scm
@@ -54,6 +54,7 @@
 
 (define-asset test-map (load-tile-map "assets/maps/01.tmx"))
 (define-asset error-sample (load-sample "assets/sounds/error.ogg"))
+(define-asset vignette-image (load-image "assets/images/vignette.png"))
 
 (define-class <game> (<scene>)
   (status #:accessor status #:init-form 'playing)
-- 
cgit v1.2.3