From eb1707c3cbbab147cc005c88d8d0c2539242df13 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 20 Jan 2021 08:45:00 -0500 Subject: graphics: texture: Get rid of some magic numbers. --- chickadee/graphics/texture.scm | 10 +++++----- 1 file 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)) -- cgit v1.2.3