anchor.diff:  var
     UVa, UVb: TKMPointF;
     TexID: Integer;
  -  y1,y2,FenceWidth: Single;
  +  x1,x2,y1,y2,FenceX, FenceY: Single;
     HeightInPx: Integer;
   begin
     case aFence of
  
positive.code:     if Land[I,K].FenceSide and 4 = 4 then RenderFence(Land[I,K].Fence, dir_W, K, I);
      if Land[I,K].FenceSide and 8 = 8 then RenderFence(Land[I,K].Fence, dir_S, K, I);
    end;
  
    //Rope field marks
    for I := 0 to aFieldsList.Count - 1 do
  
negative.code:     procedure EndVBO;
      procedure DoTiles(AnimStep: Integer);
      procedure DoOverlays;
      procedure DoFences;
      procedure DoMarks(aFieldsList: TKMPointTagList; aHousePlansList: TKMPointDirList);
      procedure DoLighting;
      procedure DoWater(AnimStep: Integer);
      procedure DoShadows;
  