☆コロッケもどき☆

rot[t_]={{Cos[t],-Sin[t]},{Sin[t],Cos[t]}}

Manipulate[Show[Graphics[{Circle[{0,0},1,{2Pi/3,7Pi/3}],
Yellow,Disk[{0,0},1],
White,Polygon[{{-0.25+Sqrt[3]/2,Sqrt[3]/2+0.5},{0,Sqrt[3]/2},{-Sqrt[3]/2+0.25,Sqrt[3]/2+0.5}}],
Black,Circle[{0.25,Sqrt[3]/2},0.25],
Black,Circle[{-0.25,Sqrt[3]/2},0.25],
Circle[{0,0},{0.1,0.25}],
Black,Circle[{0,0.3},1,{6Pi/5,9Pi/5}],
White,Disk[{0.25,Sqrt[3]/2},0.25],
White,Disk[{-0.25,Sqrt[3]/2},0.25],
Circle[{-0.8,0},0.1],
Circle[{0.8,0},0.1],
Pink,Disk[{-0.8,0},0.1],
Pink,Disk[{0.8,0},0.1],
Red,Disk[{0,0},{0.1,0.25}],
Black,Disk[rot[t].{-0.2,0}+{0.25,Sqrt[3]/2},0.05],
Black,Disk[rot[-t].{0.2,0}+{-0.25,Sqrt[3]/2},0.05]
}]],{t,0,2Pi},SaveDefinitions->True]