Delphi OpenGL绘图

Question

我正在这样设置我的窗口:

glMatrixMode (GL_PROJECTION);
glLoadIdentity ();
glOrtho (0, form1.Width, form1.height, 0, 0, 1);
glMatrixMode (GL_MODELVIEW);
glDisable(GL_DEPTH_TEST);

我的绘图例程如下所示:

tempdist:=0.3 / distance(i,0,1,2);
xunit:=1 div 90;
zunit:=1 div 74;
glBegin(GL_LINE_LOOP);
case players[i].isteam of
2:glcolor3f(1.0,0.0,0.0); //Terrorist
3:glcolor3f(0.0,0.0,1.0); //Counter-Terrorist
end;
glvertex2f((thetax / 100)*xunit,(thetaz / 100)*zunit);
glvertex2f((thetax / 100)*xunit+tempdist,(thetaz / 100)*zunit);
glvertex2f((thetax / 100)*xunit+tempdist,(thetaz / 100)*zunit+tempdist);
glvertex2f((thetax / 100)*xunit,(thetaz / 100)*zunit+tempdist);
glEnd();
SwapBuffers(wglGetCurrentDC);

没有任何绘画的迹象。有帮助吗？

Answer 1

由于我们不知道您的代码中 thetax 的值是多少，您是否有可能在裁剪边界之外绘制？

使用 OpenGL 绘制您的第一个绘图通常是成功的一半。我建议去 DelphiGL并找到一个接近您想要的示例并从那里开始工作。该站点默认为德语，但有广泛的英语翻译。特别是他们有一组有用的默认模板。