anchor.diff:      procedure RenderFence(aFence: TKMFenceType; Pos: TKMDirection; pX,pY: Integer);
       procedure RenderMarkup(pX, pY: Word; aFieldType: TKMFieldType);
       procedure DoRenderTile(aTerrainId: Word; pX,pY,Rot: Integer; aDoBindTexture: Boolean; aUseTileLookup: Boolean; DoHighlight: Boolean = False; HighlightColor: Cardinal = 0);
  +    function DoUseVBO: Boolean;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:   pData[3] := $00000000;
    fTextB := TRender.GenTexture(4, 1, @pData[0], tfRGBA8);
  
    fUseVBO := VBOSupported and not RENDER_3D;
  
    if fUseVBO then
    begin
  
negative.code: end;
  
  
  procedure TRenderTerrain.DoRenderTile(aTerrainId: Word; pX,pY,Rot: Integer; aDoBindTexture: Boolean; aUseTileLookup: Boolean;
                                        DoHighlight: Boolean = False; HighlightColor: Cardinal = 0);
  var
    K, I: Integer;
  