From ab7c8acfd6344668c6605321e03082dc53c8a4d2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 5 Nov 2019 20:26:58 -0500
Subject: render: model: Make a few small tweaks.

---
 chickadee/render/model.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/chickadee/render/model.scm b/chickadee/render/model.scm
index 56f5c39..2e73506 100644
--- a/chickadee/render/model.scm
+++ b/chickadee/render/model.scm
@@ -40,7 +40,14 @@
   #:use-module (rnrs io ports)
   #:use-module (srfi srfi-9)
   #:use-module ((srfi srfi-43) #:select (vector-every))
-  #:export (model?
+  #:export (scene-node?
+            scene-node-name
+            scene-node-mesh
+            scene-node-matrix
+            scene-node-children
+            model?
+            model-scenes
+            model-default-scene
             draw-model
             load-obj
             load-gltf))
@@ -77,7 +84,7 @@
 
 
 ;;;
-;;; Primitives
+;;; Primitive
 ;;;
 
 ;; A piece of a mesh.  Represents a single draw call.
@@ -104,7 +111,7 @@
 
 
 ;;;
-;;; Meshes
+;;; Mesh
 ;;;
 
 ;; A complete 3D model composed of many primitives.
@@ -127,7 +134,7 @@
 ;; A tree of meshes with their own transformation matrices.
 (define-record-type <scene-node>
   (%make-scene-node name mesh matrix children)
-  node?
+  scene-node?
   (name scene-node-name)
   (mesh scene-node-mesh)
   (matrix scene-node-matrix)
-- 
cgit v1.2.3