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

Add retention tab space

Browse source
This commit is contained in:
Leo Lou 2018-05-20 09:22:27 +09:00
parent 1ff01e70dc
commit 02ddd0ac22
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/dactyl_keyboard/dactyl.clj
View file

@ -71,7 +71,9 @@
(def sa-profile-key-height 12.7) (def sa-profile-key-height 12.7)
(def plate-thickness 4) (def plate-thickness 3)
(def retention-tab-thickness 1.5)
(def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness))
(def mount-width (+ keyswitch-width 3)) (def mount-width (+ keyswitch-width 3))
(def mount-height (+ keyswitch-height 3)) (def mount-height (+ keyswitch-height 3))
@ -91,11 +93,21 @@
(translate [(+ (/ 1.5 2) (/ keyswitch-width 2)) (translate [(+ (/ 1.5 2) (/ keyswitch-width 2))
0 0
(/ plate-thickness 2)])))) (/ plate-thickness 2)]))))
plate-half (union top-wall left-wall (if create-side-nubs? (with-fn 100 side-nub)))] plate-half (union top-wall left-wall (if create-side-nubs? (with-fn 100 side-nub)))
(union plate-half top-nub (->> (cube 4 4 (- plate-thickness retention-tab-hole-thickness))
(->> plate-half (translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)]))
(mirror [1 0 0]) top-nub-pair (union top-nub
(mirror [0 1 0]))))) (->> top-nub
(mirror [1 0 0])
(mirror [0 1 0])))]
(difference
(union plate-half
(->> plate-half
(mirror [1 0 0])
(mirror [0 1 0])))
(->>
top-nub-pair
(rotate (/ π 2) [0 0 1])))))
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
;; SA Keycaps ;; ;; SA Keycaps ;;
@ -233,7 +245,7 @@
;; Web Connectors ;; ;; Web Connectors ;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;
(def web-thickness 3.5) (def web-thickness 3)
(def post-size 0.1) (def post-size 0.1)
(def web-post (->> (cube post-size post-size web-thickness) (def web-post (->> (cube post-size post-size web-thickness)
(translate [0 0 (+ (/ web-thickness -2) (translate [0 0 (+ (/ web-thickness -2)