anchor.diff:  
   
   procedure TRenderAux.Passability(const aRect: TKMRect; aPass: Byte);
  +const
  +  DRAW_DOT_FOR_PASS: set of TKMTerrainPassability = [tpElevate, tpFactor];
   var
     I, K: Integer;
     pass: TKMTerrainPassability;
  
positive.code:   begin
      pass := TKMTerrainPassability(aPass);
      glColor4f(0,1,0,0.25);
      for I := aRect.Top to aRect.Bottom do
        for K := aRect.Left to aRect.Right do
          if pass in gTerrain.Land[I,K].Passability then
          begin
            if pass = tpFactor then
              DotOnTerrain(K-1,I-1,icRed)
            else
              RenderQuad(K,I);
          end;
  
negative.code:     procedure Circle(x, y, rad: Single; Fill, Line: TColor4);
      procedure CircleOnTerrain(x, y, rad: Single; Fill, Line: TColor4);
      procedure Dot(x, y: Single; aCol: TColor4; aSize: Single = 0.05);
      procedure DotOnTerrain(x, y: Single; aCol: TColor4; aSize: Single = 0.05);
      procedure LineOnTerrain(x1, y1, x2, y2: Single; aCol: TColor4; aPattern: Word = $FFFF; aDots: Boolean = True); overload;
      procedure LineOnTerrain(const A, B: TKMPoint; aCol: TColor4; aPattern: Word = $FFFF; aDots: Boolean = True); overload;
      procedure LineOnTerrain(const A, B: TKMPointF; aCol: TColor4; aPattern: Word = $FFFF; aDots: Boolean = True); overload;
  