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

Question

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

我在Karl Scherer 的Nutts Puzzle Demo中发现了这种可能性.

然而,在查看源代码时,我无法确定哪个部分能够用鼠标操作形状.

Answer 1

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

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

这使得不可见的定位器位于每个多边形的中心.这些是由鼠标拾取和移动的.

前面的控件创建了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"示例数据中命名"Girl"s ...