render: model: Make a few small tweaks.
authorDavid Thompson <dthompson2@worcester.edu>
Wed, 6 Nov 2019 01:26:58 +0000 (20:26 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Wed, 6 Nov 2019 01:26:58 +0000 (20:26 -0500)
chickadee/render/model.scm

index 56f5c39..2e73506 100644 (file)
   #: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 @@
 
 \f
 ;;;
-;;; Primitives
+;;; Primitive
 ;;;
 
 ;; A piece of a mesh.  Represents a single draw call.
 
 \f
 ;;;
-;;; Meshes
+;;; Mesh
 ;;;
 
 ;; A complete 3D model composed of many primitives.
 ;; 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)