From 9c4d703ac6384865a61f661e189ded9e95825fce Mon Sep 17 00:00:00 2001 From: Leo Lou Date: Sun, 20 May 2018 09:40:06 +0900 Subject: [PATCH] Smooth screw insert --- src/dactyl_keyboard/dactyl.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index 3afd69f..6353512 100644 --- 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)