diff options
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 11 |
1 files changed, 1 insertions, 10 deletions
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))) |