floss/stoe-game
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a character type model

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-08-28 18:18:18 +02:00
parent a51068c2cb
commit e35726a860
4 changed files with 5726 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
data/TieFighter_Upload.blend → data/TieFighter.blend
View file

BIN
data/levi.blend Normal file
View file

Binary file not shown.

5717
data/levi.dae Normal file
View file

File diff suppressed because one or more lines are too long

9
stoe-game.lisp
View file

@ -21,6 +21,15 @@
(setf scene (first scenes)) (setf scene (first scenes))
(setf camera (make-camera 90 (/ 16 9) 1.0 1000.0))))) (setf camera (make-camera 90 (/ 16 9) 1.0 1000.0)))))
(defun load-levi ()
(with-lock-held ((scene-lock (get-world)))
(with-accessors ((scene world-scene) (camera world-camera) (scenes scenes)) (get-world)
(push (import-graphic-assets #P"data/levi.dae") scenes)
(setf scene (first scenes))
(setf camera (make-camera 90 (/ 16 9) 1.0 1000.0))
(move camera :dz -1.0 :dy -2.0)
(rotate camera :dy -90.0))))
(defun setup-input () (defun setup-input ()
(global-set-key :escape #'quit) (global-set-key :escape #'quit)
(global-set-key (:e :continuous) (lambda () (move (get-current-camera) :dz -0.1))) (global-set-key (:e :continuous) (lambda () (move (get-current-camera) :dz -0.1)))