anchor.diff:  
       function GetMinCanvasSize(A: TKMAnimLoop; RT: TRXType): Integer;
       function GetDainParams(aDir: string; aAlpha: Boolean): string;
  -    procedure MakeImagesInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; aBaseDir: string; aExportType: TInterpExportType);
  +    procedure MakeInterpImages(RT: TRXType; A: TKMAnimLoop; aBaseDir: string; aExportType: TInterpExportType);
       function DoInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; var aPicOffset: Integer): Integer;
     public
       { Public declarations }
  
positive.code:   KMDeleteFolder(dirShad);
    KMDeleteFolder(dirTeam);
  
    MakeImagesInterpUnit(aUt, aAction, aDir, dirBase, ietBase);
    MakeImagesInterpUnit(aUt, aAction, aDir, dirShad, ietShadows);
    MakeImagesInterpUnit(aUt, aAction, aDir, dirTeam, ietTeamMask);
  
    StrList := TStringList.Create;
  
  
negative.code:   KMDeleteFolderContent(interpSpritesDir);
  
    AllBlank := True;
    CanvasSize := GetMinCanvasSize(A, RT);
    for Step := 1 to A.Count do
    begin
  