- procedure TMainForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
- var
- [...]
- begin
- [...]
- (*****************)
- (*RENDERVORGANG*)
- (*****************)
- glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
- glLoadIdentity;
- //Rendert die Map
- RenderMap;
- glColor3f(1.0,1.0,1.0);
- //eigene funktion (nicht beachten)
- glPrint2D(2dfont, pchar('Z: '+floattostrf(wz,FFNUMBER,2,2)),0,0);
- if (Hi(GetAsyncKeyState(vk_left))) = 128 then wx:=wx+0.01;
- if (Hi(GetAsyncKeyState(vk_right)))= 128 then wx:=wx-0.01;
- if (Hi(GetAsyncKeyState(vk_up))) = 128 then begin wy:=wy-0.01; wz:=wz+0.01;end;
- if (Hi(GetAsyncKeyState(vk_down))) = 128 then begin wy:=wy+0.01; wz:=wz-0.01;end;
- (*************************)
- (*************************)
- (*************************)
- if myShowFPS then
- begin
- Inc(fps);
- if gt-st>=1000 then
- begin
- MainForm.Caption:=myTitle+Format(' - FPS: %f', [fps/(gt-st)*1000]);
- fps:=0;
- st:=gt;
- end;
- end;
- SwapBuffers(Canvas.Handle);
- end;