diff options
| -rw-r--r-- | scenes/intro.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/scenes/intro.scm b/scenes/intro.scm index 8758a50..5b80b36 100644 --- a/scenes/intro.scm +++ b/scenes/intro.scm @@ -94,8 +94,14 @@ The leaf begins to dry.")) (define-method (on-key-press (intro <intro>) key mods repeat?) (when (eq? key 'return) - (switch-scene (root-node) - (game)))) + (let ((fade (child-ref (parent intro) 'fade-all))) + (script + (tween 60 0.0 1.0 + (lambda (alpha) + (set! (color fade) + (make-color 0 0 0 alpha)))) + (switch-scene (root-node) + (game)))))) (define (intro) (set-music-volume! 1.0) |