delphi课件：多线程 模拟星空 真实3D算法
2012-04-21 金城 2153
采用了真实的3D影射算法。这个在QBasic时代玩过，现在很怀旧，用delphi重温一遍，心里美滋滋的。
另带 简单的 多线程演示。
3D影射原理图
以人眼为原点，视平中线为Z轴。上下为x轴,左右为y轴。
sx=远处实物的x坐标
px=实物x坐标与人眼连线交于屏幕上的坐标
nz=实物到屏幕的距离，uz=人眼到屏幕的距离
sz=实物z坐标 = nz+uz
px=uz*sx/sz
效果图
可以用方向键控制飞行方向。