Thanks a lot. This'is what i want.

Thanks a lot. This'is what i want.

> restart;
> with(plots);
> auto1 := proc (x, y) plots[pointplot]([[y, x]], color = blue, symbol = solidbox, symbolsize = 20) end proc; auto2 := proc (x, y) plots[pointplot]([[y, x]], color = red, symbol = solidbox, symbolsize = 20) end proc; auto3 := proc (x, y) plots[pointplot]([[y, x]], color = green, symbol = solidbox, symbolsize = 20) end proc; auto4 := proc (x, y) plots[pointplot]([[y, x]], color = black, symbol = solidbox, symbolsize = 20) end proc; auto5 := proc (x, y) plots[pointplot]([[y, x]], color = blue, symbol = solidbox, symbolsize = 20) end proc; auto6 := proc (x, y) plots[pointplot]([[y, x]], color = red, symbol = solidbox, symbolsize = 20) end proc; auto7 := proc (x, y) plots[pointplot]([[x, y]], color = green, symbol = solidbox, symbolsize = 20) end proc; auto8 := proc (x, y) plots[pointplot]([[x, y]], color = black, symbol = solidbox, symbolsize = 20) end proc;
> p1 := animate(auto1, [t, .17+0.55e-1*t], t = .2 .. -2, frames = 10, scaling = constrained);
> p2 := animate(auto2, [t, .16+0.45e-1*t], t = .7 .. -2, frames = 20, scaling = constrained);
> p3 := animate(auto3, [t, .15+0.45e-1*t], t = 1.2 .. -2, frames = 30, scaling = constrained);
> p4 := animate(auto4, [t, .15+0.45e-1*t], t = 1.7 .. -2, frames = 40, scaling = constrained);
> p5 := animate(auto5, [t, .12+0.45e-1*t], t = 2.2 .. .2, frames = 50, scaling = constrained);
> p6 := animate(auto6, [t, .11+0.45e-1*t], t = 2.7 .. .7, frames = 60, scaling = constrained);
> p7 := animate(auto7, [t, -.17+0.35e-1*t], t = -.2 .. 7, frames = 20, scaling = constrained);
> p8 := animate(auto8, [t, -.15+0.25e-1*t], t = -.7 .. 6, frames = 20, scaling = constrained);
> A := display(p1, p2, p3, p4, p5, p6);
> B := display(p7, p8);
> display([A, B], insequence = true);

It's like cars moving across intersection. first, p1..p6 moving, with displayed p7 and p8. then the p5 and p6 must stop but not disappear, then p7,p8 must start with stopped p5 and p6