restart;with(plots):with(plottools):head:=disk([16.5,8.5],1,thickness=2,color=tan):eye1:=disk([16.2,8.8],.1,thickness=2,color=blue):pupil1:=disk([16.2,8.8],.01,thickness=2,color=black):eye2:=disk([16.8,8.8],.1,thickness=2,color=blue):pupil2:=disk([16.8,8.8],.01,thickness=2,color=black):nosebridge:=plot([[16.5,8.6],[16.5,8.4]],thickness=1,color=black):nosea:=arc([16.5,8.3],.1,Pi/2..3*Pi/2,thickness=1,color=black):nose:=display([nosebridge,nosea]):mouth:=arc([16.5,8.3],.4,9*Pi/8..15*Pi/8,thickness=2,color=red):hair:=arc([16.5,8.5], 1.0, 0..Pi, thickness=10, color=yellow):fullhead:=display([pupil1,eye1,pupil2,eye2,head,nose,mouth,hair]):neck1:=polygon([[16.45,7.6],[16.55,7.6],[16.55,7.5],[16.45,7.5]],color=tan):body1:=polygon([[16.3,7.6],[16.5,7.2],[16.7,7.6]],color=tan):body2:=polygon([[16.3,7.2],[16.7,7.2],[16.7,6],[16.3,6]],color=tan):body3:=display([body1,body2]):suittop:=polygon([[16.3,7.6],[16.5,7.2],[16.7,7.6],[16.7,7.2],[16.3,7.2]],color=red):suitbottom:=polygon([[16.3,6.2],[16.7,6.2],[16.5,6]],color=red):arm1:=plot([[16.3,7.6],[15.7,6.5]],thickness=6,color=tan):arm2:=plot([[16.7,7.6],[17.3,6.5]],thickness=6,color=tan):leg1:=plot([[16.4,6],[16.3,4.8]],thickness=6,color=tan):leg2:=plot([[16.6,6],[16.7,4.8]],thickness=6,color=tan):person1:=display([arm1,arm2,suittop,suitbottom,body3,fullhead,leg1,leg2]):suittop1:=polygon([[16.3,7.6],[16.5,7.2],[16.7,7.6],[16.7,7.2],[16.3,7.2]],color="LightPink"):suitbottom1:=polygon([[16.3,6.2],[16.7,6.2],[16.5,6]],color="LightPink"):person2:=display([arm1,arm2,suittop1,suitbottom1,body3,fullhead,leg1,leg2]):person2:=translate(person2,8,7):wave:=plot([[1,10],[1,11],[2,11],[2,12],[3,12],[3,13],[4,13],[4,14],[5,14],[5,15],[6,15],[6,16],[7,16],[7,17],[8,17]],thickness=2,color=blue):waves:=display(wave,translate(wave,1,-1),translate(wave,2,-2),translate(wave,3,-3),translate(wave,4,-4)):net:=polygon([[18,13],[21,15],[25,9],[22,7]],color=gray):netleg1:=plot([[18,13],[16,12]],thickness=8,color=blue):netleg2:=plot([[22,7],[20,6]],thickness=8,color=blue):net:=display(net,netleg1,netleg2):ball:=disk([0,0],.5,color="Maroon"):ballface:=display(ball):talking:=textplot([14,6,"Why did you do that?",font=[TIMES,Bold,20]]):responding:=textplot([19,16,"Do what?",font=[TIMES,Bold,20]]):p1:=display(waves,net,person1,person2):p2:=display(translate(waves,1,0),translate(ballface,23,14),net,person1,person2):p3:=display(translate(waves,1,0),translate(ballface,22,14),net,person1,person2):p4:=display(waves,translate(ballface,21,13),net,person1,person2):p5:=display(waves,translate(ballface,20,12),net,person1,person2):p6:=display(translate(waves,1,0),translate(ballface,19,11),net,person1,person2):p7:=display(translate(waves,1,0),translate(ballface,18,10),net,person1,person2):p8:=display(waves,translate(ballface,17,7),net,person1,person2):p9:=display(waves,translate(ballface,18,10),net,person1,person2):p10:=display(translate(waves,1,0),translate(ballface,19,11),net,person1,person2):p11:=display(translate(waves,1,0),translate(ballface,20,12),net,person1,person2):p12:=display(waves,translate(ballface,21,13),net,person1,person2):p13:=display(waves,translate(ballface,22,14),net,person1,person2):p14:=display(translate(waves,1,0),translate(ballface,23,14),net,person1,person2):p15:=display(translate(waves,1,0),translate(ballface,22,14),net,person1,person2):p16:=display(waves,translate(ballface,21,13),net,person1,person2):p17:=display(waves,translate(ballface,20,12),net,person1,person2):p18:=display(translate(waves,1,0),translate(ballface,19,11),net,person1,person2):p19:=display(translate(waves,1,0),translate(ballface,18,10),net,translate(person1,-1,1),person2):p20:=display(waves,translate(ballface,19,8),net,translate(person1,-1,2),person2,talking):p21:=display(waves,translate(ballface,19,7),net,translate(person1,-1,2),person2):p22:=display(translate(waves,1,0),translate(ballface,19,11),net,translate(person1,-1,2),person2):p23:=display(translate(waves,1,0),translate(ballface,20,12),net,translate(person1,-1,2),person2,responding):p24:=display(waves,translate(ballface,21,12),net,translate(person1,-1,2),translate(person2,1,-1)):p25:=display(waves,translate(ballface,23,12),net,translate(person1,-1,2),translate(person2,2,-2)):p26:=display(translate(waves,1,0),translate(ballface,26,12),net,translate(person1,-1,2),translate(person2,3,-3)):p27:=display(translate(waves,1,0),translate(ballface,26,13),net,translate(person1,-1,2),translate(person2,3,-3)):p28:=display(waves,translate(ballface,19,17),net,translate(person1,-1,2),translate(person2,3,-3)):p29:=display(waves,translate(ballface,15,15),net,translate(person1,-1,2),translate(person2,3,-3)):p30:=display(translate(waves,1,0),translate(ballface,14,14),net,translate(person1,-1,2),translate(person2,3,-3)):p31:=display(translate(waves,1,0),translate(ballface,13,13),net,translate(person1,-1,2),translate(person2,3,-3)):p32:=display(waves,translate(ballface,12,12),net,translate(person1,-1,2),translate(person2,3,-3)):p33:=display(waves,translate(ballface,12,11),net,translate(person1,-1,2),translate(person2,3,-3)):p34:=display(waves,translate(ballface,9,12),net,translate(person1,-1,2),translate(person2,3,-3)):p35:=display(waves,translate(ballface,6,12),net,translate(person1,-1,2),translate(person2,3,-3)):speed 5display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35], insequence=true, scaling=constrained, axes=none);