diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index 999b366..62f303d 100644 --- a/src/dactyl_keyboard/dactyl.clj +++ b/src/dactyl_keyboard/dactyl.clj @@ -128,22 +128,6 @@ top-nub-pair (rotate (/ π 2) [0 0 1]))))) -(def larger-plate - (let [plate-height (/ (- sa-double-length mount-height) 3) - top-plate (->> (cube mount-width plate-height web-thickness) - (translate [0 (/ (+ plate-height mount-height) 2) - (- plate-thickness (/ web-thickness 2))])) - ] - (union top-plate (mirror [0 1 0] top-plate)))) - -(def larger-plate-half - (let [plate-height (/ (- sa-double-length mount-height) 3) - top-plate (->> (cube mount-width plate-height web-thickness) - (translate [0 (/ (+ plate-height mount-height) 2) - (- plate-thickness (/ web-thickness 2))])) - ] - (union top-plate (mirror [0 0 0] top-plate)))) - ;;;;;;;;;;;;;;;; ;; SA Keycaps ;; ;;;;;;;;;;;;;;;; @@ -481,6 +465,22 @@ (thumb-tr-place shape) (thumb-tl-place shape))) +(def larger-plate + (let [plate-height (/ (- sa-double-length mount-height) 3) + top-plate (->> (cube mount-width plate-height web-thickness) + (translate [0 (/ (+ plate-height mount-height) 2) + (- plate-thickness (/ web-thickness 2))])) + ] + (union top-plate (mirror [0 1 0] top-plate)))) + +(def larger-plate-half + (let [plate-height (/ (- sa-double-length mount-height) 3) + top-plate (->> (cube mount-width plate-height web-thickness) + (translate [0 (/ (+ plate-height mount-height) 2) + (- plate-thickness (/ web-thickness 2))])) + ] + (union top-plate (mirror [0 0 0] top-plate)))) + (def thumbcaps (union (thumb-1x-layout (sa-cap 1)) @@ -1148,4 +1148,4 @@ -(defn -main [dum] 1) ; dummy to make it easier to batch \ No newline at end of file +(defn -main [dum] 1) ; dummy to make it easier to batch