diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-04-30 08:17:32 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-04-30 08:17:32 -0400 |
| commit | f38f302a49565c993d13d9d00eb409bff7506777 (patch) | |
| tree | e1e9d7ed5029d6bed8e98b8a181148a199ed7145 | |
| parent | dce66715fafb903c72f5e23cfc43268ab593e63b (diff) | |
graphics: texture: Import (sdl2 image) the right way.
| -rw-r--r-- | chickadee/graphics/texture.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chickadee/graphics/texture.scm b/chickadee/graphics/texture.scm index 6debd11..94ce546 100644 --- a/chickadee/graphics/texture.scm +++ b/chickadee/graphics/texture.scm @@ -24,6 +24,7 @@ #:use-module (system foreign) #:use-module (gl) #:use-module ((gl enums) #:prefix gl:) + #:use-module ((sdl2 image) #:prefix sdl2:) #:use-module ((sdl2 surface) #:prefix sdl2:) #:use-module (chickadee math rect) #:use-module (chickadee graphics color) @@ -282,7 +283,7 @@ the given MIN-FILTER and MAG-FILTER." describe the method that should be used for minification and magnification. Valid values are 'nearest and 'linear. By default, 'nearest is used." - (sdl2:call-with-surface ((@ (sdl2 image) load-image) file) + (sdl2:call-with-surface (sdl2:load-image file) (lambda (surface) (surface->texture surface min-filter mag-filter wrap-s wrap-t transparent-color)))) |