3. アニメーションの作成

gifs={};
Do[AppendTo[gifs,Show[{Graphics[{Hue[t/20],Thickness[0.005],Line[{{1,0},{1,2},{1.5,0},{2,2},{2,0}}]}],

Graphics[{Hue[t/22],Thickness[0.003],Line[{{2.1,0},{2.5,1},{2.5,0},{2.1,0}}]}],Graphics[{Hue[t/24],Thickness[0.003],Line[{{2.5,1},{2.75,0}}]}],

Graphics[{Hue[t/26],Thickness[0.004],Line[{{2.75,1},{3.25,1}}]}],
Graphics[{Hue[t/28],Thickness[0.005],Line[{{3,1.5},{3,0}}]}],

Graphics[{Hue[t/30],Thickness[0.005],Line[{{3.4,1.75},{3.4,0}}]}],
Graphics[{Hue[t/32],Thickness[0.003],Line[{{3.4,1},{3.85,1},{3.85,0}}]}],

Graphics[{Hue[t/34],Thickness[0.003],Line[{{4,0.5},{4.5,0.5},{4.5,1},{4,1},{4,0},{4.5,0}}]}],

Graphics[{Hue[t/36],Thickness[0.004],Line[{{4.75,0},{4.75,1},{5,1},{5,0}}]}],
Graphics[{Hue[t/38],Thickness[0.003],Line[{{5,1},{5.35,1},{5.35,0}}]}],

Graphics[{Hue[t/40],Thickness[0.003],Line[{{5.5,0},{5.9,1},{5.9,0},{5.5,0}}]}],
Graphics[{Hue[t/42],Thickness[0.003],Line[{{5.9,1},{6.2,0}}]}],

Graphics[{Hue[t/44],Thickness[0.003],Line[{{6.2,1},{6.7,1}}]}],
Graphics[{Hue[t/46],Thickness[0.005],Line[{{6.45,1.5},{6.45,0}}]}],

Graphics[{Hue[t/48],Disk[{6.9,1.3+y},0.15]}],
Graphics[{Hue[t/50],Thickness[0.015],Line[{{6.9,1},{6.9,0}}]}],

Graphics[{Hue[t/52],Thickness[0.004],Circle[{7.6,0.5},0.5,{Pi/2,3Pi/2}]}],

Graphics[{Hue[t/54],Thickness[0.004],Line[{{7.7,0},{8.2,1},{8.2,0},{7.7,0}}]}],
Graphics[{Hue[t/56],Thickness[0.003],Line[{{8.2,1},{8.5,0}}]}]}
]],{t,20,45,1.5},{y,0,0.2,0.1}
]
ListAnimate[gifs]