Fix on-wall-rotation

This commit is contained in:
Tom Short 2017-03-07 14:52:07 -05:00
parent 90e5023244
commit 4b7cc77a65

View file

@ -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)