From dd937d5d2fa62795006a71f948a065670a842995 Mon Sep 17 00:00:00 2001 From: Dan Ballard Date: Sat, 16 Jul 2011 14:06:15 -0700 Subject: [PATCH] Reduced vertexes to 6 points and rewrote faces to use them --- flight-sim.lisp | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/flight-sim.lisp b/flight-sim.lisp index 51abc6d..fa984e4 100644 --- a/flight-sim.lisp +++ b/flight-sim.lisp @@ -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)))