8.2 アニメーション

Animate[
x=t;
y=0;
taiya1={Black,Disk[{1+x,-0.5},0.5]};
taiya2={Black,Disk[{6+x,-0.5},0.5]};
hoil1={Gray,Disk[{1+x,-0.5},0.35,{(Pi/4)-x,(3Pi/4)-x}]};
hoil2={Gray,Disk[{6+x,-0.5},0.35,{(Pi/4)-x,(3Pi/4)-x}]};
shatai1={Red,Rectangle[{0+x,0},{7+x,1}]};
shatai2={Red,Polygon[{{2+x,1},{2+x,2.5},{3+x,2.5},{5+x,1}}]};

Graphics[{taiya1,taiya2,hoil1,hoil2,shatai1,shatai2},{PlotRange->{{0,20},{-5,10}},AspectRatio->1}],{t,0,20,0.1},AnimationRunning->False
]