Mathematica и MouseListener - разработка интерактивной графики с помощью Mma

Question

Я хочу добавить интерактивность к 3D-графике Mathematica, за исключением Manipulate, который классен, но имеет свои ограничения Представьте четыре примера демонстрации проблемы четырех кубов в Mathematica: щелчок по одному из кубов вращает куб.

Вопросы.

1. Возможно ли перехватывать MouseEvents в графике Mathematica (например, с использованием класса Java или иным образом?)

2. Или использование Java затем вызывает Mathematica из Java в качестве рекомендуемого маршрута?

3. Или (я надеюсь, что нет) разрабатывает интерактивные графические программы помимо того, что следует делать с 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})}]
   }
  ]
 ]