Fatal编程技术网
  • wolfram-mathematica/
  • Wolfram mathematica 为什么定位器在这个动态图形中看起来是半透明的？

Wolfram mathematica 为什么定位器在这个动态图形中看起来是半透明的？

wolfram-mathematica

Wolfram mathematica 为什么定位器在这个动态图形中看起来是半透明的？,wolfram-mathematica,Wolfram Mathematica,我想要一个位置在图形上的定位器，并根据鼠标位置更新其位置。以下是一些示例代码： Show[{ Graphics[{Yellow, Rectangle[]}], Graphics[Dynamic[ With[{pt = MousePosition[{"Graphics", Graphics}]}, { If[pt===None, ,Locator[pt^2]], Text[pt, {0,0}, {-1,-1}] } ] ]] }, PlotR

我想要一个位置在图形上的定位器，并根据鼠标位置更新其位置。以下是一些示例代码：

Show[{
  Graphics[{Yellow, Rectangle[]}], 
  Graphics[Dynamic[
     With[{pt = MousePosition[{"Graphics", Graphics}]}, 
        { If[pt===None, ,Locator[pt^2]], Text[pt, {0,0}, {-1,-1}] }
     ]
  ]]
  }, PlotRange -> {{-.2, 1.2},{-.2, 1.2}}]
奇怪的是，有时定位器显示正常，有时它显示在看起来像半不透明的位置。当我移动鼠标时，它从正常透明度翻转到半透明度

为什么会这样，我能做些什么来修复它

我正在OSX上使用Mathematica 8。

尝试删除内部
图形中的
动态
，并将其放在
显示之前
@kguler:这修复了不透明度问题（尽管它确实会导致动态图形更新不太顺畅）。为什么有效？我不太清楚为什么有效。重新平滑更新我在我的系统中没有看到两个版本之间的差异。如果使用
Show
显示多个图形对象不是必需的，则可以使用
Dynamic@With[{pt=MousePosition[{“Graphics”，Graphics}]}，Graphics[{Yellow，Rectangle[]，If[pt==None，Locator[pt^2]]，Black，Text[pt，{0,0}，{-1，-1}]}，PlotRange->{-.2,1.2}，{-.2,1.2}]