Update dactyl.clj
moved definitions for larger-plate and larger-plate-half
This commit is contained in:
parent
4fd69aa21c
commit
9cd6573d5d
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue