Kollisionstest mit GLScene schlägt fehl...

[turboPASCAL]

Japp.

a)

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  col, col2: tglbcollision;
begin
  col := tglbcollision.Create(GLCube1.Behaviours);
  col.BoundingMode := cbmCube;
  col.Manager := CollisionManager1;
  col.Name := 'Collision';
  GLCube1.Behaviours.Add(col);

  col2 := tglbcollision.Create(GLCube2.Behaviours);
  col2.BoundingMode := cbmCube;
  col2.Manager := CollisionManager1;
  col2.Name := 'Collision';
  [b]GLCube2[/b].Behaviours.Add(col2);

b)
Im GLSceneEditor bei Cube2 im Behaviours die Collision rausschmeissen.

c)
Die Timer kannst du weg lassen, mach es mit dem Cadencer.