TXPhysicsEngine

type TXPhysicsEngine = class(TGLCadenceAbleComponent)

protected

  procedure SetCadencer();

  procedure SetWorldGravity();

  procedure SetActive();

  procedure SetAllowSmallerTimeSteps();

  procedure SetAllowFreezing();

  procedure SetAllowReuseCollisions();

  procedure SetPenetrationResolveFraction();

  procedure SetTimeScale();

  procedure SetIterationsForCollision();

  procedure SetIterationsForContact();

  procedure SetIterationsForPenetration();

  procedure SetMinValueToStarSeparateObjs();

  procedure SetMinValueToStartProcessCollisions();

  procedure SentMessageToKernel();

  procedure OnWorldGravityChange();

  procedure OnThreadExecute();

  procedure DefineProperties(); override;

  procedure WriteWorldForces();

  procedure ReadWorldForces();

  procedure WriteWorldHeightMaps();

  procedure ReadWorldHeightMaps();

  procedure WriteWorldJoints();

  procedure ReadWorldJoints();

  procedure Loaded; override;

  function GetTXPEBehaviour();

  procedure RegisterPXBehaviour();

  procedure UnregisterPXBehaviour();

  procedure Step();

  property PhysicsBehaviours []: TXPhysicsBehaviour; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoProgress(); override;

  procedure Clear;

  property Physics: TPhysics; [r]

published

  property Active: Boolean; [rw]

  property Cadencer: TGLCadencer; [rw]

  property WorldForces: TWorldForceList; [r]

  property WorldHeightMaps: TWorldHeightMapList; [r]

  property WorldJoints: TWorldJointList; [r]

  property WorldGravity: TGLCoordinates; [rw]

  property AllowSmallerTimeSteps: Boolean; [rw]

  property AllowFreezing: Boolean; [rw]

  property AllowReuseCollisions: Boolean; [rw]

  property PenetrationResolveFraction: Single; [rw]

  property TimeScale: Single; [rw]

  property IterationsForCollision: Integer; [rw]

  property IterationsForContact: Integer; [rw]

  property IterationsForPenetration: Integer; [rw]

  property MinValueToStarSeparateObjs: Single; [rw]

  property MinValueToStartProcessCollisions: Single; [rw]

  property OnActivate: TNotifyEvent; [rw]

  property OnDeActivate: TNotifyEvent; [rw]

end;

TXPhysicsEngine

TGLCadenceAbleComponent

TObject,IGLProgessAble