restart;with(plots):with(plottools):
xskyblue := COLOR(RGB, 0.5, 0.8, 0.9):
xdarkgreen := COLOR(RGB, 0, .8, 0):
xyellow := COLOR(RGB, 1, 1, 0):
xlightgray := COLOR(RGB, .9, .9, .9):
xdarkblue := COLOR(RGB, 0, 0, .8):
xblack := COLOR(RGB, 0, 0, 0):
kite:=polygon([[4.5,9.5],[5.5,11.5],[6.5,9.5],[5.5,6.5],[4.5,9.5]],color=red):
line1:=plot([[5.5,6.5],[5.5,2]],color=gray):
bow1:=polygon([[5,6],[5.5,5.7],[6,6],[6,5.7],[6,5.5],[5.5,5.7],[5,5.5],[5,6]],color=pink):
sky1:=polygon([[0,15],[13,15],[13,0],[0,0]],color=xskyblue,filled=true):
ground:=polygon([[0,0],[0,0.3],[13,0.3],[13,0],[0,0]],color=xdarkgreen,filled=true):
p1:=display([ground,kite,line1,bow1,sky1],scaling=constrained,axes=none):
sky2:=polygon([[0,15],[13,15],[13,0],[0,0]],color=xblack,filled=true):
p2:=display([ground,kite,line1,bow1,sky2],scaling=constrained):
line2:=plot([[4.4,15],[4,12],[4.5,10],[4.2,8],[5,6]],color=xyellow):
p3:=display([line2,ground,kite,line1,bow1,sky2],scaling=constrained):
sky3:=polygon([[0,15],[13,15],[13,0],[0,0]],color=xyellow,filled=true):
p4:=display([sky3],scaling=constrained):
sky2:=polygon([[0,15],[13,15],[13,0],[0,0]],color=xblack,filled=true):
p5:=display([sky2],scaling=constrained):
bow2:=polygon([[8,5],[8.5,4.7],[9,5],[9,4.5],[8.5,4.7],[8,4.5],[8,5]],color=pink,filled=true):
p6:=display([ground,kite,line1,bow2,sky2],scaling=constrained):
bow3:=polygon([[2,3],[2.5,2.7],[3,3],[3,2.5],[2.5,2.7],[2,2.5],[2,3]],color=pink,filled=true):
p7:=display([ground,kite,line1,bow3,sky2],scaling=constrained):
bow4:=polygon([[0,1],[0,0.7],[3,0],[0.1,0.2],[0.2,0.55],[2,2.5],[0,0.1]],color=pink,filled=true):
p8:=display([ground,kite,line1,bow4,sky2],scaling=constrained):
sky4:=polygon([[0,15],[13,15],[13,0],[0,0]],color=xdarkblue,filled=true):
p9:=display([ground,kite,line1,sky4],scaling=constrained):
display([p1,p2,p3,p4,p5,p6,p7,p8,p9],insequence=true);#speed 2