- procedure TForm1.Render;
- var i:integer;
- begin
- glViewport(0, 0, Width, Height);
- glMatrixMode(GL_PROJECTION);
- glLoadIdentity;
- glOrtho(0,Width,0,Height, -10,10);
- glMatrixMode(GL_MODELVIEW);
- glLoadIdentity;
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- {---Kugel zeichnen---}
- glBegin(GL_TRIANGLE_FAN);
- for i:=0 to 360 do
- glVertex2f(Sin(2*Pi/360*i)*r+xm,Cos(2*Pi/360*i)*r+ym); //Eine kugel zeichnen
- glcolor3f(1,0.7,0);
- glEnd;
- xm:=xm+vx; //Bewegung in die Sache bringen
- ym:=ym+vy; //vx und vy = 1
- SwapBuffers(DC);//um so mehr swapbuffers um so langsamer die bilder (fps)
- SwapBuffers(DC);
- SwapBuffers(DC);
- SwapBuffers(DC);
- SwapBuffers(DC); //is eine Notlösung um das langsamer zu machen :P
- SwapBuffers(DC);
- end;