restart:with(plots):with(plottools):
background:=polygon([[-1,-3],[-1,3],[1,3],[1,-3]],color=gray):
background2:=polygon([[1,-3],[1,3],[3,3],[3,-3]],color=red,transparency=.25):
backgrounda:=polygon([[-1,-3],[-1,3],[1,3],[1,-3]],color=red,transparency=.25):
background2a:=polygon([[1,-3],[1,3],[3,3],[3,-3]],color=gray):
arm3:=plot([[1,.5],[0,.3],[1,-.5]],color=black):
hand1:=polygon([[0.6,0.4],[0.5,0.4],[0.5,0.6],[0.6,0.6],[0.6,0.4]],color=black):
head:=polygon([[0.5,1],[0.5,2],[1.5,2],[1.5,1],[0.5,1]],color="Tan"):
body:=plot([[1,1],[1,-1]],color=black):
arms:=plot([[0,0.5],[2,.5]],color=black):
hand1:=polygon([[0.6,0.4],[0.5,0.4],[0.5,0.6],[0.6,0.6],[0.6,0.4]],color=black):
hand1a:=polygon([[-0.2,0.4],[0,0.4],[0,0.6],[-.2,0.6],[-0.2,0.4]],color=black):
hand2a:=polygon([[2.2,0.4],[2,0.4],[2,0.6],[2.2,0.6],[2.2,0.4]],color=black):
ah1:=display(arm3,translate(hand1,.5,-1)):
arm4:=plot([[1,.5],[2,.3],[1,-.5]],color=black):
ah2:=display(arm4,translate(hand2a,-1.1,-1)):
ah:=display(ah1,ah2):
leg1:=plot([[1.0,-1],[0.6,-2]],color=black):
leg2:=plot([[1.0,-1],[1.4,-2]],color=black):
eye1:=disk([0.8,1.75], .12, color=blue):
eye2:=disk([1.2,1.75], .12, color=blue):
nose:=disk([1.0,1.5], .06, color=black):
mouth:=polygon([[0.8,1.12],[0.8,1.25],[1.2,1.25],[1.2,1.12],[0.8,1.12]],color=white):
teeth:=plot([[0.8,1.18],[1.2,1.18]],color=black):
teeth1:=plot([[0.9,1.25],[0.9,1.12]],color=black):
teeth2:=plot([[1,1.25],[1,1.12]],color=black):
teeth3:=plot([[1.1,1.25],[1.1,1.12]],color=black):
f1:=display([body,arms,hand1a,hand2a,leg1,leg2,eye1,eye2,nose,mouth,teeth,teeth1,teeth2,teeth3,head,background,background2],scaling=constrained,axes=none):
f1a:=display([body,arms,hand1a,hand2a,leg1,leg2,eye1,eye2,nose,mouth,teeth,teeth1,teeth2,teeth3,head,backgrounda,background2a],scaling=constrained,axes=none):
f2:=display([body,ah,leg1,leg2,eye1,eye2,nose,mouth,teeth,teeth1,teeth2,teeth3,head,background,background2],scaling=constrained,axes=none):
f2a:=display([body,ah,leg1,leg2,eye1,eye2,nose,mouth,teeth,teeth1,teeth2,teeth3,head,backgrounda,background2a],scaling=constrained,axes=none):
display([f1,f1a,f1,f1a,f2,f2a,f2,f2a],insequence=true);#fps3