anchor.diff:        Inc(Result);
     end;
   
  -{$R *.dfm}
  -
   
   procedure TForm1.FormCreate(Sender: TObject);
   begin
  
positive.code: uses
    ShellApi, Math, RTTI, KM_FileIO, KromUtils,
    KM_Log, KM_IoPNG, KM_ResWares, KM_ResInterpolation;
  
  const
    USE_BASE_BEASTS = False;
  
negative.code:     procedure DoInterpTree(aTree: Integer; var aPicOffset: Integer; aDryRun: Boolean);
      procedure DoInterpHouseAction(aHT: TKMHouseType; aHouseAct: TKMHouseActionType; var aPicOffset: Integer; aDryRun: Boolean);
      procedure DoInterpBeast(beastHouse, beast, beastAge: Integer; var aPicOffset: Integer; aDryRun: Boolean);
    end;
  
  var
  