在RGL包中的Play3d

Question

我正在使用R编程中的RGL包进行项目。 我很乐意，如果有人可以帮助我使用相同的play3d功能。

这是我打算做的。 我有一个polygon3d（x，y，z），它在输出窗口上绘制一个多边形，现在我想在每次迭代时用一些值来翻译它，比如10个单位的5轮。

我研究过，但所有可用的资源都是关于多边形旋转t持续时间。 这种情况的例子是：

M <- par3d("userMatrix")
play3d( 
  par3dinterp(userMatrix=list(M,rotate3d(M, angle=pi, x=1 ,y=0, z=0))), 
  duration=10
)

上面的代码沿x轴旋转我的多边形10秒并停止。

我想将我的多边形翻译10秒，其中一些给定的参数指定每秒翻译多少。

我的多边形基本上是一个加号（代表一个四轴飞行器），我想要将运动显示为从地面（xy轴）升高到空气（z轴）。

任何帮助将深表感谢。

谢谢大家

Answer 1

您需要使用转换矩阵的转置来执行此操作。 例如，要翻译（x，y，z），请使用

M <- par3d("userMatrix")
play3d( 
  par3dinterp(userMatrix=list(M, M %*% t(translationMatrix(x, y, z)))), 
  duration=10
)

这是在？rgl.setMouseCallbacks示例中完成的。

编辑添加x，y，z值以回答下面的问题。