restart: with(plots): with(plottools): wall := plot([[-6, 0], [-6, 10], [-9, 10], [-9, 0], [-6, 0]], color = black): wall := plot([[-6, 0], [-6, 10], [-9, 10], [-9, 0], [-6, 0]], color = black, filled = true): ball := circle([9.5, 1], .5, thickness = 2, color = black): head := circle([11.5, 4], .5, thickness = 2, color = black): body := plot([[11.5, 3.5], [11.5, 2]], color = black): la := plot([[11.5, 3], [10.5, 2.5]], color = black): ra := plot([[11.5, 3], [12.5, 2.5]], color = black): rl := plot([[11.5, 2], [12, .5]], color = black): ll := plot([[11.5, 2], [11, .5]], color = black): player := display([head, body, ra, la, rl]): ll2 := plot([[11.5, 2], [10, .5]], color = black): kick := display([ll]): kicker := display([kick, player]): score := display([kicker, wall, ball]): ball2 := display([kicker, wall, ball]): kicker2 := display([head, body, ra, rl, la, ll2]): score2:=display([wall,kicker2,ball]): p1 := display([translate(ball, -1, 1), kicker, wall]): p2 := display([translate(ball, -2, 2), kicker, wall]): p3 := display([translate(ball, -3, 3), kicker, wall]): p4 := display([translate(ball, -4, 4), kicker, wall]): p5 := display([translate(ball, -5, 5), kicker, wall]): p6 := display([translate(ball, -6, 6), kicker, wall]): p7 := display([translate(ball, -7, 7), kicker, wall]): p8 := display([translate(ball, -8, 8), kicker, wall]): p9:=display([translate(ball,-9,9),kicker, wall]): p10:=display([translate(ball,-10,9),kicker, wall]): p11:=display([translate(ball,-11,9),kicker, wall]): p12:=display([translate(ball,-12,8),kicker, wall]): p13:=display([translate(ball,-13,7),kicker, wall]): p14:=display([translate(ball,-14,6),kicker, wall]): p15:=display([translate(ball,-15,5),kicker, wall]): p16:=display([translate(ball,-14,4),kicker, wall]): p17:=display([translate(ball,-13,3),kicker, wall]): p18:=display([translate(ball,-12,2),kicker, wall]): p19:=display([translate(ball,-11,1),kicker, wall]): p20:=display([translate(ball,-10,0),kicker, wall]): p21:=display([translate(ball,-9,1),kicker, wall]): p22:=display([translate(ball,-8,2),kicker, wall]): p23:=display([translate(ball,-7,1),kicker, wall]): p24:=display([translate(ball,-6,0),kicker, wall]): p25:=display([translate(ball,-5,1),kicker, wall]): p26:=display([translate(ball,-4,0),kicker, wall]): p27:=display([translate(ball,-3,0),kicker, wall]): p28:=display([translate(ball,-2,0),kicker, wall]): p29:=display([translate(ball,-1,0),kicker, wall]): speed 10 display([score,score2,ball2,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29],insequence=true,axes=none,scaling=constrained);