diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-01-20 08:45:00 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-01-20 08:45:00 -0500 |
| commit | eb1707c3cbbab147cc005c88d8d0c2539242df13 (patch) | |
| tree | 125717fa81cac35ccb3f85e75e203412e9e3c080 | |
| parent | dadc2fbd5c65ce3cd6bd666ba928e4dcd89a4c8f (diff) | |
graphics: texture: Get rid of some magic numbers.
| -rw-r--r-- | chickadee/graphics/texture.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/chickadee/graphics/texture.scm b/chickadee/graphics/texture.scm index 24d6140..ba6cb62 100644 --- a/chickadee/graphics/texture.scm +++ b/chickadee/graphics/texture.scm @@ -23,7 +23,7 @@ #:use-module (srfi srfi-9 gnu) #:use-module (system foreign) #:use-module (gl) - #:use-module (gl enums) + #:use-module ((gl enums) #:prefix gl:) #:use-module ((sdl2 surface) #:prefix sdl2:) #:use-module (oop goops) #:use-module (chickadee math rect) @@ -159,13 +159,13 @@ clamp-to-edge. FORMAT specifies the pixel format. Currently only (gl-texture-parameter (texture-target texture-2d) (texture-parameter-name texture-min-filter) (match min-filter - ('nearest 9728) - ('linear 9729))) + ('nearest (gl:texture-min-filter nearest)) + ('linear (gl:texture-min-filter linear)))) (gl-texture-parameter (texture-target texture-2d) (texture-parameter-name texture-mag-filter) (match mag-filter - ('nearest 9728) - ('linear 9729))) + ('nearest (gl:texture-mag-filter nearest)) + ('linear (gl:texture-mag-filter linear)))) (gl-texture-parameter (texture-target texture-2d) (texture-parameter-name texture-wrap-s) (gl-wrap wrap-s)) |