TODECollisionSurface

type TODECollisionSurface = class(TPersistent)

protected

  procedure WriteToFiler();

  procedure ReadFromFiler();

  function GetSurfaceMode;

  function GetMu;

  function GetMu2;

  function GetBounce;

  function GetBounce_Vel;

  function GetSoftERP;

  function GetSoftCFM;

  function GetMotion1;

  function GetMotion2;

  function GetSlip1;

  function GetSlip2;

  procedure SetSurfaceMode();

  procedure SetMu();

  procedure SetMu2();

  procedure SetBounce();

  procedure SetBounce_Vel();

  procedure SetSoftERP();

  procedure SetSoftCFM();

  procedure SetMotion1();

  procedure SetMotion2();

  procedure SetSlip1();

  procedure SetSlip2();

public

  constructor Create();

  function GetOwner; override;

  procedure Assign(); override;

published

  property RollingFrictionCoeff: Single; [rw]

  property RollingFrictionEnabled: Boolean; [rw]

  property SurfaceMode: TODESurfaceModes; [rw]

  property Mu: TdReal; [rw]

  property Mu2: TdReal; [rw]

  property Bounce: TdReal; [rw]

  property Bounce_Vel: TdReal; [rw]

  property SoftERP: TdReal; [rw]

  property SoftCFM: TdReal; [rw]

  property Motion1: TdReal; [rw]

  property Motion2: TdReal; [rw]

  property Slip1: TdReal; [rw]

  property Slip2: TdReal; [rw]

end;

TODECollisionSurface

TObject