restart:with(plots):with(plottools):

grant_l

Truck Explosion

Ground:=rectangle([0,2],[21,0],color=grey):

Sun:=ellipse([4,14],2,2,color=yellow,filled=true):

TNTblock:=rectangle([18,2],[21,5],color=red):

TNT:=textplot([19.5,3.5,"TNT"],color=black,font=["Impact",30]):

TNTstripe:=rectangle([18,2.5],[21,4.5],color=white):

Signshape:=polygon([[15.5,2],[15.5,4],[14.5,4],[14.5,5.5],[17,5.5],[17,4],[16,4],[16,2]],color=lightgrey,filled=true):

BEWARE:=textplot([15.75,4.75,"BEWARE!"],color=black,font=["Impact",12]):

Sign:=display(BEWARE,Signshape):

g1:=display(Ground,Sun,TNTstripe,TNT,TNTblock,Sign):

Frontwheel:=ellipse([5,2.5],0.5,0.5,color=grey,filled=true):

Backwheel:=ellipse([2,2.5],0.5,0.5,color=grey,filled=true):

Trucktop:=polygon([[0,2.5],[0,4],[2,4],[2,5],[4,5],[5,4],[6,4],[6,2.5]],color=blue,filled=true):

Window:=polygon([[3.5,4],[3.5,4.95],[4.8,4]],color=lightblue,filled=true):

Truck:=display(Frontwheel,Window,Backwheel,Trucktop):

p1:=display(g1,Truck):

p2:=display(g1,translate(Truck,0,0)):

p3:=display(g1,translate(Truck,1,0)):

p4:=display(g1,translate(Truck,2,0)):

p5:=display(g1,translate(Truck,3,0)):

p6:=display(g1,translate(Truck,4,0)):

p7:=display(g1,translate(Truck,5,0)):

p8:=display(g1,translate(Truck,6,0)):

p9:=display(g1,translate(Truck,7,0)):

p10:=display(g1,translate(Truck,8,0)):

p11:=display(g1,translate(Truck,9,0)):

p12:=display(g1,translate(Truck,10,0)):

p13:=display(g1,translate(Truck,11,0)):

p14:=display(g1,translate(Truck,12,0)):

flippedTruck:=rotate(Truck,Pi/4):

p16:=display(g1,translate(flippedTruck,16,0)):

p17:=display(g1,translate(flippedTruck,15,1)):

p18:=display(g1,translate(flippedTruck,14,2)):

p19:=display(g1,translate(flippedTruck,13,3)):

p20:=display(g1,translate(flippedTruck,12,4)):

p21:=display(g1,translate(flippedTruck,11,5)):

animation1:=display(p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p16,p17,p18,p19,p20,p21,insequence):

Explotion:=polygon([[4,2],[7,5],[7,2],[10,6],[14,2],[13,6],[18,10],[14,9],[16,15],[13,11],[11,14],[8,11],[6,14],[6,11],[3,14],[4,10],[2,9],[5,7],[2,5],[6,6]],filled=true):

KABOOM:=textplot([9,9,"KABOOM!!!"],color=black,font=["Impact",60]):

Explotion1:=display(Explotion,color=yellow,KABOOM):

Explotion2:=display(Explotion,color=orange,KABOOM):

Explotion3:=display(Explotion,color=red,KABOOM):

Animation2:=display(p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p16,p17,p18,p19,p20,p21,Explotion1,Explotion2,Explotion3,insequence,scaling=constrained,axes=none):

Animation2;

Speed 8 fps