Fix on-wall-rotation

7 years ago · 4b7cc77a65
parent 90e5023244
commit 4b7cc77a65
1 changed files with 2 additions and 1 deletions
--- 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)