Remove dead codes
This commit is contained in:
parent
cbefacdeab
commit
9ba3cb697b
|
@ -155,7 +155,6 @@
|
||||||
(Math/sin (/ β 2)))
|
(Math/sin (/ β 2)))
|
||||||
cap-top-height))
|
cap-top-height))
|
||||||
(def column-x-delta (+ -1 (- (* column-radius (Math/sin β)))))
|
(def column-x-delta (+ -1 (- (* column-radius (Math/sin β)))))
|
||||||
(def column-base-angle (* β (- centercol 2)))
|
|
||||||
|
|
||||||
(defn apply-key-geometry [translate-fn rotate-x-fn rotate-y-fn column row shape]
|
(defn apply-key-geometry [translate-fn rotate-x-fn rotate-y-fn column row shape]
|
||||||
(let [column-angle (* β (- centercol column))
|
(let [column-angle (* β (- centercol column))
|
||||||
|
@ -313,13 +312,6 @@
|
||||||
(rotate (deg2rad 25) [0 0 1])
|
(rotate (deg2rad 25) [0 0 1])
|
||||||
(translate thumborigin)
|
(translate thumborigin)
|
||||||
(translate [-21 -36 -10])))
|
(translate [-21 -36 -10])))
|
||||||
(defn thumb-ml-place [shape]
|
|
||||||
(->> shape
|
|
||||||
(rotate (deg2rad 6) [1 0 0])
|
|
||||||
(rotate (deg2rad -34) [0 1 0])
|
|
||||||
(rotate (deg2rad 40) [0 0 1])
|
|
||||||
(translate thumborigin)
|
|
||||||
(translate [-51 -25 -12])))
|
|
||||||
(defn thumb-br-place [shape]
|
(defn thumb-br-place [shape]
|
||||||
(->> shape
|
(->> shape
|
||||||
(rotate (deg2rad 6) [1 0 0])
|
(rotate (deg2rad 6) [1 0 0])
|
||||||
|
@ -513,7 +505,6 @@
|
||||||
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-tr-place 0 -1 thumb-post-br)
|
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-tr-place 0 -1 thumb-post-br)
|
||||||
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-mr-place 0 -1 web-post-bl)
|
(wall-brace thumb-mr-place 0 -1 web-post-br thumb-mr-place 0 -1 web-post-bl)
|
||||||
(wall-brace thumb-br-place 0 -1 web-post-br thumb-br-place 0 -1 web-post-bl)
|
(wall-brace thumb-br-place 0 -1 web-post-br thumb-br-place 0 -1 web-post-bl)
|
||||||
; (wall-brace thumb-bl-place -0.3 1 web-post-tr thumb-ml-place 0 1 web-post-tl)
|
|
||||||
(wall-brace thumb-bl-place 0 1 web-post-tr thumb-bl-place 0 1 web-post-tl)
|
(wall-brace thumb-bl-place 0 1 web-post-tr thumb-bl-place 0 1 web-post-tl)
|
||||||
(wall-brace thumb-br-place -1 0 web-post-tl thumb-br-place -1 0 web-post-bl)
|
(wall-brace thumb-br-place -1 0 web-post-tl thumb-br-place -1 0 web-post-bl)
|
||||||
(wall-brace thumb-bl-place -1 0 web-post-tl thumb-bl-place -1 0 web-post-bl)
|
(wall-brace thumb-bl-place -1 0 web-post-tl thumb-bl-place -1 0 web-post-bl)
|
||||||
|
|
Loading…
Reference in a new issue