g = Graphics@GraphicsGroup[
Table[{Line[{{x, -5}, {x, 5}}], Line[{{-5, x}, {5, x}}]},
{x, -5, 5, .25}]
];
Manipulate[
Overlay[
Table[
Rotate[g, i θ],
{i, -2, 2}],
Alignment -> Center
],
{θ, 0, π/12}]
or
g = Graphics@GraphicsGroup[
Table[{Line[{{x, -5}, {x, 5}}], Line[{{-5, x}, {5, x}}]},
{x, -5, 5, .25}]
];
Manipulate[
Overlay[
Table[
Rotate[g, i .2],
{i, -n, n}],
Alignment -> Center
],
{n, 0, 5}]