restart:with(plots):with(plottools): Diya B.The Dinosaur Extinction space:=polygon([[50,50],[50,0],[0,0],[0,50],[50,50]], color=black): smallrock1:=polygon([[39,43],[33,41],[32,42],[30,40],[31,35],[35,33],[40,33],[41,36],[40,39],[39,43]],color=grey): smallrockll:=polygon([[44,35],[45,39],[49,39],[48,36],[48,33],[43,34],[43,34],[44,35]],color=grey): smallrocklll:=polygon([[46,43],[44,44],[44,47],[47,47],[47,45],[46,43]],color=grey): spacefirstframe:=display(smallrock1, smallrockll, smallrocklll, space): mediumrock1:=polygon([[29,43],[23,41],[22,42],[20,40],[21,35],[25,33],[30,33],[31,36],[30,39],[29,43]],color=grey): mediumrockll:=polygon([[34,25],[35,29],[39,29],[38,26],[38,23],[33,24],[33,24],[34,25]],color=grey): mediumrocklll:=polygon([[36,33],[34,34],[34,37],[37,37],[37,35],[36,33]],color=grey): spacesecondframe:=display(mediumrock1, mediumrockll, mediumrocklll, space): bigrockl:=polygon([[19,33],[13,31],[12,32],[10,30],[11,25],[15,23],[20,23],[21,26],[20,29],[19,33]],color=grey): bigrockll:=polygon([[24,15],[25,19],[29,19],[28,16],[28,13],[23,14],[23,14],[24,15]],color=grey): bigrocklll:=polygon([[26,23],[24,24],[24,27],[27,27],[27,25],[26,23]],color=grey): spacethirdframe:=display(bigrockl,bigrockll,bigrocklll,space): sky:=polygon([[50,50],[50,0],[0,0],[0,50],[50,50]], color=turquoise): grass:=polygon([[0,0],[50,0],[50,20],[0,20],[0,0]],color="YellowGreen"): treelLeaves:=polygon([[7, 37],[5,28],[8,28],[7, 37]],color="YellowGreen"): treelbark:=polygon([[6,27],[6,20],[7,20],[7,27],[6,27]], color= brown): treellLeaves:=polygon([[24,37],[23,28],[25,28],[24,37]], color= "YellowGreen"): treellbark:=polygon([[24,28],[24,20],[25,20],[25,28],[24,28]], color=brown): treelllLeaves:=polygon([[44,37],[43,28],[45,28],[44,37]], color="YellowGreen"): treelllbark:=polygon([[44,28],[44,20],[45,20],[45,28],[44,28]], color=brown): earth:=display(treelbark,treelLeaves,treellLeaves,treellbark,treelllLeaves,treelllbark,grass,sky): stegosaurus:=polygon([[4.5,4.5],[5.2,5],[5.2,9],[3,11],[1,12],[1.5,14],[3,14],[5,13],[5,15],[6,15],[6,18],[8,16],[10,20],[13,17],[15,19],[15,15],[17,15.5],[18,14.5],[19,15],[19.5,14],[20,15],[20.5,14],[23,13],[25,14],[21,10],[20,9],[16.5,7.5],[17,5],[16,4.5],[15,4],[15,5],[14.5,6],[13,4],[10.2,4],[12,5],[12,6],[9,6],[7,4.5],[7,6],[5.5,4.5],[4.5,4.5]], color=tan): pterodactyl:=polygon ([[9.5,45],[11,45],[14,44.5],[16,42],[16.5,40],[17,39],[18,37],[20,38],[18,39],[20,39.7],[21.5,39.7],[24,37],[21.5,38],[23.7,36.5],[20.5,36.5],[16.5,35],[14.9,35.1],[10.3,35],[13,35.1],[11.2,38],[6,40.5],[10,40],[14,39],[14,40],[14,42],[9.5,45]], color=gold): Trex:=polygon([[34,19],[33,18.5],[30,17],[29.5,15.2],[30,14],[34.5,13.5],[34.5,11],[33.3,11],[34,10.5],[34.6,9.6],[35,10],[38,5.5],[37,4.9],[39,4.9],[40,5],[39,6.5],[41,5.3],[41.2,4.7],[43,4.9],[43.3,5],[42,6.5],[49,8],[49.5,9.7],[48,10],[48,9],[45,9.5],[41.7,11.5],[39,13],[36,17],[34,19]],color=tan): dinosaurs:=display([Trex,pterodactyl,stegosaurus,earth]): skyexplosion:=polygon([[50,50],[50,0],[0,0],[0,50],[50,50]], color=turquoise): explosion:=polygon([[30,50],[35,35],[50,40],[40,27],[50,20],[35,20],[40,0],[25,15],[10,5],[16,20],[0,20],[15,28],[5,40],[18,36],[20,45],[25,40],[30,50]], color=grey): explosiongrass:=polygon([[0,0],[50,0],[50,15],[0,15],[0,0]],color="YellowGreen"): explosionframe:=display(explosion,explosiongrass,skyexplosion): display([spacefirstframe,spacesecondframe,spacethirdframe,dinosaurs,explosionframe,earth], insequence=true, axes=none, scaling=constrained); #speed=1