diff options
| -rw-r--r-- | assets.lisp | 1 | ||||
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 11 |
2 files changed, 2 insertions, 10 deletions
diff --git a/assets.lisp b/assets.lisp index 7109559..823d99b 100644 --- a/assets.lisp +++ b/assets.lisp @@ -87,6 +87,7 @@ (defun free-assets () + (harmony-simple:stop *current-track*) (sdl2:destroy-texture *nance-texture*) (sdl2:destroy-texture *normy-texture*) (sdl2:destroy-texture *suit-texture*)) diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 35d51f2..1c47208 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -501,27 +501,18 @@ (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) - (sdl2:with-event-loop (:method :poll) - (:keydown (:keysym keysym) (if (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape) (sdl2:push-event :quit) (handle-keydown keysym))) - (:keyup (:keysym keysym) (handle-keyup keysym)) - (:idle () (update :game (sdl2:get-ticks)) (render :game renderer) - (sdl2:delay +frame-delay+)) - - (:quit () - ; (harmony-simple:stop *current-track*) - t))))) + (:quit () t))))) (free-assets))) |