sample-tree -> trace-tree
This commit is contained in:
@ -152,16 +152,14 @@
|
||||
;;; tie it together
|
||||
;;;
|
||||
|
||||
(defn sample-tree [count]
|
||||
(defn trace-tree [count]
|
||||
(let [tree (svo/voxeltree 1000 1.0)
|
||||
trace (sample-traces count)]
|
||||
(svo/apply-voxels svo/set-at tree trace)))
|
||||
|
||||
;;(def sampletree (sample-tree 10))
|
||||
|
||||
(defn sample-write-ply
|
||||
[count]
|
||||
(time
|
||||
(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)))))))
|
||||
|
||||
Reference in New Issue
Block a user