Add set-property!. Replace set! calls with set-property! which returns the object. Combine set-x and set-y. Combine set-height and set-width.