anchor.diff:      procedure DoInterpSerfCarry(aWare: TKMWareType; aDir: TKMDirection; var aPicOffset: Integer; aDryRun: Boolean);
       procedure DoInterpUnitThought(aThought: TKMUnitThought; var aPicOffset: Integer; aDryRun: Boolean);
       procedure DoInterpTree(aTree: Integer; var aPicOffset: Integer; aDryRun: Boolean);
  -    function DoInterpHouseAction(aHT: TKMHouseType; aHouseAct: TKMHouseActionType; var aPicOffset: Integer; aDryRun: Boolean): Integer;
  -    function DoInterpBeast(beastHouse, beast, beastAge: Integer; var aPicOffset: Integer; aDryRun: Boolean): Integer;
  +    procedure DoInterpHouseAction(aHT: TKMHouseType; aHouseAct: TKMHouseActionType; var aPicOffset: Integer; aDryRun: Boolean);
  +    procedure DoInterpBeast(beastHouse, beast, beastAge: Integer; var aPicOffset: Integer; aDryRun: Boolean);
     public
       { Public declarations }
     end;
  
positive.code: 
  function BlendRGBA(Back, Fore: Cardinal): Cardinal;
  var
    C, RGB, Alpha: Cardinal;
    R1, R2, G1, G2, B1, B2, A1, A2: Single;
    Ro, Go, Bo, Ao: Single;
  begin
  
negative.code: 
  function TForm1.GetDainParams(aDir: string; aAlpha: Boolean): string;
  var
    DainExe: string;
  begin
    DainExe := fDainFolder+'DAINAPP.exe';
    Result := 'cmd.exe /C "'+DainExe+'" --cli 1 -o '+aDir+' -p 0 -l 1 -in 8 -da 0 -se 0 -si 1 -sr 0 -ha 0 --fast_mode 0';
  