diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-15 07:44:56 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-15 07:44:56 -0500 |
| commit | cc5433fe7aab0b949dd4a54b7da3a12a2eccaf2c (patch) | |
| tree | 7704cbb448d8be402965bd0ff06679f582cfe4aa /assets.lisp | |
| parent | 3386b8b93a7567c94c6d746d0b5e539c3d1b9c52 (diff) | |
freeing textures
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*)) |