summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/texture.scm30
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))))