Export a 3d surface movie with good quality

[member 428835]

Hi PF!

I have a 3D surface that changes with time. I am trying to make a movie. The following is what I do, but the output is extremely low quality. Does anyone know how I can get the same quality that Mathematica uses for its images?

mov[t_] :=
Show[ParametricPlot3D[{(2 + Cos[v]) Cos[U] Cos[t], (2 + Cos[v]) Sin[
      u] Cos[t], Sin[v] Cos[t]}, {u, 0, 2 Pi}, {v, 0, 2 Pi}, 
   Mesh -> 25, ColorFunction -> (ColorData["Rainbow"][#4] &)]]
frames = ParallelTable[mov[t], {t, 0, 2 \[Pi], (2 \[Pi])/10}]
Export["josh.mov", frames]

 

[member 428835]

I found a way to do it but external to Mathematica. It's called ffmpeg, it converts png files into movies. Very simple. Happy to help if anyone need help.