restart;with(plots):with(plottools):
catform:=polygon([[1.5,1],[1.5,5],[2,4],[2.5,4],[2.5,5],[3,4],[3,2.5],[4,2.5],[4,1],[3.5,1],[3.5,1.5],[2,1.5],[2,1],[1,1]],color=grey):
display(catform):
cateyeA:=disk([2.51,3.56],0.11,color="aquamarine"):
cateyeB:=disk([1.83,3.56],0.11,color="aquamarine"):
catbody:=display(cateyeA, cateyeB,catform):
dog:=polygon([[6,1],[6,4],[5,4],[5,3],[6,3],[6,4],[9,4],[9,3],[10,3],[10,4],[9,4],[9,2],[10,2],[10,1],[9,1],[9,1.5],[8,1.5],[8,1],[6,1]],color="Chocolate"):
dogeyeA:=disk([6.49,3.19],0.11,color=cyan):
dogeyeB:=disk([8.09,3.19],0.11,color=cyan):
dogbody:=display(dogeyeA, dogeyeB,dog):
tree:=polygon([[-6,6],[-1,6],[3,6],[3,7],[-6,7],[-6,12],[-8,12],[-8,3],[-10,3],[-10,2],[-8,2],[-8,0],[-6,0],[-6,6]],color=gold):grass:=plot([[-6,1],[10,1],[10,0],[-6,0]],filled=true,color=green):
display([tree,dogbody,catbody,grass]):
cat1:=translate(catbody,0,6):
display([cat1,grass,tree,dogbody],axes=none):
dog1:=translate(dogbody,-11,0):
dog2:=translate(dog1,0,6):
cat2:=translate(cat1,0,-6):
sun:=disk([4.54,14.2],2.3,color=yellow):
stage1:=display(dogbody,catbody,grass,tree,sun):
catmoves:=display(cat1,dogbody,grass,tree,sun):
dogmoves:=display(dog1,cat1,grass,tree,sun):
dogmoves2:=display(dog2,cat1,grass,tree,sun):
catmoves2:=display(cat2,dog2,grass,tree,sun):
display([stage1,catmoves,dogmoves,dogmoves2,catmoves2],insequence=true,scaling=constrained,axes=none);
# speed=2