restart:with(plots):with(plottools):
grass:=polygon([[0,1],[1,2],[2,1],[3,2],[4,1],[5,2],[6,1],[7,2],[8,1],[9,2],[10,1],[11,2], [12, 1]], color="Green"):
sun:= disk([9,11], 1, color="yellow"):
middle:= disk([6,6], .5, color="pink"):
out:= disk([6,6], 1, color="Orange"):
stem:= polygon([[5.5,1],[5.5,3],[5,4],[5.5,4],[5.5,5],[6.5,5],[6.5,4],[7,4],[6.5,3],[6.5,1],[5.5,1]], color="Green"):
sky:=polygon([[0,1],[0,13],[12,13],[12,1]],color="LightSkyBlue",style=polygon):
cloud:=polygon([[2,10],[2,11],[4,11],[4,12],[6,12],[6,11],[5,11],[5,10],[2,10]], color="Snow"):
beginingcloud:=display(grass,cloud,sun,sky, scaling=constrained):
cloud3:=polygon([[7,10],[7,11],[9,11],[9,12],[11,12],[11,11],[10,11],[10,10],[7,10]], color="Snow"):
endingcloudandmovie:=display(grass,stem,middle,out,cloud3,sun,sky,scaling=constrained):
cloud2:=polygon([[5,10],[5,11],[7,11],[7,12],[9,12],[9,11],[8,11],[8,10],[5,10]], color="Snow"):
secondstagecloud:=display(grass,cloud2,sun,sky,scaling=constrained):
firststageflower:=polygon([[5,1],[5,3],[6,2],[7,3],[7,1],[5,1]],color="Green"):
firstmiddle:= disk([6,2.5], .5, color="Pink"):
firstflower:= display(firststageflower,firstmiddle, scaling=constrained):
secondmiddle:=disk([6,3.7], .5, color="Pink"):
middle2:=disk([6,6], .7, color= "Purple"):
secondflower:= display(secondmiddle,stem, scaling=constrained):
middleagain:=disk([6,3.7], .7, color="Purple"):
secondstem:=polygon([[5.5,3],[5,4],[5.5,4],[7,4],[6.5,3],[6.5,1],[5.5,1],[5.5,3]], color="Green"):
secondflower2:=display(secondmiddle,middleagain,secondstem, scaling=constrained):
thirdflower:=display(middle,middle2,out,stem,scaling=constrained):
cloud4:=polygon([[1,9.5],[1,10],[3,10],[3,9.5]],color="Snow"):
p3:=display([grass,thirdflower,cloud3,cloud4,sun,sky],scaling=constrained):
bush:=polygon([[9,1],[9,4],[12,4],[12,1],[9,1]], color="Green"):
berry1:=disk([9.5,2.5],.3, color="RoyalBlue"):
berry2:=disk([10.5,1.5],.3, color="RoyalBlue"):
berry3:=disk([11.5,3.5],.3, color="RoyalBlue"):
bushwithberries:=display(berry1,berry2,berry3,bush, scaling=constrained):
p1again:=display(grass,bushwithberries,firstflower,sun,cloud,sky, scaling=constrained):
p2again:=display(grass,bushwithberries,secondflower2,cloud2,sun,sky, scaling=constrained):
p3again:=display(grass,bushwithberries,thirdflower,cloud3,cloud4,sun,sky, scaling=constrained):
moviereal:=display([p1again,p2again,p3again],insequence=true,axes=none,scaling=constrained):
moviereal;
speed 3