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

commented out other keys for now to prevent error

This commit is contained in:
Dan Ballard 2012-05-15 22:24:05 -07:00
parent a66a2fc879
commit 3257354352
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
flight-sim.lisp
View File

@ -70,16 +70,16 @@
;(engine-start (engine *self*) (wall-time)))) ;(engine-start (engine *self*) (wall-time))))
; (activate-engine *self* :thrust))) ; (activate-engine *self* :thrust)))
((:sdl-key-s) ; - z ; ((:sdl-key-s) ; - z
(setf (aref (acceleration (motion *self*)) 2) *acceleration*)) ; (setf (aref (acceleration (motion *self*)) 2) *acceleration*))
((:sdl-key-q) ; + x ; ((:sdl-key-q) ; + x
(setf (aref (acceleration (motion *self*)) 0) *acceleration*)) ; (setf (aref (acceleration (motion *self*)) 0) *acceleration*))
((:sdl-key-a) ; - x ; ((:sdl-key-a) ; - x
(setf (aref (acceleration (motion *self*)) 0) (- *acceleration*))) ; (setf (aref (acceleration (motion *self*)) 0) (- *acceleration*)))
((:sdl-key-e) ; + y ; ((:sdl-key-e) ; + y
(setf (aref (acceleration (motion *self*)) 1) *acceleration*)) ; (setf (aref (acceleration (motion *self*)) 1) *acceleration*))
((:sdl-key-d) ; - y ; ((:sdl-key-d) ; - y
(setf (aref (acceleration (motion *self*)) 1) (- *acceleration*))) ; (setf (aref (acceleration (motion *self*)) 1) (- *acceleration*)))
(otherwise (format t "~a~%" key)))) (otherwise (format t "~a~%" key))))
(defun thruster-off (key) (defun thruster-off (key)
@ -90,16 +90,16 @@
; (setf (aref (acceleration (motion *self*)) 2) 0) ; (setf (aref (acceleration (motion *self*)) 2) 0)
; (engine-stop (engine *self*)))) ; (engine-stop (engine *self*))))
((:sdl-key-s) ; - z ;((:sdl-key-s) ; - z
(setf (aref (acceleration (motion *self*)) 2) 0)) ; (setf (aref (acceleration (motion *self*)) 2) 0))
((:sdl-key-q) ; + q ;((:sdl-key-q) ; + q
(setf (aref (acceleration (motion *self*)) 0) 0)) ; (setf (aref (acceleration (motion *self*)) 0) 0))
((:sdl-key-a) ; - a ;((:sdl-key-a) ; - a
(setf (aref (acceleration (motion *self*)) 0) 0)) ; (setf (aref (acceleration (motion *self*)) 0) 0))
((:sdl-key-e) ; + e ;((:sdl-key-e) ; + e
(setf (aref (acceleration (motion *self*)) 1) 0)) ; (setf (aref (acceleration (motion *self*)) 1) 0))
((:sdl-key-d) ; - d ;((:sdl-key-d) ; - d
(setf (aref (acceleration (motion *self*)) 1) 0)) ; (setf (aref (acceleration (motion *self*)) 1) 0))
(otherwise (format t "~a~%" key)))) (otherwise (format t "~a~%" key))))
(defun phys-step (time) (defun phys-step (time)