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

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

-

## closed as too localized by Szabolcs, Sjoerd C. de Vries, rcollyer, Oleksandr R., Yves KlettFeb 14 '13 at 7:20

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, visit the help center.If this question can be reworded to fit the rules in the help center, please edit the question.

You should show your attempts and where you are getting stuck – Rojo Jan 18 '13 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. – Mr.Wizard Jan 18 '13 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}}]


-