delphi - 全局轮换

Question

在 GLScene我们有三个参数(RollAngle、PitchAngle 和 TurnAngle)用于围绕局部方向旋转。在下图中，如何围绕全局方向(橙色轴)旋转立方体？

Answer 1

您需要将轴角度旋转转换为欧拉角。这是一个用代码详细解释此过程的链接:
http://www.euclideanspace.com/maths/geometry/rotations/conversions/angleToEuler/index.htm

摘自文章:

yaw   = atan2(y * sin(angle)- x * z * (1 - cos(angle)) 
                , 1 - (y2 + z2 ) * (1 - cos(angle)))   

pitch = asin(x * y * (1 - cos(angle)) + z * sin(angle))   

roll  = atan2(x * sin(angle)-y * z * (1 - cos(angle)) 
             , 1 - (x2 + z2) * (1 - cos(angle)))

编辑:重命名变量以与俯仰、偏航、横滚命名约定保持一致。