diff options
| author | David Thompson <dave@izanagi> | 2013-06-13 19:54:19 -0400 |
|---|---|---|
| committer | David Thompson <dave@izanagi> | 2013-06-13 19:54:19 -0400 |
| commit | 00cb2f8619956b91581aafbf9e4ffd06cb02585b (patch) | |
| tree | 3f51981a17b8ccfb66bf9a77881d651d78559f9c | |
| parent | a86ebd5bed737d5d705666d020953c0879ae1bdf (diff) | |
Change gl-tex-parameter to gl-texture-parameter.
| -rw-r--r-- | 2d/texture.scm | 30 |
1 files changed, 15 insertions, 15 deletions
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)))) |