Polygon

Author

Eric W. Weisstein
August 3, 2010

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polygons/Polygon.nb.

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

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

Figures

poly={,,};

Broken Closed Line

GraphicsGrid[{poly},ImageSize->400]

Filled

GraphicsGrid[{Graphics/@Polygon@@@poly[[All,1]]},ImageSize->400]

Self-Intersecring

GraphicsGrid[{Graphics[Polygon[Most[#[[1,1]]]]]&/@(Polygram@@@{{5,2},{7,2},{7,3},{8,3}})}]

All

GraphicsGrid[{poly,Graphics/@Polygon@@@poly[[All,1]]}]