Export["c:\\a.gif", Table[ContourPlot3D[(x^2 + (9/4 + t) y^2 + (1 - 0.02 t) z^2 - 1)^3 - x^2 z^3 - 9/80 y^2 z^3 == 0, {x, -1.15, 1.15}, {y, -1, 1}, {z, -1.3, 1.3}, Mesh -> None, Boxed -> False, Axes -> None, ContourStyle -> Directive[Red], BoundaryStyle -> None, PlotPoints -> 50], {t, 0, 2, 0.4}]]