diff options
-rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 891d702..bdb5bd7 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -170,20 +170,18 @@ (generosity 0.25) (vulnerability 3)) - - (defvar *nance*) (defun boot-up (renderer) - (boot-up-assets renderer) - (setf *nance* (make-instance 'hero :sheet *nance-texture*))) + (setf *nance* (make-instance 'hero :sheet *nance-texture*)) + (setf (sdl2:rect-x (pos *nance*)) + (round (* 0.5 (- +window-width+ (sdl2:rect-width (pos *nance*))))))) (defparameter +frame-delay+ (round (/ 1000 60))) - (defun action-key-pressed () (print "Action")) |