anchor.diff:      procedure EndVBO;
       procedure DoTiles(AnimStep: Integer);
       procedure DoOverlays;
  -    procedure DoFences(aFieldsList: TKMPointTagList; aHousePlansList: TKMPointDirList);
  +    procedure DoFences;
  +    procedure DoMarks(aFieldsList: TKMPointTagList; aHousePlansList: TKMPointDirList);
       procedure DoLighting;
       procedure DoWater(AnimStep: Integer);
       procedure DoShadows;
  
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: var
    UVa, UVb: TKMPointF;
    TexID: Integer;
    x1,x2,y1,y2,FenceX, FenceY: Single;
    HeightInPx: Integer;
  begin
    case aFence of
  