with(plots):
with(ColorTools):
PI:=['3.','1','9','6','4','4','5','2','5','1']:
x:=m->16*(sin(m))^3:y:=n->13*cos(n) - 5*cos(2*n) - 2*cos(3*n) - cos(4*n):
wrapPi:=[seq(textplot([x(-7 + (7/5)*k),y(-7 + (7/5)*k),PI[k]],'font'=["DejaVu Serif",16],'color'="DarkOrchid"),k=1..10)]:
loveText:=textplot([0,0, "I LOVE PI!"], 'font'=["DejaVu Serif",20],'color'="Violet"):
heart:=plot([16*(sin(t))^3, 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t),t=-7..7],'thickness'=3,'color'="Plum",'axes'='boxed'):
display([op(wrapPi),loveText,heart]);