# Trying to rotate a graphic over a field of parallel lines

I have a 10x10 grid of unit squares (picture a partial coordinate grid bounded by (0,0) and (10,10)) given by

squares = Table[Table[
Graphics[{EdgeForm[Directive[Black]],
White,
Rectangle[{i-1,j-1}]
}], {j, 1, 10}], {i, 1, 10}];

grid = Show[squares]


and a field of parallel red lines with slope 1,

lines = Table[Graphics[{Red,
Thickness[.0025],
Line[{{-5-i, -5}, {15-i, 15}}]
}], {i, -10, 10}];
lights = Show[lines]


I'm trying to visualize which cells each line passes through as the grid rotates in increments of 10 degrees. However, I get an error when trying to evaluate

Show[{Rotate[grid, 10 Degree], lights}]


Is there some way I can manipulate the grid (i.e. rotate it about its center) while keeping the lines at their fixed position?

• With your last line of code you are rotating the shown image, not the underlying entities! Look at Rotate's examples in the documentation. – Aisamu Nov 20 '14 at 20:30
• Yes, I see the problem. Thanks for the heads up – user170231 Nov 21 '14 at 3:34
• Also, I'd like to mention that I found a better way for writing up my grid using Graphics[Table[...]] instead of Table[Graphics[...]] – user170231 Nov 21 '14 at 3:35