#Valentine Homework

#Shift is 22


#Front of Card:
#ANIMATED: PRESS PLAY!!

CC:=proc(p) local a,T1,i1:
a:=[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z]:
for i1 from 1 to nops(a) do
 T1[a[i1]]:=a[(i1+22-1 mod 26)+1]:
od:

[seq(T1[p[i1]],i1=1..nops(p))];

end:

txt:=CC([I,L,O,V,E,C,O,D,I,N,G,T,H,E,O,R,Y]);


val:=proc() local h,t, i, hi2, hi, hi_list, hi_list2, h2:

with(plots):

hi_list:=[];


for i from 0 to 5 do:

hi:=animate(implicitplot, [[((x+5*i)^2+y^2-1)^3-((4*A)/3)*((x+5*i)^2*y^3),((x+5*i)^2+y^2-1)^3-(A)*((x+5*i)^2*y^3), ((x+5*i)^2+y^2-1)^3-((7*A)/6)*((x+5*i)^2*y^3)], x=-40..10, y=-15..15], A=0..8);



hi_list:=[op(hi_list), hi];


od:

h:=display(hi_list);

t:=textplot([-10,4, txt], 'align'='above');

display({h,t}, 'view'=[-20..5, -20..10], axes=none);

end:

val();