summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-rw-r--r--2d/texture.scm12
1 files changed, 10 insertions, 2 deletions
diff --git a/2d/texture.scm b/2d/texture.scm
index 66d158b..7d0f7bd 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -62,15 +62,23 @@
(t2 texture-t2))
(define (texture-region? texture)
+ "Return #t if TEXTURE has a parent texture."
(texture? (texture-parent texture)))
(define (make-texture id parent width height s1 t1 s2 t2)
+ "Create a new texture object. ID is the OpenGL texture id. PARENT is
+a texture object (if this texture only represents a region of another
+texture) or #f. WIDTH and HEIGHT are the texture dimensions in
+pixels. S1, T1, S2, and T2 are the OpenGL texture coordinates
+representing the area of the texture that will be rendered."
(let ((texture (%make-texture id parent width height s1 t1 s2 t2)))
(texture-guardian texture)
texture))
(define (make-texture-region texture x y width height)
- "Creates a new texture region given a texture and a pixel region."
+ "Creates new texture region object. TEXTURE is the region's parent
+texture. X, Y, WIDTH, and HEIGHT represent the region of the texture
+that will be rendered, in pixels."
(let* ((w (texture-width texture))
(h (texture-height texture)))
(make-texture (texture-id texture)
@@ -144,7 +152,7 @@
32bit-bitmap))
(define (load-texture filename)
- "Loads a texture from a file."
+ "Load a texture from an image file at FILENAME."
(let* ((bitmap (load-bitmap filename))
(texture (bitmap->texture bitmap)))
(freeimage-unload bitmap)