anchor.diff:  uses
     Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
     Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  -  KM_ResPalettes;
  +  KM_ResPalettes, KM_Defaults, KM_CommonTypes, KM_Points, KM_ResSprites, KM_ResSpritesEdit, KM_Pics, KM_ResUnits;
   
   type
     TForm1 = class(TForm)
  
positive.code: 
    fPalettes := TKMResPalettes.Create;
    fPalettes.LoadPalettes(ExeDir + 'data\gfx\');
  end;
  
  end.
  
negative.code: implementation
  uses
    ShellApi, Math,
    KM_ResHouses, KM_Log, KM_PNG;
  
  {$R *.dfm}
  
  
  function TForm1.DoInterpUnit(aUT: TKMUnitType; aAction: TKMUnitActionType; aDir: TKMDirection; aPicOffset: Integer): Integer;
  var
    RT: TRXType;
    RXName: string;
    I, Step, SpriteID: Integer;
    A: TKMAnimLoop;
    pngWidth, pngHeight, newWidth, newHeight: Word;
  