[OpenGl] Anfängerfrage - Rechteck bewegen

[bigben37]

Hallo SunSet,

das Problem besteht darin, dass das OpenGL Koordinatensystem mit all seinen Transformationen am Anfang jedes Renderns auf seinen Ursprungszustand gesetzt wird. Also verschiebst du bei deinem Klick das Rechteck immer um die gleiche Strecke.
Deshalb nimmst du am besten eine Variable, in der du die Strecke zum verschieben speicherst, diese dann beim Key Event veränderst und dann das Koordinatensystem transformierst und schließlich das Quad zeichnest.

Noch eine Anmerkung: Das Transformieren vor glBegin aufrufen:

Delphi-Quellcode:

procedure Render;
begin
  //Initialisieren ...

  glTranslated(dx, 0, 0);  //dx immer im OnKey ändern

  glBegin(GL_QUADS);
  //hier jetzt dein quad 
end;

[SunSet]

Danke, klappt Nur sieht das ganze ziemlich verzerrt aus wenn ich es bewege, woran liegt das?
DoubleBuffered ist auf true, wobei ich eher denke das es am Timer liegt oder?

[bigben37]

Wenn du im OnKeyDown den Wert der Verschiebung einfach so veränderst, kann es sein dass zwischen 2x rendern unterschiedlich viele mal das Event aufgerufen wird. Deshalb würd ich im OnKeyDown einen boolean setzen, die festhält, dass die taste gedrückt wurde. In deinem Timer überprüfst du dann, ob die variable gesetzt worden ist. Wenn ja, dann die zu verschiebende Strecke ändern und den boolean wieder auf false setzen, damit sich das Quad nur wieder bewegt, wenn der boolean von dem keydown geändert wird.
Falls das jetzt zu kompliziert formuliert war^^:

Delphi-Quellcode:

var
  MoveLeft: Boolean;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_LEFT then
    MoveLeft := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MoveLeft then
  begin
    dx := dx - 5;
    MoveLeft := false;
  end;
end;

[SunSet]

Ne, haste gut erklärt. Da hast du auch vollkommen Recht, ist ja logisch.
Vielen Dank