diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-15 08:50:02 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-15 08:50:02 -0500 |
| commit | eae5cac9275f79ddb725bc62e41fdf620fa8f412 (patch) | |
| tree | 78ee92582cfce9de8084e54a12ad78d94eb47cf7 /the-price-of-a-cup-of-coffee.lisp | |
| parent | deb9294a12f9c89685f3bd43ab31cbc1ae6b6f10 (diff) | |
centering
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -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")) |