with(plots);
p := implicitplot((x^2 + y^2 - 1)^3 - x^2*y^3 = 0, x = -2 .. 2, y = -2 .. 2);
textlove := CC([i, l, o, v, e, c, o, d, i, n, g, t, h, e, o, r, y], 20);
note := textplot([0, 0, textlove], align = below, color = black);
display(p, note);