restart:with(plots):with(plottools): robert_n The Talented Man intropart1 := textplot([3.1, 5, "Hello!"], 'font' = ["times", "roman", 20]): intropart2 := textplot([3.1, 5, "I would like to introduce my movie:"], 'font' = ["times", "roman", 20]): intropart3 := textplot([3.1, 5, "THE TALENTED MAN!"], 'font' = ["times", "roman", 30], 'color' = "Blue"): pianotext := textplot([3.1, 5, "Piano talent:"], 'font' = ["times", "roman", 20]): starting := display([intropart1, intropart1, intropart2, intropart2, intropart3, intropart3, pianotext], insequence = true): head := display(circle([2.5,5], 0.2, color = coral, thickness = 5)): sclera := display(circle([2.6,4.95], 0.03, color = black, thickness = 1)): blink := display(plot([[2.575,4.969],[2.615,4.927]], color = black, thickness = 1)): iris := display(disk([2.601,4.945], 0.002, color = black, thickness = 2)): soccersclera := display(circle([2.609,5.01], 0.03, color = black, thickness = 1)): socceriris := display(disk([2.615,5.01], 0.002, color = black, thickness = 2)): soccerblink := display(plot([[2.573,5.004], [2.627, 5.01]], color = black, thickness = 1)): body := display(plot( [ [2.5,4.8], [2.5,4] ], color = green, thickness = 5)): thigh := display(plot( [ [2.5,4], [3,4] ], color = green, thickness = 5)): pianoground := display(polygon( [[2,3.4], [2,3.599], [4.1,3.599], [4.1,3.4]], color = brown)): soccerground := display(polygon( [[2,3.3], [2,3.399], [4.1,3.399], [4,3.3]], color = green)): leg2 := display(plot( [ [3,4], [2.9,3.6] ], color = green, thickness = 5)): leg1 := display(plot( [ [3,4], [3.05,3.65] ], color = green, thickness = 5)): chairpart1 := display(plot( [ [2.3,3.6], [2.3,3.99], [2.75,3.99], [2.75,3.6] ], color = black, thickness = 5)): chairpart2 := display(plot( [ [2.3,3.8], [2.75,3.8] ], color = gray, thickness = 5)): pianopart1 := display(plot( [ [3.1,3.6], [3.1,4.2], [3.3,4.2], [3.3,4.3], [4,4.3], [4,3.6] ], color = black, thickness = 6)): pianopart2 := display(plot( [ [3.1,4], [4,4] ], color=black, thickness=6)): pianopart3 := display(plot( [ [3.1,3.65], [3.025,3.65] ], color = yellow, thickness = 14)): pianopart4 := display(plot( [ [4,4.3], [3.1,5.1] ], color = black, thickness = 10)): pianoanimation1 := display(plot( [ [3.1,3.625], [3.025,3.625] ], color = yellow, thickness = 14)): leganimation1 := display(plot( [ [3,4], [3.61,3.45] ], color = green, thickness = 5)): pianopart5 := display(plot( [ [3.3,4.3], [3.69,4.6] ], color = black, thickness = 10)): arm1 := display(plot( [ [2.5,4.5], [3.1,4.4] ], color = green, thickness = 5)): arm2 := display(plot( [ [2.5,4.5], [3.1,4.35] ], color = green, thickness = 5)): arm3 := display(plot( [ [2.5,4.5], [3.1,4.30] ], color = green, thickness = 5)): arm4 := display(plot( [ [2.5,4.5], [3.1,4.25] ], color = green, thickness = 5)): pianokeys := display(plot( [ [3.1,4.2], [3.1,4.25], [3.3,4.25] ], color = black, thickness = 4)): pianoframe1 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe2 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe3 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe4 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe5 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe6 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe7 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe8 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe9 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe10 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe11 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe12 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe13 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe14 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe15 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe16 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe17 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe18 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe19 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe20 := display([head, body, arm3, arm4, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianoanimation1, pianopart4, pianopart5, pianokeys, pianoground, blink]): pianoframe21 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, sclera,iris]): pianoframe21 := display([head, body, arm1, arm2, thigh, leg1, leg2, chairpart1, chairpart2, pianopart1, pianopart2, pianopart3, pianopart4, pianopart5, pianokeys, pianoground, blink]): runpiano := display([pianoframe1, pianoframe2, pianoframe3, pianoframe4, pianoframe5, pianoframe6, pianoframe7, pianoframe8, pianoframe9, pianoframe10, pianoframe11, pianoframe12, pianoframe13, pianoframe14, pianoframe15, pianoframe16, pianoframe17, pianoframe18, pianoframe19, pianoframe20, pianoframe21], insequence = true): pianomovie := display([starting, runpiano], insequence = true): displaysoccertext := textplot([3.1, 5, "Soccer Talent:"], 'font' = ["times", "roman", 20]): soccerlegs1 := plot([ [2.5,4], [2.4,3.4]], color = green, thickness = 5): soccerlegs2 := plot([ [2.5,4], [2.6,3.4]], color = green, thickness = 5): soccerarm1 := plot([ [2.5,4.5], [2.3,4.2]], color = green, thickness = 5): soccerarm2 := plot([ [2.5,4.5], [2.7,4.2]], color = green, thickness = 5): soccerball := circle([2.8,3.55], 0.15, color = black): soccerlegs2frame2 := plot([ [2.5,4], [2.67,3.45]], color = green, thickness = 5): soccerframe1 := display([head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerball, soccerground, soccersclera, socceriris]): soccerframe2 := display([head, body, soccerlegs1, soccerlegs2frame2, soccerarm1, soccerarm2, soccerball, soccerground, soccerblink]): soccerballmovingframe1 := display(translate(soccerball,0.2,0.15)): soccerframe3 := display(head, body, soccerarm1, soccerarm2, soccerlegs1, soccerlegs2, soccerballmovingframe1, soccerground, soccersclera, socceriris): soccerballforframe4 := display(translate(soccerball, -0.35, 0.05)): soccerframe4 := display(soccerballforframe4): soccerballforframe5 := display(translate(soccerball, -0.15, 0.15)): soccerframe5 := display(soccerballforframe5): soccerballforframe6 := display(translate(soccerball, 0, 0.35)): soccerframe6 := display(soccerballforframe6): soccerballforframe7 := display(translate(soccerball, 0.5, 0.15)): soccerframe7 := display(soccerballforframe7): soccerballforframe8 := display(translate(soccerball, -0.3, 1.8111)): soccerframe8 := display([soccerballforframe8, head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerground, soccerblink]): soccerballforframe9 := display(translate(soccerball, 0.3, 0.95)): soccerframe9 := display([soccerballforframe9, head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerground, soccersclera, socceriris]): soccerballforframe10 := display(translate(soccerball, 0.6, 0)): soccerframe10 := display([soccerballforframe10, head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerground, soccerblink]): soccermovie := display([soccerframe1, soccerframe2, soccerframe3, soccerframe4, soccerframe5, soccerframe6, soccerframe7, soccerframe8, soccerframe9, soccerframe10], insequence = true): soccerheadbumpforbumpframe1 := arc(([2.5,5.17],0.1, 0..Pi), thickness = 5, color = red): soccerheadbumpframe1 := display(head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerground, soccerheadbumpforbumpframe1, soccersclera, socceriris, soccerballforframe10): soccerheadbumpforbumpframe2 := arc(([2.5,5.169],0.12, 0..Pi), thickness = 5, color = red): soccerheadbumpframe2 := display(soccerframe10, soccerheadbumpforbumpframe2): soccerheadbumpforbumpframe3 := arc(([2.5,5.154],0.14, 0..Pi), thickness = 5, color = red): soccerheadbumpframe3 := display(head, body, soccerlegs1, soccerlegs2, soccerarm1, soccerarm2, soccerground, soccerheadbumpforbumpframe3, soccersclera, socceriris, soccerballforframe10): soccerbumps := display([soccerheadbumpframe1, soccerheadbumpframe2, soccerheadbumpframe3], insequence = true): endingtextpart1 := textplot([3.1, 5.3, "Ouch!"], 'font' = ["times", "roman", 20]): endingtextpart2 := textplot([3.1, 5, "Not so talented after all..."], 'font' = ["times", "roman", 20]): endingtextpart3 := textplot([3.1, 4.5, "The End"], 'font' = ["times", "roman", 20]): endingtext := display([endingtextpart1, endingtextpart2, endingtextpart3], insequence = true): run_robert_n := display([pianomovie, displaysoccertext, displaysoccertext, soccermovie, soccerbumps, endingtext], insequence = true, scaling = constrained, title = "The Talented Man", axes = none); # Speed 2