Animate[
x=3+Cos[t-1];
y=3+Sin[t-1];
x2=-3+Cos[t+1];
y2=3+Sin[t+1];
xAna=Sin[t];
waku=Circle[{0,0},7];
waku2=Circle[{-3,3},2];
waku3=Circle[{3,3},2];

ten=Disk[{x,y},0.65];
ten2=Disk[{x2,y2},0.65];
ana=Disk[{1.5xAna,0},0.7];
ana2=Disk[{-1.5xAna,0},0.7];



Graphics[{{Red,Disk[{-0.7,-3+Sin[t/2]},0.7,{Pi,0}],Disk[{0.7,-3+Sin[t/2]},0.7,{Pi,0}],Disk[{0,-3-Sin[t/2]},1.4,{2Pi,Pi}]},Rectangle[{-5,5+Tan[t/2]},{-1,6+Tan[t/2]}],Rectangle[{1,5+Tan[t/2]},{5,6+Tan[t/2]}],waku,waku2,waku3,ten,ten2,ana,ana2},{PlotRange->{{-7.2,7.2},{-7.2,7.2}}}],
{t,0,2Pi,Pi/20}
]