anchor.diff:    else
       bkgRGB := $000000;
   
  -  DoInterp(rxUnits, A, bkgRGB, aPicOffset, aDryRun);
  +  Result := DoInterp(rxUnits, A, bkgRGB, aPicOffset, aDryRun);
   end;
   
   
   function TForm1.DoInterpSerfCarry(aWare: TKMWareType; aDir: TKMDirection; var aPicOffset: Integer; aDryRun: Boolean): Integer;
   var
     A: TKMAnimLoop;
  -  bkgRGB: Cardinal;
   begin
     if aDir = dirNA then
       Exit(-1);
  
positive.code:     if th <> High(TKMUnitThought) then
        animData := animData + ',';
    end;
    animData := animData + ');';
  
    animData := animData + #13#10 + #13#10;
    animData := animData + 'TREE_INTERP_LOOKUP: array [0..OBJECTS_CNT] of Integer = ('+#13#10;
  
    picOffset := TREES_RX_OFFSET;
  
    for I := 0 to OBJECTS_CNT do
    begin
      animData := animData + '  ';
      try
        animPicOffset := DoInterpTree(I, picOffset, not chkTrees.Checked);
      except
        on E: Exception do
        begin
          memoErrors.Text := memoErrors.Text + ' Tree ' + IntToStr(I) + ' - ' + E.Message + #13#10;
          animPicOffset := -1;
        end;
      end;
  
negative.code: var
    A: TKMAnimLoop;
    I: Integer;
  begin
    if aThought = thNone then
      Exit(-1);
  