restart:with(plots):with(plottools): tire:=circle([2,2], 2, thickness=8, color=black): display(tire): spokes:=plot ( [[[2,0], [2,4]], [[0,2],[4,2]]], thickness=2, color=grey): wheel:=display(spokes,tire): p1:=display({ translate(wheel,4,3), translate(wheel,15,3)}): bottom:=plot ( [[[8,6], [14,6]], [[14,8],[8,19]]], thickness=2, color=grey): p1:=display({translate(wheel,4,3), translate(wheel,10,3)}): p2:=display({translate(wheel,6,3), translate(wheel,12,3)}): p3:=display({translate(wheel,8,3), translate(wheel,14,3)}): p4:=display({translate(wheel,10,3), translate(wheel,16,3)}): p5:=display({translate(wheel,12,3), translate(wheel,18,3)}): p6:=display({translate(wheel,14,3), translate(wheel,20,3)}): p7:=display({translate(wheel,16,3), translate(wheel,22,3)}): p8:=display({translate(wheel,18,3), translate(wheel,24,3)}): p9:=display({translate(wheel,20,3), translate(wheel,26,3)}): p10:=display({translate(wheel,22,3), translate(wheel,28,3)}): p11:=display({translate(wheel,24,3), translate(wheel,30,3)}): p12:=display({translate(wheel,26,3), translate(wheel,32,3)}): trapezoid:=plot ( [[[7.5,10], [10,7]]], thickness=2, color=red) : square:=plot( [[[0,1],[1,1], [20,1], [20,1]]], thickness=1, color=blue) : light:=polygon([[4,3.5],[5,3], [4,3],[4,3.5]],color=red): light:=translate(light,22,1): body:=polygon( [[4,4], [6,4], [7,5], [14,5], [15,4],[17,3],[16,3], [16,2.7], [17,2.7],[17,3], [17,2],[15,2], [14,2], [14,3], [12,3], [12,2], [9,2], [9,3], [7,3], [7,2], [6,2],[4,2],[4,3],[5,3],[4,3.5]], thickness=2, color=grey): greend:=disk([11,8],1,color="green"): greenc:=circle([11,8],1,color="green"): yellowd:=disk([13,8],1,color="yellow"): yellowc:=circle([13,8],1,color="yellow"): redd:=disk([15,8],1,color="red"): redc:=circle([15,8],1,color="red"): trafficlight:=plot([[10,1],[10,9]],thickness=2, color=yellow): trafficlight2 :=plot([[10,9], [16,9]], thickness=2,color=yellow): noneon:=display([greenc,yellowc,redc,trafficlight2]): greenon:=display([greend,yellowc,redc,trafficlight2]): yellowon:=display([greenc,yellowd,redc,trafficlight2]): redon:=display([greenc,yellowc,redd,trafficlight2]): car1:=display([body,translate(scale(wheel,1/3,1/3),7.5,1.5),translate(scale(wheel,1/3,1/3),12.5,1.5)],thickness=9, scaling=constrained): car2:=display([body,translate(rotate(scale(wheel,1/3,1/3),Pi/4),8,1.25),translate(rotate(scale(wheel,1/3,1/3),Pi/4),13,1.25)],thickness=9, scaling=constrained): p1:=display(translate(car2,1,1),greenon): p2:=display(translate(car1,2,1),greenon): p3:=display(translate(car2,3,1),greenon): p4:=display(translate(car1,4,1),greenon): p5:=display(translate(car2,5,1),greenon): p6:=display(translate(car1,6,1),greenon): p7:=display(translate(car2,7,1),greenon): p8:=display(translate(car1,8,1),yellowon): p9:=display(translate(car2,9,1),yellowon): p10:=display(translate(car1,10,1),yellowon): p11:=display(translate(car2,11,1),yellowon): p12:=display(translate(car1,12,1),yellowon): p13:=display(translate(car2,13,1),yellowon): p14:=display(translate(car1,14,1),yellowon): p15:=display(translate(car2,15,1),redon): p16:=display(translate(car1,16,1),redon): p17:=display(translate(car2,17,1),redon): p18:=display(translate(car1,18,1),redon): p19:=display(translate(car2,19,1),redon): p20:=display(translate(car1,20,1),redon): p21:=display(translate(car2,21,1),redon): p22:=display(translate(car1,22,1),redon): 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],insequence=true, scaling=constrained, axes=none);