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

Adjust thumb

Browse source
This commit is contained in:
Leo Lou 2018-06-11 17:58:48 +09:00
parent b1df188e0e
commit f7c2098d1f
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/dactyl_keyboard/dactyl.clj
View file

@ -302,11 +302,11 @@
(defn thumb-tr-place [shape] (defn thumb-tr-place [shape]
(->> shape (->> shape
(rotate (deg2rad 10) [1 0 0]) (rotate (deg2rad 14) [1 0 0])
(rotate (deg2rad -23) [0 1 0]) (rotate (deg2rad -15) [0 1 0])
(rotate (deg2rad 10) [0 0 1]) ; original 10 (rotate (deg2rad 10) [0 0 1]) ; original 10
(translate thumborigin) (translate thumborigin)
(translate [-12 -12 3]))) ; original 1.5u (translate [-12 -16 3]) (translate [-15 -10 5]))) ; 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])
@ -322,18 +322,18 @@
(rotate (deg2rad -23) [0 1 0]) (rotate (deg2rad -23) [0 1 0])
(rotate (deg2rad 25) [0 0 1]) (rotate (deg2rad 25) [0 0 1])
(translate thumborigin) (translate thumborigin)
(translate [-22 -34.5 -10]))) (translate [-23 -34 -8])))
(defn thumb-br-place [shape] (defn thumb-br-place [shape]
(->> shape (->> shape
(rotate (deg2rad 6) [1 0 0]) (rotate (deg2rad 6) [1 0 0])
(rotate (deg2rad -34) [0 1 0]) (rotate (deg2rad -34) [0 1 0])
(rotate (deg2rad 35) [0 0 1]) (rotate (deg2rad 35) [0 0 1])
(translate thumborigin) (translate thumborigin)
(translate [-37 -43 -19]))) (translate [-39 -43 -18])))
(defn thumb-bl-place [shape] (defn thumb-bl-place [shape]
(->> shape (->> shape
(rotate (deg2rad 6) [1 0 0]) (rotate (deg2rad 6) [1 0 0])
(rotate (deg2rad -34) [0 1 0]) (rotate (deg2rad -32) [0 1 0])
(rotate (deg2rad 35) [0 0 1]) (rotate (deg2rad 35) [0 0 1])
(translate thumborigin) (translate thumborigin)
(translate [-51 -25 -12]))) ; (translate [-51 -25 -12]))) (translate [-51 -25 -12]))) ; (translate [-51 -25 -12])))