restart:with(plots):with( plottools):
body:=polygon([[0,1],[16,1],[16,7],[0,7],[0,1]],color=gray):
wheel:=disk([0,0],1,thickness=10,color=gray):
p2 := display([body,translate(wheel,2,1.5)]):
turrent:=polygon([[5,7],[5,8],[4,8],[4,11],[9,11],[9,10],[13,10],[13,11],[15,11],[15,8.5],[13,8.5],[13,9.5],[9,9.5],[9,8],[8,8],[8,7]],color=gray):
p3:=display(translate(wheel,2,1.5),translate(wheel,5,1.5),translate(wheel,8,1.5),translate(wheel,11,1.5),translate(wheel,14,1.5),body,turrent,scaling=constrained):
translate(p3,2,0):
treads:=plot([[0,1],[1,0],[15,0],[16,1]]):
display([treads,p3]):
p4:=translate(p3,0,-.25):
l:=display(p4,treads):
pizza:=polygon([[15,11],[18,11],[18,10.5],[15,10.5],[15,10],[18,10],[18,9.5],[15,9.5],[15,9],[18,9],[18,8.5],[15,8.5],[15,11],[18,11],[18,8.5],[15,8.5],[15,11]],color=red):
p6:=translate(pizza,0,-.25):p8:=polygon([[21,.5],[21.25,0],[26,0],[26.5,.5],[26,.5],[25.5,.10],[21.5,.10],[21.25,.5],[21,.5]],color=red):
display(p8,scaling=constrained):
sky:=polygon([[0,4],[27,4],[27,18],[0,18],[0,4]],color=blue):
sun:=disk([20,15],3,color=yellow):
grass:=polygon([[0,4],[27,4],[27,0],[0,0],[0,4]],color=green):
display(p8,l,pizza,sun,sky,grass):
m1:=display(translate(pizza,2,-2)):
f1:=display(m1,l,p8,sun,sky,grass,scaling=constrained):
f:=display(p8,l,pizza,grass,sun,sky):
m2:=display(translate(m1,2,-2)):
m3:=display(translate(m2,2,-2)):
m4:=display(translate(m3,1,-2.5)):
f2:=display(l,p8,sun,grass,m2,sky):
f3:=display(l,p8,m3,sun,sky,grass):
f4:=display(l,p8,m4,sun,sky,grass):
display([f,f1,f2,f3,f4],insequence=true, axes=none);
speed 5