restart; with(plots): with(plottools): body := plot( [[5,0], [7.5,15], [10,0], [7.5,15], [7.5,25], [5,25], [7.5,25], [7.5,27], [7.5,25], [10,25]], thickness=5,color=black ): head:=disk( [7.5,29.5],2.5,thickness=6 ,color=black): body2 :=plot( [[5,0], [7.5,15],[10,0], [7.5,15],[7.5,25],[7.5,27],[7.5,25], [15,25],[7.5,25]], thickness=5,color=black): ice :=polygon([[15,23],[15,27],[45,25],[15,23]],color="DarkBlue"): body := plot( [[5,0], [7.5,15], [10,0], [7.5,15], [7.5,25], [-2,25], [7.5,25], [7.5,27], [7.5,25]], thickness=5,color=black ): fire :=polygon([[-10,25], [-10,27], [6,25], [-10,25]],color="Firebrick"): head:=display (disk( [7.5,29.5],2.5,thickness=6 ,color=black)): head2:=disk( [-30,29.5],2.5,thickness=6 ,color=black): bodyII:=(translate(head,-35,0),translate(body2,-35,0),translate(ice,-35,-1)): bodyI:=(translate(head,35,0),translate(body,35,0),translate(fire,28,0)): fire2:=polygon(([[33,27],[33,29],[0,27]],color="Firebrick")): bodyI:=(translate(head,35,0),translate(body,35,0),translate(fire2,0,-3)): explosion:=disk( [5,24],3.5,thickness=0,color="black"): explosion2:=disk( [5,24],4.5,thickness=0,color="black"): explosion3:=disk( [5,24],6.5,thickness=0,color="black"): explosion4:=disk( [5,24],8.5,thickness=0,color="black"): explosion5:=disk( [5,24],10.5,thickness=0,color="black"): explosion6:=disk( [5,24],15.5,thickness=0,color="black"): explosion7:=disk( [5,24],20.5,thickness=0,color="black"): explosion8:=disk( [5,24],28.5,thickness=0,color="black"): explosion9:=disk( [5,24],45.9,thickness=0,color="black"): red:=plot( [[20,0],[0,0],[0,20]],thickness=0, color=white): body3 := plot( [[5,0], [7.5,15], [10,0], [7.5,15], [7.5,25], [5,15], [7.5,25], [7.5,27], [7.5,25], [10,15]], thickness=5,color=black ): head3:=disk( [7.5,29.5],2.5,thickness=6 ,color=black): bodyIII:=(body3,head3): tp10:=textplot([5,50,"Finally!!"],font=[TIME,BOLD,16],color=white): tp9:=textplot([5,55,"Cmon"],font=[TIME,BOLD,16]): tp8:=textplot([5,50,"And bigger...."],font=[TIME,BOLD,16]): tp7:=textplot([5,45,"And bigger...."],font=[TIME,BOLD,16]): tp5:=textplot([5,40,"And it got bigger...."],font=[TIME,BOLD,16]): tp6:=textplot([5,40,"And bigger...."],font=[TIME,BOLD,16]): tp4:=textplot([8,45,"Great movie huh?"],font=[TIME,BOLD,16]): tp3:=textplot([-28,40,"Why Me?"],font=[TIME,BOLD,16]): tp2:=textplot([44,40, "Crud"],font=[TIME,BOLD,16]): tp1:=textplot([0,50,"Ohhhhh no"], font=[TIME,BOLD,16]): tp:=textplot([8,45,"?"], font=[TIME,BOLD,16]): f1:=display(bodyI): f2:=display(body2): f3:=display(explosion,tp1,bodyI,bodyII): f4:=display(explosion2,tp2,bodyI,bodyII): f5:=display(explosion3,tp3,bodyI,bodyII): f6:=display(tp5,explosion4,bodyI,bodyII): f7:=display(tp6,explosion5,bodyI,bodyII): f8:=display(tp7,explosion6,bodyI,bodyII): f9:=display(tp8,explosion7,bodyI,bodyII): f10:=display(tp9,explosion8,bodyI,bodyII): f11:=display(tp10,explosion9,bodyI,bodyII): f12:=display(red): f13:=display(bodyIII): f14:=display(tp,bodyIII): f15:=display(tp4,bodyIII): display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15], insequence=true, axes=none, scaling=constrained); #speed 1