render: texture: Allow texture creation with no pixel data.
[chickadee.git] / chickadee / render / texture.scm
index 086caab..bdddc22 100644 (file)
@@ -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)