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: end;
  
  
  procedure TForm1.MakeImagesInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; aBaseDir: string; aExportType: TInterpExportType);
  var
    RT: TRXType;
    origSpritesDir, interpSpritesDir: string;
    A: TKMAnimLoop;
    Step, SpriteID, CanvasSize: Integer;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    NeedAlpha, AllBlank, Worked: Boolean;
  begin
    RT := rxUnits;
    if fSprites[RT] = nil then
    begin
      fSprites[RT] := TKMSpritePackEdit.Create(RT, fPalettes);
  
negative.code:   KMDeleteFolderContent(interpSpritesDir);
  
    AllBlank := True;
    CanvasSize := GetMinCanvasSize(A, RT);
    for Step := 1 to A.Count do
    begin
  