#OK to post
#Rebecca Embar, 2-11-2022, Valentine

with(plots):
with(StringTools):
p1:=plots[polarplot](1-sin(x),x=0..2*Pi,color='pink'):
p2:=plots[textplot]([0,-1,`I LOVE PI`,font=[Times,bold,20]],axes=none):
pistr:=convert(evalf(Pi,63),string):
p3:=plots[textplot]({seq([(1-sin((63-x)/10))*cos((63-x)/10),(1-sin((63-x)/10))*sin((63-x)/10),SubString(pistr,x..x)],x=1..63)}):
display({p1,p2,p3});