restart;with(plots):with(plottools):
xlightgray := COLOR(RGB, .9, .9, .9):
boat:=polygon([[6,6],[6,4],[9,1],[20,1],[23,4],[23,6],[6,6],[23,6]],color=brown):
pole:=polygon([[14,6],[16,6],[16,19],[14,19]],color=gray):
mask:=polygon([[4,8],[14,19],[14,8],[4,8]],color=green):
mask2:=polygon([[16,10],[16,19],[25,10],[16,10]],color=green):
sun:=disk([5,33],2,color=yellow,filled=true):
water:=polygon([[0,0],[30,0],[30,1],[0,1],[0,0]],color=blue):
boat2:=polygon([[8,6],[8,4],[11,1],[22,1],[25,4],[25,6],[8,6],[25,6]],color=brown):
pole2:=polygon([[16,6],[16,19],[18,19],[18,6],[16,6]],color=gray):
mask3:=polygon([[6,8],[16,19],[16,8],[6,8]],color=xlightgray):
mask4:=polygon([[18,10],[18,19],[27,10],[18,10]],color=xlightgray):
water2:=polygon([[-10,-25],[40,-25],[40,1],[-10,1],[-10,-25]],color=blue):
sun:=disk([5,33],2,color=yellow,filled=true):
boatfinal:=display(boat2,pole2,mask3,mask4):
d1:=display([boatfinal,water2,sun]):
d2:=display(translate(boatfinal,-2,0),water2,sun):
d3:=display(translate(boatfinal,-4,0),water2,sun):
d4:=display(translate(boatfinal,-6,0),water2,sun):
d5:=display(translate(boatfinal,-8,0),water2,sun):
d6:=display(translate(boatfinal,-10,0),water2,sun):
d7:=display(translate(boatfinal,-12,0),water2,sun):
d8:=display(translate(boatfinal,-14,0),water2,sun):
d9:=display(translate(boatfinal,-16,0),water2,sun):
d10:=display(water2,rotate(translate(boatfinal,-16,0),-Pi/10,[0,-20]),sun):
d11:=display(water2,rotate(translate(boatfinal,-16,0),-2*Pi/10,[0,-20]),sun):
d12:=display(water2,rotate(translate(boatfinal,-16,0),-4*Pi/10,[0,-20]),sun):
display(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d12,d12,axes=none,insequence=true);
# speed 5