diff options
| -rw-r--r-- | 2d/texture.scm | 12 |
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) |