alx/voxelburst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

separate out draw bounds

Browse Source
This commit is contained in:
Seth Ladygo
2017-05-14 21:44:19 -07:00
parent 2d10f00844
commit 9fff45b1d6
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/voxelburst/core.clj
View File

@ -53,7 +53,7 @@
(Trace. origin (random-vel) start-radius start-lifespan (+ 70 (rand-int 10))))
(defn drawing? [t bounds]
(and (in-bounds? (:position t) bounds)
(and (in-draw-bounds? (:position t) bounds)
(> (:radius t) 0)
(> (:lifespan t) 0)
(< (:start-time t) 0)))
@ -98,18 +98,22 @@
[v [lo hi]]
(and (>= v lo) (<= v hi)))
#_(defn in-bounds?
(defn in-bounds?
"Inside bounds box?"
[p bounds]
(every? true? (map #(single-in-bounds? %1 %2) p bounds)))
#_(defn complex-single-in-bounds?
(defn complex-single-in-bounds?
"Is a single value in bounds?"
[v [lo hi]]
(let [spread (- hi lo)
mid (+ lo (/ spread 2))
gap (/ spread 20)]
(and (>= v lo) (<= v hi)
(>= (math/abs v) (/ hi 5))))
(or (<= v (- mid gap))
(>= v (+ mid gap))))))
#_(defn in-bounds?
(defn in-draw-bounds?
"Inside complex box?"
[p bounds]
(every? true? (map #(complex-single-in-bounds? %1 %2) p bounds)))
@ -117,7 +121,7 @@
(defn in-bounds?
"Inside sphere?"
[p bounds]
(<= (v-mag (v-- p [500 500 500])) 220))
(<= (v-mag (v-- p [500 500 500])) 400))
(defn trace-trajectory
[trace bounds]
@ -159,5 +163,5 @@
[count]
(time
(with-open [o (io/output-stream "sample.ply")]
(let [tree #_sampletree (sample-tree count)]
(let [tree #_sampletree (time (sample-tree count))]
(mio/write-ply o (g/tessellate (g/scale (iso/surface-mesh tree 5 0.9) 0.01)))))))