diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-20 07:45:28 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-20 07:45:28 -0500 |
| commit | 5c22b7888e09c9e43e2b605d817a1e57bde63ddc (patch) | |
| tree | e6061348d0e52d6c2135c5e516999ae95ef54dce /assets.lisp | |
| parent | c065c7d856bce3fab29c768ea99f65afd0c80a06 (diff) | |
mogrified assets, set foreign memory on bootup
Diffstat (limited to 'assets.lisp')
| -rw-r--r-- | assets.lisp | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/assets.lisp b/assets.lisp index 426e6f5..241f91e 100644 --- a/assets.lisp +++ b/assets.lisp @@ -86,9 +86,7 @@ (:NAME "very-angry" :X 0 :Y 0 :WIDTH 72 :HEIGHT 72))) -(defparameter +shared-faces+ - (create-sprite-faces +tile-defs+)) - +(defparameter +shared-faces+ nil) (defparameter +nance-sheet-image+ #P"assets/Nance.png") @@ -121,21 +119,15 @@ (defparameter +sliding-door-open-x+ 800) (defparameter +sliding-door-closed-x+ 868) -(defvar *sliding-door-position* - (sdl2:make-rect +sliding-door-closed-x+ 8 104 138)) +(defvar *sliding-door-position*) + (defvar *harmony-initialized-p* nil) (defvar *cold-day-track*) (defvar *looking-up-track*) (defvar *current-track*) -(defvar *cop-animation-faces* - (let* ((f1 (sdl2:make-rect 0 0 64 128)) - (f2 (sdl2:make-rect 64 0 64 128)) - (v (make-array 2 :initial-contents (list f1 f2)))) - (make-sprite-faces - :facing-down v :facing-up v :facing-left v :facing-right v - :walking-down v :walking-up v :walking-left v :walking-right v))) +(defvar *cop-animation-faces*) (defun make-texture-from-file (renderer filepath) (with-surface-from-file (surf filepath) @@ -149,6 +141,17 @@ (defun boot-up-assets (renderer) + (setf +shared-faces+ (create-sprite-faces +tile-defs+)) + (setf *sliding-door-position* + (sdl2:make-rect +sliding-door-closed-x+ 8 104 138)) + (setf *cop-animation-faces* + (let* ((f1 (sdl2:make-rect 0 0 64 128)) + (f2 (sdl2:make-rect 64 0 64 128)) + (v (make-array 2 :initial-contents (list f1 f2)))) + (make-sprite-faces + :facing-down v :facing-up v :facing-left v :facing-right v + :walking-down v :walking-up v :walking-left v :walking-right v))) + (setf *nance-texture* (make-texture-from-file renderer +nance-sheet-image+)) (setf *suit-texture* (make-texture-from-file renderer +suit-sheet-image+)) (setf *normy-texture* (make-texture-from-file renderer +nomry-sheet-image+)) |