Graphics as Art Objects

Graphics[Table[{ColorData["BrightBands"][k/108],
Arrowheads[{.005,.005,.02,.025,.03,.035}],
Arrow[BezierCurve[{{0,0},
{Cos[k*Pi/48],Sin[k*Pi/48]},
{Sin[k*Pi/32],Cos[k*Pi/32]},
{Cos[k*Pi/24],Sin[k*Pi/24]}}]]},
{k,108}],ImageSize->500]