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

sample-tree -> trace-tree

Browse Source
This commit is contained in:
Seth Ladygo
2017-05-15 22:12:43 -07:00
parent 1096431122
commit 4122cd0c04
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/voxelburst/core.clj
View File

@ -152,16 +152,14 @@
;;; tie it together ;;; tie it together
;;; ;;;
(defn sample-tree [count] (defn trace-tree [count]
(let [tree (svo/voxeltree 1000 1.0) (let [tree (svo/voxeltree 1000 1.0)
trace (sample-traces count)] trace (sample-traces count)]
(svo/apply-voxels svo/set-at tree trace))) (svo/apply-voxels svo/set-at tree trace)))
;;(def sampletree (sample-tree 10))
(defn sample-write-ply (defn sample-write-ply
[count] [count]
(time (time
(with-open [o (io/output-stream "sample.ply")] (with-open [o (io/output-stream "sample.ply")]
(let [tree #_sampletree (time (sample-tree count))] (let [tree (time (trace-tree count))]
(mio/write-ply o (g/tessellate (g/scale (iso/surface-mesh tree 5 0.9) 0.01))))))) (mio/write-ply o (g/tessellate (g/scale (iso/surface-mesh tree 5 0.9) 0.01)))))))