diff options
Diffstat (limited to 'assets.lisp')
| -rw-r--r-- | assets.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/assets.lisp b/assets.lisp index f08919f..7109559 100644 --- a/assets.lisp +++ b/assets.lisp @@ -73,6 +73,9 @@ (with-surface-from-file (surf +suit-sheet-image+) (setf *suit-texture* (sdl2:create-texture-from-surface renderer surf))) + (with-surface-from-file (surf +nomry-sheet-image+) + (setf *normy-texture* (sdl2:create-texture-from-surface renderer surf))) + (unless *harmony-initialized-p* (harmony-simple:initialize) (setf *looking-up-track* (harmony-simple:play +things-look-up-track-path+ :music :loop t)) @@ -83,7 +86,10 @@ (setf *harmony-initialized-p* t))) - +(defun free-assets () + (sdl2:destroy-texture *nance-texture*) + (sdl2:destroy-texture *normy-texture*) + (sdl2:destroy-texture *suit-texture*)) |