パックマン

Manipulate[Graphics[{{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{-Abs[Sin[0.4 a]]+0.9/1.5,-Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{Abs[Sin[0.4 a]]-0.9/1.5,Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{-Pi-Abs[Sin[0.4 b]]+0.9/1.5,-5 Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{Pi+Abs[Sin[0.4 b]]-0.9/1.5,5 Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{Pi/2+Abs[Sin[0.4 c]]-0.9/1.5,3 Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{-3 Pi/2-Abs[Sin[0.4 c]]+0.9/1.5,-7 Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{-Pi/2-Abs[Sin[0.4 d]]+0.9/1.5,-3 Pi/4}]},{Yellow,Disk[{0+3 a-3 b,0+3 c-3 d},Sqrt[162],{3 Pi/2+Abs[Sin[0.4 d]]-0.9/1.5,7 Pi/4}]},Line[{{-50,15},{5,15}}],Line[{{-50,15.5},{5,15.5}}],Line[{{-50,-15},{32.9,-15}}],Line[{{-50,-15.5},{32.9,-15.5}}],Line[{{5,15},{5,100}}],Line[{{42.9,15},{42.9,200}}],Line[{{42.9,15},{42.9,200}}],Line[{{43,15},{43,200}}],Line[{{43,15},{43,50}}],Line[{{42.9,15},{200,15}}],Line[{{62.9,-15},{200,-15}}],Line[{{32.9,-15},{32.9,-200}}],Line[{{62.9,-15},{62.9,-200}}],PlotRange->{{-100,100},{-100,100}}}],{a,0,70},{b,0,70},{c,0,70},{d,0,70}]