Question: How to draw several animated spheres?

Hello, can you help me? I need to draw a simple model of solar system (9 planets around the sun). I tried to draw planets with

> a[1] := animate(implicitplot3d,


                               (x-R*sin(t))+ (y-R*cos(t))+ z2 = r2),

                               x=-200..200, y=-200..200, z=-200..200





> display(a);

but spheres with small radius were not spheres at all. So I added numpoints = 40000. I waited for a long time and stopped compilation because it was too long. How can I do my task faster and may be simplier?  

Please Wait...