使用Matheulate在Mathematica中使用鼠标移动对象

Question

我想创建一个小游戏，用户只需用鼠标移动一些图像就可以创建一些形状。

我在Karl Scherer的Nutts Puzzle演示中发现了这种可能性。

然而，在查看源代码时，我无法确定哪个部分可以用鼠标操作形状。

Answer 1

操作中的最后一个控制语句是

{{pts, {{2, 1.5}, ..., {16.1, 16.1}}}, Locator, Appearance -> None},

这会在每个多边形的中心形成一个不可见的Locator。 这些是由鼠标拾取和移动的。

前面的控件创建了2个弹出菜单和19个旋转滑块。

---

修改：要发表评论，请使用Inset的示例：

g[1]=ExampleData[{"TestImage","Girl"}];
g[2]=ExampleData[{"TestImage","Girl2"}];
g[3]=ExampleData[{"TestImage","Girl3"}];
Manipulate[Plot[Cos[x^n],{x,0,4Pi},
    Epilog->Table[Inset[g[i],pos[[i]],{0,0},ImageScaled[{.2,.2}]],{i,3}]],
  {{n, 1}, 0, 4},
  {{pos,{{0,0},{Pi,0},{2Pi,0}}},Locator,Appearance->None}]

奖励积分：在“TestImage”示例数据中命名“女孩”......

Answer 2

例如，这个

Manipulate[Graphics[Disk[p, .2], PlotRange \[Rule] {{0, 10}, {0, 10}}],
   {{p, {.2, 1.5}}, Locator, Appearance \[Rule] None}]

显示一个圆圈;当你点击某处时，圆圈会跳到那里。这回答了这个问题吗？