restart;with(plots);with(plottools);
head1:=circle([4,13.5],2,color=blue):
body1:=plot([[4,11.5],[4,3]],color=blue):
legs1:=plot([[1,0],[4,3],[6,0]],color=blue):
arm1:=plot([[4,8],[2,10]],color=blue):
arm2:=plot([[4,8],[6.5,6]],color=blue):
man1:=display([head1,body1,legs1,arm1,arm2],color=blue):
man1;
head2:=circle([27,13.5],2,color=green):
body2:=plot([[27,11.5],[27,3]],color=green):
legs2:=plot([[24,0],[27,3],[29,0]],color=green):
arm3:=plot([[27,10],[24,7]],color=green):
arm4:=plot([[27,10],[30,7]],color=green):
man2:=display([head2,body2,arm3,arm4,legs2],color=green):
man2;
ball:=circle([1.5,11],1,color=red):
display([ball],color=red);
p0:=display(man1,man2,ball);
p1:=display(man1,man2,translate(ball,11.5,1));
p1;
p2:=display(man1,man2,translate(ball,21.5,1.5));
p2;
p3:=display(man1,man2,translate(ball,23,1.5));
p3;
display(p0,p1,p2,p3,insequence=true,scaling=constrained);
display(man1,translate(rotate(man2,-Pi/2),30,29));
p4:=display(man1,translate(ball,21,-10),translate(rotate(man2,-Pi/2),30,29));
display(p0,p1,p2,p3,p4,insequence=true,scaling=constrained,axes=none,scaling=constrained); # 3 FPS