rotate-half.clj

;; module rotate_half() {
;;   rotation_y_offset = 1.75 * column_spacing;
;;   rz(angle, [hand_separation, rotation_y_offset]) {
;;     children();
;;   }
;; }

(defn rotate-half
  "Rotate the right half of the keys around the top left corner of
  the thumb key. Assumes that the thumb key is a 1x1.5 key and that
  it is shifted 0.5*column_spacing up relative to the nearest column."
  [shape]
  (let [rotation-y-offset (* 1.75 column-spacing)]
    (translate [hand-separation rotation-y-offset 0]
               (rotate angle
                       (translate (map - [hand-separation rotation-y-offset 0])
                                  shape)))))