Corazón 3D

Para el día del amor y la amistad (de modo Mathematica)

corazon = 
  Table[ContourPlot3D[(-1 + x^2 + 9/4 y^2 + z^2)^3 == (x^2 + 
        9/80 y^2) z^3, {x, -1.5, 1.5}, {y, -1.5, 1.5}, {z, -1.5, 1.5},
     Boxed -> False, Axes -> False, 
    ViewPoint -> {2 Cos[s Pi], 2 Sin[s Pi], 0}], {s, 0, 2, 0.05}];

para convertirlo en gif

Export[NotebookDirectory[] <> "corazon1.gif", corazon, 
 "DisplayDurations" -> 1/12]