restart:with(plots):with(plottools):slide1:=textplot([6,6,"THE WORLD CUP IS FINISHED WITH SPAIN WINNING OVER NETHERLANDS IN THE 116TH MINUTE. BUT,THIS YEARS WORLD CUP MADE A DIFFRENCE IN HISTORY.LETS WATCH SOME OF THE BEST REPLAYS FOR THIS WORLD CUP."]):slide2:=textplot([6,6,"FREE KICK TAKEN BY MARIO BOLATTI FROM ARGENTENA VS.GERMANY"]):outline:=plot([[-2,0],[12,0], [12,10], [-2,10], [-2,0]], color=black):grass:=polygon([[-2,0],[-2,3],[12,3], [12,0], [0,0]], color=green):post:=plot([[3,3],[3,6],[9,6],[9,3]],color=black,thickness=4):net:=plot([[3,3],[3.5,6],[4,3],[4.5,6],[5,3],[5.5,6],[6,3],[7,6],[7.5,3],[8,6],[8.5,3],[9,6]],color="Gray"):goal:=display(post,net):fieldgoal:=display(goal,outline,grass):Mlegs:=plot([[-1.5,0], [0,1],[1.5,0]], color=black):Marms:=plot([[-.5,1], [0,2], [.5,1]], color=black):Mhead:=disk([0,2.6],.6,color="Tan"):Mbody:=plot([[0,1], [0,2]],color=black):Marioback:=display(Mlegs,Marms,Mbody,Mhead):Meye:=plot([[.25,3],[.25,2.75]],color=black):Mmouth:=plot([[0,2.5],[.65,2.5]],color=black):Marioside:=display(Mlegs,Marms,Mbody,Mhead,Meye,Mmouth):Glegs:=plot([[5,3],[6,3.25],[7,3]],color=black):Gbody:=plot([[6,3.25],[6,3.75]],color=black):Garms:=plot([[5,3.5],[6,3.6],[5,3.75]],color=black):Ghead:=disk([6,4],.3,color="Chocolate"):Geyes:=plot([[[5.8,4.2],[5.8,4.1]],[[6.1,4.2],[6.1,4.1]]],color=black):Gmouth:=plot([[5.8,3.9],[6.2,3.9]],color=black):Goaliefront:=display(Glegs,Garms,Gbody,Ghead,Geyes,Gmouth):ball:=disk([0,0], .5, color=black):ball2:=disk([0,0], .5, color=red):ball3:=disk([0,0], .6, color=red):ball4:=disk([0,0], .7, color=red):f1:=display(translate(Marioback,2,.5),translate(Goaliefront,0,0),translate(ball,4,1),fieldgoal):f2:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,4.5,1.5),fieldgoal):f3:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,5,1.75),fieldgoal):f4:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,6,2),fieldgoal):f5:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,7,2.25),fieldgoal):f6:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,8,2.5),fieldgoal):f7:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,9,2.75),fieldgoal):f8:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,10,3),fieldgoal):f9:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,11,3.5),fieldgoal):f10:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,10,4),fieldgoal):f11:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,9,4.5),fieldgoal):f12:=display(translate(Marioback,2.5,1),translate(Goaliefront,1,0),translate(ball,8,5),fieldgoal):slide3:=textplot([6,6,"GGGGGOOOOOOOOOOOOAAAAAAAAAALLLLLLLL!!!!!!!!!!"]):slide4:=textplot([6,6,"AMAZING GOAL FROM THE FREE KICK FROM MARIO BOLATTI. IT WENT TO THE SIDE WHICH MADE THE GOALIE PUT HIS GUARD DOWN, BUT TO HIS SURPRISE THE BALL CURVED RIGHT BACK TO THE GOAL AND LANDED IN THE TOP RIGHT CORNER OF THE GOAL."]):slide5:=textplot([6,6,"THAT WAS AN AMAZING GOAL, BUT NOT ENOUGH TO GET ARGENTINA INTO THE SEMIFINALS."]):slide6:=textplot([6,6,"AND NOW WE WILL SHOW A REPLAY OF THE GAME BETWEEN SPAIN AND PORTUGAL WHERE XAVI MAKES THE ONE GOAL OF THE MATCH."]):grass2:=polygon([[-2,0], [-2,2],[12,2], [12,0], [0,0]], color=green):soccer_field2:=display ([outline,grass2]):post2:=plot([[12,2],[12,10],[10,10],[10,2]],color=black,thickness=4):net2:=plot([[10,2],[10.3,10],[10.5,2],[10.7,10],[10.9,2],[11.1,10],[11.3,2],[11.5,10],[11.7,2],[11.9,10],[12,2]],color="Gray"):goal2:=display(post2,net2):fieldgoal2:=display(goal2,soccer_field2):with_people:=display(fieldgoal2,Marioside,Goaliefront,ball):f13:=display(translate(Marioside,2,2),translate(Goaliefront,3,-1),translate(ball,4,2.5),fieldgoal2):f14:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,4.5,2.75),fieldgoal2):f15:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,5,2.75),fieldgoal2):f16:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,6,3),fieldgoal2):f17:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,7,3.1),fieldgoal2):f18:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-.5),translate(ball,8,3.25),fieldgoal2):f19:=display(translate(Marioside,2.5,2),translate(Goaliefront,3.5,-.5),translate(ball,7,3.25),fieldgoal2):f20:=display(translate(Marioside,2.5,2),translate(Goaliefront,4,-.5),translate(ball,6,3.1),fieldgoal2):f21:=display(translate(Marioside,2.5,2),translate(Goaliefront,4.5,-.5),translate(ball,5,2.75),fieldgoal2):f22:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,4,2.5),fieldgoal2):f23:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,5,2.75),fieldgoal2):f24:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,6,3.1),fieldgoal2):f25:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,7,3.25),fieldgoal2):f26:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,8,3.5),fieldgoal2):f27:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,9,3.75),fieldgoal2):f28:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,10,4),fieldgoal2):f29:=display(translate(Marioside,2.5,2),translate(Goaliefront,5,-.5),translate(ball,11,5),fieldgoal2):slide7:=textplot([6,6,"AMAZING POWER BY XAVI WHO SHOT WITH ENOUGH POWER TO KNOCK THE GOALIE BACK INTO HIS NET AND THEN SHOOTING THE BALL OVER HIS HEAD TO MAKE A FANTASTIC GOAL!!!"]):slide8:=textplot([6,6,"THAT GOAL LET SPAIN GET INTO THE SEMIFINALS ALTHOUGH SPAIN HAD ALREADY LOST TO SWITZERLAND"]):slide9:=textplot([6,6,"AND NOW WE HAVE A GOAL FROM MIROSLAV KOLSE. A BRILLIANT HEADER RIGHT WHEN THE GOALIE ALMOST HAD IT IN THE GROUP STAGE GAME BETWEEN GERMANY VS AUSTRALIA."]):Meye2:=plot([[-.25,3],[-.25,2.75]],color=black):Mmouth2:=plot([[-0,2.5],[-.65,2.5]],color=black):Marioside2:=display(Marioback,Mmouth2,Meye2):f30:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,0,0),translate(ball,4,1),fieldgoal):f31:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,0,0),translate(ball,5,2),fieldgoal):f32:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-1,0),translate(ball,4,3),fieldgoal):f33:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2,0),translate(ball,4,2),fieldgoal):f34:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,4,1),fieldgoal):f35:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,5,2),fieldgoal):f36:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,6,3),fieldgoal):f37:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,7,4),fieldgoal):f38:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,9,5),fieldgoal):f39:=display(translate(Marioback,2,.5),translate(Marioside2,10,2),translate(Goaliefront,-2.5,0),translate(ball,8.5,5.5),fieldgoal):slide10:=textplot([6,6,"OOOOOOOOH! SUPER HEADER INTO THE GOAL FROM MIROSAV KOLSE IN THE GERMANY VS. AUSTRALIA GAME. THE STANDS SURE ROSE IN VOLUME WITH THEIR VOICES AND THEIR VUVUZELAS TO SHOW APPRECIATION FOR THAT BRILLIANT GOAL!"]):slide11:=textplot([6,6,"THE GOALIE DID A GOOD JOB OF PUNCHING THE FIRST SHOT BACK, BUT WHEN HE FIGURED OUT THAT HE GOT THE BALL AGAIN, HE TOOK A WHILE TO STOP, SO THATS WHEN HE TOOK FULL ADVANTAGE AND LOBBED IT INTO THE AIR TO KOLSE WHO MADE A BRILLIANT HEADER INTO THE GOAL!"]):slide12:=textplot([6,6,"WELL, THATS ALL WE WERE GOING TO SHOW YOU, BUT THE FIFA WORLD CUP OFFICIALS GAVE US A GOAL RECORDING THAT WAS NEVER INTRODUCED TO THE PUBLIC. IT TOOK PLACE IN 1958, WHEN BRAZIL BEAT SWEDEN 5-2. APPARENTLEY THERE WAS ACTUALLY A SIXTH GOAL, BUT IT WAS NEVER RELEASED TO THE PUBLIC BECAUSE OF HOW AMAZING IT WAS. ALL THE PEOPLE AT THE GAME SAW IT, BUT NOBODY WOULD BELEIVE THEM WHEN THE TOLD OTHER PEOPLE. SO THE WORLD WAS CONVINCED THAT BRAZIL ONLY WON 5-2, WHEN THEY ACTUALLY WON 6-2. SO, NOW WE WILL SEE THIS AMAZING GOAL."]):f40:=display(translate(Marioside,2,2),translate(Goaliefront,3,-1),translate(ball,4,2.5),fieldgoal2):f41:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,4.5,2.5),fieldgoal2):f42:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,-1),translate(ball,5,3),fieldgoal2):f43:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,0),translate(ball,6,4),fieldgoal2):f44:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,1),translate(ball,7,5),fieldgoal2):f45:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,3.5),translate(ball,8,6),fieldgoal2):f46:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,5),translate(ball,6,6),fieldgoal2):f47:=display(translate(Marioside,2.5,2),translate(Goaliefront,3,6),translate(ball,5,5.5),fieldgoal2):f48:=display(translate(Marioside,2.5,2),translate(ball,3.5,5),fieldgoal2):f49:=display(translate(Marioside,2.5,2),translate(ball,4,5),fieldgoal2):f50:=display(translate(Marioside,2,2),translate(ball,5,5),fieldgoal2):f51:=display(translate(Marioside,1.5,2),translate(ball,6,5),fieldgoal2):f52:=display(translate(Marioside,1,2),translate(ball,7,5),fieldgoal2):f53:=display(translate(Marioside,.5,2),translate(ball,8,5),fieldgoal2):f54:=display(translate(Marioside,0,2),translate(ball,9,5),fieldgoal2):f55:=display(translate(ball,10,5),fieldgoal2):f56:=display(translate(ball,11,5),fieldgoal2):f57:=display(translate(ball2,11,5),fieldgoal2):gasoline:=plot([[8,10],[11,5.5]],color=black,thickness=20):f58:=display(translate(ball3,11,5),fieldgoal2):f59:=display(translate(ball4,11,5),translate(gasoline,0,0),fieldgoal2):explosion:=polygon([[9,2],[10,7],[8,7],[7,8],[7,9],[8,10],[12,10],[12,2]],color="Red"):f60:=display(translate(explosion,0,0),soccer_field2):f61:=display(soccer_field2):slide13:=textplot([6,6,"WOAH! SUPERB! UNBELIVEABLE! FANTASTIC! GLORIOUS!"]):slide14:=textplot([6,6,"YOU PROBABLY DIDNT UNDERSTAND PART OF IT BECAUSE UNFORTUNATLEY, FIFA ONLY HAD ONE CAMERA RECORDING IT AT THAT TIME. SO AS FAR AS THEY TOLD US, AND WITH THE WITTNESSES THERE, WE HAVE BEEN TOLD THAT THE AMAZING BRAZILIAN KICKED THE BALL WITH SO MUTCH FORCE THAT IT KNOCKED THE GOALIE OVER THE GOAL. THEN THE GOALIE KNOCKED THE BALL RIGHT BACK AT THE GUY WHO HEADERED IT AND GOT KNOCKED BACK. THE BALL WENT THROUGH AND SCORED, BUT THE SPEED MADE THE NET CATCH FIRE. THE BALL THAT WENT THROUGH THE GOAL GOT BOUNCED OFF THE STANDS AND SHOT UP AT A BLIMP WHICH WAS GOING OVER WITH SOME GAS. THE BALL BROKE THROUGH AND SPILT THE GAS WHICH WENT ON THE GOAL AND MADE THE WHOLE GOAL EXPLODE."]):slide15:=textplot([6,6,"WELL, THESE REPLAYS ARE SURE ONES TO REMEMBER. ITS GETTING LATE SO WE HAVE TO GO. I HOPE YOU JOIN US NEXT TIME IN 2014 FOR THE NEXT WORLD CUP HELD BY BRAZIL. BUT UNTIL THEN, GOODBYE."]):display([slide1,slide1,slide1,slide1,slide1,slide1, slide1,slide1,slide1,slide1,slide1,slide1,slide1,slide1, slide1,slide2,slide2,slide2,slide2,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,slide3,slide3,slide3,slide4, slide4, slide4,slide4,slide4,slide4,slide4,slide4, slide4,slide4, slide4, slide4, slide4,slide4,slide4,slide4,slide4, slide4,slide5,slide5,slide5,slide5,slide5,slide5,slide5,slide5,slide5,slide6,slide6,slide6,slide6,slide6,slide6,slide6,slide6,slide6,slide6,slide6,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,slide7,slide7,slide7,slide7,slide7,slide7,slide7,slide7,slide7, slide7,slide7,slide7,slide7,slide7,slide7,slide7,slide7, slide7,slide7,slide8, slide8,slide8,slide8,slide8,slide8,slide8,slide8,slide8,slide8,slide9,slide9, slide9,slide9,slide9,slide9,slide9,slide9,slide9,slide9,slide9,slide9,slide9, slide9,slide9,f30,f30,f31,f31,f32,f32,f33,f33,f34,f34,f35,f35,f36,f36,f37,f37,f38,f38,f39,f39,slide10,slide10, slide10,slide10,slide10,slide10,slide10, slide10,slide10,slide10,slide10, slide10,slide10, slide10,slide10, slide10,slide10,slide10,slide10,slide10, slide10,slide10,slide11,slide11, slide11,slide11, slide11,slide11,slide11,slide11,slide11,slide11,slide11, slide11,slide11,slide11,slide11,slide11,slide11,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12,slide12, slide12,slide12, slide12,slide12,slide12,slide12,slide12, slide12,slide12, slide12,slide12, slide12,slide12,slide12, slide12,slide12,slide12,slide12, slide12,slide12,slide12,slide12,slide12, slide12,slide12,slide12,f40,f41,f42,f43,f44,f45,f46,f47,f48,f49,f50,f51,f52,f53,f54,f55,f56,f57,f58,f59,f60,f61,slide13,slide13,slide13,slide13,slide13,slide13,slide13,slide13, slide13,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14, slide14,slide14, slide14,slide14, slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14, slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14,slide14, slide14,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15,slide15],insequence=true, axes=none, scaling=constrained, view=[-2..12,0..10.5]);