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 (A.Count <= 1) or (A.Step[1] = -1) then
      Exit(-1);
  
    DoInterp(rxUnits, A, $FFFFFF, aPicOffset, aDryRun);
  end;
  
  
  function TForm1.DoInterpTree(aTree: Integer; var aPicOffset: Integer; aDryRun: Boolean): Integer;
  var
    A: TKMAnimLoop;
    bkgRGB: Cardinal;
  begin
    A := gMapElements[aTree].Anim;
  
    if (A.Count <= 1) or (A.Step[1] = -1) then
      Exit(-1);
  
    DoInterp(rxTrees, A, $000000, aPicOffset, aDryRun);
  end;
  
  
  
negative.code:       animData := animData + ',';
  
      if (I > 0) and (I mod 16 = 0) then
        animData := animData + #13#10+'  ';
    end;
    animData := animData + ');';
  
  