restart; with(plots): with(plottools): goalbox:= plot([[8,0], [8, 36], [0, 28]], color=plum, thickness=6): goalie:= plot([[16,0], [18, 4], [20,0], [18,4], [16, 12], [20,16], [16,12], [19, 18], [16, 12], [15, 15.75]], color=black): goaliehead:= circle ([14, 18.5], 3, color=black): geye:= disk ([14.5, 19.12], .50, color=blue): mouth:= disk ([15, 17.5], .70, .50, color=black): player:= plot([[52, 0], [53, 5], [55, 0], [53, 5], [50, 13], [49, 8], [50, 13], [54, 10], [50, 13], [48, 17]], color=black): playerhead:= circle ([46, 20], 3.3): mouth2:= plot ([[45, 19], [47, 19]]): eye:= disk ([45.55, 20.94], .70, color=blue): soccerball:= circle([48, 2], 2, color=red): goalie:= display (goalie, goaliehead): ground:= plot([[0,0], [55, 0]], color=green, thickness=5): player:= display(player, playerhead): player2shead:= circle ([50, 19], 3, color=black): player2:= plot([[50, 0], [52, 4], [54, 0], [52,4], [52, 15], [56, 10], [52, 15], [58, 17], [52, 15], [51, 16]],color=black): playerb:=display(player2, player2shead): f1:= display (goalbox, goalie, player, soccerball, ground): f2:=display(goalbox, translate(goalie, -1, 0), translate(soccerball, -1, 0), translate(player, -1, 0), ground): f3:=display(goalbox, translate(goalie, -1, 0), translate (soccerball, -2, 0), translate(player, -2, 0),ground): f4:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playerb, ground): player3:= plot([[57,2], [52, 4], [54, 0], [52,4], [52, 15], [56, 10], [52, 15], [58, 17], [52, 15], [51, 16]],color=black): f5:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), player3, ground): playerc:= display (player3, player2shead): f5:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playerc, ground): player4:=plot([[58, 4], [52, 4], [54, 0], [52,4], [52, 15], [56, 10], [52, 15], [58, 17], [52, 15], [51, 16]],color=black): playerd:= display (player4, player2shead): f6:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playerd, ground): f7:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playerc, ground): player5:=plot([[53, 2], [52, 4], [54, 0], [52,4], [52, 15], [56, 10], [52, 15], [58, 17], [52, 15], [51, 16]],color=black): playere:= display(player5, player2shead): f8:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playere, ground): player6:=plot([[47, 2], [52, 4], [54, 0], [52,4], [52, 15], [56, 10], [52, 15], [58, 17], [52, 15], [51, 16]],color=black): playerf:=display(player6, player2shead): f9:= display(goalbox, translate(goalie, -1, 0), translate(soccerball, -2, 0), playerf, ground): soccerball2:= circle ([43, 4], 2, color=red): f10:= display(goalbox, translate(goalie, -1, 0), soccerball2, playerf): ground:= plot([[0,0], [55, 0]], color=green, thickness=5): f10:= display(goalbox, translate(goalie, -1, 0), soccerball2, playerf, ground): f11:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -2, 2), playerf, ground): f12:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -4, 4), playerf, ground): f13:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -6, 6), playerf, ground): f13:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -6, 6), playerf, ground): f14:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -8, 8), playerf, ground): goalie2:= plot([[16,0], [18, 4], [20,0], [18,4], [16, 12], [21,17], [16,12], [20, 19], [16, 12], [15, 15.75]], color=black): goalieb:=display (goalie2, goaliehead): w:=textplot ([12, 25, "OH, NO..."], font=[TIME, BOLD, 13]): f15:= display(goalbox, translate(goalieb, -1, 0), translate(soccerball2, -8, 8), playerf, ground, w): w:=textplot ([12, 25, "OH, NO..."], font=[TIME, BOLD, 13]): w2:=textplot ([12, 25, "OH, NO..."], font=[TIME, BOLD, 13]): f16:= display(goalbox, translate(goalie2, -1, 0), translate(soccerball2, -8, 8), ground, w2): goalie3:= plot([[16,0], [18, 4], [20,0], [18,4], [16, 12], [21,19], [16,12], [20, 21], [16, 12], [15, 15.75]], color=black): goaliec:=display (goalie3, goaliehead): player9:= plot([[52, 0], [53, 5], [55, 0], [53, 5], [53, 18], [56, 12], [53, 18], [50, 12], [53, 18], [53, 18.5]], color=black): f16:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -10, 10), ground, w2, translate(player9, -2, 0)): playerhead2:= circle ([53, 22, 20], 3.3): playerh:= display (playerhead2, player9): w3:=textplot ([53, 27, "MAYBE..."], font=[TIME, BOLD, 13]): f16:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -10, 10), ground, w2, w3, translate(playerh, -2, 0)): w3:=textplot ([53, 27, "MAYBE..."], font=[TIME, BOLD, 13]): f16:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -10, 10), ground, w2, w3, translate(playerh, -2, 0)): f17:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -12, 12), ground, w2, w3, translate(playerh, -2, 0)): f18:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -14, 14), ground, translate(playerh, -2, 0)): f19:= display(goalbox, translate(goaliec, -1, 0), translate(soccerball2, -16, 16), ground, translate(playerh, -2, 0)): goalie5:=plot([[16,0], [18, 4], [20,0], [18,4], [16, 12], [23,21], [16,12], [22, 21], [16, 12], [15, 15.75]], color=black): goalied:= display (goalie5, goaliehead): f20:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -18, 18), ground, translate(playerh, -2, 0)): f21:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -20, 20), ground, translate(playerh, -2, 0)): f22:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -22, 22), ground, translate(playerh, -2, 0)): f23:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -22, 22), ground, translate(playerh, -2, 0)): f24:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -24, 24), ground, translate(playerh, -2, 0)): f25:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -26, 26), ground, translate(playerh, -2, 0)): f26:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -28, 26), ground, translate(playerh, -2, 0)): f27:= display(goalbox, translate(goalied, -1, 0), translate(soccerball2, -30, 24), ground, translate(playerh, -2, 0)): f1:= display (goalbox, goalie, player, soccerball, ground): f28:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -36, 20), ground, translate(playerh, -2, 0)): w4:=textplot ([12, 25, "NOOOO..."], font=[TIME, BOLD, 13]): w5:=textplot ([53, 27, "Yay!"], font=[TIME, BOLD, 13]): w6:=textplot ([30, 30, "GOOOAAALLL!!!!"], font=[TIME, BOLD, 13]): f29:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -38, 18), ground, translate(playerh, -2, 0), w4, w6, w5): f30:=display(goalbox, translate(goalie, -1, 0), translate(soccerball2, -40, 16), ground, translate(playerh, -2, 0), w4, w6, w5): 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,f28,f29,f30,insequence=true,scaling=constrained,axes=none); #speed 4