How can I draw a picture like this? [closed]

How can I draw a picture like the following using Mathematica's graphics primitives?

• You should show your attempts and where you are getting stuck
– Rojo
Commented Jan 18, 2013 at 3:03
• redeye, you'll note that this question has been down-voted by the community. If you answer some questions (thoughtfully) attitudes may be improved toward questions such as this one. Nevertheless showing your efforts always helps. Commented Jan 18, 2013 at 10:01

Here's a start...

Manipulate[
Show[poly[n], circ[n]],{{n, 5}, {5, 6, 7, 8, 9, 10}},
Initialization :> (
circ[n_] :=
Table[Arrow[
BezierCurve[{3 {Cos@(t + 1.6 \[Pi]/n), Sin@(t + 1.6 \[Pi]/n)},
2 {Cos@(t + .4 \[Pi]/n), Sin@(t + .4 \[Pi]/n)},
1 {Cos@t, Sin@t}}]], {t, 0, 2 \[Pi], 2 \[Pi]/n}]}];
poly[n_] :=
Graphics[
Polygon[(4/5) Partition[
Flatten@Table[{{Cos@t,
Sin@t}, (2/3) {Cos@(t + \[Pi]/n), Sin@(t + \[Pi]/n)}}, {t,
0, 2 \[Pi], 2 \[Pi]/n}], 2]]];)]


I'm bored:

s = .3 {{1, 0}, {.6, -.6}, {.3, -.2}};
k = {Arrowheads[.13], Thickness[.03], Circle[{0, 0}, .3], Arrow[BezierCurve[{s}]]};
Graphics[{Polygon[Table[.11 {Cos[t + Pi/17], Sin[t + Pi/17]}, {t, 0, 10 Pi, 10 Pi/8}]],
Table[Rotate[k, 2 Pi i/8, {0, 0}], {i, 8}]},
PlotRange -> .32 {{-1, 1}, {-1, 1}}]