restart;with (plots):with(plottools):
goal:=polygon([[0,0],[0,8],[13,8],[13,0]], color=gray):
ball:=disk([0,0],1.25,color=black):
leftleg:=polygon([[-.2,0],[-2,0],[-2,1],[-1,1],[-1,6],[0,6]], color=blue):
rightleg:=reflect(leftleg,[ [0,0],[0,5] ]):
upperbody:=polygon([[-1,0],[-1,3],[-2,3],[-2,0],[-3,0],[-3,3],[-2,4],[-1,4],[-.5,5],[.5,5],[1,4],[2,4],[3,3],[3,0],[2,0],[2,3],[1,3],[1,0]] ,color=red):
head:=disk([0,0],1.35,color=tan):
person1:=display([translate(head,0,5.5),upperbody,translate(leftleg, 0,-5),translate(rightleg, 0,-5)],scaling=constrained):
person2:=display([translate(head,0,5.5),upperbody,translate(leftleg, 0,-5),rotate(translate(rightleg, 0,-5),-Pi/12,[.5,0])],scaling=constrained):
person3:=display([translate(head,0,5.5),upperbody,translate(leftleg, 0,-5),rotate(translate(rightleg, 0,-5),-Pi/12,[.5,.5]),translate(head,0,5.5),upperbody],scaling=constrained):
person4:=display([translate(head,0,5.5),upperbody,translate(leftleg,0,-5),rotate(translate(rightleg, 0,-5),-2*Pi/12,[.5,.5]),translate(head,0,5.5),upperbody],scaling=constrained):
person5:=display([translate(head,0,5.5),upperbody,translate(leftleg, 0,-5),rotate(translate(rightleg, 0,-5),-3*Pi/12,[.5,.5]),translate(head,0,5.5),upperbody],scaling=constrained):
person6:=display([translate(head,0,5.5),upperbody,translate(leftleg, 0,-5),rotate(translate(rightleg, 0,-5),-4*Pi/12,[.5,.5]),translate(head,0,5.5),upperbody],scaling=constrained):
grass:=polygon([[5,-5],[-26,-5],[-26,10],[5,10]],color=green):
sky:=polygon([[-26,10],[-26,20],[5,20],[5,10]],color="DeepSkyBlue"):
f1:=display(translate(goal,-24,8),person1,translate(ball,1,-4),grass,sky):
f2:=display(translate(goal,-24,8),person2,translate(ball,0,0),grass,sky):
f3:=display(translate(goal,-24,8),person3,translate(ball,-2,0),grass,sky):
f4:=display(translate(goal,-24,8),person4,translate(ball,-4,0),grass,sky):
f5:=display(translate(goal,-24,8),person5,translate(ball,-7,0),grass,sky):
f6:=display(translate(goal,-24,8),person6,translate(ball,-9,3),grass,sky):
f7:=display(translate(goal,-24,8),person6,translate(ball,-11,5),grass,sky):
f8:=display(translate(ball,-13,7),translate(goal,-24,8),(person6),grass,sky):
f9:=display(translate(ball,-17,13),translate(goal,-24,8),(person6),grass,sky):
GOAL:=textplot([-13,5,"GOAL !!!"], font=[Helvetica,bold,24], color=magenta):
f10:=display(GOAL,translate(ball,-17,13),translate(goal,-24,8),(person6),(grass),(sky)):
soccer:=display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f10],insequence=true,scaling=constrained,axes=none):%;
speed 4