diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 19:03:53 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 19:03:53 -0500 |
| commit | 1af868e62bc346659d4e04b9b8ddf4a560e38bd1 (patch) | |
| tree | 054aba3bfa288481a57c2b49148a6ad5725fea43 | |
| parent | 00d6e8c5f2e85a6c9d8ecf557da81f35c243b32b (diff) | |
cold day after asset boot
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index efabf4e..3ea2ba9 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -749,13 +749,12 @@ (defun start () - - (play-track *cold-day-track*) (unwind-protect (sdl2:with-init (:everything) (sdl2:with-window (win :w 1024 :h 600 :title "The Price Of A Cup Of Coffee" :flags '(:shown)) (sdl2:with-renderer (renderer win :flags '(:accelerated)) (boot-up renderer) + (play-track *cold-day-track*) (sdl2:with-event-loop (:method :poll) (:keydown (:keysym keysym) (if (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape) |