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

add rotation

This commit is contained in:
Dan Ballard 2011-07-17 18:04:28 -07:00
parent b6589962ce
commit 1dd2eae816
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
flight-sim.lisp
View File

@ -201,6 +201,13 @@
(gl:flush) (gl:flush)
(sdl:update-display)) (sdl:update-display))
(defun phys-step (time)
(loop for entity across *world* do
(let ((v-angles (angles (motion entity)))
(angles (angles entity)))
(incf (aref angles 0) (* time (aref v-angles 0)))
(incf (aref angles 1) (* time (aref v-angles 1)))
(incf (aref angles 2) (* time (aref v-angles 2))))))
(defun sim-step () (defun sim-step ()
"draw a frame" "draw a frame"
@ -215,6 +222,7 @@
(decf (aref *origin* 2) (* time *velocity*))) (decf (aref *origin* 2) (* time *velocity*)))
(otherwise (format t "~a~%" key)))) (otherwise (format t "~a~%" key))))
(phys-step time)
(draw time) (draw time)
@ -263,7 +271,14 @@
(make-instance 'game-object (make-instance 'game-object
:model *diamond-model* :model *diamond-model*
:coords (vector (- (random 10) 5) (- (random 10) 5) (- (random 10) 5)) :coords (vector (- (random 10) 5) (- (random 10) 5) (- (random 10) 5))
:angles (vector (random 360) (random 360) (random 360))))))) :angles (vector (random 360) (random 360) (random 360))
:motion (make-instance 'motion
:angles (vector
(- (random 620) 310)
(- (random 620) 310)
(- (random 620) 310))))))))
(defun init () (defun init ()