anchor.diff: -{
  +﻿{
   Random Map Generator
   @author: Martin Toupal
   @e-mail: poznamenany@gmail.com
  
positive.code: // aTiles = empty TKMTerrainTileBriefArray
  procedure TKMRandomMapGenerator.GenerateMap(var aTiles: TKMTerrainTileBriefArray);
  var
    aX,aY,Y, X, K, X0,X1,X2,Y0,Y1,Y2,i: Integer;
    Pmin,Pmax: TKMPoint;
    S1,S2,S3,S4: TInteger2Array;
    A,TileTemplateArr: TKMByte2Array;
    S: TInteger2Array;
    TDAP: TKMPoint2Array;
    P: TKMPointArray;
    Points: TKMPoint2Array;
    Resources: TBalancedResource1Array;
    TilesPartsArr: TTileParts;
  
    //Queue: TKMQuickFlood;
    FillBiome: TKMFillBiome;
  
    LocMin, LocMax: TKMPoint;
    Locs: TKMPointArray;
  
  
  
negative.code:     (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    );
  var
    X_0,Y_0,X_1,Y_1,X_2,Y_2,X1,X2,Y1,Y2,sum: Integer;
    H1,H2: TInteger2Array;
  begin
  
    H1 := LinearInterpolation(7,20);
  