- procedure TForm1.DrawScene;
- begin
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- glLoadIdentity;
- //Hier wird später die Scene gezeichnet.
- DrawBahn;
- glTranslatef(0,0,1);
- DrawBahn;
- glTranslatef(0,0,1);
- DrawBahn;
- glTranslatef(0,0,1);
- DrawBahn;
- glTranslatef(0,0,1);
- DrawBahn;
- glTranslatef(0,0,1);
- DrawBahn;
- glTranslatef(0,0,1);
- SwapBuffers(h_DC);
- end;