anchor.diff:  var
     A: TKMAnimLoop;
     I: Integer;
  -  bkgRGB: Cardinal;
   begin
     if aThought = thNone then
       Exit(-1);
  
positive.code:   if (A.Count <= 1) or (A.Step[1] = -1) then
      Exit(-1);
  
    DoInterp(rxUnits, A, $000000, aPicOffset, aDryRun);
  end;
  
  
  
negative.code:       animData := animData + ',';
      animData := animData+' // '+TRttiEnumerationType.GetName(ware)+#13#10;
    end;
    animData := animData + ');';
  
    animData := animData + #13#10 + #13#10;
    animData := animData + 'THOUGHT_INTERP_LOOKUP: array[TKMUnitThought] of Integer = ('+#13#10+'  ';
  
    for th := Low(TKMUnitThought) to High(TKMUnitThought) do
    begin
      try
        animPicOffset := DoInterpUnitThought(th, picOffset, not chkUnitThoughts.Checked);
      except
  