From e05f046615279dd9f4b0a86c2e05cb8532c9d475 Mon Sep 17 00:00:00 2001
From: Dan Ballard <dan@mindstab.net>
Date: Sun, 20 May 2012 09:55:43 -0700
Subject: [PATCH] started to at 3p points

---
 model.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/model.lisp b/model.lisp
index 934bd80..a979f0c 100644
--- a/model.lisp
+++ b/model.lisp
@@ -54,7 +54,10 @@
 		 :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)))))
 
-;; returns a model of a 3 pyramid
+(defparameter *3pyramid-points*
+  '())
+
+;; returns a model of a 3 pyramid from points and colors
 (defun make-model-3pyramid (points &key (face-colors nil) (point-colors nil))
   (make-instance 'model
 		 :vertices points