Tunnock's Teacake in Mathematica

n = 60;
Graphics[
 {RGBColor[0.9, 0.1, 0.1],
  Table[Polygon[{{0, 0}, {Cos[\[Theta]],
      Sin[\[Theta]]}, {Cos[\[Theta] + Pi/n], Sin[\[Theta] + Pi/n]}}]
   , {\[Theta], 0, 2 Pi, 2 Pi/n}],
  {White, Disk[{0, 0}, 0.2]}
  }
 , PlotRange -> {{-0.5, 0.5}, {-0.5, 0.5}}]