screws.clj

(defn right-screw-holes [radius split-bottom?]
  (let [back-right [(* (+ col-count thumb-key-count) row-spacing)
                    (* (staggering-offsets (dec col-count)) column-spacing)]
        tmp (rz-fun back-right angle [0 (* 2.25 column-spacing)])
        nudge 0.75]
    (rotate-half
     (add-hand-separation
      ;; When adding washers, split the bottom middle hole, but when doing
      ;; screws there should just be one bottom middle hole.
      (if split-bottom?
        (screw-hole radius washer-radius
                    [(+ row-spacing 2.2) -0.5]
                    [(- nudge) (- nudge)])
        (screw-hole radius washer-radius
                    [-2.25 3.75]
                    [(- nudge) (- nudge)]))
      (screw-hole radius washer-radius
                  [(* (+ col-count thumb-key-count) row-spacing)
                   (- (staggering-offsets (dec col-count)) 2)]
                  [nudge (- nudge)])
      (screw-hole radius washer-radius
                  back-right
                  [nudge nudge])))
    ;; (translate [(- washer-radius (tmp 0) (* 0.5 hand-separation))
    ;;             back-screw-hole-offset 0]
    ;;            (rotate-half
    ;;             (add-hand-separation
    ;;              (screw-hole radius washer-radius back-right [nudge nudge]))))
    ))