Permalink
Browse files

comment out stub code that doesn't compile

  • Loading branch information...
1 parent bbfd06b commit 9194b43b1328ab5beadd83bdd1e7a2d4a9ae4a8c @dballard committed Sep 6, 2011
Showing with 11 additions and 12 deletions.
  1. +11 −12 flight-sim.lisp
View
@@ -191,24 +191,23 @@
:body (make-instance 'body
: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
+; :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
; (make-instance 'engine-object
; :motion (make-instance 'motion :coords (vector 0 0.5 3.0))
; :forces (list (make-instance 'force :newtons 10 :direction '(0 0 1))))))))
- (populate-world)
-)
+ (populate-world))
(defun main-loop ()
(init)

0 comments on commit 9194b43

Please sign in to comment.