Smooth screw insert

6 years ago · 9c4d703ac6
parent 124884357d
commit 9c4d703ac6
1 changed files with 1 additions and 1 deletions
--- a/src/dactyl_keyboard/dactyl.clj
+++ b/src/dactyl_keyboard/dactyl.clj
@ -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)