lodematron-test.lisp

   1
   2 (asdf:oos 'asdf:load-op 'mixamesh)
   3 (asdf:oos 'asdf:load-op 'lodematron)
   4
   5 (in-package :lodematron)
   6
   7
   8 ;; test code
   9
  10 (defparameter *md2-file* (open (merge-pathnames #P"dalekx/tris.md2")
  11                                :direction :input
  12                                :element-type '(unsigned-byte 8)))
  13
  14 ;; (defparameter *header* (read-value 'md2-header *md2-file*))
  15
  16 ;; (defparameter *uvs* (parse-md2-uvs (uv-offset-of *header*) (nuvs-of *header*) *md2-file*))
  17
  18 ;; (defparameter *tris* (parse-md2-triangles (tris-offset-of *header*) (ntris-of *header*) *md2-file*))
  19
  20 ;; (defparameter *frames* (parse-md2-frames (frames-offset-of *header*)
  21 ;;                                          (nframes-of *header*)
  22 ;;                                          (framesize-of *header*)
  23 ;;                                          (nvertices-of *header*) *md2-file*))
  24
  25
  26 ;; (format *debug-io* "~D Skins ~D Vertices ~D UVS ~D Tris"
  27 ;;         (nskins-of *header*)
  28 ;;         (nvertices-of *header*)
  29 ;;         (nuvs-of *header*)
  30 ;;         (ntris-of *header*))
  31
  32 (defparameter *test-mesh* (make-instance 'simple-mesh))
  33
  34 (defparameter *test-md2* (parse-md2-file *md2-file*))
  35
  36
  37 (pose *test-md2* *test-mesh* "dalek042" "someskin")
  38 (repose *test-md2* *test-mesh* "dalek043" "someskin")
  39
  40
  41 (close *md2-file*)