restart:with(plots):with(plottools): Emily Y.Lost A Wheel carbody:=plot([[[0,0],[12,0],[12,3],[0,3],[0,0]],[[3,3],[4,5],[8,5],[9,3]]], color=black): iner:=plot([[0,0],[1.5,0],[0,0],[1,-1],[0,0],[0,-1.5],[0,0],[-1,-1],[0,0],[-1.5,0],[0,0],[-1,1],[0,0],[0,1.5],[0,0],[1,1],[0,0]], thickness=5, color=grey): rim:=circle([0,0],1.5,thickness=10,color=black): wheel:=display([iner,rim]): r1:=rotate(wheel,-Pi/6): r2:=rotate(wheel,-Pi/3): head:=circle([0,0],1,thickness=3,color=black): body:=plot([[0,-1],[0,-7]],thickness=5,color=black): arms:=plot([[[-2,-4],[0,-3],[2,-4]]],thickness=3,color=black): legs1:=plot([[-1,-10],[0,-7],[.5,-9],[.5,-10]], thickness=3,color=black): legs2:=plot([[-.75,-10],[-.25,-9],[0,-7],[1,-10]], thickness=3,color=black): person1:=display([head,body,arms,legs1]): person2:=display([head,body,arms,legs2]): p1:=display({translate(carbody,1,2),translate(reflect(person1,[[0,0],[0,8]]),30,8),translate(wheel,4,2),translate(wheel,10,2)}): p2:=display({translate(carbody,3,2),translate(reflect(person2,[[0,0],[0,8]]),28,8),translate(r1,6,2),translate(r1,12,2)}): p3:=display({translate(carbody,5,2),translate(reflect(person1,[[0,0],[0,8]]),26,8),translate(r2,8,2),translate(r2,14,2)}): p4:=display({translate(carbody,7,2),translate(reflect(person2,[[0,0],[0,8]]),24,8),translate(r1,6,2),translate(wheel,10,2),translate(wheel,16,2)}): p5:=display({translate(carbody,9,2),translate(reflect(person1,[[0,0],[0,8]]),22,8),translate(r1,6,2),translate(r2,12,2),translate(r2,18,2)}): p6:=display({translate(carbody,11,2),translate(reflect(person2,[[0,0],[0,8]]),20,8),translate(r1,6,2),translate(r2,14,2),translate(r2,20,2)}): p7:=display({translate(carbody,13,2),translate(reflect(person1,[[0,0],[0,8]]),18,8),translate(r1,6,2),translate(wheel,16,2),translate(wheel,22,2)}): p8:=display({translate(carbody,15,2),translate(reflect(person2,[[0,0],[0,8]]),16,8),translate(r1,6,2),translate(r1,18,2),translate(r1,24,2)}): p9:=display({translate(carbody,17,2),translate(reflect(person1,[[0,0],[0,8]]),14,8),translate(r1,6,2),translate(r2,20,2),translate(r2,26,2)}): p10:=display({translate(carbody,19,2),translate(reflect(person2,[[0,0],[0,8]]),12,8),translate(r1,6,2),translate(wheel,22,2),translate(wheel,28,2)}): p11:=display({translate(carbody,21,2),translate(reflect(person1,[[0,0],[0,8]]),10,8),translate(r1,6,2),translate(r1,24,2),translate(r1,30,2)}): p12:=display({translate(carbody,23,2),translate(reflect(person2,[[0,0],[0,8]]),8,8),translate(r1,6,2),translate(r2,26,2),translate(r2,32,2)}): t1:=textplot([1,6,"Owwwwwww"],'align'={'above','right'}, font=[Times,16]): caranimation1:=display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,t1,t1,p12],insequence=true,scaling=constrained,axes=none,view=[-5..36,-5..9]); #speed=5