restart; with(plots): with(plottools):
stem:=plot([[1,0],[1,2]],color=green,thickness=3):
stem2:=plot([[1,0],[1,4]],color=green,thickness=3):
stem3:=plot([[1,0],[1,6]],color=green,thickness=3):
stem4:=plot([[1,0],[1,8]],color=green,thickness=3):
stem5:=plot([[1,0],[1,10]],color=green,thickness=3):
stemgrow:=display([stem,stem2,stem3,stem4,stem5],insequence=true,scaling=constrained,axes=none):
leaf:=plot([[1,6],[1.2,6.5]],color=green,thickness=5):
leaf2:=plot([[1,6],[1.4,7]],color=green,thickness=5):
leaf3:=plot([[1,6],[1.6,7.5]],color=green,thickness=5):
leaf4:=plot([[1,6],[1.8,8]],color=green,thickness=5):
leaf5:=plot([[1,6],[2,8.5]],color=green,thickness=5):
LS:=display(stem3,leaf):
LS2:=display(stem3,leaf2):
LS3:=display(stem3,leaf3):
LS4:=display(stem3,leaf4):
LS5:=display(stem3,leaf5):
p1:=display(LS,stem4):
p2:=display(LS2,stem5):
flower:=disk([1,11],1,color=violet):
flower2:=disk([1,12],2,color=violet):
flower3:=disk([1,13],3,color=violet):
flower4:=disk([1,14],4,color=violet):
p3:=display(LS3,stem5,flower):
p4:=display(LS4,stem5,flower2):
p5:=display(LS5,stem5,flower3):
petal2:=disk([2.5,10.25],1,color=red):
petal3:=disk([3.75,11.5],1,color=red):
petal4:=disk([4,13.5],1,color=red):
petal5:=disk([3.25,15.25],1,color=red):
petal6:=disk([1.5,16],1,color=red):
petal7:=disk([0,15.75],1,color=red):
petal8:=disk([-1.5,15],1,color=red):
petal9:=disk([-2,13],1,color=red):
petal10:=disk([-1.5,11.25],1,color=red):
petal11:=disk([0,10.25],1,color=red):
p6:=display(p5,petal2):
p7:=display(p5,petal2,petal3):
p8:=display(p5,petal2,petal3,petal4):
p9:=display(p5,petal2,petal3,petal4,petal5):
p10:=display(p5,petal2,petal3,petal4,petal5,petal6):
p11:=display(p5,petal2,petal3,petal4,petal5,petal6,petal7):
p12:=display(p5,petal2,petal3,petal4,petal5,petal6,petal7,petal8):
p13:=display(p5,petal2,petal3,petal4,petal5,petal6,petal7,petal8,petal9):
p14:=display(p5,petal2,petal3,petal4,petal5,petal6,petal7,petal8,petal9,petal10):
p15:=display(p5,petal2,petal3,petal4,petal5,petal6,petal7,petal8,petal9,petal10,petal11):
petalgrow:=display([p6,p7,p8,p9,p10,p11,p12,p13,p14,p15],insequence=true,scaling=constrained,axes=none):
flowergrow:=display([stem,stem2,p1,p2,p3,p4,petalgrow],insequence=true,scaling=constrained,axes=none):
start:=plot([[1,0],[1,.1]],color=green):
flowergrow:=display([start,stem,stem2,p1,p2,p3,p4,petalgrow],insequence=true,scaling=constrained,axes=none):
flowergrow2:=display(flowergrow,translate(flowergrow,4,2)):
flowergrow3:=display(flowergrow,flowergrow2,translate(flowergrow,-4,2)):
plot1:=display(flowergrow3):
plot2:=display([flowergrow,flowergrow2,flowergrow3],insequence=true,scaling=constrained,axes=none):
plot3:=display([start,flowergrow,start,flowergrow2,start,flowergrow3],insequence=true,scaling=constrained,axes=none):
flowers:=display(start,stem,stem2,p1,p2,p3,p4,petalgrow):
flower2:=display(translate(flowers,4,2)):
flower3:=display(translate(flowers,-4,2)):
display([flowergrow3,plot2,plot3],insequence=true,scaling=constrained,axes=none);
# speed = 10