Permalink
Browse files

started to at 3p points

  • Loading branch information...
1 parent 3257354 commit e05f046615279dd9f4b0a86c2e05cb8532c9d475 @dballard committed May 20, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 model.lisp
View
@@ -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

0 comments on commit e05f046

Please sign in to comment.