split cube
This commit is contained in:
@ -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))
|
||||||
|
|||||||
Reference in New Issue
Block a user