jasmine/dactyl-manuform
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Update dactyl.clj

Browse source 
moved definitions for larger-plate and larger-plate-half
This commit is contained in:
carbonfet 2020-02-10 22:49:16 -05:00 committed by GitHub
parent 4fd69aa21c
commit 9cd6573d5d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/dactyl_keyboard/dactyl.clj
View file

@ -128,22 +128,6 @@
top-nub-pair top-nub-pair
(rotate (/ π 2) [0 0 1]))))) (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 ;; ;; SA Keycaps ;;
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
@ -481,6 +465,22 @@
(thumb-tr-place shape) (thumb-tr-place shape)
(thumb-tl-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 (def thumbcaps
(union (union
(thumb-1x-layout (sa-cap 1)) (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