TXPhysicsBehaviour

type TXPhysicsBehaviour = class(TGLBehaviour)

protected

  FInitialized: Boolean;

  FBody: TPhysicsObject;

  FMass: Single;

  FEnabled: Boolean;

  FJointRegister: TList;

  FElasticity: Single;

  fFrictionStatic: Single;

  fFrictionDynamic: Single;

  FIsDynamic: Boolean;

  fIsNoMovable: Boolean;

  fAllowFreezing: Boolean;

  fDeactivationTime: Single;

  fActivityThresholdVel: Single;

  fActivityThresholdRot: Single;

  fActivationFactor: Single;

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure Loaded; override;

  procedure SetEngine();

  procedure SetEnabled();

  procedure SetMass();

  procedure SetElasticity();

  procedure SetFrictionStatic();

  procedure SetFrictionDynamic();

  procedure SetIsNoMovable();

  procedure SetAllowFreezing();

  procedure SetDeActivationTime();

  procedure SetActivityThresholdVel();

  procedure SetActivityThresholdRot();

  procedure SetActivationFactor();

  procedure DoFindOwnerSceneObjectType;

  procedure DoInitialize; virtual;

  procedure DoFinalize; virtual;

  procedure DoBeforeStep; virtual;

  procedure DoAfterStep; virtual;

  procedure DoSetValues;

  procedure DoBuildMeshData;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  class function FriendlyName; override;

  class function UniqueItem; override;

  property Body: TPhysicsObject; [r]

published

  property Engine: TXPhysicsEngine; [rw]

  property Enabled: Boolean; [rw]

  property IsDynamic: Boolean; [rw]

  property IsNoMovable: Boolean; [rw]

  property Mass: Single; [rw]

  property Elasticity: Single; [rw]

  property FrictionStatic: Single; [rw]

  property FrictionDynamic: Single; [rw]

  property AllowFreezing: Boolean; [rw]

  property DeActivationTime: Single; [rw]

  property ActivityThresholdVel: Single; [rw]

  property ActivityThresholdRot: Single; [rw]

  property ActivationFactor: Single; [rw]

end;

TXPhysicsBehaviour

TObject