anchor.diff:      procedure RenderObjectOrQuad(Index,AnimStep,pX,pY:integer; DoImmediateRender:boolean=false; Deleting:boolean=false);
       procedure RenderObject(Index,AnimStep,pX,pY:integer; DoImmediateRender:boolean=false; Deleting:boolean=false);
       procedure RenderObjectQuad(Index:integer; AnimStep,pX,pY:integer; IsDouble:boolean; DoImmediateRender:boolean=false; Deleting:boolean=false);
  -    procedure RenderCursorWireQuad(P:TKMPoint; Col:TColor4);
  -    procedure RenderCursorBuildIcon(P:TKMPoint; id:integer=479);
  -    procedure RenderCursorWireHousePlan(P:TKMPoint; aHouseType:THouseType);
  -    procedure RenderCursorHighlights;
  -    procedure RenderBrightness(Value: Byte);
  -
  +
  +    //Terrain rendering sub-class
       procedure RenderTerrain;
       procedure RenderTerrainTiles(x1,x2,y1,y2,AnimStep:integer);
       procedure RenderTerrainFieldBorders(x1,x2,y1,y2:integer);
       procedure RenderTerrainObjects(x1,x2,y1,y2,AnimStep:integer);
   
  +    //Terrain overlay cursors rendering (incl. sprites highlighting)
  +    procedure RenderCursorHighlights;
  +    procedure RenderCursorWireQuad(P:TKMPoint; Col:TColor4);
  +    procedure RenderCursorBuildIcon(P:TKMPoint; id:integer=479);
  +    procedure RenderCursorWireHousePlan(P:TKMPoint; aHouseType:THouseType);
  +
  +    procedure RenderBrightness(Value: Byte);
     public
       constructor Create(ScreenX,ScreenY: Integer; aSetup: TRenderSetup);
       destructor Destroy; override;
  
positive.code:     procedure AddUnitCarry(aCarry:TResourceType; aDir:TKMDirection; StepID:integer; pX,pY:single);
      procedure AddUnitThought(Thought:TUnitThought; pX,pY:single);
      procedure AddUnitFlag(aUnit:TUnitType; aAct:TUnitActionType; aDir:TKMDirection; StepID:integer; pX,pY:single; FlagColor:TColor4; UnitX,UnitY:single; NewInst:boolean);
      procedure AddUnitWithDefaultArm(aUnit:TUnitType; aAct:TUnitActionType; aDir:TKMDirection; StepID:integer; pX,pY:single; FlagColor:TColor4; NewInst:boolean; DoImmediateRender:boolean=false; Deleting:boolean=false);
    end;
  
  
  
negative.code: end;
  
  
  procedure TRender.AddUnitWithDefaultArm(aUnit:TUnitType; aAct:TUnitActionType; aDir:TKMDirection; StepID:integer; pX,pY:single; FlagColor:TColor4; DoImmediateRender:boolean=false; Deleting:boolean=false);
  begin
    if aUnit = ut_Fish then aAct := FishCountAct[5]; //In map editor always render 5 fish
    AddUnit(aUnit,aAct,aDir,StepID,pX,pY,FlagColor,True,DoImmediateRender,Deleting);
    if fResource.UnitDat[aUnit].SupportsAction(ua_WalkArm) then
      AddUnit(aUnit,ua_WalkArm,aDir,StepID,pX,pY,FlagColor,True,DoImmediateRender,Deleting);
  end;
  
  
  