From e6b9c50f6abf9028a0027f918d47b2f35ada5253 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 21 Sep 2021 19:59:12 -0400
Subject: graphics: skybox: Add default-skybox procedure.

---
 chickadee/graphics/skybox.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/chickadee/graphics/skybox.scm b/chickadee/graphics/skybox.scm
index d7fe5d7..093f629 100644
--- a/chickadee/graphics/skybox.scm
+++ b/chickadee/graphics/skybox.scm
@@ -36,6 +36,7 @@
             skybox?
             skybox-cube-map
             skybox-mesh
+            default-skybox
             draw-skybox))
 
 (define-record-type <skybox>
@@ -87,6 +88,19 @@
                                 #:attributes `((0 . ,positions)))))
     (%make-skybox cube-map va)))
 
+;; A default, dark gray skybox.
+(define %default-skybox
+  (delay
+    (let ((face (list (u32vector #xff202020
+                                 #xff202020
+                                 #xff202020
+                                 #xff202020)
+                      2 2)))
+      (make-skybox (make-cube-map (make-list 6 face))))))
+
+(define (default-skybox)
+  (force %default-skybox))
+
 (define %skybox-shader
   (delay (load-shader (scope-datadir "shaders/skybox-vert.glsl")
                       (scope-datadir "shaders/skybox-frag.glsl"))))
-- 
cgit v1.2.3