restart;with(plots):with(plottools):
head:=polygon([[0,6], [1,5], [0,4], [-1,5]], color=red):
body:=polygon([[1,2], [1,4], [-1,4], [-1,2]], color=red):
leftarm:=polygon([[-1,3], [-2,3], [-2,4], [-1,4]], color=red):
rightarm:=polygon([[1,2], [1,4], [2,4], [2,2]], color=red):
leftleg:=polygon([[-1,0],[-1,2],[0,2]],color=red):
rightleg:=polygon([[1,0],[1,2],[0,2]],color=red):
british:=translate(display(head,body,leftarm,rightarm,leftleg,rightleg),30,0):
heada:=polygon([[0,4],[1,5],[0,6],[-1,5]],color=blue):
bodya:=polygon([[1,2],[1,4],[-1,4],[-1,2]],color=blue):
leftarma:=polygon([[1,2],[1,4],[2,4],[2,2]],color=blue):
rightarma:=polygon([[1,4],[1,5],[3,4],[3,3]],color=blue):
leftlega:=polygon([[-1,0],[-1,2],[0,2]],color=blue):
rightlega:=polygon([[1,0],[1,2],[0,2]],color=blue):
american:=display(heada,bodya,leftarma,rightarma,leftlega,rightlega):
battlefield:=polygon([[-1,0],[-1,1],[30,1],[30,0]],color=green):
goodbye:=textplot([20,9,"Goodbye Cruel World!"], font=[TIMES,BOLD,16]):
f1:=display(american,british,battlefield):
f2:=display(translate(american,1,0),translate(british,-1,0),battlefield):
f3:=display(translate(american,2,0),translate(british,-2,0),battlefield):
f4:=display(translate(american,3,0),translate(british,-3,0),battlefield):
f5:=display(translate(american,4,0),translate(british,-4,0),battlefield):
f6:=display(translate(american,5,0),translate(british,-5,0),battlefield):
f7:=display(translate(american,6,0),translate(british,-6,0),battlefield):
f8:=display(translate(american,7,0),translate(british,-7,0),battlefield):
f9:=display(translate(american,8,0),translate(british,-8,0),battlefield):
f10:=display(translate(american,9,0),translate(british,-9,0),battlefield):
bulletline1:=plot([[3.0,3.5],[5.0,3.5]]):
bulletline2:=plot([[3.0,3.5],[5.0,2.5]]):
bulletline3:=plot([[3.0,3.5],[4.5,4.5]]):
f11:=display(translate(american,9,0),translate(british,-9,0),translate(bulletline1,9,0),translate(bulletline2,9,0),translate(bulletline3,9,0),battlefield):
bullet:=disk([3.0,3.5],0.2,color=black):
f12:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,9,0),battlefield):
f13:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,10,0),battlefield):
f13:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,11,0),battlefield):
f14:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,12,0),battlefield):
f15:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,13,0),battlefield):
f16:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,14,0),battlefield):
f17:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,15,0),battlefield):
f18:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,16,0),battlefield):
f19:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,17,0),battlefield):
f20:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,24,0),battlefield):
f21:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,26,0),battlefield):
f22:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,28,0),battlefield):
f23:=display(translate(american,9,0),translate(british,-9,0),translate(bullet,30,0),battlefield):
f24:=display(goodbye,translate(american,9,0),translate(british,-9,0),battlefield):
f25:=display(goodbye,translate(american,9,0),rotate(translate(british,-9,0),Pi/6,[21,2]),battlefield):
f26:=display(goodbye,translate(american,9,0),rotate(translate(british,-9,0),2*Pi/6,[21,2]),battlefield):
f27:=display(goodbye,translate(american,9,0),rotate(translate(british,-9,0),3*Pi/6,[21,2]),battlefield):
display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27], insequence=true,scaling=constrained,axes=none,view=[0..30,0..10]);
#speed 3