Archives
/
dactyl-manuform-5-7
mirror of https://github.com/carbonfet/dactyl-manuform
2
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Smooth screw insert

Browse Source
pull/1/head
Leo Lou 6 years ago
parent 124884357d
commit 9c4d703ac6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
src/dactyl_keyboard/dactyl.clj
Unescape Escape 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)

Write Preview
Loading…
Cancel
Save