    (->> shape 
         (rotate (/ π 2) [0 -1 0])
         (translate [(- 3 teensy-holder-width (/ screw-insert-height 2)) (- (+ length 7)) 0])
-        (rotate teensy-holder-angle [0 0 -1])
         (translate [(first teensy-top-xy) (second teensy-top-xy) 15])
         )))
 

;; Shape parameters ;;
;;;;;;;;;;;;;;;;;;;;;;

(def nrows 4)
(def ncols 5)

(def α (/ π 12))                        ; curvature of the columns
(def β (/ π 36))                        ; curvature of the rows

(def usb-cutout
  (->> (cube 8 30 12)
       (translate [-4 -5 0])
       (translate [(+ (first teensy-top-xy) 3)
                   (+ (second teensy-top-xy) 0) 
                   (/ teensy-holder-height 2)])
