(define (shape-shift-x sh delta)
  (cond [(squar? sh)
         (make-squar (+ (squar-x sh) delta)
                     (squar-y sh)
                     (squar-size sh)
                     (squar-outline sh)
                     (squar-c sh))]
        [(recta? sh)
         (make-recta (+ (recta-x sh) delta)
                     (recta-y sh)
                     (recta-width sh)
                     (recta-height sh)
                     (recta-outline sh)
                     (recta-c sh))]
         [else (make-circl (+ (circl-x sh) delta)
                           (circl-y sh)
                           (circl-r sh)
                           (circl-outline sh)
                           (circl-c sh))]))