                           (translate column-offset))]
     (->> placed-shape
          (rotate (/ π 12) [0 1 0])
-         (translate [0 0 25]))))
+         (translate [0 0 23]))))
 
 (def key-holes
   (apply union

;;;;;;;;;;;;
;; Thumbs ;;
;;;;;;;;;;;;
(def thumborigin [-23 -34 48])

(defn deg2rad [degrees]
  (* (/ degrees 180) pi))

   (for [y (range 0 3)] (key-wall-brace 0 y -1 0 web-post-tl 0 y       -1 0 web-post-bl))
   (for [y (range 1 3)] (key-wall-brace 0 (dec y) -1 0 web-post-bl 0 y -1 0 web-post-tl))
   ; front wall
   (key-wall-brace 3 3 0 -1 web-post-bl 3 3 0.5 -1 web-post-br)
   (key-wall-brace 4 2 0 -1 web-post-bl 4 2 0 -1 web-post-br)
   (key-wall-brace 5 2 0 -1 web-post-bl 5 2 0 -1 web-post-br)
   (key-wall-brace 3 3 0.5 -1 web-post-br 4 2 1 -1 web-post-bl)
   (key-wall-brace 4 2 0 -1 web-post-br 5 2 0 -1 web-post-bl)
   ; thumb walls
