with(plots):with(plottools):
treetrunk:=plot([[0,0],[2,0],[2,12],[0,12],[0,0]],color=brown,filled=true):
leaves:=polygon([[-3,8],[5,8],[1,14]],color=green):
tree:=display([leaves,treetrunk]):
apple:=disk([0,0],.5, color=red):
stickman:=plot([ [-1,0] , [0,2] , [1,0], [0,2], [0,4] , [-2,4] , [0,4] , [2,6] , [0,4] , [0,5]], thickness=10,color=brown):JSFH
head:=circle([0,6], 1, color=black):
man1:=display(stickman, head):
p1:=display(translate(man1,10,0),translate(apple,3,8),tree):
p2:=display(translate(man1,9,0),translate(apple,3,8),tree):
p3:=display(translate(man1,8,0),translate(apple,3,8),tree):
p4:=display(translate(man1,7,0),translate(apple,3,8),tree):
p5:=display(translate(man1,7,0),translate(apple,3,8),tree):
p6:=display(translate(man1,6,0),translate(apple,3,8),tree):
p7:=display(translate(man1,5,0),translate(apple,3,8),tree):
p8:=display(translate(man1,4,0),translate(apple,3,8),tree):
p9:=display(translate(man1,3,0),translate(apple,3,8),tree):
p10:=display(translate(man1,2,0),translate(apple,3,8),tree):
p11:=display(translate(man1,1,0),translate(apple,3,8),tree):
p12:=display(translate(man1,1,0),translate(apple,3,6),tree):
p13:=display(translate(man1,2,0),translate(apple,4,6),tree):
p14:=display(translate(man1,3,0),translate(apple,5,6),tree):
p15:=display(translate(man1,4,0),translate(apple,6,6),tree):
p16:=display(translate(man1,5,0),translate(apple,7,6),tree):
p17:=display(translate(man1,6,0),translate(apple,8,6),tree):
p18:=display(translate(man1,7,0),translate(apple,9,6),tree):
p19:=display(translate(man1,8,0),translate(apple,10,6),tree):
p20:=display(translate(man1,9,0),translate(apple,11,6),tree):
p21:=display(translate(man1,10,0),translate(apple,12,6),tree):
speed 8
display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21], insequence=true, scaling=constrained, axes=none);