New in Wolfram Mathematica 6: Dynamic Interactivity ◄ previous | next ►
Dynamically Move Points in Graphics
Mathematica 6 immediately allows you to set up a modifiable number of movable points that can be used as direct controls.
In[1]:=

Click for copyable input
Manipulate[

 Graphics[{Opacity[.4, Red], Polygon[p[[Last[FindShortestTour[p]]]]]},

   PlotRange -> 1],

 {{p, RandomReal[{-1, 1}, {15, 2}]}, {-1, -1}, {1, 1}, Locator}]
Out[1]=