restart:with(plots): with(plottools):
planebody:= Matrix([[-7,1], [-3,2], [2,2], [5,3.5], [6,3.5], [6,0], [-3,0], [-7,1]],datatype=float):
planewing:= Matrix([[1,1], [4,-2], [3,1]], datatype=float):
planewindow:= Matrix([[-7,1], [-4,1], [-3,2]],datatype=float):
planewindow2:= plots[polygonplot](planewindow, color=blue, scaling=constrained):
planebody2:= plots[polygonplot](planebody, color=white, scaling=constrained):
planewing2:= plots[polygonplot](planewing, color=white, scaling=constrained):
wholeplane:= display ([planewing2, planewindow2, planebody2], scaling=constrained):
wholeplane2:=reflect(wholeplane, [[0,0], [0,5]], filled=true, color=white):
pp:=translate(wholeplane2,45,0):
pp2:=translate(wholeplane2,45,20):
pp3:=translate(wholeplane2,45,-20):
r1:= plot ([[-35,10], [35,10], [35,-7], [-35,-7], [-35,10]], filled=true, color=black, scaling=constrained):
r2:= plot([[35,30], [55,30], [55,-30], [35,-30], [35,30]], filled=true, color=black, scaling=constrained):
ab1:= Matrix([[10,10], [10,30], [5,33], [5,36], [10,40], [20,40], [25,36], [25,33], [20,30], [20,10], [10,10]], datatype=float):
ab2:= plots[polygonplot](ab1, color=gray, scaling=constrained):
ab3:= Matrix([[5,33], [5,36], [25,36], [25,33], [5,33]], datatype=float):
ab4:= plots[polygonplot](ab3, color=blue, scaling=constrained):
ab5:= display ([ab4, ab2], scaling=constrained):
ab6:= Matrix([[-15,10], [-15,25], [-2.5,28], [10,25], [10,10], [-15,10]], datatype=float):
ab7:= plots[polygonplot](ab6, color=gray, scaling=constrained):
ab8:= Matrix([[-5,15], [-5,10], [-2.5,10], [-2.5,15], [-5,15]], datatype=float):
ab9:= plots[polygonplot](ab8, color=navy, scaling=constrained):
ab10:= Matrix([[-2.5,15], [-2.5,10], [0,10], [0,15], [-2.5,15]], datatype=float):
ab11:= plots[polygonplot](ab10, color=navy, scaling=constrained):
ab12:= display ([ab11, ab9, ab7], scaling=constrained):
back:=display([r1,r2,ab5,ab12,pp,pp2,pp3],scaling=constrained):
planeonroad:= display ([wholeplane, back], scaling=constrained):
back2:=reflect(back, [[0,-33], [0,43]],color=white):
crashplane:=translate(wholeplane2,-20,0):
crashplane2:=translate(wholeplane,20,0):
cp1:=display([crashplane,crashplane2], scaling=constrained):
sky:=display(rectangle([-30,15],[30,-15],color=blue),scaling=constrained):
planecrash:=display([crashplane,crashplane2,sky],scaling=constrained):
pc1:=translate(crashplane,19,0):
pc2:=translate(crashplane,18,0):
pc3:=translate(crashplane,17,0):
pc4:=translate(crashplane,16,0):
pc5:=translate(crashplane,15,0):
pc6:=translate(crashplane,14,0):
pc7:=translate(crashplane,13,0):
pc8:=translate(crashplane,12,0):
pc9:=translate(crashplane,11,0):
pc10:=translate(crashplane,10,0):
pc11:=translate(crashplane,9,0):
pc12:=translate(crashplane,8,0):
pc13:=translate(crashplane,7,0):
pc14:=translate(crashplane,6,0):
pcc1:=translate(crashplane2,-19,0):
pcc2:=translate(crashplane2,-18,0):
pcc3:=translate(crashplane2,-17,0):
pcc4:=translate(crashplane2,-16,0):
pcc5:=translate(crashplane2,-15,0):
pcc6:=translate(crashplane2,-14,0):
pcc7:=translate(crashplane2,-13,0):
pcc8:=translate(crashplane2,-12,0):
pcc9:=translate(crashplane2,-11,0):
pcc10:=translate(crashplane2,-10,0):
pcc11:=translate(crashplane2,-9,0):
pcc12:=translate(crashplane2,-8,0):
pcc13:=translate(crashplane2,-7,0):
pcc14:=translate(crashplane2,-6,0):
pccc1:=display([pc1,pcc1,sky]):
pccc2:=display([pc2,pcc2,sky]):
pccc3:=display([pc3,pcc3,sky]):
pccc4:=display([pc4,pcc4,sky]):
pccc5:=display([pc5,pcc5,sky]):
pccc6:=display([pc6,pcc6,sky]):
pccc7:=display([pc7,pcc7,sky]):
pccc8:=display([pc8,pcc8,sky]):
pccc9:=display([pc9,pcc9,sky]):
pccc10:=display([pc10,pcc10,sky]):
pccc11:=display([pc11,pcc11,sky]):
pccc12:=display([pc12,pcc12,sky]):
pccc13:=display([pc13,pcc13,sky]):
pccc14:=display([pc14,pcc14,sky]):
explosion1:=display(disk([0,0], 7,color=red)):
explosion2:=display(disk([5,4], 4,color="OrangeRed")):
explosion3:=display(disk([-6,-3], 5,color="OrangeRed")):
explosion4:=display(disk([-2,7], 4,color="LightGoldenrod")):
explosion:=display([explosion2,explosion4,explosion3,explosion1],scaling=constrained):
explo:=display([explosion1,explosion3,explosion4,explosion2],scaling=constrained):
explo2:=display([explosion4,explosion2,explosion1,explosion3],scaling=constrained):
explosion11:=display([explosion,sky]):
explos:=display([explo,sky]):
explos2:=display([explo2,sky]):
crash:=display([pccc14,pccc13,pccc12,pccc11,pccc10,pccc9,pccc8,pccc7,pccc6,explosion11,explosion11,explosion11,explosion11,explosion11,explosion11,explosion11,explosion11,explosion11,explosion11,explos,explos,explos,explos,explos,explos,explos,explos,explos,explos,explos2,explos2,explos2,explos2,explos2,explos2,explos2,explos2,explos2,explos2],insequence=true):
pl3:=translate(wholeplane,-1,0):
pl4:=translate(wholeplane,-2,0):
pl5:=translate(wholeplane,-3,0):
pl6:=translate(wholeplane,-4,0):
pl7:=translate(wholeplane,-5,0):
pl8:=translate(wholeplane,-6,0):
pl9:=translate(wholeplane,-7,0):
pl10:=translate(wholeplane,-8,0):
pl11:=translate(wholeplane,-9,0):
pl12:=translate(wholeplane,-10,0):
pl13:=translate(wholeplane,-11,0):
pl14:=translate(wholeplane,-12,0):
pl15:=translate(wholeplane,-13,0):
pl16:=translate(wholeplane,-14,0):
pl17:=translate(wholeplane,-15,0):
pl3b:=display([pl3,back]):
pl4b:=display([pl4,back]):
pl5b:=display([pl5,back]):
pl6b:=display([pl6,back]):
pl7b:=display([pl7,back]):
pl8b:=display([pl8,back]):
pl9b:=display([pl9,back]):
pl10b:=display([pl10,back]):
pl11b:=display([pl11,back]):
pl12b:=display([pl12,back]):
pl13b:=display([pl13,back]):
pl14b:=display([pl14,back]):
pl15b:=display([pl15,back]):
pl16b:=display([pl16,back]):
pl17b:=display([pl17,back]):
pl18:=translate(wholeplane,-16,1):
pl19:=translate(wholeplane,-17,2):
pl20:=translate(wholeplane,-18,3):
pl21:=translate(wholeplane,-19,4):
pl22:=translate(wholeplane,-20,5):
pl23:=translate(wholeplane,-21,6):
pl24:=translate(wholeplane,-22,7):
pl25:=translate(wholeplane,-23,8):
pl26:=translate(wholeplane,-24,9):
pl27:=translate(wholeplane,-25,10):
pl28:=translate(wholeplane,-26,11):
pl29:=translate(wholeplane,-27,12):
pl30:=translate(wholeplane,-28,13):
pl31:=translate(wholeplane,-29,14):
pl32:=translate(wholeplane,-30,15):
pl33:=translate(wholeplane,-31,16):
pl34:=translate(wholeplane,-32,17):
pl35:=translate(wholeplane,-33,18):
pl36:=translate(wholeplane,-34,19):
pl37:=translate(wholeplane,-35,20):
pl38:=translate(wholeplane,-36,21):
pl39:=translate(wholeplane,-37,22):
pl40:=translate(wholeplane,-38,23):
pl41:=translate(wholeplane,-39,24):
pl42:=translate(wholeplane,-40,25):
pl43:=translate(wholeplane,-41,26):
pl44:=translate(wholeplane,-42,27):
pl45:=translate(wholeplane,-43,28):
pl46:=translate(wholeplane,-44,29):
pl47:=translate(wholeplane,-45,30):
pl18b:=display([pl18,back]):
pl19b:=display([pl19,back]):
pl20b:=display([pl20,back]):
pl21b:=display([pl21,back]):
pl22b:=display([pl22,back]):
pl23b:=display([pl23,back]):
pl24b:=display([pl24,back]):
pl25b:=display([pl25,back]):
pl26b:=display([pl26,back]):
pl27b:=display([pl27,back]):
pl28b:=display([pl28,back]):
pl29b:=display([pl29,back]):
pl30b:=display([pl30,back]):
pl31b:=display([pl31,back]):
pl32b:=display([pl32,back]):
pl33b:=display([pl33,back]):
pl34b:=display([pl34,back]):
pl35b:=display([pl35,back]):
pl36b:=display([pl36,back]):
pl37b:=display([pl37,back]):
pl38b:=display([pl38,back]):
pl39b:=display([pl39,back]):
pl40b:=display([pl40,back]):
pl41b:=display([pl41,back]):
pl42b:=display([pl42,back]):
pl43b:=display([pl43,back]):
pl44b:=display([pl44,back]):
pl45b:=display([pl45,back]):
pl46b:=display([pl46,back]):
pl47b:=display([pl47,back]):
planetakeoff:=display([planeonroad,pl3b,pl4b,pl5b,pl6b,pl7b,pl8b,pl9b,pl10b,pl11b,pl12b,pl13b,pl14b,pl15b,pl16b,pl17b,pl18b,pl19b,pl20b,pl21b,pl22b,pl23b,pl24b,pl25b,pl26b,pl27b,pl28b,pl29b,pl30b,pl31b,pl32b,pl33b,pl34b,pl35b,pl36b,pl37b,pl38b,pl39b,pl40b,pl41b,pl42b,pl43b,pl44b,pl45b,pl46b,pl47b],insequence=true):
planetakeoff:
planetakeoff2:=reflect(planetakeoff, [[0,-30], [0,40]]):
planetakeoff3:=display([planetakeoff,planetakeoff2],insequence=true):
display([planetakeoff,planetakeoff2,crash],insequence=true,scaling=constrained, axes=none);
speed 20 good py