Construct this pattern.

>

> restart;

> plot([[x,10*sin(x)/x+k,x=-20..20]$k=0..30],color=black,scaling=constrained,axes=none);

>