anchor.diff:  end;
   
   
  -procedure TForm1.MakeImagesInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; aBaseDir: string; aExportType: TInterpExportType);
  -var
  -  RT: TRXType;
  +procedure TForm1.MakeInterpImages(RT: TRXType; A: TKMAnimLoop; aBaseDir: string; aExportType: TInterpExportType);
  +var
     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);
  
positive.code:   KMDeleteFolderContent(interpSpritesDir);
  
    AllBlank := True;
    A := fResUnits[aUT].UnitAnim[aAction,aDir];
    CanvasSize := GetMinCanvasSize(A, RT);
    for Step := 1 to A.Count do
    begin
  
negative.code:   KMDeleteFolder(dirShad);
    KMDeleteFolder(dirTeam);
  
    MakeInterpImages(rxUnits, A, dirBase, ietBase);
    MakeInterpImages(rxUnits, A, dirShad, ietShadows);
    MakeInterpImages(rxUnits, A, dirTeam, ietTeamMask);
  
    StrList := TStringList.Create;
  
  