Wolfram mathematica 如何在Mathematica中输出自定义多边形坐标？

我正在尝试创建一个嵌套操纵，或者只是一个带有两个窗口的操纵：我需要一个窗口，其功能如下：

Manipulate[Graphics[Polygon[pt], 
  PlotRange -> 2], {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}}, 
  Locator, LocatorAutoCreate -> True}] 

但将其坐标输出到另一个窗口，该窗口使用这些坐标绘制指定的图形。我不确定操纵是否是最好的选择，但本质上我正在尝试制作一个可视化界面，用户可以在其中指定多边形，然后程序使用这些坐标的信息来绘制指定的3D绘图

如果我知道如何从操纵器输出坐标，或者如何制作这样的东西，我想我可以想出如何做到这一点。

例如：

GraphicsRow[{
 Manipulate[
   Graphics[Polygon[rs = pt], PlotRange -> 2], 
   {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}},
     Locator, LocatorAutoCreate -> True}],
  Dynamic@
   ParametricPlot3D[Through[(Interpolation /@ 
        First@(Transpose /@ {Append[#, 0] & /@ rs}))[t]], {t, 1, Length@rs}, 
        PlotRange -> 2]}]