dan
/
flight-sim
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix engine anim bugs

This commit is contained in:
Dan Ballard 2012-06-08 12:12:54 -07:00
parent 741baafc2b
commit 6bc27efa72
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
engine.lisp
View File

@ -55,7 +55,7 @@
(defparameter *thruster-vertices*
(make-thruster-vertices
'( (0.0 0.5 0.0) (-2.0 -0.5 0.0) (2.0 -0.5 0.0) (0.0 0.0 0.0))
'( (0.0 0.5 0.0) (-2.0 -0.5 0.0) (2.0 -0.5 0.0) (0.0 1.5 0.0))
'( (0.0 0.5 0.0) (-2.0 -0.5 0.0) (2.0 -0.5 0.0) (0.0 0.0 1.5))
2))
; '((0.0 0.5 0.0) (-2.0 -0.5 0.0) (2.0 -0.5 0.0)
; ; z goes from 0 to 1 in 2 seconds
@ -65,8 +65,8 @@
(append (loop for i from 1 to 3 collect
(loop for x from 0 to 2 collect
(list (elt base-color-start x) (elt base-color-final x) duration)))
(loop for x from 0 to 2 collect
(list (elt tip-color-start x) (elt tip-color-final x) duration))))
(list (loop for x from 0 to 2 collect
(list (elt tip-color-start x) (elt tip-color-final x) duration)))))
(defparameter *thruster-colors*
(make-thruster-colors '(32 32 32) '(64 132 164) '(0 0 64) '(255 255 255) 2))