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

Add side nub thickness

Browse source
This commit is contained in:
Leo Lou 2018-06-14 13:26:09 +09:00
parent 52631e39b1
commit 75a6485b55
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/dactyl_keyboard/dactyl.clj
View file

@ -73,6 +73,7 @@
(def sa-profile-key-height 12.7) (def sa-profile-key-height 12.7)
(def plate-thickness 3) (def plate-thickness 3)
(def side-nub-thickness 4)
(def retention-tab-thickness 1.5) (def retention-tab-thickness 1.5)
(def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness)) (def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness))
(def mount-width (+ keyswitch-width 3)) (def mount-width (+ keyswitch-width 3))
@ -90,10 +91,11 @@
side-nub (->> (binding [*fn* 30] (cylinder 1 2.75)) side-nub (->> (binding [*fn* 30] (cylinder 1 2.75))
(rotate (/ π 2) [1 0 0]) (rotate (/ π 2) [1 0 0])
(translate [(+ (/ keyswitch-width 2)) 0 1]) (translate [(+ (/ keyswitch-width 2)) 0 1])
(hull (->> (cube 1.5 2.75 plate-thickness) (hull (->> (cube 1.5 2.75 side-nub-thickness)
(translate [(+ (/ 1.5 2) (/ keyswitch-width 2)) (translate [(+ (/ 1.5 2) (/ keyswitch-width 2))
0 0
(/ plate-thickness 2)])))) (/ side-nub-thickness 2)])))
(translate [0 0 (- plate-thickness side-nub-thickness)]))
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)))
top-nub (->> (cube 5 5 (- plate-thickness retention-tab-hole-thickness)) top-nub (->> (cube 5 5 (- plate-thickness retention-tab-hole-thickness))
(translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)])) (translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)]))