Manipulate中调节定位器大小

Question

我做了一个动态三次贝塞尔曲线，可是调节定位器大小试了很久，还是无法将定位器变得小一些

Manipulate[
 Show[ParametricPlot[{pts[[1, 1]] (1 - t)^3 + 
     3 pts[[2, 1]] t (1 - t)^2 + 3 pts[[3, 1]] t^2 (1 - t) + 
     pts[[4, 1]] t^3, 
    pts[[1, 2]] (1 - t)^3 + 3 pts[[2, 2]] t (1 - t)^2 + 
     3 pts[[3, 2]] t^2 (1 - t) + pts[[4, 2]] t^3}, {t, 0, 1}, 
   PlotRange -> 5], 
  Graphics[{Dashed, Green, Line[pts], Red, Point[pts]}, 
   Frame -> True]], {{pts, {{-3, 0}, {-1, 3}, {1, -3}, {3, 0}}}, 
  Locator, LocatorAutoCreate -> True}]

我看帮助中的示例，定位器是可以被缩小的...可是在我上面的代码中，我试了很久无法达到缩小定位器尺寸的效果...

 

 

Answer 1

不知道为什么在Manipulate里指定Appearance -> Tiny控件会变成"Tiny"的文字，所以需要手动处理一下，比如这样

Manipulate[
 Show[ParametricPlot[{(1 - t)^3 pts[[1, 1]] +
     3 (1 - t)^2 t pts[[2, 1]] + 3 (1 - t) t^2 pts[[3, 1]] +
     t^3 pts[[4, 1]], (1 - t)^3 pts[[1, 2]] +
     3 (1 - t)^2 t pts[[2, 2]] + 3 (1 - t) t^2 pts[[3, 2]] +
     t^3 pts[[4, 2]]}, {t, 0, 1}, PlotRange -> 5],
  Graphics[{Dashed, Green, Line[pts], Red, Point[pts]},
   Frame -> True]], {{pts, {{-3, 0}, {-1, 3}, {1, -3}, {3, 0}}},
  Locator, Appearance -> Graphics[Circle[{0, 0}, Scaled[.02]]],
  LocatorAutoCreate -> True}]

调节Scaled里的数值可以改变控件的大小，修改Graphics里的内容也可以得到不同形状的控件，非常自由

Comments

没有“为什么”，Manipulate里直接写了问题中的这么用Appearance就是改变成指定的东西，例如Tiny就是改变成文字。。