with(plots):

Valentine := proc() local R, n, i, theta0, rosePoints, plotList, Words, heartplot, Hearts, animationFrames:

R := 5:
n := 16:
plotList := []:
plotList := [plots[polarplot](R, theta = 0 .. 2*Pi, color = red)]:

for i from 0 to n - 1 do 
  theta0 := 2*i*Pi/n:
  rosePoints := t -> [R*cos(theta0) + cos(4/5*t)*cos(t), R*sin(theta0) + cos(4/5*t)*sin(t)]:
  plotList := [op(plotList), plot([rosePoints(t)[1], rosePoints(t)[2], t = 0 .. 10*Pi], color = red)]:
od:


Words:=textplot([0,0, "I love Algorithmic Graph Theory", 'font'=[Papyrus]]):
Hearts:=textplot([0, -0.75, "♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥"], 'color'=red):

display(plotList, Words, Hearts, scaling = constrained, axes = none, background=pink);


end: