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

comment out stub code that doesn't compile

This commit is contained in:
Dan Ballard 2011-09-06 13:45:28 -07:00
parent bbfd06b17c
commit 9194b43b13
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
flight-sim.lisp
View File

@ -191,24 +191,23 @@
:body (make-instance 'body :body (make-instance 'body
:coords (vector 0 0 1.5))) :coords (vector 0 0 1.5)))
; yaw (starboard (right) positive) ; yaw (starboard (right) positive)
:pos-yaw ; :pos-yaw
(make-instance 'engine-object ; (make-instance 'engine-object
:activation-time 2 ; :activation-time 2
:model (make-instance 'engine-model ; :model (make-instance 'engine-model
:template-vertices *jet-vertices* ; :template-vertices *jet-vertices*
:template-colors *thruster-colors* ; :template-colors *thruster-colors*
: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)))
:face-colors (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 ; :body (make-instance 'body
:coords (vector ; :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))
; :forces (list (make-instance 'force :newtons 10 :direction '(0 0 1)))))))) ; :forces (list (make-instance 'force :newtons 10 :direction '(0 0 1))))))))
(populate-world) (populate-world))
)
(defun main-loop () (defun main-loop ()
(init) (init)