restart: with(plots): with(plottools):
ground:=display(polygon([[0,3],[20,3],[20,0],[0,0],[0,3]],color=green)):
leftleg:=polygon([[3.5,6],[4,6],[4,3],[3.5,3],[3.5,6]],color=blue):
rightleg:=polygon([[4,6],[4.5,6],[4.5,3],[4,3],[4,6]],color=blue):
body:=polygon([[3.5,9],[4.5,9],[4.5,6],[3.5,6],[3.5,9]],color=red):
arm1:=polygon([[2.5,10],[6,10],[6,9],[2.5,9],[2.5,10]],color=red):
arm2:=polygon([[6,10],[6,9],[8,9],[8,10],[6,10]],color=red):
bop:=polygon([[7,12],[8,12],[9,10],[9,9],[8,7],[7,7],[8,9],[8,10],[7,12]],color=grey):
string1:=plot([[7,12],[6,9.5],[7,7]],color=grey):
bow:=display([bop],[string1]):
stick:=polygon([[6,9.66],[10,9.66],[10,9.33],[6,9.33],[6,9.66]],color=brown):
point1:=polygon([[10,10],[11,9.5],[10,9]],color=grey):
arrow1:=display([point1,stick]):
head:=disk([0,0],1,color="Tan"):
person1:=display([leftleg,rightleg,body,arm1,arm2,bow,arrow1,head]):
Head:=translate(head,4,11):
person:=display([leftleg,rightleg,body,arm1,arm2,Head]):
leg1:=polygon([[16.5,3],[16.5,5],[17,5],[17,3],[16.5,3]],color=blue):
leg2:=polygon([[17,5],[17,3],[17.5,3],[17.5,5],[17,5]],color=blue):
legs:=[leg1,leg2]:
body1:=polygon([[16.5,7],[17.5,7],[17.5,5],[16.5,5],[16.5,7]],color=red):
armL:=polygon([[16,7],[16.5,7],[16.5,5],[16,5],[16,7]],color=red):
armR:=translate(armL,1.5,0):
head2:=disk([0,0],1,color="Tan"):
head3:=display(translate(head2,17,8)):
appl:=disk([0,0],.5,color=red):
stem:=plot([[17,10],[17,10.3]],color=brown):
apple:=display(stem,translate(appl,17,9.5)):
person2:=display(legs,body1,armL,armR,head3):
sky:=display(polygon([[0,3],[20,3],[20,20],[0,20],[0,3]],color="LightSeaGreen")):
background:=display(ground,sky):
f1:=display([apple,person2,bow,arrow1,person,background]):
string2:=plot([[7,7],[7,12]],color=grey):
bow2:=display([bop,string2]):
f2:=display([apple,person2,bow2,arrow1,person,background]):
f3:=display(apple,person2,bow2,translate(arrow1,1,0),person,background):
f4:=display((apple,person2,bow2,translate(arrow1,1.5,0),person,background)):
f5:=display((apple,person2,bow2,translate(arrow1,2,0),person,background)):
f6:=display((apple,person2,bow2,translate(arrow1,2.5,0),person,background)):
f7:=display((apple,person2,bow2,translate(arrow1,3,0),person,background)):
f8:=display((apple,person2,bow2,translate(arrow1,3.5,0),person,background)):
f9:=display((apple,person2,bow2,translate(arrow1,4,0),person,background)):
f10:=display((apple,person2,bow2,translate(arrow1,4.5,0),person,background)):
f11:=display((apple,person2,bow2,translate(arrow1,5,0),person,background)):
f12:=display((apple,person2,bow2,translate(arrow1,5.5,0),person,background)):
f13:=display((apple,person2,bow2,translate(arrow1,6,0),person,background)):
f14:=display((apple,person2,bow2,translate(arrow1,6.5,0),person,background)):
f15:=display(apple,person2,bow2,translate(arrow1,7,0),person,background):
f16:=display(apple,person2,bow2,translate(arrow1,7.5,0),person,background):
f17:=display(apple,person2,bow2,translate(arrow1,8,0),person,background):
f18:=display(apple,person2,bow2,translate(arrow1,8.5,0),person,background):
f19:=display(translate(apple,.5,0),person2,bow2,translate(arrow1,9,0),person,background):
f20:=display(translate(apple,1,0),person2,bow2,translate(arrow1,9.5,0),person,background):
f21:=display(translate(apple,1.5,0),person2,bow2,translate(arrow1,10,0),person,background):
f22:=display(translate(apple,2,0),person2,bow2,translate(arrow1,10.5,0),person,background):
f23:=display(translate(apple,2.5,0),person2,bow2,translate(arrow1,11,0),person,background):
f24:=display(translate(apple,3,0),person2,bow2,translate(arrow1,11.5,0),person,background):
f25:=display(translate(apple,3.5,0),person2,bow2,translate(arrow1,12,0),person,background):
f26:=display(translate(apple,4,0),person2,bow2,translate(arrow1,12.5,0),person,background):
f27:=display(translate(apple,4.5,0),person2,bow2,translate(arrow1,13,0),person,background):
f28:=display(translate(apple,5,0),person2,bow2,translate(arrow1,13.5,0),person,background):
f29:=display(translate(apple,5.5,0),person2,bow2,translate(arrow1,14,0),person,background):
f30:=display(translate(apple,6,0),person2,bow2,translate(arrow1,14.5,0),person,background):
base:=display(polygon([[11,4],[11,5],[16,5],[16,4],[11,4]],color="Tan")):
canno:=display(polygon([[12,5],[15,5],[14.5,6],[11.5,8],[11,6],[12,5]],color=black)):
wheel1:=display(disk([0,0],1,color="SaddleBrown")):
wheel2:=display(disk([0,0],1,color="SaddleBrown")):
cannon:=display([translate(wheel1,12,4),translate(wheel2,15,4),base,canno]):
f31:=display([cannon,translate(apple,-14.5,0),translate(arrow1,-6,0),background]):
f32:=display([cannon,translate(apple,-14,0),translate(arrow1,-5.5,0),background]):
f33:=display([cannon,translate(apple,-13.5,0),translate(arrow1,-5,0),background]):
f34:=display([cannon,translate(apple,-13,0),translate(arrow1,-4.5,0),background]):
f35:=display([cannon,translate(apple,-12.5,0),translate(arrow1,-4,0),background]):
f36:=display([cannon,translate(apple,-12,0),translate(arrow1,-3.5,0),background]):
f36:=display([cannon,translate(apple,-11.5,0),translate(arrow1,-3,0),background]):
f37:=display([cannon,translate(apple,-11,-.5),translate(arrow1,-2.5,-.5),background]):
f38:=display([cannon,translate(apple,-10.5,-1),translate(arrow1,-2,-1),background]):
f39:=display([cannon,translate(apple,-10,-1.5),translate(arrow1,-1.5,-1.5),background]):
f40:=display([cannon,translate(apple,-9.5,-2),translate(arrow1,-1,-2),background]):
f41:=display([cannon,translate(apple,-8.5,-2.5),translate(arrow1,0,-2.5),background]):
f42:=display([cannon,translate(apple,-8,-2.5),translate(arrow1,.5,-2.5),background]):
f43:=display([cannon,translate(apple,-7.5,-2.5),translate(arrow1,1,-2.5),background]):
f44:=display([cannon,translate(apple,-7,-2.5),translate(arrow1,1.5,-2.5),background]):
f45:=display([cannon,translate(apple,-6.5,-2.5),translate(arrow1,2,-2.5),background]):
f46:=display([cannon,translate(apple,-6,-3),translate(arrow1,2.5,-3),background]):
f47:=display([cannon,translate(apple,-5.25,-3.5),translate(arrow1,3.25,-3.5),background]):
f48:=display([cannon,background]):
line1:=display(plot([[10.5,6],[7,5]],color=yellow)):
line2:=display(plot([[11,7],[4,9]],color=orange)):
line3:=display(plot([[11.5,8],[3,11]],color=red)):
lines:=display([line1,line2,line3]):
f49:=display([lines,cannon,background]):
pie:=display(disk([0,0],1,color="Tan")):
line4:=display(plot([[0,-1],[0,1]]),color=black):
line5:=display(plot([[-1,0],[1,0]]),color=black):
Pie:=display([pie,line4,line5]):
f49:=display(translate(Pie,10,8),f48):
f50:=display(translate(Pie,9.5,8.5),f48):
f51:=display(translate(Pie,9,9),f48):
words:=textplot([8.5,10.75,"Fresh Baked"],'color'="DarkBlue",'font'=["times","roman",20]):
words2:=textplot([8.5,8.25,"Apple Pie"],'color'="DarkBlue",'font'=["times","roman",20]):
f52:=display(translate(Pie,8.5,9.5),words2,words,f48):
f53:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 2, 2, [8.5,9.5]), background):
f54:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 3, 3, [8.5,9.5]), background):
f55:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 4, 4, [8.5,9.5]), background):
f56:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 5, 5, [8.5,9.5]), background):
f57:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 6, 6, [8.5,9.5]), background):
f58:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 7, 7, [8.5,9.5]), background):
f59:=display(scale(display(translate(Pie,8.5,9.5),words2,words), 8, 8, [8.5,9.5]), background):
display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,f27,f28,f29,f30,f31,f32,f33,f34,f35,f36,f37,f38,f39,f40,f41,f42,f43,f44,f45,f46,f47,f48,f49,f50,f51,f52,f53,f54,f55,f56,f57,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58,f58],insequence=true,axes=none,scaling=constrained,view=[0..20,0..20]);
speed 25