restart; with(plots): with(plottools):
pool:=plot([[3,2], [3,3], [16,3], [16,2], [3,2]],filled=true,color=blue):
slide1:=polygon([[9,5],[7,5],[4,2],[3,2],[3,2],[3,3],[3,4],[4,4],[6,6],[8,8],[9,5]],color="LimeGreen",thickness=0):
slide2:=polygon([[7,5],[9,5],[9,2],[7,2]],color="LimeGreen",thickness=0):
slide:=edisplay(slide1,slide2):
divingboard:=plot([[1,1],[1,3],[6,3],[7,1],[1,1]],filled=true, color="HotPink"):
head:=disk([15,15],1.5,color="PeachPuff"):
body:=rectangle([15.2,13.5],[14.8,8],color="PeachPuff"):
arms:=rectangle([14,11.5],[16,12],color="PeachPuff"):
legs:=polygon([[13.8,6],[14.8,8], [15.2,8], [16.2,6], [15.8,6], [15,8], [14.2,6]],color="PeachPuff"):
person:=display(body,head,arms,legs):
f1:=display([person,translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f2:=display([translate(person,-1,-1),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool], scaling=constrained):
f3:=display([translate(person,-2,-2),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f4:=display([translate(person,-3,-3),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f5:=display([translate(person,-4,-4),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f6:=display([translate(person,-5,-5),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f7:=display([translate(person,-6,-6),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f8:=display([translate(person,-7,-7),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f9:=display([translate(person,-8,-8),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f10:=display([translate(person,-9,-9),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f11:=display([translate(person,-10,-10),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f12:=display([translate(person,-10,-20),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f13:=display([translate(person,-10,-6),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f14:=display([translate(rotate(person,Pi),23,21),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f15:=display([translate(rotate(person,Pi),23,19),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f16:=display([translate(rotate(person,Pi),23,17),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
f17:=display([translate(person,-7,-13),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool]):
text:=textplot([10,8,"Dive into see-math 2008"]):
f18:=display([translate(person,-7,-13),translate(slide1,7,0),translate(slide2,7,0),divingboard,pool,text]):
display([f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18],insequence=true,axes=none,scaling=constrained);
#speed 5