diff options
| author | David Thompson <dthompson2@worcester.edu> | 2019-11-05 20:26:58 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-11-05 20:26:58 -0500 |
| commit | ab7c8acfd6344668c6605321e03082dc53c8a4d2 (patch) | |
| tree | f313eadf76c739daa721d972d17b6333ccacbb4a | |
| parent | ca784647bc237dd9f9357ade99b507a4a7b2f3e9 (diff) | |
render: model: Make a few small tweaks.
| -rw-r--r-- | chickadee/render/model.scm | 15 |
1 files 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) |