anchor.diff:  
     ClothSpring = Object
       Protected
  -      _Index:Integer;
  -
       	//Indices of the Particles at either end of the spring
     	  P1, P2:Integer;
   
  -    	//Tension in the spring
  -	    Tension:Double;
  -
  -      NaturalLength:Double;
  -    	InverseLength:Double;
  -
  -    Procedure Init(System:ClothSystem; PID1, PID2: Integer; Len: Single);
  +      _NaturalLength:Double;
  +    	_InverseLength:Double;
  +
  +      _Stiffness:Double;
  +      
  +    Procedure Init(PID1, PID2: Integer; Len, Stiffness:Double);
     End;
   
     ClothSpringLink = Record
  
positive.code:     Begin
        _Particles[i].CurrentPosition := _Particles[i].NextPosition;
  			_Particles[i].CurrentVelocity := _Particles[i].NextVelocity;
      End;
  	End;
  
  
negative.code: End;
  
  { ClothSpring }
  Procedure ClothSpring.Init(PID1, PID2: Integer; Len, Stiffness:Double);
  Begin
    Self.P1 := PID1;
    Self.P2 := PID2;
    Self._NaturalLength := Len;
    Self._InverseLength := 1.0 / Len;
    Self._Stiffness := Stiffness;
  End;
  
  { ClothSystem }
  