split cube

This commit is contained in:
2017-05-15 22:09:46 -07:00
parent 9fff45b1d6
commit 1096431122

View File

@ -118,7 +118,7 @@
[p bounds] [p bounds]
(every? true? (map #(complex-single-in-bounds? %1 %2) p bounds))) (every? true? (map #(complex-single-in-bounds? %1 %2) p bounds)))
(defn in-bounds? #_(defn in-bounds?
"Inside sphere?" "Inside sphere?"
[p bounds] [p bounds]
(<= (v-mag (v-- p [500 500 500])) 400)) (<= (v-mag (v-- p [500 500 500])) 400))