From 00cb2f8619956b91581aafbf9e4ffd06cb02585b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 13 Jun 2013 19:54:19 -0400 Subject: Change gl-tex-parameter to gl-texture-parameter. --- 2d/texture.scm | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to '2d') diff --git a/2d/texture.scm b/2d/texture.scm index 3473e6d..2081670 100644 --- a/2d/texture.scm +++ b/2d/texture.scm @@ -48,21 +48,21 @@ Currently only works with RGBA format surfaces." (let* ((texture-id (gl-generate-texture))) (with-gl-bind-texture (texture-target texture-2d) texture-id - (gl-tex-parameter (texture-target texture-2d) - (texture-parameter-name texture-min-filter) - (texture-min-filter linear)) - (gl-tex-parameter (texture-target texture-2d) - (texture-parameter-name texture-mag-filter) - (texture-mag-filter linear)) - (gl-tex-image-2d (texture-target texture-2d) - 0 - (pixel-format rgba) - (SDL:surface:w surface) - (SDL:surface:h surface) - 0 - (pixel-format rgba) - (color-pointer-type unsigned-byte) - (SDL:surface-pixels surface))) + (gl-texture-parameter (texture-target texture-2d) + (texture-parameter-name texture-min-filter) + (texture-min-filter linear)) + (gl-texture-parameter (texture-target texture-2d) + (texture-parameter-name texture-mag-filter) + (texture-mag-filter linear)) + (gl-texture-image-2d (texture-target texture-2d) + 0 + (pixel-format rgba) + (SDL:surface:w surface) + (SDL:surface:h surface) + 0 + (pixel-format rgba) + (color-pointer-type unsigned-byte) + (SDL:surface-pixels surface))) (make-texture texture-id (SDL:surface:w surface) (SDL:surface:h surface)))) -- cgit v1.2.3