From 51d3c475e5c8d962b117a380f9ec58f313ca46f7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 19 Jan 2017 09:27:40 -0500
Subject: render: texture: Allow texture creation with no pixel data.

This will be useful for creating framebuffers.
---
 chickadee/render/texture.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/chickadee/render/texture.scm b/chickadee/render/texture.scm
index 086caab..bdddc22 100644
--- a/chickadee/render/texture.scm
+++ b/chickadee/render/texture.scm
@@ -21,6 +21,7 @@
   #:use-module (rnrs bytevectors)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
+  #:use-module (system foreign)
   #:use-module (gl)
   #:use-module ((gl enums)
                 #:select (texture-min-filter texture-mag-filter)
@@ -148,7 +149,7 @@ clamp-to-edge.  FORMAT specifies the pixel format.  Currently only
                          (match format
                            ('rgba (pixel-format rgba)))
                          (color-pointer-type unsigned-byte)
-                         pixels)
+                         (or pixels %null-pointer))
     texture))
 
 (define (flip-pixels-vertically pixels width height)
-- 
cgit v1.2.3