restart:with(plottools):with(plots): Dario G.Carnival Ride head:=disk([6,7],2, color=black): hair1:=plot([[[-2,7],[3,7]],[[0,8],[3.5,8]],[[6,9],[2,9]],[[4,8],[8,8]]],thickness=4,color=black): hair2:=plot([[[4,8],[8,8]],[[8.5,8],[13,8]],[[6,9],[10,9]],[[9,7],[14,7]]],thickness=3,color=black): arm1:=plot([[[7,5],[4,8]],[[5,5],[2,8]]],thickness=10,color=blue): swing1:=display(head,arm1,hair1): arm2:=plot([[[7,5],[11,8]],[[5,5],[9,8]]],thickness=10,color=blue): swing2:=display(head,arm2,hair2): body1:=plot([[0,0],[12,0],[10,5],[-2,5],[0,0]],color=red,filled): body2:=plot([[0,0],[12,0],[14,5],[2,5],[0,0]],color=red,filled): spokes:=plot([[[-2,0],[2,0]],[[0,-2],[0,2]],[[2,0],[0,2],[-2,0],[0,2],[2,0]]],thickness=3,color=grey): rim:=circle([0,0],2,thickness=2,color=black): wheel:=display([spokes,rim]): wheel2:=rotate(wheel,-Pi/6): wheel3:=rotate(wheel,-Pi/3): p1:=display({translate(body1,1,2),translate(wheel,4,3),translate(wheel,10,3),translate(swing1,1,2)}): p2:=display({translate(body1,3,2),translate(wheel2,6,3),translate(wheel2,12,3),translate(swing1,3,2)}): p3:=display({translate(body1,5,2),translate(wheel3,8,3),translate(wheel3,14,3),translate(swing1,5,2)}): p4:=display({translate(body1,7,2),translate(wheel,10,3),translate(wheel,10,3),translate(swing1,7,2)}): p5:=display({translate(body1,9,2),translate(wheel2,12,3),translate(wheel2,18,3),translate(swing1,9,2)}): p6:=display({translate(body1,11,2),translate(wheel3,14,3),translate(wheel3,20,3),translate(swing1,11,2)}): p7:=display({translate(body1,13,2),translate(wheel,16,3),translate(wheel,22,3),translate(swing1,13,2)}): p8:=display({translate(body1,15,2),translate(wheel2,18,3),translate(wheel,22,3),translate(swing1,15,2)}): p9:=display({translate(body1,17,2),translate(wheel3,20,3),translate(wheel3,26,3),translate(swing1,17,2)}): p10:=display({translate(body1,19,2),translate(wheel,22,3),translate(wheel2,28,3),translate(swing1,19,2)}): p11:=display({translate(body1,21,2),translate(wheel2,24,3),translate(wheel3,30,3),translate(swing1,21,2)}): p12:=display({translate(body1,23,2),translate(wheel3,26,3),translate(wheel2,32,3),translate(swing1,23,2)}): p13:=display({translate(body2,21,2),translate(wheel,24,3),translate(wheel3,30,3),translate(swing2,21,2)}): p14:=display({translate(body2,19,2),translate(wheel2,22,3),translate(wheel2,28,3),translate(swing2,19,2)}): p15:=display({translate(body2,17,2),translate(wheel3,20,3),translate(wheel3,26,3),translate(swing2,17,2)}): p16:=display({translate(body2,15,2),translate(wheel,18,3),translate(wheel,24,3),translate(swing2,17,2)}): p17:=display({translate(body2,13,2),translate(wheel2,16,3),translate(wheel2,22,3),translate(swing2,13,2)}): p18:=display({translate(body2,11,2),translate(wheel3,14,3),translate(wheel3,20,3),translate(swing2,11,2)}): p19:=display({translate(body2,9,2),translate(wheel,12,3),translate(wheel,18,3),translate(swing2,9,2)}): p20:=display({translate(body2,7,2),translate(wheel2,10,3),translate(wheel2,16,3),translate(swing2,7,2)}): p21:=display({translate(body2,5,2),translate(wheel2,10,3),translate(wheel3,14,3),translate(swing2,5,2)}): p22:=display({translate(body2,3,2),translate(wheel2,6,3),translate(wheel,12,3),translate(swing2,3,2)}): 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); #speed30