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

start of engine class

This commit is contained in:
Dan Ballard 2011-07-24 15:12:20 -07:00
parent 273b9dc32d
commit 9992dff618
1 changed files with 33 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
flight-sim.lisp
View File

@ -70,10 +70,15 @@
(incf (aref (velocity motion) i) (incf (aref (velocity motion) i)
(* time (aref (acceleration motion) i)))))) (* time (aref (acceleration motion) i))))))
(defclass game-object () (defclass game-object ()
((model :initarg :model :accessor model :initform (make-instance 'model)) ((model :initarg :model :accessor model :initform (make-instance 'model))
(motion :initarg :motion :accessor motion :initform (make-instance 'motion)) (motion :initarg :motion :accessor motion :initform (make-instance 'motion))
(angles :initarg :angles :accessor angles :initform (vector 0 0 0)))) (angles :initarg :angles :accessor angles :initform (vector 0 0 0))
(engine :initarg :engine :accessor engine :initform (make-instance 'game-object))))
;; plist :: ( :objects (plist models) :active (list symbols))
;(attachments :initarg :attachments :accessor attachments :initform nil)))
(defparameter *diamond-model* (defparameter *diamond-model*
@ -96,6 +101,10 @@
(make-model-3pyramid (make-2d-array 4 3 '((0.0 0.0 0.0) (0.0 1.0 3.0) (-2.0 0.0 3.0) (2.0 0.0 3.0))) (make-model-3pyramid (make-2d-array 4 3 '((0.0 0.0 0.0) (0.0 1.0 3.0) (-2.0 0.0 3.0) (2.0 0.0 3.0)))
:face-colors (make-2d-array 4 3 '((196 196 196) (196 196 196) (196 196 196) (32 32 32))))) :face-colors (make-2d-array 4 3 '((196 196 196) (196 196 196) (196 196 196) (32 32 32)))))
(defclass engine ()
(
; (make-instance 'model ; (make-instance 'model
; :vertices (make-2d-array 4 3 '((0 0 0) (0 1 3) (-2 0 3) (2 0 3))) ; :vertices (make-2d-array 4 3 '((0 0 0) (0 1 3) (-2 0 3) (2 0 3)))
; :faces (make-2d-array 4 3 '((0 1 3) (0 2 1) (0 3 2) (1 2 3))) ; :faces (make-2d-array 4 3 '((0 1 3) (0 2 1) (0 3 2) (1 2 3)))
@ -239,11 +248,11 @@
;; move to eye position ;; move to eye position
(draw-entity (make-instance 'game-object :motion (make-instance 'motion :coords (vector 0 0 -3)) :model *ship-model*)) (draw-entity (make-instance 'game-object :motion (make-instance 'motion :coords (vector 0 0 -3)) :model *ship-model*))
(gl:translate (- (aref (coords *self*) 0)) (- (aref (coords *self*) 1)) (- (aref (coords *self*) 2))) ;; eye (gl:translate (- (aref (coords (motion *self*)) 0)) (- (aref (coords (motion *self*)) 1)) (- (aref (coords (motion *self*)) 2))) ;; eye
(loop for entity across *world* do (loop for entity across *world* do
; only draw if its infront of me ; only draw if its infront of me
(if (< (aref (coords (motion entity)) 2) (+ 10 (aref (coords *self*) 2))) (if (< (aref (coords (motion entity)) 2) (+ 10 (aref (coords (motion *self*)) 2)))
(draw-entity entity))) (draw-entity entity)))
@ -267,7 +276,7 @@
(sdl:update-display)) (sdl:update-display))
(defun phys-step (time) (defun phys-step (time)
(motion-step *self* time)) (motion-step (motion *self*) time))
; (format t "z-position: ~a z-velocity: ~a z-acceleration: ~a~%" (aref (coords *self*) 2) (aref (velocity *self*) 2) (aref (acceleration *self*) 2)) ; (format t "z-position: ~a z-velocity: ~a z-acceleration: ~a~%" (aref (coords *self*) 2) (aref (velocity *self*) 2) (aref (acceleration *self*) 2))
; (format t "y-position: ~a y-velocity: ~a y-acceleration: ~a~%" (aref (coords *self*) 1) (aref (velocity *self*) 1) (aref (acceleration *self*) 1)) ; (format t "y-position: ~a y-velocity: ~a y-acceleration: ~a~%" (aref (coords *self*) 1) (aref (velocity *self*) 1) (aref (acceleration *self*) 1))
; (format t "x-position: ~a x-velocity: ~a x-acceleration: ~a~%" (aref (coords *self*) 0) (aref (velocity *self*) 0) (aref (acceleration *self*) 0))) ; (format t "x-position: ~a x-velocity: ~a x-acceleration: ~a~%" (aref (coords *self*) 0) (aref (velocity *self*) 0) (aref (acceleration *self*) 0)))
@ -283,33 +292,33 @@
(defun thruster-on (key) (defun thruster-on (key)
(case key (case key
((:sdl-key-w) ; + z ((:sdl-key-w) ; + z
(setf (aref (acceleration *self*) 2) (- *acceleration*))) (setf (aref (acceleration (motion *self*)) 2) (- *acceleration*)))
((:sdl-key-s) ; - z ((:sdl-key-s) ; - z
(setf (aref (acceleration *self*) 2) *acceleration*)) (setf (aref (acceleration (motion *self*)) 2) *acceleration*))
((:sdl-key-q) ; + x ((:sdl-key-q) ; + x
(setf (aref (acceleration *self*) 0) *acceleration*)) (setf (aref (acceleration (motion *self*)) 0) *acceleration*))
((:sdl-key-a) ; - x ((:sdl-key-a) ; - x
(setf (aref (acceleration *self*) 0) (- *acceleration*))) (setf (aref (acceleration (motion *self*)) 0) (- *acceleration*)))
((:sdl-key-e) ; + y ((:sdl-key-e) ; + y
(setf (aref (acceleration *self*) 1) *acceleration*)) (setf (aref (acceleration (motion *self*)) 1) *acceleration*))
((:sdl-key-d) ; - y ((:sdl-key-d) ; - y
(setf (aref (acceleration *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)
(case key (case key
((:sdl-key-w) ; + z ((:sdl-key-w) ; + z
(setf (aref (acceleration *self*) 2) 0)) (setf (aref (acceleration (motion *self*)) 2) 0))
((:sdl-key-s) ; - z ((:sdl-key-s) ; - z
(setf (aref (acceleration *self*) 2) 0)) (setf (aref (acceleration (motion *self*)) 2) 0))
((:sdl-key-q) ; + q ((:sdl-key-q) ; + q
(setf (aref (acceleration *self*) 0) 0)) (setf (aref (acceleration (motion *self*)) 0) 0))
((:sdl-key-a) ; - a ((:sdl-key-a) ; - a
(setf (aref (acceleration *self*) 0) 0)) (setf (aref (acceleration (motion *self*)) 0) 0))
((:sdl-key-e) ; + e ((:sdl-key-e) ; + e
(setf (aref (acceleration *self*) 1) 0)) (setf (aref (acceleration (motion *self*)) 1) 0))
((:sdl-key-d) ; - d ((:sdl-key-d) ; - d
(setf (aref (acceleration *self*) 1) 0)) (setf (aref (acceleration (motion *self*)) 1) 0))
(otherwise (format t "~a~%" key)))) (otherwise (format t "~a~%" key))))
@ -386,7 +395,13 @@
(setf *num-frames* 0) (setf *num-frames* 0)
(setf *last-time* *start-time*) (setf *last-time* *start-time*)
(setf *controls-active* '()) (setf *controls-active* '())
(setf *self* (make-instance 'motion :coords (vector 0 0 11))) (setf *self* (make-instance 'game-object
:motion (make-instance 'motion :coords (vector 0 0 11))
:model *ship-model*
; :engine
; (make-instance 'game-object :motion (make-instance 'motion :coords (vector 0.0 0.5 0.3))
; :model (make-model-3pyramid (make-2d-array 4 3 ''(
))
; (reshape) ; (reshape)
(populate-world) (populate-world)
) )