restart; with(plots): with (plottools):
feet:=plot([[-1,0],[0,1],[1,0]], color=black):
body:=polygon([[.5,1],[.5,4],[-.5,4],[-.5,1],[.5,1]], color=orange,filled=true):
arm1:=polygon([[-.5,4],[-2,2],[-1,2],[-.5,3]],color=orange, filled=true):
arm2:=polygon([[.5,4],[2,2],[1,2],[.5,3]],color= orange):
neck:=plot([[0,4],[0,5]],color=black):
head:=disk([0,5],.7,color=tan):
eye1:=disk([.25,5], .125, color=white):
eye2:=disk([-.25,5], .125, color=white):
nose:=plot([[-0.05,4.9],[-0.1,4.8],[.0,4.8]],color=black,thickness=2):
mouth:=plot([[-0.1,4.7],[0.1,4.7]],color=black, thickness=2):
pupil:=disk([.25,5.0],.055,color=black):
pupil2:=disk([-.25,5.0],.055,color=black):
ciara:=textplot([0, 3, "LONGHORN"], font = [TIMES, ROMAN, 12]):
person1:=display([ciara,pupil,pupil2,eye1,eye2,head,nose,mouth,feet,body,arm1,arm2,neck,head]):
feet2:=plot([[7.5,0],[8.0,1],[8.0,0]]):
body2:=polygon([[7.8,4],[7.8,1],[8.2,1],[8.2,4]], color=green,filled=true):
neck2:=plot([[8,4],[8,4.3]],color=black):
head2:=disk([8,5],.7,color=tan):
eye3:=disk([8.0,5.5], .125, color=white):
arm4:=polygon([[8.2,3],[7.5,1],[7.7,1],[8.2,2.5]],color=green):
pupil3:=disk([8.0,5.5],.055,color=black):
nose2:=polygon([[7.5,5.],[7.0,5.0],[7.5,5.5]],color=tan):
mouth2:=plot([[7.4,4.6],[8.0,4.6]],color=black):
football:=ellipse([7.4,1],.2,.3,color=brown,filled=true):
person2:=display(mouth2,pupil3,eye3,arm4,body2,neck2,head2,nose2):
frame1:=display(person1,person2,feet2,football):
frame2:=display(person1,rotate(person2,Pi/4,[8,1]),feet2,football):
frame3:=display(person1,rotate(person2,Pi/4,[8,1]),feet2,translate(football,0,-1)):
frame4:=display(person1,person2,feet2,translate(football,0,-1)):
background:=polygon([[-2,0],[-2,-1],[17,-1],[17,0]],color=green):
goal:=rectangle([11,7],[12,0] , color=black):
p1:=display(background,person1,person2,feet2,football,goal):
p2:=display(background,person1,rotate(person2,Pi/4,[8,1]),feet2,football,goal):
p3:=display(background,person1,rotate(person2,Pi/4,[8,1]),feet2,translate(football,0,-1),goal):
p4:=display(background,person1,person2,feet2,translate(football,0,-1),goal):
p5:=display(background,translate(person1,1,0),person2,feet2,translate(football,0,-1),goal):
p6:=display(background,translate(person1,2,0),person2,feet2,translate(football,0,-1),goal):
p7:=display(background,translate(person1,3,0),person2,feet2,translate(football,0,-1),goal):
p8:=display(background,translate(person1,4,0),person2,feet2,translate(football,0,-1),goal):
p9:=display(background,translate(person1,5,0),person2,feet2,translate(football,0,-1),goal):
p10:=display(background,translate(person1,6,0),person2,feet2,translate(football,0,-1),goal):
p11:=display(background,translate(person1,6,0),person2,feet2,translate(football,0,0),goal):
p12:=display(background,translate(person1,6,0),person2,feet2,translate(football,0,1),goal):
p13:=display(background,translate(person1,6,0),person2,feet2,translate(football,1,3),goal):
p14:=display(background,translate(person1,6,0),person2,feet2,translate(football,2,5),goal):
p15:=display(background,translate(person1,6,0),person2,feet2,translate(football,3,6),goal):
p16:=display(background,translate(person1,6,0),person2,feet2,translate(football,4,7),goal):
p17:=display(background,translate(person1,6,0),person2,feet2,translate(football,5,7.5),goal):
p18:=display(background,translate(person1,6,0),person2,feet2,translate(football,6,8),goal):
p19:=display(background,translate(person1,6,0),person2,feet2,translate(football,7,8),goal):
p20:=display(background,translate(person1,6,0),person2,feet2,translate(football,8,7.5),goal):
speed 10
display([p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20], insequence=true, scaling=constrained, axes=none);