anchor.diff:  
   const
     DELETE_COLOR = $1616FF;
  +  INTERP_LEVEL = 8;
   
   
   constructor TRenderPool.Create(aViewport: TKMViewport; aRender: TRender);
  
positive.code: var
    A: TKMAnimLoop;
    InterpOffset: Integer;
  const
    INTERP_LEVEL = 8;
  begin
    A := gRes.Units[aUnit].UnitAnim[aAct, aDir];
    InterpOffset := GetInterpSpriteOffset(aUnit, aAct, aDir);
  
    //While in development disable interpolation if the sprite is missing
    if (InterpOffset >= 1) and ((InterpOffset >= fRXData[rxUnits].Count) or (fRXData[rxUnits].Size[InterpOffset].X = 0)) then
  
negative.code:   id: Integer;
    A: TKMAnimLoop;
    R: TRXData;
    InterpOffset: Integer;
  begin
    A := gRes.Units.SerfCarry[aCarry, aDir];
    InterpOffset := GetCarryInterpSpriteOffset(aCarry, aDir);
  
    //While in development disable interpolation if the sprite is missing
    if (InterpOffset >= 1) and ((InterpOffset >= fRXData[rxUnits].Count) or (fRXData[rxUnits].Size[InterpOffset].X = 0)) then
      InterpOffset := -1;
  
    if InterpOffset >= 0 then
    begin
      id := InterpOffset
        + INTERP_LEVEL*(StepId mod Byte(A.Count))
        + EnsureRange(Floor(INTERP_LEVEL*StepFrac), 0, INTERP_LEVEL-1);
    end
    else
    begin
      id := A.Step[StepId mod Byte(A.Count) + 1] + 1;
    end;
  
    if id <= 0 then Exit;
    R := fRXData[rxUnits];
  
  