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

jet model

This commit is contained in:
Dan Ballard 2011-08-20 15:50:49 -07:00
parent a2879d45ed
commit bbfd06b17c
3 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
engine.lisp
View File

@ -43,6 +43,9 @@
((32 64 2) (32 132 2) (32 164 2)) ((32 64 2) (32 132 2) (32 164 2))
((0 255 2) (0 255 2) (64 255 2)))) ((0 255 2) (0 255 2) (64 255 2))))
;; jet shooting up
(defparameter *jet-vertices*
'((0 0 -0.2) (-0.2 0 0.2) (0.2 0 0.2) (0 (0 0.4 1) 0)))
(defmethod draw ((object engine-object) time) (defmethod draw ((object engine-object) time)
(if (< (- time (start-time object)) (activation-time object)) ;; hack since times are in templates!!! (if (< (- time (start-time object)) (activation-time object)) ;; hack since times are in templates!!!

14
flight-sim.lisp
View File

@ -189,7 +189,19 @@
:force (make-instance 'force :newtons 10000 :direction (vector 0 0 1)) :force (make-instance 'force :newtons 10000 :direction (vector 0 0 1))
:body (make-instance 'body :body (make-instance 'body
:coords (vector 0 0 1.5)))))) :coords (vector 0 0 1.5)))
; yaw (starboard (right) positive)
:pos-yaw
(make-instance 'engine-object
:activation-time 2
:model (make-instance 'engine-model
:template-vertices *jet-vertices*
:template-colors *thruster-colors*
:faces (make-2d-array 4 3 '((0 1 3) (0 2 1) (0 3 2) (1 2 3)))
:face-colors (make-2d-array 4 3 '((0 1 3) (0 2 1) (0 3 2) (1 2 3))))
:body (make-instance 'body
:coords (vector
)))
;:engines (list :engines (list :thrust ;:engines (list :engines (list :thrust
; (make-instance 'engine-object ; (make-instance 'engine-object
; :motion (make-instance 'motion :coords (vector 0 0.5 3.0)) ; :motion (make-instance 'motion :coords (vector 0 0.5 3.0))

4
math.lisp
View File

@ -17,7 +17,9 @@
;; function to determine value lying on start to end taking time duration at now ;; function to determine value lying on start to end taking time duration at now
(defun converge (start end duration now) (defun converge (start end duration now)
(float (+ start (* (- end start) (if (eql now 0.0) 0.0 (/ (min now duration) duration)))))) (if (> now duration)
end
(float (+ start (* (- end start) (if (eql now 0.0) 0.0 (/ (min now duration) duration)))))))
;; returns a real lisp 2d array ;; returns a real lisp 2d array