Define Functions That Take Graphics as Arguments
Mathematica lets you define functions that directly compute with graphical input.
In[1]:=  |  spiral[Graphics[g_, ___], n_] :=
Graphics[
Table[Rotate[Translate[g, {k, 0}/10],
2 \[Pi] k (2 - GoldenRatio), {0, 0}], {k, n}]] |
In[2]:= |  spiral[\!\(\*
GraphicsBox[{
{GrayLevel[0], Opacity[1], EdgeForm[None],
DiskBox[{0.4868055555555557, 0.5291411111111115}, \
{0.47777777777777786`, 0.4444444444444443}]},
{RGBColor[1., 0.790447852292668, 0.06250095368886854], Opacity[1],
EdgeForm[None],
DiskBox[{0.53125, 0.5624744444444447}, \
{0.3111111111111112, 0.2777777777777778}]},
{RGBColor[0.8124971389333944, 0., 0.669108110170138],
DiskBox[{1.2645833333333334`, -0.03752555555555537}, \
{0.30000000000000027`, 0.25555555555555554`}]},
{RGBColor[0.8124971389333944, 0.07646295872434578, 0.],
DiskBox[{0.442361111111111, -0.22641444444444403`},
0.37777777777777777`]}},
ImageMargins->0.,
ImageSize->{80., 61.},
PlotRange->All,
PlotRangePadding->None]\), 100] |
Out[2]=  |  |