restart:with(plots):with(plottools):

background1:=polygon([[1,1],[1,10],[20,10],[20,1]],color=black):

credits:=textplot({[10,8,video_courtesy_of_Nick_B],[10,5,and_all_of_the_great_See_Math_Teachers_and_counslers]},color=white, font=[Times,14]):

scene8:=display([credits,background1],scaling=constrained):

explain1ab3:=textplot([10,9,"What_not_to_do_in_case_of_"],color=white, font=[Times,14]):

explain1ab4:=textplot([10,7,"president_attempting_to_eat_untested_edibles"], color=white, font=[Times,14]):

I_WANT_MY_CHOCOLATE:=textplot([10,8,"WATCH OUT MR. PRESIDENT, THAT CHOCOLATE MIGHT BE POISONED!"], font=[Times,14]):

begincap:=textplot([10,7,UNITED_STATES_SECRET_SERVICE_TRAINING_VIDEO],color=white, font=[Times,14]):

scene1:=display([begincap,background1],scaling=constrained):

scene7:=display([explain1ab3,background1, explain1ab4],scaling=constrained):

chocolate_on_table:=polygon([[1,1],[1,7],[7,7],[7,1],[1,1]],color=brown):

chocolate_on_table1:=polygon([[3,3],[3,5],[4,5],[4,3]],color="Chocolate"):

i_want_my_chocolate1:=textplot([3.5,4.5,"Yum! Bar"], font=[Times,14]):

scene2:=display(i_want_my_chocolate1,chocolate_on_table1,chocolate_on_table):

background:=polygon([[1,1],[1,10],[20,10],[20,1]],color=gray):

Mrpresidenthead:=disk([6,5], 0.5, color="PeachPuff", filled=true):

Mrpresidenttorso:=polygon([[5.5,4.5],[6.5,4.5],[6.5,1],[5.5,1],[5.5,4.5]],color=black):

Mrpresidentarm:=polygon([[6,4.5],[7.25,3],[7.5,3],[6.5,4.5]],color=black):

table1a:=polygon([[1,8],[3,8],[3,10],[1,10],[1,9.5],[2.5,9.5],[2.5,8.5],[1,8.5],[1,8]],color=brown):

table1b:=rotate(table1a,Pi/2,[0,0]):

table1:=translate(table1b,17,0):

scene3:=display([Mrpresidentarm,table1,Mrpresidenthead,Mrpresidenttorso, background], scaling=constrained):

Mrpresidentarm2:=polygon([[7.5,4.5],[7.5,4],[6.5,4],[6.5,4.5]],color=black):

chocolate234:=polygon([[7.5,4.5],[7.5,4],[8,4],[8,4.5]],color="Chocolate"):

scene4:=display([chocolate234,Mrpresidentarm2,table1,Mrpresidenthead,Mrpresidenttorso, background],scaling=constrained):

frame1:=display([chocolate234,Mrpresidentarm2,table1,I_WANT_MY_CHOCOLATE,Mrpresidenthead,Mrpresidenttorso, background],scaling=constrained):

Mrpresidentarm3:=translate(Mrpresidentarm2,-1,0):

frame2:=display([translate(chocolate234,-1,0),Mrpresidentarm3,table1,I_WANT_MY_CHOCOLATE,Mrpresidenthead,Mrpresidenttorso, background],scaling=constrained):

soldier:=polygon([[7.5,1],[8.5,1],[8.5,4.5],[7.5,4.5]],color="OliveDrab"):

scene5:=display([frame1,frame2], insequence=true):

SoldierHead:= display(translate(Mrpresidenthead, 2, 0)):

soldierarm:=polygon([[7.5,4.5],[6.5,4.5],[6.5,4],[7.5,4]],color="OliveDrab"):

blackshape:=polygon([[6.5,4],[6,4],[6,4.25],[5.5,4.25],[5.5,4.5],[6.5,4.5]],color=black):

exclaim:=textplot([8,8,"!!!"], font=[Times,14]):

bang:=textplot([8,7,BANG], font=[Times,14]):

x:=line([1,1],[20,10],color=black):

x1a:=line([1,10],[20,1],color=black):

scene6:=display([x1a,x,bang,exclaim,blackshape,soldier,soldierarm,SoldierHead,background],scaling=constrained):

display([scene1,scene1,scene1,scene2,scene2,scene3,scene3,scene4,scene4,scene5,scene5,scene5,scene6,scene6,scene7,scene7,scene7,scene7,scene8,scene8,scene8,scene8],insequence=true,axes=none);

#fps=1