Hi, could you please help me out, i want to slow down this animation when i export it into a *.mov file. Regards
v = Manipulate[
bas = Graphics3D[{Opacity[.1], Cylinder[{{0, 0, -1}, {0, 0, 1}}, 1],
Opacity[.3], Cone[{{0, 0, -1}, {0, 0, 0}}],
EdgeForm[{Thick, Red}], Red, Cone[{{0, 0, 1}, {0, 0, 0}}]},
ViewPoint -> {Pi, Pi/2, 2}, Boxed -> False,
AspectRatio -> Automatic, ImageSize -> 200];
bas1 = Graphics3D[{Opacity[.1],
Cylinder[{{0, 0, -1}, {0, 0, 1}}, 1]},
ViewPoint -> {Pi, Pi/2, 2}, Boxed -> False,
AspectRatio -> Automatic, ImageSize -> 200];
b = Graphics3D[{Blue,
Table[Cylinder[{{0, 0, x}, {0, 0, x + 0.1}}, x], {x, 0, r,
0.1}]}, AspectRatio -> Automatic, ImageSize -> 200];
a = Graphics3D[{Green,
Table[Cylinder[{{0, 0, x}, {0, 0, x + 0.1}}, Sqrt[1 - x^2]], {x,
0, r, 0.1}]}, ViewPoint -> {Pi, Pi/2, 2}, Boxed -> False,
AspectRatio -> Automatic, ImageSize -> 200];
d = Table[
Graphics[{Red, Disk[{0, 0}, {1, 1}], Blue, Disk[{0, 0}, {x, x}]},
AspectRatio -> Automatic, ImageSize -> 130], {x, 0, r, 0.1}];
c = Table[
Graphics[{Green, Disk[{0, 0}, Sqrt[1 - x^2]]},
AspectRatio -> Automatic, ImageSize -> 130,
PlotRange -> 1], {x, {r}}];
Row[{Show[bas, b], Show[d], Show[c], Show[bas1, a]}], {r, 0, 0.9}]
Export["movie.mov", v]
Attachments:
