From 5a32d11c53e9b69f6a0787c2153cbe2a442a9cfb Mon Sep 17 00:00:00 2001 From: Leo Lou Date: Sat, 21 Apr 2018 10:56:08 +0900 Subject: [PATCH] Refactor sa double length --- src/dactyl_keyboard/dactyl.clj | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index a17df6d..e2794df 100644 --- a/src/dactyl_keyboard/dactyl.clj +++ b/src/dactyl_keyboard/dactyl.clj @@ -102,7 +102,6 @@ ;;;;;;;;;;;;;;;; (def sa-length 18.25) -(def sa-double-length 37.5) (def sa-cap {1 (let [bl2 (/ 18.5 2) m (/ 17 2) key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]]) @@ -117,7 +116,7 @@ (->> key-cap (translate [0 0 (+ 5 plate-thickness)]) (color [220/255 163/255 163/255 1]))) - 2 (let [bl2 (/ sa-double-length 2) + 2 (let [bl2 sa-length bw2 (/ 18.25 2) key-cap (hull (->> (polygon [[bw2 bl2] [bw2 (- bl2)] [(- bw2) (- bl2)] [(- bw2) bl2]]) (extrude-linear {:height 0.1 :twist 0 :convexity 0})