Illumination Problem

Author

Eric W. Weisstein
September 27, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComputationalGeometry/IlluminationProblem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/IlluminationProblem.html.

©2007 Wolfram Research, Inc. except for portions noted otherwise

Penrose Room

Tokarsky and Castro Rooms

Tokarsky26 = {{1,0},{1,1},{2,1},{2,2},{3,1},{4,1},{4,0},{3,0},{3,-1},{2,-2},{2,-1},{1,-1},{0,-2},{0,-1},{-1,-1},{-2,-2},{-2,-1},{-3,-1},{-3,0},{-4,0},{-3,1},{-3,2},{-2,2},{-2,1},{-1,1},{-1,0},{1,0}};
Castro24 = {{1, 0}, {1, 1}, {2, 1}, {2, 2}, {3, 1}, {3, 0}, {4, 0}, {3, -1},   {3, -1}, {2, -1},{2,-2}, {1, -1}, {0, -1}, {0, -2}, {-1, -1}, {-2, -2}, {-2, -1}, {-3, -1}, {-4, 0}, {-3, 0}, {-3, 1},  {-2, 2}, {-2, 1}, {-1, 1}, {-1, 0}, {1, 0}};

GraphicsGrid[{Graphics[{Line[First[#]], Red, Point[{-2,0}], Point[{2,0}]},PlotLabel->Last[#],BaseStyle->{FontSlant->"Italic"}]&/@{{Tokarsky26,"Tokarsky's 26-sided room"},{Castro24,"Castro's 24-sided room"}}},ImageSize->500,Spacings->-20]