Triangulation

Author

Eric W. Weisstein
April 15, 2004

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

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

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

Initialization

<<SimplyPolygonTriangulation`

Figure

Spiral[n_,m_]:=Module[{pts},pts=Table[{phi{Cos[phi],Sin[phi]},(phi+Pi){Cos[phi],Sin[phi]}},{phi,0,n 2Pi,2. Pi/m}];pts=RotateLeft[Flatten[{Transpose[pts][[1]],Reverse[Transpose[pts][[2]]]},1],Floor[m*n/2]]]

line[l_List]:=Line[Append[l,l[[1]]]]

p=Spiral[1,6];
Show[GraphicsArray[{
Graphics[line[p],AspectRatio->Automatic],
Graphics[line[p[[#]]]&/@SimplePolygonTriangulation[p],AspectRatio->Automatic]
}]]