delphi opengl 三维隧道（国外英文资料）.docVIP

delphi opengl 三维隧道 项目隧道； 使用 窗户, 信息, OpenGL， BMP； const wnd_title =隧道的应用Jan Horn； fps_timer = 1；//定时器计算FPS fps_interval = 1000；//计算FPS每1000毫秒 texture_speed = 1 / 50； 型glcoord =记录 X，Y，Z：GL AMBIENT； 结束； VaR h_wnd：hwnd；/ /全球的窗口句柄 h_dc：HDC；/ /全球设备上下文 h_rc：所；/ /渲染上下文 键：布尔的数组[ 0…255 ]；/ /持有击键 fpscount：整数= 1；//计数器为FPS ElapsedTime：整数；//之间经过的时间框架 / /纹理 tunneltex：GLuint； / /用户变量 隧道：阵列[ 0 .. 32, 0 .. 32的glcoord ]； 角度：GL AMBIENT； 速度：GL AMBIENT； 手册：布尔型； { $ } 程序将（目标：GLenum；质地：GLuint）；stdcall；外部opengl32； { ------------------------------------------------------------------ } {函数将int转换为字符串。（没有SysUtils =小exe）} { ------------------------------------------------------------------ } 函数的IntToStr（民数记：整数）：字符串；/ /使用SysUtils增加文件大小由100K 开始 STR（数字，结果）； 结束； { ------------------------------------------------------------------ } {绘制实际场景}的函数 { ------------------------------------------------------------------ } 程序gldraw()； var I，j：整数； C、J1、J2：GL AMBIENT； 开始 glClear里（gl_color_buffer_bit或gl_depth_buffer_bit）；//清除屏幕和深度缓冲区 glloadidentity()；/ /重置视图 glTranslatef（0.0,0.0，- 4.2）； 如果手动然后 角度=角度+速度 其他的 角度：= ElapsedTime / 14； /设置隧道坐标 对我来说：= 0比12 开始 对于j = 0比32做 开始 隧道[ i，j ]：=（3 - J / 12）*（2 *π/ 12 * i）+ 2 *（（角度+ 2 *）/ 29）+（（角度+ 2 *）/ 13）- 2 *（角/ 29）-余弦（角/） 隧道[ i，J = y：=（3 - J / 12）* *（2 *π/ 12 * i）+ 2 *余弦（（角+ 2 *）/ 33）+（（角度+ 2 *）/ 17）- 2 *余弦（角/ 33）-罪（角/ 17） 隧道[ i，j ]； 结束； 结束； //隧道 对于j = 0比30做 开始 J1：= J / 32 +角texture_speed；/ /时的速度v坐标的纹理 J2：=（j + 1）/ 32 +角texture_speed； /靠近隧道的尽头，将效果减弱。 如果J＞24 C = 1（j-24）/ 10 其他的 C: = 1； glColor3f（C，C，C）； glBegin（gl_quads）； 对我来说：= 0比11 开始 gltexcoord2f（（I-3）/ 12，J1 glVertex3f（隧道）；[我]，[我X，隧道，隧道]。Y，[我]。Z）； gltexcoord2f（（I-2）/ 12，J1 glVertex3f（隧道）；[我] + 1。x，隧道[我+ 1 ]。Y，隧道[我] + 1，Z）； gltexcoord2f（（I-2）/ 12，J2）；glVertex3f（隧道[我+ 1，J + 1 ]。X，隧道[我+ 1，J + 1 ]。Y，隧道[我+ 1，J + 1 ]。Z）； gltexcoord2f（（I-3）/ 12，J2）；glVertex3f（隧道[我，J + 1 ]。X，隧道[我，J + 1 ]。Y，隧道[我，J + 1 ]。Z）； 结束； glend()； 结束； 结束； { ------------------------------------------------------------------ } { Initialise OpenGL } { ----------