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

Use 1.5u thumb

Browse source
This commit is contained in:
Leo Lou 2018-06-12 18:19:13 +09:00
parent e36e56bb36
commit 761b68ddbf
1 changed files with 20 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
src/dactyl_keyboard/dactyl.clj
View file

@ -114,6 +114,7 @@
;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;
(def sa-length 18.25) (def sa-length 18.25)
(def sa-double-length 37.5)
(def sa-cap {1 (let [bl2 (/ 18.5 2) (def sa-cap {1 (let [bl2 (/ 18.5 2)
m (/ 17 2) m (/ 17 2)
key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]]) key-cap (hull (->> (polygon [[bl2 bl2] [bl2 (- bl2)] [(- bl2) (- bl2)] [(- bl2) bl2]])
@ -302,11 +303,11 @@
(defn thumb-tr-place [shape] (defn thumb-tr-place [shape]
(->> shape (->> shape
(rotate (deg2rad 14) [1 0 0]) (rotate (deg2rad 10) [1 0 0])
(rotate (deg2rad -15) [0 1 0]) (rotate (deg2rad -23) [0 1 0])
(rotate (deg2rad 10) [0 0 1]) ; original 10 (rotate (deg2rad 23) [0 0 1]) ; original 10
(translate thumborigin) (translate thumborigin)
(translate [-15 -10 5]))) ; original 1.5u (translate [-12 -16 3]) (translate [-13 -16 4]))) ; original 1.5u (translate [-12 -16 3])
(defn thumb-tl-place [shape] (defn thumb-tl-place [shape]
(->> shape (->> shape
(rotate (deg2rad 10) [1 0 0]) (rotate (deg2rad 10) [1 0 0])
@ -343,23 +344,31 @@
(union (union
(thumb-mr-place shape) (thumb-mr-place shape)
(thumb-br-place shape) (thumb-br-place shape)
(thumb-tl-place shape)
(thumb-bl-place shape))) (thumb-bl-place shape)))
(defn thumb-15x-layout [shape] (defn thumb-15x-layout [shape]
(union (union
(thumb-tr-place shape) (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 thumbcaps (def thumbcaps
(union (union
(thumb-1x-layout (sa-cap 1)) (thumb-1x-layout (sa-cap 1))
(thumb-15x-layout (rotate (/ π 2) [0 0 1] (sa-cap 1))))) (thumb-15x-layout (rotate (/ π 2) [0 0 1] (sa-cap 1.5)))))
(def thumb (def thumb
(union (union
(thumb-1x-layout single-plate) (thumb-1x-layout single-plate)
(thumb-15x-layout single-plate) (thumb-15x-layout single-plate)
(thumb-15x-layout single-plate))) ;(thumb-15x-layout larger-plate)
))
(def thumb-post-tr (translate [(- (/ mount-width 2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post)) (def thumb-post-tr (translate [(- (/ mount-width 2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
(def thumb-post-tl (translate [(+ (/ mount-width -2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post)) (def thumb-post-tl (translate [(+ (/ mount-width -2) post-adj) (- (/ mount-height 2) post-adj) 0] web-post))
@ -372,18 +381,18 @@
(thumb-tl-place thumb-post-tr) (thumb-tl-place thumb-post-tr)
(thumb-tl-place thumb-post-br) (thumb-tl-place thumb-post-br)
(thumb-tr-place thumb-post-tl) (thumb-tr-place thumb-post-tl)
(thumb-mr-place web-post-tr)
(thumb-tr-place thumb-post-bl)) (thumb-tr-place thumb-post-bl))
(triangle-hulls ; bottom two on the right (triangle-hulls ; bottom two on the right
(thumb-br-place web-post-tr) (thumb-br-place web-post-tr)
(thumb-br-place web-post-br) (thumb-br-place web-post-br)
(thumb-mr-place web-post-tl) (thumb-mr-place web-post-tl)
(thumb-mr-place web-post-bl)) (thumb-mr-place web-post-bl))
(triangle-hulls ; tr, mr and wall (triangle-hulls ; tr, mr and wall
(thumb-mr-place web-post-tr) (thumb-mr-place web-post-tr)
(thumb-mr-place web-post-br) (thumb-mr-place web-post-br)
(thumb-tr-place thumb-post-bl)
(thumb-tr-place thumb-post-br)) (thumb-tr-place thumb-post-br))
(triangle-hulls ; centers of the bottom four (triangle-hulls ; centers of the bottom four
(thumb-br-place web-post-tl) (thumb-br-place web-post-tl)
(thumb-bl-place web-post-bl) (thumb-bl-place web-post-bl)
@ -400,10 +409,7 @@
(thumb-mr-place web-post-tr) (thumb-mr-place web-post-tr)
(thumb-tl-place thumb-post-bl) (thumb-tl-place thumb-post-bl)
(thumb-tl-place thumb-post-br) (thumb-tl-place thumb-post-br)
(thumb-mr-place web-post-tr) (thumb-mr-place web-post-tr))
(thumb-tr-place thumb-post-bl)
; (thumb-mr-place thumb-post-br)
(thumb-tr-place thumb-post-br))
(triangle-hulls ; top two to the main keyboard, starting on the left (triangle-hulls ; top two to the main keyboard, starting on the left
(thumb-tl-place thumb-post-tl) (thumb-tl-place thumb-post-tl)
(key-place 0 cornerrow web-post-bl) (key-place 0 cornerrow web-post-bl)