summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Short <tshort.rlists@gmail.com>2017-03-07 14:52:07 -0500
committerTom Short <tshort.rlists@gmail.com>2017-03-07 14:52:07 -0500
commit4b7cc77a658160e9752305011bb3711e972278ad (patch)
treeff89a4fd4092a1545344c6429e835e102d6fbec6
parent90e50232446e584128a6d7fabc10ccda0ece94ef (diff)
Fix on-wall-rotation
-rw-r--r--src/dactyl_keyboard/dactyl-manuform.clj3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/dactyl_keyboard/dactyl-manuform.clj b/src/dactyl_keyboard/dactyl-manuform.clj
index 84c1ce3..e6f37d1 100644
--- a/src/dactyl_keyboard/dactyl-manuform.clj
+++ b/src/dactyl_keyboard/dactyl-manuform.clj
@@ -439,11 +439,12 @@
(defn on-wall-place [column depth shape]
(key-place column 0
(->> shape
- (rotate (* α centerrow) [-1 0 0])
(rotate (+ (* β (- centercol column)) (/ π 12)) [0 -1 0])
+ (rotate (* α centerrow) [-1 0 0])
(translate [0 (/ mount-height 2) -15])
; (Math/sin (/ α 2)))
)))
+; (def test-shape (on-wall-place 1 20 (translate [2.5 15 5] (cube 5 30 10))))
(def test-shape (on-wall-place 1 20 (cube 5 30 10)))
(def teensy-width 20)