# 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 Jan 18 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 at 10:01

## closed as too localized by Szabolcs, Sjoerd C. de Vries, rcollyer, Oleksandr R., Yves KlettFeb 14 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, see the FAQ.

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}}]


-
+1 You beat me to it! – David Carraher Jan 18 at 3:31
@dude To boredom? :) – belisarius Jan 18 at 3:58
I would say that I was slower than you in snapping out of boredom. – David Carraher Jan 18 at 4:09