Curve smoothness disappear while Animate is running

Questions
,
1

Hello, I am trying to animate a Heart 3D surface but when I Apply the Animate Option and while it is working the shape curve disappears, I want to know why it is happening and if there is a way to solve it.
Thank you.

AyCorazón.nb (1.57 MB)

2

Hi Ramiro

Try

PerformanceGoal -> "Quality"

inside ContourPlot3D.

Alternatively:

t = Table[
   ContourPlot3D[
    x^2 + (4 + 1.2*z - 
         Abs[x]*Sqrt[(20 - Abs[x])/15])^2 + (y*(2 - z/15))^2 == (15 + 
        3 (1/2 + (1/2)*Sin[2*Pi*t0 + z/25])^4)^2, {x, -20, 
     20}, {y, -20, 20}, {z, -25, 25}, PerformanceGoal -> "Quality", 
    Mesh -> False, 
    ContourStyle -> 
     Directive[Red, Opacity[0.8], Specularity[White, 30], 
      PlotPoints -> 5, MaxRecursion -> 2]], {t0, 0, 2*Pi, \[Pi]/8}];
ListAnimate[t]

Robert

3

You could create your data first (a list of ContourPlot3D expressions) and then apply ListAnimate to it.

4

Thank you for your answer, I appreciate the time you wasted answered me.

5

Thank you, split the problem in two steps is a good idea…I appreciate your answer.