简单的Delphi 3d功能

任何人都可以帮我解决Delphi中一些裸体,旧式3D方法的例子吗？不使用openGL或firemonkey或任何外部库(vanilla canvas编码).我想要做的是能够围绕共同的原点旋转X个点.从我以往的记忆中,你从左边减去(在3d点上),使origo始终为0,0 – 然后执行计算,最后添加左/上像素偏移以获得实际的屏幕位置.

我正在寻找的是一套小型的临时例程,ala：

> RotateX(aValue：T3dpoint; degr：float)：T3dPoint;
>旋转Y( – / – )
> RotateZ( – / – )

使用这些功能,创建旧的“旋转三维立方体”(8分)应该相当容易.

还有,找出可见的“面孔”的功能吗？如果我想要一个填充的矢量立方体,那么我想我需要提取可见区域(基于距离/重叠？),然后将其绘制为X个填充多边形？毫无疑问,这些必须按深度排序,以免出现问题.

例如：

> PointsToFaces(const a3dobject：T3dPointArray)：TpolyFaceArray;
> SortFaces(Const aFaces：TpolyFaceArray)：TpolyFaceArray;

欢迎任何帮助！