•Pentagon example
In[101]:=
•Compile function
•Show
In[109]:=
Out[109]=
Converted by
Mathematica
(March 7, 2003)
![points = {{0, 1/2}, {1, 0}, {3/2, 1/2}, {-1/4, 1}, {-1/2, 1/4}} ; connect = {{1, 2, 3, 4, 5}} ; pts = Part[points, connect[[1]]] ; areas = Apply[area, Partition[pts, 3, 1, {2}], {1}] ;](../HTMLFiles/index_77.gif)
![pent = Show[pContour, Graphics[Flatten[{{RGBColor[1, 1, 1]}, {mask[pts]}}]], Graphics[Flatten[{{PointSize[.02]}, {outline[pts], name[pts], nodes[pts]}}]], PlotRange -> All, Frame -> False, AspectRatio -> 1, DisplayFunction -> $DisplayFunction]](../HTMLFiles/index_80.gif)
![[Graphics:../HTMLFiles/index_81.gif]](../HTMLFiles/index_81.gif)
