>	with(plots);

Warning, the name changecoords has been redefined

>	animate(implicitplot3d,[{x^2+y^2+z^2=1, x=1, z=i}, x=-2..2, y=-2..2, z=-2..2, scaling=constrained, numpoints=1000],i=-1..1);

>	animate(implicitplot3d,[{x^2+y^2+z^2=1, x=1, x+y+z=i}, x=-2..2, y=-2..2, z=-2..2, scaling=constrained, numpoints=1000],i=-1.5..1.5);

>