> with(plots): with(plottools):

> c:=plot(x^2, x = -1..1, thickness = 4, numpoints = 5000):d1:=implicitplot(y=0.5, x = -1..1,y = -1..1, thickness = 4, color = blue):d2:=implicitplot(y=0.2, x = -1..1,y = -1..1, thickness = 4, color = blue):d3:=implicitplot(y=0.07, x = -1..1,y = -1..1, thickness = 4, color = blue):d4:=implicitplot(y=0, x = -1..1,y = -1..1, thickness = 4, color = blue):

> display(c,d1, d2, d3, d4);

> c1:=plot(x^2, x = -1..1, thickness = 4):f:=animate(t, x =-1..1,t = 0..0.9, thickness = 4, color =blue, frames = 250):

> display(c1, f);

>