restart:with(plots):with(plottools): head:=disk([0,5],2,color="Sienna"): body:=polygon([[-1,3],[1,3],[1,-1],[-1,-1],[-1,3]],color=blue): shorts1:=polygon([[.2,-1],[1,-1],[1,-4],[.2,-4]],color=black): shorts2:=translate(shorts1,-1.2,0): shoe1:=polygon([[-.25,-4],[-.25,-5],[-2,-5],[-1.5,-4.25],[-1,-4],[-.25,-4]],color=grey): shoe2:=translate(shoe1,1.25,0): person1:=display([head,body,shorts1,shorts2,shoe1,shoe2]): ball:=disk([0,0],1.5,color=white): spot1:=polygon([[1,1.1],[1.2,.5],[.7,.3],[.2,.8],[.5,1.3]],color=black): spot2:=rotate(spot1,Pi/2): spot3:=rotate(spot2,Pi/2): spot4:=rotate(spot3,Pi/2): spot5:=polygon([[0,.5],[.5,.1],[.3,-.5],[-.3,-.5],[-.5,.1],[0,.5]],color=black): sball:=display(spot1,spot2,spot3,spot4,spot5,ball): sball2:=rotate(sball,2*Pi/3): sball3:=rotate(sball,7*Pi/3): head2:=disk([0,5],2,color="Sienna"): body2:=polygon([[-1,3],[1,3],[1,-1],[-1,-1],[-1,3]],color=red): shorts3:=polygon([[.2,-1],[1,-1],[1,-4],[.2,-4]],color="Black"): shorts4:=translate(shorts3,-1.2,0): shoe3:=display(polygon([[-.25,-4],[-.25,-5],[-2,-5],[-1.5,-4.25],[-1,-4],[-.25,-4]],color="Maroon")): shoe4:=translate(shoe3,1.25,0): shoes1:=display(shoe4,shoe3): shoes:=reflect(shoes1,[[0,0],[0,1]]): hand1:=display(ellipse([3.8,3],.9,0.5,color=black,filled=true)): fingers1:=ellipticArc([4,3], .7, 1.5, 0..Pi, filled=true, color=black): glove1:=display([hand1,fingers1]): glove2:=reflect(glove1,[[0,0],[0,1]]): gloves:=display([glove1,glove2]): person2:=display(gloves,head2,body2,shorts3,shorts4,shoes): goal:=display(polygon([[-4,-4],[-7,-6],[-7,6],[-4,8],[4,8],[7,6],[7,-6],[4,-4]],color="LightGrey")): goal1:=rotate(goal,Pi/63): field:=polygon([[-30,-10],[20,-10],[20,0],[-30,0]], color=green): sky:=polygon([[-30,0],[20,0],[20,15],[-30,15]], color="SkyBlue"): background:=display(translate(goal,-15,3),field,sky): a1:=display(translate(sball,15,-7),translate(person1,15,-3),translate(person2,-15,3),background): a2:=display(translate(sball2,12,-7),translate(person1,15,-3),translate(person2,-15,3),background): a3:=display(translate(sball3,9,-6.5),translate(person1,12,-2.5),translate(person2,-15,3),background): a4:=display(translate(sball,6,-6),translate(person1,9,-2),translate(person2,-15,3),background): a5:=display(translate(sball2,3,-5.5),translate(person1,6,-1.5),translate(person2,-15,3),background): a6:=display(translate(sball3,0,-5),translate(person1,6,-1.5),translate(person2,-15,3),background): a7:=display(translate(sball,-5,-3),translate(person1,6,-1.5),translate(person2,-15,3),background): person2a:=rotate(person2,-Pi/12): a8:=display(translate(sball2,-10,-1),translate(person1,6,-1.5),translate(person2a,-15,3),background): person2b:=rotate(person2,-Pi/6): a9:=display(translate(sball3,-15,1),translate(person1,6,-1.5),translate(person2b,-12,3),background): person2c:=rotate(person2,-Pi/3): a10:=display(translate(sball,-18,2),translate(person1,6,-1.5),translate(person2c,-10,3),background): person2d:=rotate(person2,-Pi/2): a11:=display(translate(sball3,-17,0),translate(person1,6,-1.5),translate(person2d,-10,1),background): a12:=display(translate(sball3,-17,-1),translate(person1,6,-1.5),translate(person2d,-10,-1),background): goal:=textplot([[0,8,"GOAL!", 'font'=["Impact",80],color=blue]]): a13:=display(goal,a12): display([a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a13,a13,a13,a13,a13],scaling=constrained,insequence=true,axes=none); #speed=7