diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-11 08:47:42 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-11 08:47:42 -0500 |
| commit | c85f71217c22ef26ff7a02d47bf31a175764fd55 (patch) | |
| tree | 9309945bd8f6826de95bd1501a3507f5a607f4ae /the-price-of-a-cup-of-coffee.lisp | |
| parent | 89a57373ad50be71d863bba415f40e04467e560a (diff) | |
added nance assets
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
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))) |