Add vignette.

3 files changed, 5 insertions, 0 deletions

diff --git a/assets/images/vignette.png b/assets/images/vignette.png
new file mode 100644
index 0000000..d7f102d
--- /dev/null
+++ b/assets/images/vignette.png
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)