From ecc4cc242580610f21f5a4d44a3bf44a09dca81e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 19 Nov 2019 17:35:56 -0500
Subject: render: Make apply-* procedures public.

---
 chickadee/render/buffer.scm      | 2 ++
 chickadee/render/framebuffer.scm | 3 ++-
 chickadee/render/shader.scm      | 1 +
 chickadee/render/texture.scm     | 1 +
 chickadee/render/viewport.scm    | 1 +
 5 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/chickadee/render/buffer.scm b/chickadee/render/buffer.scm
index c38e1fc..fc66dad 100644
--- a/chickadee/render/buffer.scm
+++ b/chickadee/render/buffer.scm
@@ -47,6 +47,7 @@
             buffer-usage
             buffer-data
             null-buffer
+            apply-buffer
             map-buffer!
             unmap-buffer!
             with-mapped-buffer
@@ -70,6 +71,7 @@
             unmap-buffer-view!
             with-mapped-buffer-view
             make-vertex-array
+            apply-vertex-array
             vertex-array?
             vertex-array-indices
             vertex-array-attributes
diff --git a/chickadee/render/framebuffer.scm b/chickadee/render/framebuffer.scm
index d5a8d44..53890ba 100644
--- a/chickadee/render/framebuffer.scm
+++ b/chickadee/render/framebuffer.scm
@@ -38,7 +38,8 @@
             framebuffer-texture
             framebuffer-viewport
             framebuffer-projection
-            null-framebuffer))
+            null-framebuffer
+            apply-framebuffer))
 
 (define (generate-framebuffer)
   "Generate a new OpenGL framebuffer object."
diff --git a/chickadee/render/shader.scm b/chickadee/render/shader.scm
index 5b807ab..baf0302 100644
--- a/chickadee/render/shader.scm
+++ b/chickadee/render/shader.scm
@@ -53,6 +53,7 @@
             make-shader
             shader?
             null-shader
+            apply-shader
             load-shader
             strings->shader
             shader-uniform
diff --git a/chickadee/render/texture.scm b/chickadee/render/texture.scm
index b215722..4aea488 100644
--- a/chickadee/render/texture.scm
+++ b/chickadee/render/texture.scm
@@ -48,6 +48,7 @@
             texture-gl-rect
             texture-gl-tex-rect
             null-texture
+            apply-texture
 
             texture-atlas
             list->texture-atlas
diff --git a/chickadee/render/viewport.scm b/chickadee/render/viewport.scm
index 8005f80..e61136d 100644
--- a/chickadee/render/viewport.scm
+++ b/chickadee/render/viewport.scm
@@ -38,6 +38,7 @@
             viewport-clear-color
             viewport-clear-flags
             null-viewport
+            apply-viewport
             %default-clear-flags
             %default-clear-color))
 
-- 
cgit v1.2.3