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