restart; with(plots): with(plottools); The following maple code includes the different pieces to my animation and the frames for it to run. The animation is run at the very bottom of this code. I began my project by drawing the different pieces of the animation. First I created the head of my runner. head:= circle([0,0],1,thickness=2,color=black): display(head); Next I drew the legs for the runner when he is standing still and in between strides legs:=plot([[-1,-3],[0,0],[1,-3]],thickness=2,color=black); legs; After drawing the initial legs, I created the basic body of my runner. body:=plot([[0,0],[0,4]],thickness=2,color=black); body; The following maple code includes the arms for the stationary runner and in between strides arms:=plot([[[0,0],[1,1.5]],[[0,0.4],[1,1.9]]],thickness=2,color=black); arms; Below is the text for the start of the race. text:=textplot([0,0,"READY,SET,...GO!"],color=green); text; The runner has to have a surface to run on; therefore I created a street with yellow dashes similar to the street I ran my marathon on. street:=plot([[[-10,2],[18,2]],[[-10,-3],[18,-3]]],thickness=1,color=black); yellowDashes:=plot([[[-10,-0.5],[-6,-0.5]],[[-4,-0.5],[0,-0.5]],[[2,-0.5],[6,-0.5]],[[8,-0.5],[12,-0.5]],[[14,-0.5],[18,-0.5]]],thickness=1,color=yellow,axes=none); yellowDashes; No race can be complete without a finish line. I made a blue finish line for the runner to run towards and cross during the animation. finishLine:=plot([[0,-3.5],[0,2.5]],thickness=10,color=blue,axes=none); finishLine; This is the first frame of my movie. The runner is standing still as the race begins, and the finish line is a ways away. p1:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,1.5),translate(text,5,9),translate(finishLine,17.4,0)}): The guy cant be running without moving his arms. I created running arms to put in every other frame to resemble the movement of someone's arms. armsRunning:=plot([[[0,0],[1,0],[1,1]],[[0,0],[-1,0],[-1,-1]]],thickness=2,color=black); armsRunning; In addition to the running arms, I created running legs for every other frame. The movement of the arms and the legs is critical to this animation. legsRunning1:=plot([[-2,-1],[-2,0],[2,0],[2,1]],thickness=2,color=black); legsRunning1; Throughout the marathon I ran, people constantly encouraged me. I provided encouragement for the frames of my animation while the runner is running. encouragment:=textplot([0,0,"KEEP IT UP!!"],color=green); encouragment; This is the second frame of my animation showing the man in motion while running. p2:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragment,5,9),translate(finishLine,15.4,0)}): One type of encouragement would be too boring, so I added another below. encouragment2:=textplot([0,0,"ALMOST THERE!!"],color=green); encouragement3:=textplot([0,0,"YOU CAN DO IT!!"],color=green); encouragement4:=textplot([0,0,"RUN FASTER!!"],color=green); encouragement5:=textplot([0,0,"YOU ONLY HAVE A COUPLE MILES LEFT!!"],color=green); encouragement6:=textplot([0,0,"YOU ARE DOING GREAT!!"],color=green); The following frames (frames 3-18) show the race for the runner. He receives several different types of encouragement and the finish line approaches him through each frame. The last couple frames show the finish and his celebration through the up and down movement of his arms. p3:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,1.5),translate(encouragment,5,9),translate(finishLine,14.4,0)}): p4:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragment,5,9),translate(finishLine,13.4,0)}): p5:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,2.5),translate(encouragement3,5,9),translate(finishLine,12.4,0)}): p6:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragement3,5,9),translate(finishLine,11.4,0)}): p7:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,2.5),translate(encouragement4,10,9),translate(finishLine,10.4,0)}): p8:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragement5,5,9),translate(finishLine,9.4,0)}): p9:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,2.5),translate(encouragement6,5,9),translate(finishLine,8.4,0)}): p10:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragement6,5,9),translate(finishLine,5.4,0)}): p11:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,2.5),translate(encouragment2,5,9),translate(finishLine,2.4,0)}): p12:=display(body,street,yellowDashes,legsRunning1,{translate(head,0,5),translate(armsRunning,0,2.5),translate(encouragment2,5,9),translate(finishLine,1.4,0)}): This is the statement used for after the runner crosses the finish line final:=textplot([0,0,"YOU FINISHED!! CONGRATS!!"],color=green); p13:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(arms,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): The next two lines of code represent the up and down movements of the runner's arms while celebrating his accomplishment armsCelebrating:=plot([[[0,0],[1,1.5]],[[0,0],[-1,1.5]]],thickness=2,color=black); armsDown:=plot([[[0,0],[1,-1.5]],[[0,0],[-1,-1.5]]],thickness=2,color=black); p14:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(armsCelebrating,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): p15:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(armsDown,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): p16:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(armsCelebrating,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): p17:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(armsDown,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): p18:=display(body,street,yellowDashes,legs,{translate(head,0,5),translate(armsCelebrating,0,2.5),translate(final,5,9),translate(finishLine,-1.4,0)}): This last step is the actual animation of the runner. display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18],insequence=true,scaling=constrained,view=[-40..80,-15..15],axes=none);