diff options
| author | Tom Short <tshort.rlists@gmail.com> | 2017-03-07 14:52:07 -0500 |
|---|---|---|
| committer | Tom Short <tshort.rlists@gmail.com> | 2017-03-07 14:52:07 -0500 |
| commit | 4b7cc77a658160e9752305011bb3711e972278ad (patch) | |
| tree | ff89a4fd4092a1545344c6429e835e102d6fbec6 | |
| parent | 90e50232446e584128a6d7fabc10ccda0ece94ef (diff) | |
Fix on-wall-rotation
| -rw-r--r-- | src/dactyl_keyboard/dactyl-manuform.clj | 3 |
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) |