delphi课件:多线程 模拟星空 真实3D算法

2012-04-21  金城  2138

采用了真实的3D影射算法。这个在QBasic时代玩过,现在很怀旧,用delphi重温一遍,心里美滋滋的。

另带 简单的 多线程演示。

3D影射原理图

以人眼为原点,视平中线为Z轴。上下为x轴,左右为y轴。

sx=远处实物的x坐标

px=实物x坐标与人眼连线交于屏幕上的坐标

nz=实物到屏幕的距离,uz=人眼到屏幕的距离

sz=实物z坐标 = nz+uz

px=uz*sx/sz

 效果图

可以用方向键控制飞行方向。

 课件下载.rar