Smooth screw insert

This commit is contained in:
Leo Lou 2018-05-20 09:40:06 +09:00
parent 124884357d
commit 9c4d703ac6

View file

@ -601,7 +601,7 @@
(union
(->> (binding [*fn* 30]
(cylinder [bottom-radius top-radius] height)))
(translate [0 0 (/ height 2)] (sphere top-radius))))
(translate [0 0 (/ height 2)] (->> (binding [*fn* 30] (sphere top-radius))))))
(defn screw-insert [column row bottom-radius top-radius height offset]
(let [shift-right (= column lastcol)