From c85f71217c22ef26ff7a02d47bf31a175764fd55 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 11 Oct 2019 08:47:42 -0500 Subject: added nance assets --- the-price-of-a-cup-of-coffee.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'the-price-of-a-cup-of-coffee.lisp') diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 50f8cf3..af7e73a 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -25,6 +25,7 @@ :initform nil :initarg (make-keyword-symbol slot)))))) + (def-normal-class pedestrian () (walk-vec (list 2 0)) (comfort-rad 60) @@ -49,6 +50,7 @@ (sdl2:with-window (win :w 800 :h 600 :title "The Price Of A Cup Of Coffee" :flags '(:shown)) (sdl2:with-renderer (rndr win :flags '(:accelerated)) (sdl2:with-event-loop (:method :poll) + (:keydown (:keysym keysym) (if (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape) (sdl2:push-event :quit))) -- cgit v1.2.3