restart:with(plots):with(plottools):
head:=disk([9,14],2,color=blue):
goof:=circle([20,14],.1):
frame:=plot([[0,0],[12,0],[12,5],[0,5],[0,0]],color=black):
p1:=translate(head,10,14):
p2:=translate(head,11,14):
p3:=translate(head,12,14):
head2:=disk([9,8],2,color=green):
gong:=circle([20,14],.1):
frame:=plot([[0,0],[12,0],[12,5],[0,5],[0,0]],color=green):
p4:=translate(head2,10,8):
p5:=translate(head2,11,8):
p6:=translate(head2,12,8):
p7:=display(p1,p4):
p8:=display(p2,p3):
p9:=display(p5,p6):
speed 5
display([p7,p7,p8,p9,p4],insequence=true, scaling=constrained, axes=none);