From 9ba3cb697b8f95640502a7c5f75bdc684db18683 Mon Sep 17 00:00:00 2001 From: Leo Lou Date: Sat, 21 Apr 2018 10:55:37 +0900 Subject: [PATCH] Remove dead codes --- src/dactyl_keyboard/dactyl.clj | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/dactyl_keyboard/dactyl.clj b/src/dactyl_keyboard/dactyl.clj index aee3330..a17df6d 100644 --- a/src/dactyl_keyboard/dactyl.clj +++ b/src/dactyl_keyboard/dactyl.clj @@ -155,7 +155,6 @@ (Math/sin (/ β 2))) cap-top-height)) (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] (let [column-angle (* β (- centercol column)) @@ -313,13 +312,6 @@ (rotate (deg2rad 25) [0 0 1]) (translate thumborigin) (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] (->> shape (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-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-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-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)