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