anchor.diff:    TKMInterpolation = array[1..30, 0..7] of Integer;
   var
     I, picOffset, startPos: Integer;
  -  animStr: string;
     dir: TKMDirection;
     act: TKMUnitActionType;
     u: TKMUnitType;
  
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: end;
  
  
  procedure TForm1.DoInterpHouseAction(aHT: TKMHouseType; aHouseAct: TKMHouseActionType; var aPicOffset: Integer; aDryRun: Boolean);
  var
    A: TKMAnimLoop;
  begin
  