Mathematica 和 MouseListener - 使用 Mma 开发交互式图形

我想为 Mathematica 3D 图形添加交互性，除了 Manipulate 之外，Manipulate 很酷但有其局限性。考虑 Mathematica 中四个立方体问题的演示的四个示例，单击其中一个立方体即可旋转一个立方体。

问题。

1. 是否可以在 Mathematica 图形中捕获 MouseEvents（例如使用 Java 类或其他方式？）

2. 或者使用 Java 然后从 Java 调用 Mathematica 是建议的路线吗？

3. 或者（我希望不是）开发交互式图形程序超出了 Mathematica 的用途？

事件处理器 http://reference.wolfram.com/mathematica/ref/EventHandler.html可用于捕获各种鼠标事件（鼠标向上、鼠标向下、鼠标单击、鼠标拖动）。使用 MousePosition 来添加一些智能。

Example:

DynamicModule[{col1 = Green, col2 = Blue}, Graphics[
  {
   EventHandler[
    Dynamic[{col1, Disk[]}, 
     ImageSize -> 
      Tiny], {"MouseClicked" :> (col1 = 
        col1 /. {Red -> Green, Green -> Red})}],
   EventHandler[
    Dynamic[{col2, Disk[{1, 1}]}, 
     ImageSize -> 
      Tiny], {"MouseClicked" :> (col2 = 
        col2 /. {Blue -> Yellow, Yellow -> Blue})}]
   }
  ]
 ]

可以单独单击圆圈。为每个对象单独定义一个操作。

令人惊讶的是，这甚至适用于 3D 图形：

DynamicModule[{col1 = Green, col2 = Blue}, 
 Graphics3D[
  {
   EventHandler[
    Dynamic[{col1, Sphere[]}, 
     ImageSize -> 
      Tiny], {"MouseClicked" :> (col1 = 
        col1 /. {Red -> Green, Green -> Red})}], 
   EventHandler[
    Dynamic[{col2, Sphere[{1, 1, 1}]}, 
     ImageSize -> 
      Tiny], {"MouseClicked" :> (col2 = 
        col2 /. {Blue -> Yellow, Yellow -> Blue})}]
   }
  ]
 ]