restart;with(plottools):with(plots): stephen_h Blast Off tip:=plot([[9,11],[12,12],[12,9],[9,11]],color=red,scaling=constrained,filled=true): bottomfin:=plot([[7,3],[7,1],[6,0],[5,1],[7,3]],color=red,scaling=constrained,filled=true): topfin:=plot([[3,6],[1,6],[0,5],[1,4],[3,6]],color=red,scaling=constrained,filled=true): flame:=plot([[4,5.2],[6,3.7],[5,2],[4,1],[3.8,2],[1.5,2.8],[3,4.5],[4,5.2]],color="OrangeRed",scaling=constrained,filled=true): mainbodystrip:=plot([[4,7],[8,4],[7,3],[3,6],[4,7]],color=darkgray,scaling=constrained,filled=true): mainbody:=plot([[12,9],[11,7],[10,6],[9,5],[8,4],[7,3],[3,6],[4,7],[5,8],[6,9],[7,10],[9,11],[12,9]],color=gray,scaling=constrained,filled=true): all:=display([tip,mainbody,bottomfin,topfin,mainbodystrip,flame],axes=boxed): rocket0:=ellipticArc( [0,0],12,4,-.8*Pi.. .8*Pi,filled=true,color=grey): rocket:=display(rocket0): p1:=display([all]): p2:=translate(all,+1,+1): p3:=translate(p2,+1,+1): p4:=translate(p3,+1,+1): p5:=translate(p4,+1,+1): p6:=translate(p5,+1,+1): p7:=translate(p6,+1,+1): p8:=translate(p7,+1,+1): p9:=translate(p8,+1,+1): p10:=translate(p9,+1,+1): p11:=translate(p10,+1,+1): p12:=translate(p11,+1,+1): p13:=translate(p12,+1,+1): p14:=translate(p13,+1,+1): p15:=translate(p14,+1,+1): p16:=translate(p15,+1,+1): display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16], insequence=true, axes=none); speed 10