diff options
| -rw-r--r-- | assets.lisp | 28 | ||||
| -rw-r--r-- | assets/KidSheet.png | bin | 0 -> 107108 bytes |
2 files changed, 16 insertions, 12 deletions
diff --git a/assets.lisp b/assets.lisp index cf24067..beb6312 100644 --- a/assets.lisp +++ b/assets.lisp @@ -96,6 +96,7 @@ (defparameter +nance-sheet-image+ "assets/Nance.png") (defparameter +suit-sheet-image+ "assets/Suit.png") (defparameter +nomry-sheet-image+ "assets/Normy.png") +(defparameter +kid-sheet-image+ "assets/KidSheet.png") (defparameter +things-look-up-track-path+ #P"assets/thingslookup.mp3") (defparameter +cold-day-track-path+ #P"assets/coldday.mp3") (defparameter +emoji-sheet-image+ #P"assets/emoji.png") @@ -105,6 +106,7 @@ (defvar *nance-texture*) (defvar *suit-texture*) (defvar *normy-texture*) +(defvar *kid-texture*) (defvar *expression-texture*) (defvar *backdrop-texture*) (defvar *sliding-door-texture*) @@ -119,24 +121,26 @@ (defvar *looking-up-track*) (defvar *current-track*) +(defun make-texture-from-file (renderer filepath) + (with-surface-from-file (surf filepath) + (sdl2:create-texture-from-surface renderer surf))) + (defun boot-up-assets (renderer) - (with-surface-from-file (surf +nance-sheet-image+) - (setf *nance-texture* (sdl2:create-texture-from-surface renderer surf))) + (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+)) + + (setf *kid-texture* (make-texture-from-file renderer +kid-sheet-image+)) - (with-surface-from-file (surf +suit-sheet-image+) - (setf *suit-texture* (sdl2:create-texture-from-surface renderer surf))) + (setf *expression-texture* (make-texture-from-file renderer +emoji-sheet-image+)) - (with-surface-from-file (surf +nomry-sheet-image+) - (setf *normy-texture* (sdl2:create-texture-from-surface renderer surf))) + (setf *sliding-door-texture* (make-texture-from-file renderer +sliding-door-image+)) - (with-surface-from-file (surf +emoji-sheet-image+) - (setf *expression-texture* (sdl2:create-texture-from-surface renderer surf))) + (setf *backdrop-texture* (make-texture-from-file renderer +backdrop-image+)) - (with-surface-from-file (surf +sliding-door-image+) - (setf *sliding-door-texture* (sdl2:create-texture-from-surface renderer surf))) - (with-surface-from-file (surf +backdrop-image+) - (setf *backdrop-texture* (sdl2:create-texture-from-surface renderer surf))) (unless *harmony-initialized-p* (harmony-simple:initialize) diff --git a/assets/KidSheet.png b/assets/KidSheet.png Binary files differnew file mode 100644 index 0000000..c8a8f0d --- /dev/null +++ b/assets/KidSheet.png |
