restart:with (plots):with(plottools): head:=disk ([0,10], 1.5, color="Beige"): neck:=polygon ([ [-0.5,8.5], [0.5,8.5], [0.5,7], [-0.5,7] ], color="Beige"): shirt:=polygon ([[-1,7],[1,7],[1,4],[-1,4]], color="Blue"): LONDON1:=textplot([[1,3,"LONDON 2012", 'font'=["Courier",20],'color'="Blue"]]): LONDON2:=textplot([[1,0,"THE XXX OLYMPIAD", 'font'=["Courier",20],'color'="Blue"]]): LONDON:=(LONDON1,LONDON2): PRODIVING1:=textplot([[1,0,"Olymic Diving", 'font'=["Courier",20],'color'="Red"]]): PRODIVING2:=textplot([[1,0,"David Boudia", 'font'=["Courier",20],'color'="Red"]]): PRODIVING3:=textplot([[1,0,"IS GOING FOR GOLD!!!!", 'font'=["Courier",20],'color'="Gold"]]): Credits1:=textplot([[1,0,"Coded by, Carson B.", 'font'=["Courier",15],'color'="Black"]]): Credits2:=textplot([[1,0,"Thanks to..", 'font'=["Courier",20],'color'="Black"]]): Credits3:=textplot([[1,0,"Maple Software,", 'font'=["Courier",20],'color'="Black"]]): Credits4:=textplot([[1,0,"Camp-Counselors,", 'font'=["Courier",17],'color'="Black"]]): Credits5:=textplot([[1,0,"THE END.", 'font'=["Courier",20],'color'="Black"]]): Credits6:=textplot([[1,0,"See You in Rio.", 'font'=["Courier",15],'color'="Black"]]): eye:=circle ([-0.5,10.5], .1, color="Black"): eye2:=circle ([0.5,10.5], .1, color="Black"): smile:=arc([0,9.5],.5, Pi..2*Pi): rightarm:=polygon([[1,6],[1,5],[1.5,5],[1.5,6]]): leftarm:=polygon ([[-1,6], [-1.5,6],[-1.5,5], [-1,5]]): pants:=polygon ([[-1,4],[1,4],[1,-1],[-1,-1]], color="Red"): shortline:=line([0,0],[0,2.5],color=black,linestyle=dash): board:=polygon([[-4,-1],[2,-1],[2,-3],[-4,-3],[-4,-1]], color="Black"): water:=polygon([[-10,-15],[15,-15],[15,-17],[-10,-17]],color="Blue"): ladder1:=polygon([[-10,1],[-6.5,1],[-6.5,-15],[-10,-15]],color="Grey"): line2:=line([-10,-7],[-6.5,-7],color=black): line1:=line([-10,-5],[-6.5,-5],color=black): line3:=line([-10,-3],[-6.5,-3],color=black): line4:=line([-10,-1],[-6.5,-1],color=black): line5:=line([-10,-9],[-6.5,-9],color=black): line6:=line([-10,-11],[-6.5,-11],color=black): line7:=line([-10,-13],[-6.5,-13],color=black): lines:=display(line1,line2,line3,line4,line5,line6,line7): splash1:=disk ([8,-15], .75, color="Blue"): splash2:=disk ([8,-13.5], .75, color="Blue"): splash3:=disk ([6.5,-14], .75, color="Blue"): splash4:=disk ([7,-13], .75, color="Blue"): connnection:=polygon ([[-6.5,-2],[-4,-2],[-4,-3],[-6.5,-3]]): usa:=textplot([0,6,'USA'],color="White"): splash:=display(splash1,splash2,splash3,splash4): diver:=display(eye,eye2,head,neck,shirt,smile,rightarm,leftarm,pants): diver:=translate (rotate (diver,-Pi/4, [2.5,2.5]),5,4): upper:=display(water,ladder1,lines,connnection): person:=display(eye,eye2,head,neck,shirt,smile,rightarm,leftarm,pants,shortline,usa): person2:=display(eye,eye2,head,neck,shirt,smile,rightarm,leftarm,pants,shortline): p1:=display(upper,board, person): p2:=display(upper,board, translate (rotate (person,-Pi/8, [2.5,2.5]),5,4)): p3:=display(upper,board, translate (rotate (person,-Pi/4, [2.5,2.5]),5,4)): p4:=display(upper,board, translate (rotate (person,-Pi/2, [2.5,2.5]),5,4)): p5:=display(upper,board, translate (rotate (person,-3*Pi/4, [2.5,2.5]),5,4)): p6:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,4)): p7:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-5)): p8:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-6)): p9:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-7)): p10:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-8)): p11:=display(upper,board,splash, translate (rotate (person,-Pi, [2.5,2.5]),5,-9)): p12:=display(upper,(rotate (board,-Pi/10, [-1,-2])),(translate(person,0,5))): p13:=display(upper,board,((translate(person,0,1)))): p14:=display(upper,(rotate (board,-Pi/7, [-1,-2])),(translate(person,0,8))): splashX:=translate(splash,5.5,0): p15:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-10.5)): p15:=display(upper,board,splash,splashX, translate (rotate (person,-Pi, [2.5,2.5]),5,-10.5)): p16:=display(upper,board,splash,splashX, translate (rotate (person,-Pi, [2.5,2.5]),5,-11)): p17:=display(upper,board,splash,splashX, translate (rotate (person,-Pi, [2.5,2.5]),5,-11.5)): p18:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-12.5)): p19:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-13)): p20:=display(upper,board, translate (rotate (person,-Pi, [2.5,2.5]),5,-14)): p21:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-15)): p22:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-16)): p23:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-17)): p24:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-18)): p25:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-19)): p26:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-20)): p27:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-21)): p28:=display(upper,board, translate (rotate (person2,-Pi, [2.5,2.5]),5,-22)): podium3:=polygon ([[1,3],[5,3],[5,0],[1,0]], color="Brown"): podium1:=polygon ([[5,6],[12,6],[12,0],[5,0]], color="Gold"): podium2:=polygon ([[12,4.5],[15.6,4.5],[15.6,0],[12,0]], color="Grey"): podiums:=display(podium3,podium1,podium2): mleg:=polygon([[2,6.5],[2.5,6.5],[2.5,3],[2,3]],color="Beige"): mleg2:=translate(mleg,1,0): speedo:=polygon([[2,6.5],[3.5,6.5],[3,5],[2.5,5]],color="Red"): speedo2:=polygon([[2,6.5],[3.5,6.5],[3,5],[2.5,5]],color="Green"): speedo3:=polygon([[2,6.5],[3.5,6.5],[3,5],[2.5,5]],color="Blue"): body1:=polygon([[2,6.5],[3.5,6.5],[3.5,8.5],[2,8.5]],color="Beige"): arm1:=polygon([[2,8],[2,7.5],[1,7.5],[1,8]],color="Beige"): arm2:=translate(arm1,2.5,0): armusa:=polygon([[2,8],[2,7.5],[1,7.5],[1,8]],color="Beige"): mhead:=disk([2.75,9.25],.75,color="Beige"): meye:=circle ([2.4,9.5], .1, color="Black"): meye2:=translate(meye,.7,0): msmile:=arc([2.75,9.2],.5, Pi..2*Pi): nipple1:=disk([2.4,8], .09, color="Pink"): nipple2:=translate(nipple1,.81,0): navel:=circle ([2.75,6.7], .1, color="Black"): medal:=disk([2.8,7.9], .25, color="Brown"): medal2:=disk([2.8,7.9], .25, color="Grey"): medal3:=disk([2.8,7.9], .25, color="Gold"): necklc1:=line([2,8.5],[2.6,8],color=black): necklc2:=line([3,8],[3.5,8.5],color=black): PRC:=textplot([2.7,6,'CHN'],color="Black"): USA1:=textplot([2.7,6,'USA'],color="Black"): AUS1:=textplot([2.7,6,'AUS'],color="Black"): medalist1:=display(medal,nipple1,speedo,nipple2,mleg,mleg2,body1,arm1,arm2,mhead,meye,meye2,msmile,navel,necklc1,necklc2,PRC): medalist2:=translate(display(medal2,nipple1,speedo2,AUS1,nipple2,mleg,mleg2,body1,arm1,arm2,mhead,meye,meye2,msmile,navel,necklc1,necklc2), 11,1.5 ): medalist3:=translate(display(medal3,nipple1,speedo3,USA1,nipple2,mleg,mleg2,body1,mhead,meye,arm1,arm2,meye2,msmile,navel,necklc1,necklc2), 6, 3): medaling:=display(podiums,medalist1,medalist2,medalist3): p11:=display(upper,board,splash,splashX, translate (rotate (person,-Pi, [2.5,2.5]),5,-9)): p30:=display(LONDON): p31:=display(PRODIVING1): p32:=display(PRODIVING2): p33:=display(PRODIVING3): p29:=translate(scale(medaling,1.75,2.5),-11,-16): banner:=polygon ([ [-10,10], [10,10], [10,-10], [-10,-10]], color="Beige"): bannerUSA:=(banner): armp1:=polygon([[7,11],[8,11],[8,10.5],[7,10.5]],color="Beige"): armp2:=polygon([[9.5,11],[10.5,11],[10.5,10.5],[9.5,10.5]],color="Beige"): newarm1:=rotate(armp1,Pi/4,[8,11]): newarm2:=rotate(armp2,Pi/4,[9.5,11]): newarms:=(newarm1,newarm2): medalist17:=translate(display(medal3,nipple1,speedo3,USA1,nipple2,mleg,mleg2,body1,mhead,meye,meye2,msmile,navel,necklc1,necklc2), 6, 3): medaling2:=display(podiums,medalist1,medalist2,medalist17,armp1,armp2): display(medaling2): p40:=medaling2: medaling3:=display(podiums,medalist1,medalist2,medalist17,newarms): p40:=translate(scale(medaling2,1.75,2.5),-11,-16): p41:=translate(scale(medaling3,1.75,2.5),-11,-16): p50:=Credits1: p51:=Credits2: p52:=Credits3: p53:=Credits4: p54:=Credits5: p55:=Credits6: display([p30,p30,p30,p30,p30,p30,p30,p31,p31,p31,p31,p31,p31,p31,p32,p32,p32,p32,p32,p32,p32,p33,p33,p33,p33,p33,p1,p12,p13,p14,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p29,p29,p40,p41,p40,p41,p40,p41,p40,p41,p40,p50,p50,p50,p50,p50,p50,p50,p51,p51,p51,p51,p51,p51,p51,p52,p52,p52,p52,p52,p52,p52,p53,p53,p53,p53,p53,p53,p53,p54,p54,p54,p54,p54,p54,p54,p55,p55,p55,p55,p55,p55,p55,p55],insequence=true,scaling=constrained,axes=none,view=[-10..17,-17..20]); (*speed 7*)