Polygon Tessellation

Author

Eric W. Weisstein
April 15, 2004

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

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

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

Graphic

points=Table[{Random[Integer,{0,4}],Random[Integer,{0,4}]},{8}]

ClosedLine[l_List]:=Line[Append[l,First[l]]

Show[GraphicsArray[{
Graphics[ClosedLine[points],AspectRatio->Automatic],
Graphics[Polygon[points],AspectRatio->Automatic]
}]]