modified sketch_kepler_motion