TGLDamping

type TGLDamping = class(TGLUpdateAbleObject)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure WriteToFiler();

  procedure ReadFromFiler();

  procedure Assign(); override;

  function Calculate();

  function AsString();

  procedure SetDamping();

published

  property Constant: Single; [rw]

  property Linear: Single; [rw]

  property Quadratic: Single; [rw]

end;

TGLDamping

TGLUpdateAbleObject

TObject,IGLNotifyAble