jasmine/dactyl-manuform
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Smooth screw insert

Browse source
This commit is contained in:
Leo Lou 2018-05-20 09:40:06 +09:00
parent 124884357d
commit 9c4d703ac6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/dactyl_keyboard/dactyl.clj
View file

@ -601,7 +601,7 @@
(union (union
(->> (binding [*fn* 30] (->> (binding [*fn* 30]
(cylinder [bottom-radius top-radius] height))) (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] (defn screw-insert [column row bottom-radius top-radius height offset]
(let [shift-right (= column lastcol) (let [shift-right (= column lastcol)