anchor.diff:      FreeAndNil(StrList);
     end;
   end;
  -
   
   
   procedure TForm1.DoInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; var aPicOffset: Integer; aDryRun: Boolean);
  
positive.code: unit AnimInterpForm;
  
  interface
  
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  
negative.code: var
    DainExe: string;
  begin
    DainExe := fDainFolder + 'DAINAPP.exe';
    Result := 'cmd.exe /C "'+DainExe+'" --cli 1 -o '+aDir+' -p 0 -l 1 -in '+IntToStr(aInterpLevel)+' -da 0 -se 0 -si 1 -sr 0 -ha 0 --fast_mode 0';
    if aAlpha then
      Result := Result + ' -a 1';
  