summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dave@izanagi>2013-06-16 14:32:50 -0400
committerDavid Thompson <dave@izanagi>2013-06-16 14:32:50 -0400
commitc04b4b1ea000410c8fa64834043f7361dd7a7460 (patch)
tree39381d387b1a8326de300864a879b8bc3ecbf3e5
parentc1868d7b2b5f4dbf12711d340b53ca5ced4ad44f (diff)
Add a color parameter to texture-quad.
-rw-r--r--2d/texture.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/texture.scm b/2d/texture.scm
index 2081670..50ac21e 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -71,12 +71,13 @@ Currently only works with RGBA format surfaces."
"Loads a texture from a file."
(surface->texture (SDL:load-image filename)))
-(define* (texture-quad texture x y w h)
+(define* (texture-quad texture x y w h #:optional (color '(1 1 1)))
"Renders a textured quad."
(let ((x2 (+ x w))
(y2 (+ y h)))
(with-gl-bind-texture (texture-target texture-2d) (texture-id texture)
(gl-begin (begin-mode quads)
+ (apply gl-color color)
(gl-texture-coordinates 0 0)
(gl-vertex x y)
(gl-texture-coordinates 1 0)