# Aurora Hiveley, 2/14/25, Valentine

with(plots):

msg := "            I Love 
Quantum Computing":

valentine := proc() local p1,ani1,ani2,tex:
    with(plots):
    tex := textplot([0,-0.8,msg],'align'={'above'}, font=['Helvetica','italics',12]):

    p1 := plot([-1.1*sqrt(2)*(sin(t))^3,1.1*2*cos(t)-(cos(t))^2-(cos(t))^3,t=0..2*Pi],color="pink", filled=true, axes=none): 

ani1 := animate(plot, [  [
op([-0.4*sqrt(2)*(sin(s))^3, 0.75*cos(s)-0.35*(cos(s))^2-0.35*(cos(s))^3] + [2.5*cos(A), 2.5*sin(A)-0.25]),
s=0..2*Pi], color="crimson", filled=true],A=0..2*Pi):

ani2 := animate(plot, [  [
op([-0.4*sqrt(2)*(sin(s))^3, 0.75*cos(s)-0.35*(cos(s))^2-0.35*(cos(s))^3] + [2.5*cos(A), 2.5*sin(A)-0.25]),
s=0..2*Pi], color="crimson", filled=true],A=-Pi..Pi):


display(p1,ani1,ani2,tex, 'view' = [-3.5..3.5,-3.5..3.5]);
end:

valentine();