From 75a6485b55f57037a999b8adaa3bbecd20945c34 Mon Sep 17 00:00:00 2001 From: Leo Lou Date: Thu, 14 Jun 2018 13:26:09 +0900 Subject: [PATCH] Add side nub thickness --- src/dactyl_keyboard/dactyl.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index e51eb17..c1bf186 100644 --- a/src/dactyl_keyboard/dactyl.clj +++ b/src/dactyl_keyboard/dactyl.clj @@ -73,6 +73,7 @@ (def sa-profile-key-height 12.7) (def plate-thickness 3) +(def side-nub-thickness 4) (def retention-tab-thickness 1.5) (def retention-tab-hole-thickness (- plate-thickness retention-tab-thickness)) (def mount-width (+ keyswitch-width 3)) @@ -90,10 +91,11 @@ side-nub (->> (binding [*fn* 30] (cylinder 1 2.75)) (rotate (/ π 2) [1 0 0]) (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)) 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))) top-nub (->> (cube 5 5 (- plate-thickness retention-tab-hole-thickness)) (translate [(+ (/ keyswitch-width 2)) 0 (/ retention-tab-hole-thickness 2)]))