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 5 display([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);