#Valentine
with(plots):
with(geometry):
with(plottools):
heartPlotOuter:=plot([sqrt(2)*sin(t)^3, -cos(t)^3 - cos(t)^2 + 2*cos(t), t=-10..10], axes=None, filled=[color="Pink"], color="Pink"):
heartPlotMiddle:=plot([sin(t)^3, (-cos(t)^3 - cos(t)^2 + 2*cos(t))/(sqrt(2))-.2, t=-3.2..3.2], axes=None, filled=[color="LightPink"], color="LightPink"):
#heartPlotPurple:=plot([sin(t)^3/2, (-cos(t)^3 - cos(t)^2 + 2*cos(t))/(2*sqrt(2)), t=-10..10], axes=None, filled=[color="Red"], color="LightPink"):
heartPlotInner:=plot([sin(t)^3/sqrt(2), (-cos(t)^3 - cos(t)^2 + 2*cos(t))/2-.4, t=-3.2..3.2], axes=None, filled=[color="Red"], color="LightPink"):
arrowTriangle:=display(polygon([[-2, 1],[-2,.5],[-1.5,1]]), color="DeepSkyBlue",linestyle=2):
arrowLineLeft:=plot(-x-1, x=-2..-1.1, color="DeepSkyBlue",thickness = 7):
arrowLineRight:=plot(-x-1, x=.4..1.1, color="DeepSkyBlue",thickness = 7):
arrowFeatherLeft1:=plot([.65,y,y=-1.85..-1.65], color="DeepSkyBlue", thickness=7): 
arrowFeatherLeft2:=plot([.75,y,y=-1.95..-1.75], color="DeepSkyBlue", thickness=7): 
arrowFeatherLeft3:=plot([.85,y,y=-2.05..-1.85], color="DeepSkyBlue", thickness=7):
arrowFeatherRight1:=plot(-1.65,x=.65..0.85, color="DeepSkyBlue", thickness=7): 
arrowFeatherRight2:=plot(-1.75,x=.75..0.95, color="DeepSkyBlue", thickness=7):
arrowFeatherRight3:=plot(-1.85,x=.85..1.05, color="DeepSkyBlue", thickness=7):
messageTop:=textplot([0, -0.5, "D GJQZ"], font=["times","roman",bold,20],color="DeepPink", axes=none):
messageMiddle:=textplot([0, -0.7, "XJYDIB"], font=["times","roman",bold,20],color="DeepPink", axes=none):
messageBottom:=textplot([0, -0.9, "OCZJMT"], font=["times","roman",bold,20],color="DeepPink", axes=none):
messageSide1:=textplot([-1.4, -1.5, "CVKKT"], font=["times","roman",bold,20],color="DeepSkyBlue",axes=none):
messageSide2:=textplot([-1.4, -1.7, "QVGZIODIZN"], font=["times","roman",bold,20],color="DeepSkyBlue",axes=none):
messageSide3:=textplot([-1.4, -1.9, "YVT"], font=["times","roman",bold,20],color="DeepSkyBlue",axes=none):
display(heartPlotOuter,heartPlotMiddle,heartPlotInner,arrowTriangle,arrowLineLeft,arrowLineRight,arrowFeatherLeft1, arrowFeatherLeft2, arrowFeatherLeft3,arrowFeatherRight1, arrowFeatherRight2, arrowFeatherRight3,messageTop, messageMiddle, messageBottom,messageSide1, messageSide2, messageSide3);