kink: with_slider_draw(
t,makelist(i,i,1,50),explicit(4*atan(exp((0.2*t - x)/ sqrt(0.98))), x, -10, 10)
)$

antikink: with_slider_draw(
t, makelist(i,i,1,20), explicit(4*atan(exp((x - 0.2*t)/sqrt(0.98))), x, -20, 20)
);

omega: 0.001;

breather: with_slider_draw2d(
t,makelist(i,i,1,50), explicit(4*atan(sqrt(1 - omega^2)/omega * sin(omega*t)/cosh(x*sqrt(1 - omega^2))), x, -10, 10)
);