Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions src/dactyl_pivot/dactyl-open.clj
Original file line number Diff line number Diff line change
Expand Up @@ -598,7 +598,7 @@
(key-place 0 0 (mount-hole :up))
(key-place (+ innercol-offset 1) lastrow (mount-hole :down))
(key-place lastcol 0 (mount-hole :up))
(key-place lastcol cornerrow ( mount-hole :down))
(key-place lastcol (if extra-row lastrow cornerrow) ( mount-hole :down))
)
)
(def thumb-plate-holes
Expand Down Expand Up @@ -721,9 +721,9 @@
(hull
(->> (sphere out-radius)
(translate floor-anchor-poslr))
(key-place lastcol cornerrow (support-face :down (- -1.5 plate-thickness)))
(key-place lastcol (if extra-row lastrow cornerrow) (support-face :down (- -1.5 plate-thickness)))
)
(key-place lastcol cornerrow (support-m :down (- -0.1 plate-thickness)))
(key-place lastcol (if extra-row lastrow cornerrow) (support-m :down (- -0.1 plate-thickness)))

; upper right pole
(hull
Expand Down Expand Up @@ -798,14 +798,14 @@
(with-fn 30))]
(union
; screw holes below mounting holes
(key-place lastcol cornerrow (ext-out :down (- -0.1 plate-thickness) (with-fn 30 (cylinder inner-radius 10))))
(key-place lastcol (if extra-row lastrow cornerrow) (ext-out :down (- -0.1 plate-thickness) (with-fn 30 (cylinder inner-radius 10))))
(key-place lastcol 0 (ext-out :up (- -0.1 plate-thickness) (with-fn 30 (cylinder inner-radius 10))))
(key-place 0 0 (ext-out :up (- -0.1 plate-thickness) (with-fn 30 (cylinder inner-radius 10))))
(key-place (+ innercol-offset 1) lastrow (ext-out :down (- -0.1 plate-thickness) (with-fn 30 (cylinder inner-radius 10))))

; m3 hex nuts
(key-place lastcol 0 (hex-slot :up (- -4 plate-thickness)))
(key-place lastcol cornerrow (hex-slot :down (- -4 plate-thickness)))
(key-place lastcol (if extra-row lastrow cornerrow) (hex-slot :down (- -4 plate-thickness)))
(key-place 0 0 (hex-slot :up (- -4 plate-thickness)))
(key-place (+ innercol-offset 1) lastrow (hex-slot :down (- -4 plate-thickness)))
(->> (m3hex 0.3)
Expand Down