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

Reduced vertexes to 6 points and rewrote faces to use them

This commit is contained in:
Dan Ballard 2011-07-16 14:06:15 -07:00
parent 74e4e3e925
commit dd937d5d2f
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
flight-sim.lisp
View File

@ -20,20 +20,11 @@
arr))
(defparameter *n* (make-array 3 :initial-contents '(0 0 1)))
(defparameter *v* (make-2d-array 24 3 '(
(0.0 1 0) (-0.5 0 0.5) (0.5 0 0.5)
(0.0 1 0) (0.5 0 -0.5) (-0.5 0 -0.5)
(0.0 1 0) (0.5 0 0.5) (0.5 0 -0.5)
(0.0 1 0) (-0.5 0 -0.5) (-0.5 0 0.5)
(0.0 -1 0) (-0.5 0 0.5) (0.5 0 0.5)
(0.0 -1 0) (0.5 0 -0.5) (-0.5 0 -0.5)
(0.0 -1 0) (0.5 0 0.5) (0.5 0 -0.5)
(0.0 -1 0) (-0.5 0 -0.5) (-0.5 0 0.5)
(defparameter *v* (make-2d-array 6 3 '((0.0 1 0) (0.5 0 0.5) (0.5 0 -0.5)
(-0.5 0 0.5) (-0.5 0 -0.5) (0.0 -1 0))))
)))
(defparameter *faces* (make-2d-array 8 3 '((0 1 2) (3 4 5) (6 7 8) (9 10 11)
(13 12 14) (16 15 17) (19 18 20) (22 21 23))))
(defparameter *faces* (make-2d-array 8 3 '((0 3 1) (0 2 4) (0 1 2) (0 4 3)
(3 5 1) (2 5 4) (1 5 2) (4 5 3))))
(defparameter *position* (make-array 3 :initial-contents
'(0 0 -3)))