(define-cube-transformation duplicate-animation () (setf *animation* (append *animation* (mapcar #'copy-cube *animation*))))