GL_Scene Pong spiel mit Zylindern (collision???)

[Die Muhkuh]

Zitat von Neutron:

Delphi-Quellcode:

procedure TForm1.CollisionManager1Collision(Sender: TObject; object1,
object2: TGLBaseSceneObject);
begin

if ((object1.Name='GLCylinder4') or (object2.Name='GLCylinder4')) then begin
if refelectball = false then begin
ballVector[1]:=-ballVector[1];
ballVector[0]:=ballVector[0];
GLCylinder3.Position.X := GLCylinder3.Position.X + 0.4;  // # Markiert #
refelectball := true;
end;
end;

if ((object1.Name <>'GLCylinder4') or (object2.Name <>'GLCylinder4')) then begin
refelectBall:=False;
end;
end;

Für mich sieht es so aus, als gehört die markierte Zeile nicht dahin.