DGL • Thema anzeigen - Timebased Movement, Prinzip klar, Ausführung unklar

Timebased Movement, Prinzip klar, Ausführung unklar

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Mishra

Betreff des Beitrags: Timebased Movement, Prinzip klar, Ausführung unklar

Verfasst: So Feb 12, 2006 18:38

DGL Member

Registriert: Di Feb 07, 2006 20:22
Beiträge: 27

Hi all,

sorry das ich auch schon wieder belästige, aber ich habe da ein kleines Problem mit Timebased Movement. Ich habe mir den Artikel im Wiki durchgelesen und das Prinzip zwar verstanden, allerdings habe ich keine Ahnung wie ich das jetzt auf mein Programm anwenden soll (wie geben ich die Ursprungsposition und die Geschwindigkeit an?).

Ich habe ein Programm geschrieben, was ein Dreieck erzuegt und es nach rechts bewegt. Natürlich läuft das viel zu schnell, daher wollte ich es mit Timebased Movement umschreiben. Schaut es euch mal bitte an:

Code:

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglOpenGL;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Render;
    procedure OnIdle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  DC, RC :HDC;
  i :integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
InitOpenGL;
DC:=GetDC(Handle);
RC:=CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);
glClearColor(0.0, 0.0, 0.0, 0.0);
Application.OnIdle:=Onidle;
i:=0;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeactivateRenderingContext;
DestroyRenderingContext(RC);
ReleaseDC(Handle,DC);
end;
 
procedure TForm1.Render;
begin
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glViewport(0, 0, ClientWidth, ClientHeight);
  gluPerspective(60, ClientWidth/ClientHeight,1, 128);
  glMatrixMode(GL_Modelview);
  glLoadIdentity;
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glTranslatef(-1.5+i, 0,-6);
  glBegin(GL_TRIANGLES);
  glColor3f(1, 0, 0); glVertex3f(-1,-1, 0);  
  glColor3f(0, 0, 1); glVertex3f( 1,-1, 0);
  glColor3f(0, 1, 0); glVertex3f( 0, 1, 0);
glEnd;
i:=i+1;
SwapBuffers(DC);
end;
 
procedure TForm1.Onidle(Sender: TObject; var Done: Boolean);
begin
Render;
Done:= false;
end;
end.
 

Danke im Voraus.

Nach oben

Flash

Betreff des Beitrags:

Verfasst: So Feb 12, 2006 18:49

Guitar Hero

Registriert: Do Sep 25, 2003 15:56
Beiträge: 7810
Wohnort: Sachsen - ERZ / C
Programmiersprache: Java (, Pascal)

Ne idee wäre folgendes.

Du machst dir ne Variable XPos. Die initialisierst du mit dem start wert.
Dann willst du nen Faktor haben, um den sich XPos sagen wir pro Sekunde bewegen soll. z.B. 1.5.

Bei jedem renderdurchlauf misst du wie lange du benötigt hast. sagen wir mal du hast 0.01 Sekunden benötigt. Dann addierst du auf XPos den Wert (benötigt/Zielzeit)*1.5 also (0.01/1)*1.5 = 0.015;

Um zu checken, ob dein TBM funktioniert, kannst du in deiner Renderschleife ja mal ein sleep einbauen, welches zufällig variert. Eigentlich sollte die Bewegung gleichmäßig bleiben.

_________________
Blog: kevin-fleischer.de und fbaingermany.com

Nach oben

Mishra

Betreff des Beitrags:

Verfasst: Mo Feb 13, 2006 21:11

DGL Member

Registriert: Di Feb 07, 2006 20:22
Beiträge: 27

Danke jetzt funzt alles!

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.