anchor.diff:  End;
   
   { ClothSpring }
  -Procedure ClothSpring.Init(System:ClothSystem; PID1, PID2: Integer; Len: Single);
  +Procedure ClothSpring.Init(PID1, PID2: Integer; Len, Stiffness:Double);
   Begin
     Self.P1 := PID1;
     Self.P2 := PID2;
  -  Self.NaturalLength := Len;
  -  Self.InverseLength := 1.0 / Len;
  -
  -  System._Particles[PID1].AddSpring(_Index, PID2);
  -  System._Particles[PID2].AddSpring(_Index, PID1);
  -End;
  -
  -{ ClothParticle }
  -Procedure ClothParticle.AddSpring(SpringIndex, ParticleIndex: Integer);
  -Begin
  -  Inc(SpringCount);
  -  SetLength(Springs, SpringCount);
  -  Springs[Pred(SpringCount)].SpringIndex := SpringIndex;
  -  Springs[Pred(SpringCount)].ParticleIndex := ParticleIndex;
  +  Self._NaturalLength := Len;
  +  Self._InverseLength := 1.0 / Len;
  +  Self._Stiffness := Stiffness;
   End;
   
   { ClothSystem }
  
positive.code:   timePassedInSeconds:Single;
    I, J, K, N:Integer;
  
    springLength, Extension:Double;
    force, acceleration, tensionDirection:VECTOR3D;
    P:Vector3D;
  Begin
  
negative.code:   GraphicsManager.Instance.AddRenderable(Floor);
    GraphicsManager.Instance.AddRenderable(ClothInstance);
  
    //DrawBoundingBox(V, ClothInstance.GetBoundingBox, ColorBlue);
  End;
  
  
  