diff options
Diffstat (limited to 'assets.lisp')
| -rw-r--r-- | assets.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/assets.lisp b/assets.lisp index bacfc7a..426e6f5 100644 --- a/assets.lisp +++ b/assets.lisp @@ -104,6 +104,7 @@ (defparameter +speechbubble-image+ #P"assets/Speechbubble.png") (defparameter +cop1-sheet-image+ #P"assets/Cop1.png") (defparameter +cop2-sheet-image+ #P"assets/Cop2.png") +(defparameter +title-card-image+ #P"assets/TitleCard.png") (defvar *nance-texture*) (defvar *suit-texture*) @@ -116,6 +117,7 @@ (defvar *backdrop-texture*) (defvar *sliding-door-texture*) (defvar *speech-bubble-texture*) +(defvar *title-card-texture*) (defparameter +sliding-door-open-x+ 800) (defparameter +sliding-door-closed-x+ 868) @@ -139,6 +141,13 @@ (with-surface-from-file (surf filepath) (sdl2:create-texture-from-surface renderer surf))) + +(defun boot-and-show-title (renderer) + (setf *title-card-texture* (make-texture-from-file renderer +title-card-image+)) + (sdl2:render-copy renderer *title-card-texture*) + (sdl2:render-present renderer)) + + (defun boot-up-assets (renderer) (setf *nance-texture* (make-texture-from-file renderer +nance-sheet-image+)) (setf *suit-texture* (make-texture-from-file renderer +suit-sheet-image+)) |