From 4b7cc77a658160e9752305011bb3711e972278ad Mon Sep 17 00:00:00 2001 From: Tom Short Date: Tue, 7 Mar 2017 14:52:07 -0500 Subject: Fix on-wall-rotation --- src/dactyl_keyboard/dactyl-manuform.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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) -- cgit v1.2.3