restart: with(plots): with(plottools):
beach:=polygon([[0,0],[0,5],[30,5],[30,0]], color=tan):
display(beach,scaling=constrained):
sky:=polygon([[0,5],[0,15],[30,15],[30,5]], color=cyan):
joe1:=plot([[14,0],[14,9],[16,12]], thickness=5, color=gray):
joe2:=plot([[16,5],[16,12]], thickness=5, color=gray):
joe3:=plot([[14,7],[16,10]], thickness=5, color=gray):
joe:=(joe1,joe2,joe3):
head1:=disk([6,8],.8, color="Beige"):
body:=plot([[5.5,7],[4.5,4],[5.5,2]],thickness=5):
leg1:=plot([[4.5,4],[3.5,2]],thickness=5):
arm1:=plot([[5.4,7],[6.5,6],[8,6.5]],thickness=5):
guy:=display(arm1,head1,leg1,body):
head2:=disk([27,9],.8, color="Beige"):
body2:=plot([[27,8],[27,5],[28,2]],thickness=5):
leg2:=plot([[27,5],[26,2]],thickness=5):
display(guy,joe, sky,beach,scaling=constrained):
arm3:=plot([[26,6],[27,8],[28,6]],thickness=5):
sherman:=display(leg2,head2,body2,arm3):
q1:=display(sherman,guy,joe, sky,beach,scaling=constrained):
ball:=disk([0,0],.5, color="white"):
q2:=display([translate(ball,1,1),sherman,guy,joe, sky,beach],scaling=constrained):
q3:=display([translate(ball,3,1),sherman,guy,joe, sky,beach],scaling=constrained):
q4:=display([translate(ball,5,1),sherman,guy,joe, sky,beach],scaling=constrained):
q5:=display([translate(ball,7,1),sherman,guy,joe, sky,beach],scaling=constrained):
q6:=display([translate(ball,7,3),sherman,guy,joe, sky,beach],scaling=constrained):
q7:=display([translate(ball,8,5),sherman,guy,joe, sky,beach],scaling=constrained):
q8:=display([translate(ball,8,6.5),sherman,guy,joe, sky,beach],scaling=constrained):
q9:=display([translate(ball,8,7.5),sherman,guy,joe, sky,beach],scaling=constrained):
q10:=display([translate(ball,8,7),sherman,guy,joe, sky,beach],scaling=constrained):
q11:=display([translate(ball,9,10),sherman,guy,joe, sky,beach],scaling=constrained):
q12:=display([translate(ball,11,13),sherman,guy,joe, sky,beach],scaling=constrained):
q13:=display([translate(ball,15,14),translate(sherman,-2,0),guy,joe, sky,beach],scaling=constrained):
body3:=plot([[27,8],[27.5,5],[29,3]],thickness=5):
arms3:=plot([[27.15,7.2],[26.5,6],[25,6.5]],thickness=5):
sherman2:=display(head2,body3,arms3):
q14:=display([translate(ball,25,6.5),sherman2,guy,joe, sky,beach],scaling=constrained):
display([q1,q2,q3,q4,q5,q6,q7,q8,q8,q8,q8,q9,q10,q11,q12,q13,q14],insequence=true, axes=none);
(*speed 5, forward and backward*)