lambdamundo-test.lisp

   1
   2
   3
   4 (in-package :lambdamundo)
   5
   6 (defparameter
   7     *turtle*
   8   (make-actor 'turtle
   9               :location (make-vertex3d* 1.5 1.5 0.0 1.0)
  10               :orientation (make-quaternion* 0.0 0.0 0.0 1.0)))
  11
  12
  13 (defparameter *dalek-mesh* (mixamesh:make-mesh 'lodematron:md2-mesh))
  14
  15 (defparameter *compiled-dalek-mesh* nil) ;;  (mixamesh:mesh-compile *dalek-mesh*))
  16
  17 ;; (one-shot-compile #P"mesh-compiler.lisp")
  18
  19 (defparameter *dalek* nil)
  20
  21 (defparameter *dalek-md2*
  22         (setf *dalek*
  23               (with-open-file
  24                   (dalek-md2
  25                    (merge-pathnames #P"dalekx/tris.md2")
  26                    :direction :input
  27                    :element-type '(unsigned-byte 8))
  28                 (lodematron:parse-md2-file dalek-md2))))
  29
  30 (lodematron::pose *dalek-md2* (gethash *dalek-mesh* *meshes*) "stand16" "brit")
  31
  32 (bound-mesh *dalek-mesh*)
  33
  34 (one-shot (mixamesh::make-compiled-mesh *dalek-mesh* :skin (lodematron::skin-of (gethash *dalek-mesh* *meshes*))))
  35
  36 (defparameter *dalek-actor*
  37   (make-actor 'npc
  38               :mesh *dalek-mesh*
  39               :location (make-vertex3d (location-of (gethash *turtle* *actors*)))
  40               :orientation (make-quaternion (orientation-of (gethash *turtle* *actors*)))))
  41
  42 (defparameter *dalek-actor* (make-npc  *dalek-mesh*))
  43
  44 (destroy-actor *dalek-actor*)
  45
  46
  47 (up *turtle* 0.5)