restart: with(plots): with(plottools): head:=display(disk([6,6], .5, color="Chocolate")): body:=polygon([[5.5,5.5],[6.5,5.5],[6.5,4],[5.5,4]],color=navy): text:=textplot([30,4.5,"Police"], color="Red", font=[Times,12]): shorts:=polygon([[6.5,4],[5.5,4],[5.5,3],[6.5,3]],color=black): leg1:=polygon([[6,3],[6.5,3],[6.75,2],[6.25,2]],color=brown): leg2:=polygon([[6,3],[5.5,3],[5.25,2],[5.75,2]],color=brown): man:=display([head, body,shorts,leg1,leg2],scaling=constrained): carbody:=polygon([[26.5,3], [28, 6], [30, 6],[31,8], [34, 8], [35,6], [36,6], [36,3],[26,3]], filled=true, color=blue): car:=display(carbody,text): wheel1:=disk([28,2.5],.5): wheel2:=disk([35.5,2.5],.5): p1:=display(wheel1,wheel2,car,man): p2:=display(wheel1,wheel2,car,translate(man,2,0)): p3:=display(wheel1,wheel2,car,translate(man,4,0)): p4:=display(wheel1,wheel2,car,translate(man,6,0)): p5:=display(wheel1,wheel2,car,translate(man,8,0)): p6:=display(wheel1,wheel2,car,translate(man,10,0)): p7:=display(wheel1,wheel2,car,translate(man,12,0)): p8:=display(wheel1,wheel2,car,translate(man,14,0)): p9:=display(wheel1,wheel2,car,translate(man,16,0)): p10:=display(wheel1,wheel2,car,translate(man,18,0)): arm:=plot([[24.5,4.75],[26,4.75],[26,5.25],[24.5,5.25],[24.5,4.75]],color="SaddleBrown",filled=true): p11:=display([p10,arm]): text2:=textplot([25,10,"HERES YOUR TICKET POLICE MAN"], font=[Times,14]): p12:=display([translate(man,20,0),translate(arm,2,0),wheel1,wheel2,car]): p13:=display(p12,text2): display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p13,p13,p13,p13,p13,p13],insequence=true,axes=none); #fps=5