|
|
|
@ -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
|
|
|
|
|
(defn -main [dum] 1) ; dummy to make it easier to batch
|
|
|
|
|