restart;with(plots):with(plottools):
trunk:=polygon([[17,0],[21,0],[21,19],[17,19]], color=brown):
leafs:=polygon([[17,19],[17,16],[14,16],[14,17],[11,17],[11,19],[8,19],[8,21],[6,21],[6,27],[8,27],[8,29],[10,29],[10,31],[13,31],[13,32],[24,32],[25,31],[25,17],[24,16],[21,16],[21,19]], color=green):
branch:=polygon([[17,18],[17,19],[9,21]], color=brown):
branch2:=polygon([[17,19],[18,19],[11,28]],color=brown):
branch3:=polygon([[19,19],[20,19],[19.5,30]], color=brown):
branch4:=polygon([[21,18],[21,19],[24.5,21.5]],color=brown):
stemofleaf:=plot([[8,19],[8,18]], color=black):
leaf:=polygon([[7.5,18],[8,16.5],[8.5,18]],color=green):
ellie:=sector([8,18],.5,0..Pi, color=green):
avery2:=display(ellie, stemofleaf, leaf,trunk, branch, branch2, branch3, branch4, leafs):
avery:=display([trunk, branch,branch2,branch3,branch4,stemofleaf,ellie, leaf, leafs]):
ellie4:=translate(ellie,0,-4):
stemofleaf4:=translate(stemofleaf,0,-4):
avery3 := display([trunk, branch, branch2, branch3, branch4, stemofleaf4, ellie4, translate(leaf, 0, -4), leafs]):
ellie5:=translate(ellie,0,-5):
stemofleaf5:=translate(stemofleaf,0,-5):
avery5 := display([trunk, branch, branch2, branch3, branch4, stemofleaf5, ellie5, translate(leaf, 0, -5), leafs]):
ellie6:=translate(ellie,0,-6):
stemofleaf6:=translate(stemofleaf,0,-6):
avery6 := display([trunk, branch, branch2, branch3, branch4, stemofleaf6, ellie6, translate(leaf, 0, -6), leafs]):
ellie7:=translate(ellie,0,-7):
stemofleaf7:=translate(stemofleaf,0,-7):
avery7 := display([trunk, branch, branch2, branch3, branch4, stemofleaf7, ellie7, translate(leaf, 0, -7), leafs]):
ellie8:=translate(ellie,0,-8):
stemofleaf8:=translate(stemofleaf,0,-8):
avery8 := display([trunk, branch, branch2, branch3, branch4, stemofleaf8, ellie8, translate(leaf, 0, -8), leafs]):
ellie9:=translate(ellie,0,-9):
stemofleaf9:=translate(stemofleaf,0,-9):
avery9 := display([trunk, branch, branch2, branch3, branch4, stemofleaf9, ellie9, translate(leaf, 0, -9), leafs]):
ellie10:=translate(ellie,0,-11):
stemofleaf10:=translate(stemofleaf,0,-11):
avery10 := display([trunk, branch, branch2, branch3, branch4, stemofleaf10, ellie10, translate(leaf, 0, -11), leafs]):
ellie11:=translate(ellie,0,-13):
stemofleaf11:=translate(stemofleaf,0,-13):
avery11 := display([trunk, branch, branch2, branch3, branch4, stemofleaf11, ellie11, translate(leaf, 0, -13), leafs]):
ellie12:=translate(ellie,0,-15):
stemofleaf12:=translate(stemofleaf,0,-15):
avery12 := display([trunk, branch, branch2, branch3, branch4, stemofleaf12, ellie12, translate(leaf, 0, -15), leafs]):
ellie13:=translate(ellie,0,-16.5):
stemofleaf13:=translate(stemofleaf,0,-16.5):
avery13 := display([trunk, branch, branch2, branch3, branch4, stemofleaf13, ellie13, translate(leaf, 0, -16.5), leafs]):
display([avery, avery2, avery3, avery5, avery6, avery7, avery8, avery9, avery10, avery11, avery12, avery13], insequence=true, scaling=constrained, axes=none);
speed 7