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
*)
22 (framesize-of *header
*)
23 (nvertices-of *header
*) *md2-file
*))
26 (format *debug-io
* "~D Skins ~D Vertices ~D UVS ~D Tris"
28 (nvertices-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")