Skip to main content
added 293 characters in body
Source Link
David G. Stork
  • 41.8k
  • 3
  • 34
  • 100
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}]
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}]
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}]
Source Link
David G. Stork
  • 41.8k
  • 3
  • 34
  • 100

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