From 0fb4ec6b8cf60981bd1b96cfbf3bc41e0afead0d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 11 Mar 2015 22:21:32 -0400 Subject: render: texture: Ensure 2D textures are enabled when applying texture. * sly/render/texture.scm (apply-texture): Enable 2D textures before binding texture. --- sly/render/texture.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/sly/render/texture.scm b/sly/render/texture.scm index 0ebcd0c..d9c9267 100644 --- a/sly/render/texture.scm +++ b/sly/render/texture.scm @@ -220,7 +220,9 @@ vector to be returned." (pack vertices (+ offset 3) texture-vertex width 0 s2 t1)) (define (apply-texture texture) - (glBindTexture (texture-target texture-2d) (texture-id texture))) + (gl-enable (enable-cap texture-2d)) + (glBindTexture (texture-target texture-2d) + (texture-id texture))) (define-syntax-rule (with-texture texture body ...) (begin -- cgit v1.2.3