Arrow Art

n = 17;
Graphics[Table[
  Table[Join[{White, Arrowheads[r/500], Thickness[r/2000],
     Line[Table[
       r {Sin[x + t], Cos[x + t]}, {t, 0.05, 2 Pi/n - 0.05,
        0.05}]]}, {Arrow[
      r {{Sin[x - 0.1], Cos[x - 0.1]}, {Sin[x + 0.025],
         Cos[x + 0.025]}}]}], {x, -r/10, 2 Pi - 2 Pi/n - r/10,
    2 Pi/n}],
  {r, 3, 22}
  ], ImageSize -> {500}, Background -> Black]