简单的Delphi 3d函数

Question

有人能帮我解决德尔菲的一些光秃秃的老学校3d方法的例子吗？不使用openGL或火猴或任何外部库(香草画布编码)。我想要做的是能够旋转X个点围绕一个共同的猎户座。从我以前的记忆中，你从右边减去左边(在3d点上)，这样origo总是0,0 -然后执行计算，最后添加左/顶像素偏移以得到实际的屏幕位置。

我想要的是一套小的，特别的例程，ala：

• RotateX(aValue:T3dpoint；degr:浮点)：T3dPoint；
• RotateY(-/-)
• RotateZ(-/-)

使用这些函数，应该可以很容易地创建旧的“旋转三维立方体”(8点)。

此外，是否有功能来计算出可见的“面孔”？如果我想要一个填充的矢量立方体，那么我想我需要提取可见区域(基于距离/重叠？)哪一个反过来被画成X个填充多边形？毫无疑问，这些问题必须按深度进行分类，以避免出现混乱。

例如：

• PointsToFaces(Consta3dObject:T3dPointArray)：TPolyFaceArray；
• SortFaces(Const :TPolyFaceArray)：TPolyFaceArray；

欢迎任何帮助！

Answer 1

下面是德尔菲数学从efg参考获得的一些很好的老资源。

你可以找到一个图形项目清单。

2D/3D Lab矢量图：平移、旋转、缩放、视图变换、齐次坐标、裁剪、投影、矢量、矩阵等。

Answer 2

几年前，我写了一个简单的3D渲染“引擎”，只使用天真的线性代数。不过，可能不是最有效的办法。如果你想要移动得相当平稳的话，几千点就是极限。样品EXE。你可以得到代码，如果你喜欢，但它可能不是那么漂亮。