Add side nub thickness
This commit is contained in:
parent
52631e39b1
commit
75a6485b55
|
@ -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)]))
|
||||||
|
|
Loading…
Reference in a new issue