2 (asdf:oos
'asdf
:load-op
'mixamesh
)
3 (asdf:oos
'asdf
:load-op
'lodematron
)
5 (in-package :lodematron
)
10 (defparameter *md2-file
* (open (merge-pathnames #P
"dalekx/tris.md2")
12 :element-type
'(unsigned-byte 8)))
14 ;; (defparameter *header* (read-value 'md2-header *md2-file*))
16 ;; (defparameter *uvs* (parse-md2-uvs (uv-offset-of *header*) (nuvs-of *header*) *md2-file*))
18 ;; (defparameter *tris* (parse-md2-triangles (tris-offset-of *header*) (ntris-of *header*) *md2-file*))
20 ;; (defparameter *frames* (parse-md2-frames (frames-offset-of *header*)
21 ;; (nframes-of *header*)
22 ;; (framesize-of *header*)
23 ;; (nvertices-of *header*) *md2-file*))
26 ;; (format *debug-io* "~D Skins ~D Vertices ~D UVS ~D Tris"
27 ;; (nskins-of *header*)
28 ;; (nvertices-of *header*)
30 ;; (ntris-of *header*))
32 (defparameter *test-mesh
* (make-instance 'simple-mesh
))
34 (defparameter *test-md2
* (parse-md2-file *md2-file
*))
37 (pose *test-md2
* *test-mesh
* "dalek042" "someskin")
38 (repose *test-md2
* *test-mesh
* "dalek043" "someskin")