TVerletAssembly

type TVerletAssembly = class

  Iterations: Integer;

  Nodes: TVerletNodeList;

  Constraints: TVerletConstraintList;

  Forces: TVerletForceList;

  myDeltaTime: Single;

  myNewTime: Single;

  MaxDeltaTime: Single;

  Drag: Single;

  procedure Initialize; virtual;

  procedure AccumulateForces(); virtual;

  procedure Verlet(); virtual;

  procedure SatisfyConstraints(); virtual;

  function Progress(); virtual;

  constructor Create; virtual;

  destructor Destroy; override;

  function VerletNodeClass; virtual;

  function CreateOwnedNode(); virtual;

  function FirstNode;

  function LastNode;

end;

TVerletAssembly

TObject