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

Question

我想添加与Mathematica 3D图形的交互性，除了Manipulate这很酷但有其局限性。想想Mathematica中四个立方体问题演示的四个示例，点击其中一个立方体旋转立方体。

问题。

1. 是否有可能赶上数学图形MouseEvents（例如使用Java类或以其他方式？）

2. 或者是使用Java然后从Java调用数学的建议路线？或者（我不希望）正在开发交互式图形程序，而不是Mathematica应该怎么做？

Answer 1

EventHandler可用于捕获各种鼠标事件（鼠标向上，鼠标向下，鼠标点击，鼠标拖动）。使用MousePosition添加一些智能。

实施例：

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})}] 
    } 
    ] 
]