Fix thumb

This commit is contained in:
Leo Lou 2018-06-12 20:34:34 +09:00
parent 798a6d9ca0
commit 60c50342be

View file

@ -303,7 +303,7 @@
(defn thumb-tr-place [shape] (defn thumb-tr-place [shape]
(->> shape (->> shape
(rotate (deg2rad 8) [1 0 0]) (rotate (deg2rad 10) [1 0 0])
(rotate (deg2rad -23) [0 1 0]) (rotate (deg2rad -23) [0 1 0])
(rotate (deg2rad 20) [0 0 1]) ; original 10 (rotate (deg2rad 20) [0 0 1]) ; original 10
(translate thumborigin) (translate thumborigin)
@ -323,7 +323,7 @@
(rotate (deg2rad -23) [0 1 0]) (rotate (deg2rad -23) [0 1 0])
(rotate (deg2rad 25) [0 0 1]) (rotate (deg2rad 25) [0 0 1])
(translate thumborigin) (translate thumborigin)
(translate [-23 -34 -5]))) (translate [-23 -34 -6])))
(defn thumb-br-place [shape] (defn thumb-br-place [shape]
(->> shape (->> shape
(rotate (deg2rad 6) [1 0 0]) (rotate (deg2rad 6) [1 0 0])