wolfram-mathematica - 在 Mathematica 中使用 Manipulate 用鼠标移动对象

Question

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

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

但是查看源代码我无法弄清楚哪个部分可以用鼠标操作形状。

Answer 1

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

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

这使得一个不可见的 Locator在每个多边形的中心。 鼠标拾取移动的就是这些。

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

---

编辑:为了解决评论，使用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”示例数据中命名“Girl”...