•Quadrilateral example
In[92]:=
•Compile function
•Show
In[100]:=
Out[100]=
Converted by
Mathematica
(March 7, 2003)
![points = {{-1, -1}, {0, 0}, {1, -1}, {0, 1}} ; connect = {{1, 2, 3, 4}} ; pts = Part[points, connect[[1]]] ; areas = Apply[area, Partition[pts, 3, 1, {2}], {1}] ;](../HTMLFiles/index_71.gif)
![quad = 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_74.gif)
![[Graphics:../HTMLFiles/index_75.gif]](../HTMLFiles/index_75.gif)
