restart: with(plots): with(plottools): blue:=polygon([[21,7], [20,7], [20,6], [21,6], [21,7]], filled=true, color="Blue"): white:=polygon([[21,5.5], [18,5.5], [18,5], [21,5], [21,5.5]], filled=true, color="White"): red:=polygon([[18,7], [18,6.5], [20,6.5], [20,7], [18,7]], filled=true, color="Red"): white2:=polygon([[20,6], [18,6], [18,6.5], [20,6.5], [20,6]], filled=true, color="White"): red2:=polygon([[18,6], [18,5.5], [21,5.5], [21,6], [18,6]], filled=true, color="Red"): flag1:=display([red, red2, white, white2, blue]): flag2:=reflect(flag1, [[21.5,5], [21.5,7]]): ship:=polygon([[1,0], [0,2], [8,2], [7,0], [1,0]],filled=true, color="Brown"): cannon:=polygon([[7,2], [7,3], [10,3], [10,2], [7,2]],filled=true, color="Gray"): explosion:=polygon([[10,2], [10,3], [11,4], [11,3], [12,4], [12,1], [11,2], [11,1], [10,2]],filled=true, color="Orange"): ocean:=polygon([[0,0], [28,0], [28,-12], [0,-12], [0,0]], filled=true, color="Blue"): flagpole:=polygon([[6,2], [6,7], [7,7], [7,2], [6,2]],filled=true, color="Brown"): flag:=polygon([[7,7], [10,7], [10,5], [7,5], [7,7]],filled=true, color="Black"): leftship:=display(ship, cannon, explosion, flagpole): rightship:=display(reflect(leftship,[[14,0],[14,1]]),flag2): leftship:=display(ship, cannon, explosion, flagpole, flag): p1:=display(leftship,rightship,ocean): leftship0:=display(ship, cannon, flagpole): rightship0:=reflect(leftship0,[[14,0],[14,1]]): leftship:=display(leftship0, flag): rightship:=display(rightship0, flag2): p2:=display(leftship,rightship,ocean): p3:=display(rotate(leftship,Pi/4,[7,2]),rightship,ocean): p4:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-.5),rightship,ocean): p5:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-1),rightship,ocean): p6:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-1.5),rightship,ocean): p7:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-2),rightship,ocean): p8:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-2.5),rightship,ocean): p9:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-3),rightship,ocean): p10:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-3.5),rightship,ocean): p11:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-4),rightship,ocean): p12:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-4.5),rightship,ocean): p13:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-5),rightship,ocean): p14:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-5.5),rightship,ocean): p15:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-6),rightship,ocean): p16:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-6.5),rightship,ocean): p17:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-7),rightship,ocean): p18:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-7.5),rightship,ocean): p19:=display(translate(rotate(leftship,Pi/4,[7,2]),0,-8),rightship,ocean): head:=circle([24.9, 5.31], .05, color="Black"): body:=plot([[24.90,5.25], [24.90,5.05]]): arms:=plot([[24.8,5.25], [24.90,5.25], [25,5.25]]): legs:=plot([[24.8,5], [24.9,5.05], [25,5]]): human:=display(head, body, arms, legs): p20:=display(human,translate(human, -2.8,.1),translate(human, -2.2,0) , flag2): p21:=display(translate(human, -2.8,0), translate(human, -2.2,.1),translate(rotate(human,Pi/2, [24.9,5.3]), -.5,0),flag2): p22:=display(translate(human, -2.8,.1), translate(human, -2.2,0),translate(rotate(human,Pi,[24.9,5.3]), -1, -.2),flag2): p23:=display(translate(human, -2.8,0), translate(human, -2.2,.1),translate(rotate(human,3*Pi/2,[24.9,5.3]), -1.5,0),flag2): p24:=display(translate(human, -2.8,.1), translate(human, -2.2,0), translate(human, -2,0),flag2): display([p2, p2, p2, p1, p2, p1, p2, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, scale(p20, 8, 8, [25,7]), scale(p20, 8, 8, [25,7]), scale(p20, 8, 8, [25,7]), scale(p21, 8, 8, [25,7]), scale(p22, 8, 8, [25,7]), scale(p23, 8, 8, [25,7]), scale(p24, 8, 8, [25,7]), scale(p24, 8, 8, [25,7]), scale(p23, 8, 8, [25,7]), scale(p22, 8, 8, [25,7]), scale(p21, 8, 8, [25,7]), scale(p20, 8, 8, [25,7])], insequence=true, scaling=constrained, axes=none); #speed = 3