Chunk to mesh converting

borodust · Jan 4, 2017 · cda539e · cda539e
1 parent 4816510
commit cda539e
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 3 deletions.
diff --git a/resources/converters.lisp b/resources/converters.lisp
@@ -19,6 +19,14 @@
 (defmethod chunk-asset-flow ((this animation-chunk) loader)
   (value-flow (chunk->animation this)))
 
+;;;
+;;;
+;;;
+(defstruct mesh-asset
+  (mesh nil :read-only t)
+  (transform nil :read-only t)
+  (bones nil :read-only t))
+
 
 (define-system-function chunk->mesh ge.gx:graphics-system (mesh-chunk)
   (let* ((arrays (mesh-chunk-arrays mesh-chunk))
@@ -44,11 +52,14 @@
 
 (defmethod chunk-asset-flow ((this mesh-chunk) loader)
   (-> ((ge.gx:graphics) :important-p t) ()
-    (chunk->mesh this)))
+    (multiple-value-bind (mesh transform bones) (chunk->mesh this)
+      (make-mesh-asset :mesh mesh
+                       :transform transform
+                       :bones bones))))
 
 
 (defmethod dispose-chunk-asset ((this mesh-chunk) asset loader)
-  (dispose asset))
+  (dispose (mesh-asset-mesh asset)))
 
 
 (defun chunk->skeleton (chunk)

diff --git a/resources/packages.lisp b/resources/packages.lisp
@@ -4,4 +4,8 @@
 (defpackage :cl-bodge.resources
   (:nicknames :ge.rsc)
   (:use :cl :cl-bodge.utils :cl-bodge.engine :cl-bodge.assets)
-  (:export make-resource-loader))
+  (:export make-resource-loader
+
+           mesh-asset-mesh
+           mesh-asset-transform
+           mesh-asset-bones))