restart;with(plots):with(plottools):
dress:=polygon([[-2,2],[2,2],[0,6],[-2,2]],color=blue):
head:=disk([0,8],2,color="SandyBrown"):
legs:=plot([[-.5,0],[0,2],[.5,0]], color="SandyBrown"):
arm:=plot([[.5,4],[.5,3]],color="Olive"):
hair1:=polygon([[0,10],[-1.5,9.5],[-3,6],[0,6]],color="Gold"):
eye:=plot([[1,8]],style=point,symbol=soliddiamond, color=blue,symbolsize=20):
ear:=plot([[2,4],[2.5,5.2],[1.5,5.2],[2,4]],color="Chocolate",filled=true):
doghead:=disk([2,4],1.5,color=brown):
dogbody:=ellipse([5,3.5],2.5,1,color="brown",filled=true):
tail:=ellipse([9.35,3.75],2,.5,color="Brown",filled=true):
tail2:=rotate(tail,Pi/4,[7.35,3.75]):
nose:=disk([.48,4],.2,color="Black"):
dogeye:=disk([1.05,4],.2,color="Blue"):
dogleg:=rectangle([3,3.5],[3.5,0],color="Brown"):
dogleg2:=rectangle([3,3.78],[3.78,0],color="Brown"):
dogleg3:=translate(dogleg,3,0):
dogleg4:=translate(dogleg2,3,0):
dogminuslegs:=display(ear,dogeye,doghead,dogbody,dogleg3,dogleg4,tail2,nose,scaling=constrained):
dog:=display(dogminuslegs,dogleg,dogleg2):
girl:=display(hair1,arm,head,legs,dress,eye,scaling=constrained):
sky:=polygon([[-15,0],[-15,15],[25,15],[25,0]],color="CornflowerBlue" ):
dog:=display(ear,dogeye,doghead,dogbody,dogleg3,dogleg4,tail2,nose,scaling=constrained):
newdog:=translate(rotate(dog,-Pi/4),4,3):
newlegs:=translate(rotate(display(dogleg,dogleg2),Pi/3.5),6.7,-1):
text1:=textplot([0,12,"come maxx"],font=[TIMES,BOLD,24],align=right):
scene1:=display(girl,translate(dog,10,0),translate(dogleg,10,0),translate(dogleg2,10,0),translate(dog,10,0),text1,sky):
text2:=textplot([0,12,"uh"],font=[TIMES,BOLD,24],align=right):
scene2:=display(girl,translate(newdog,-5,0),translate(newlegs,-5,1),text2,sky):
fallengirl:=rotate(girl,Pi/2):
text3:=textplot([0,12,"ouch"],font=[TIMES,BOLD,24],align=right):
scene3:=display(translate(dog,-6,0),translate(dogleg,-6,0),translate(dogleg2,-6,0),fallengirl,translate(dog,-6,0),translate(dogleg,-6,0),translate(dogleg2,-6,0),text3,sky):
mouth:=plot([[1,6.5],[1.6,7],[1.8,7]]):
text4:=textplot([0,12,"bad dog"],font=[TIMES,BOLD,24],align=right):
scene4:=display(girl,mouth,translate(dog,10,0),translate(dogleg,10,0),translate(dogleg2,10,0),translate(dog,10,0),text4,sky):
speed 1
display([scene1,scene2,scene3,scene4], insequence=true, scaling=constrained, axes=none);