From f7c2098d1fea72788384cc03d0627ff98661c966 Mon Sep 17 00:00:00 2001
From: Leo Lou <louyuhong@gmail.com>
Date: Mon, 11 Jun 2018 17:58:48 +0900
Subject: [PATCH] Adjust thumb

---
 src/dactyl_keyboard/dactyl.clj | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj
index 61e4c43..42b9a89 100644
--- a/src/dactyl_keyboard/dactyl.clj
+++ b/src/dactyl_keyboard/dactyl.clj
@@ -302,11 +302,11 @@
 
 (defn thumb-tr-place [shape]
   (->> shape
-       (rotate (deg2rad  10) [1 0 0])
-       (rotate (deg2rad -23) [0 1 0])
+       (rotate (deg2rad  14) [1 0 0])
+       (rotate (deg2rad -15) [0 1 0])
        (rotate (deg2rad  10) [0 0 1]) ; original 10
        (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]
   (->> shape
        (rotate (deg2rad  10) [1 0 0])
@@ -322,18 +322,18 @@
        (rotate (deg2rad -23) [0 1 0])
        (rotate (deg2rad  25) [0 0 1])
        (translate thumborigin)
-       (translate [-22 -34.5 -10])))
+       (translate [-23 -34 -8])))
 (defn thumb-br-place [shape]
   (->> shape
        (rotate (deg2rad   6) [1 0 0])
        (rotate (deg2rad -34) [0 1 0])
        (rotate (deg2rad  35) [0 0 1])
        (translate thumborigin)
-       (translate [-37 -43 -19])))
+       (translate [-39 -43 -18])))
 (defn thumb-bl-place [shape]
   (->> shape
        (rotate (deg2rad   6) [1 0 0])
-       (rotate (deg2rad -34) [0 1 0])
+       (rotate (deg2rad -32) [0 1 0])
        (rotate (deg2rad  35) [0 0 1])
        (translate thumborigin)
        (translate [-51 -25 -12]))) ;        (translate [-51 -25 -12])))