restart;with(plots):with(plottools):
sk:=rectangle([0,70],[100,0],color="DeepSkyBlue"):
sky:=display([sk],scaling=constrained):
gras:=[[0,10],[100,10]]:
grass:=plot([gras],color="SpringGreen",scaling=constrained, thickness=3):
drt:=[[0,0],[0,10],[100,10],[100,0],[0,0]]:
dirt:=polygon(drt,color=brown,scaling=constrained):
ground:=display({grass,dirt}):
seed := ellipse([50, 7],2,.5,filled=true,color=wheat,style=polygon):
sg:=display([seed,ground,sky]):
r1:=[[50,6.5],[50,3]]:
ro1:=plot([r1],color="Seashell",scaling=constrained):
r2:=[[50,6.5],[50,0]]:
ro2:=plot([r2],color="Seashell",scaling=constrained):
r3:=[[50,5],[45,3]]:
ro3:=plot([r3],color="Seashell",scaling=constrained):
r4:=[[50,2],[55,0]]:
ro4:=plot([r4],color="Seashell",scaling=constrained):
ground1:=display([ro1,sg,sky]):
ground2:=display([ro1,ro3,seed,ground,sky]):
ground3:=display([ro2,ro3,sg,sky]):
ground4:=display([ground3,ro4,sky]):
stm1:=rectangle([49.85,15], [50.5,7.5],color="Lime",style=polygon):
stm2:=rectangle([49.85,20], [50.5,7.5],color="Lime",style=polygon):
stm3:=rectangle([49.85,25], [50.5,7.5],color="Lime",style=polygon):
stm4:=rectangle([49.85,30], [50.5,7.5],color="Lime",style=polygon):
stm5:=rectangle([49.85,35], [50.5,7.5],color="Lime",style=polygon):
sg1:=display([stm1,ground2,sky], scaling=constrained):
sg2:=display([stm2,ground3,sky]):
sg3:=display([stm3,ground4,sky]):
sg4:=display([stm4,ground4,sky]):
sg5:=display([stm5,ground4,sky]):
f1:=disk([50,40], 2, color="Gold"):
f2:=disk([50,40], 5, color="Crimson"):
f3:=disk([50,40], 5, color=brown):
display([f2],scaling=constrained):
fl:=display([f1,f2],scaling=constrained):
framef:=display([fl,sg5],scaling=constrained):
l1:=disk([45,20],5, color="Lime",style=polygon):
framefr:=display([framef,l1],scaling=constrained):
l1:=disk([48,20],2, color="Lime",style=polygon):
framel:=display([l1,sg3,sky],scaling=constrained):
l2:=disk([47,20],3, color="Lime",style=polygon):
framele:=display([l2,sg4,sky],scaling=constrained):
l3:=disk([46,20],4, color="Lime",style=polygon):
framelea:=display([l3,sg5,sky],scaling=constrained):
bud:=pieslice([50,40],6,4/3*Pi..5/3*Pi,color="SpringGreen",style=polygon):
bp:=display(bud,framelea,sky,scaling=constrained):
fl1:=scale(fl,.5,.5,[50,40]):
fl2:=scale(fl,.75,.75,[50,40]):
fl3:=scale(fl,1,1,[50,40]):
fl4:=scale(fl,1.25,1.25,[50,40]):
fl5:=scale(fl,1.5,1.5,[50,40]):
fl6:=scale(fl,1.75,1.75,[50,40]):
fl7:=scale(fl,2,2,[50,40]):
fl8:=scale(fl,2.25,2.25,[50,40]):
fl9:=scale(fl,2.5,2.5,[50,40]):
f20:=scale(f3,2.25,2.25,[50,40]):
bp1:=display([fl1,bp,sky],scaling=constrained):
bp2:=display([fl2,bp,sky],scaling=constrained):
bp3:=display([fl3,bp,sky],scaling=constrained):
bp4:=display([fl4,bp,sky],scaling=constrained):
bp5:=display([fl5,bp,sky],scaling=constrained):
bp6:=display([fl6,bp,sky],scaling=constrained):
bp7:=display([fl7,bp,sky],scaling=constrained):
bp8:=display([fl8,bp,sky],scaling=constrained):
bp9:=display([fl9,bp,sky],scaling=constrained):
f4:=disk([50,40], 2, color="Peru"):
f21:=scale(f4,2.25,2.25,[50,40]):
stm5:=rectangle([49.85,35], [50.5,7.5],color="Peru",style=polygon):
l3:=disk([46,20],4, color=brown,style=polygon):
df3:=display([f21,f20,l3,stm5],scaling=constrained):
df4:=display([f21,f20,l3,stm5,ground4],scaling=constrained):
dr1:=rotate(df3,1/2*Pi/3,[50,10]):
dr2:=rotate(df3,1/4*Pi,[50,10]):
dr3:=rotate(df3,4/11*Pi,[50,10]):
c1:=display([dr1,ground4,sky],scaling=constrained):
c2:=display([dr2,ground4,sky],scaling=constrained):
c3:=display([dr3,ground4,sky],scaling=constrained):
seed1 := ellipse([20,20],.5,2,filled=true,color=wheat,style=polygon):
seed2 := ellipse([23,22],.5,2,filled=true,color=wheat,style=polygon):
seed3 := ellipse([17,19],.5,2,filled=true,color=wheat,style=polygon):
seed4 := ellipse([20,15],.5,2,filled=true,color=wheat,style=polygon):
seed5 := ellipse([23,17],.5,2,filled=true,color=wheat,style=polygon):
seed6 := ellipse([17,14],.5,2,filled=true,color=wheat,style=polygon):
seed7 := ellipse([20,10],.5,2,filled=true,color=wheat,style=polygon):
seed8 := ellipse([23,10],.5,2,filled=true,color=wheat,style=polygon):
seed9 := ellipse([17,10],.5,2,filled=true,color=wheat,style=polygon):
c4:=display([seed1,seed2,seed3,c3,sky],scaling=constrained):
c5:=display([seed4,seed5,seed6,c3,sky],scaling=constrained):
c6:=display([seed7,seed8,seed9,c3,sky],scaling=constrained):
display([sg,ground1,ground2,sg1,framel,framele,framelea,bp,bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp9,df4,c1,c2,c3,c4,c5,c6],insequence=true,scaling=constrained,axes=none);
speed 6