diff options
| author | David Thompson <davet@gnu.org> | 2015-06-06 09:30:12 -0400 |
|---|---|---|
| committer | David Thompson <davet@gnu.org> | 2015-06-06 09:30:12 -0400 |
| commit | bef0b89e4e8eec38fac455f19657ecff979aa287 (patch) | |
| tree | da88d6c57cae908906c2868cb119ed1bc47d6879 | |
| parent | fe677bd06a3646f92c9b3b5111260191272b19e6 (diff) | |
render: texture: Add texture-null? procedure.
* sly/render/texture.scm (texture-null?): New procedure.
| -rw-r--r-- | sly/render/texture.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/sly/render/texture.scm b/sly/render/texture.scm index d9c9267..df786b6 100644 --- a/sly/render/texture.scm +++ b/sly/render/texture.scm @@ -39,6 +39,7 @@ load-texture texture? texture-region? + texture-null? texture-id texture-parent texture-width @@ -75,6 +76,10 @@ (define null-texture (%make-texture 0 #f 0 0 0 0 0 0)) +(define (texture-null? texture) + "Return #t if TEXTURE is the null texture." + (eq? texture null-texture)) + (define (texture-region? texture) "Return #t if TEXTURE has a parent texture." (texture? (texture-parent texture))) |