anchor.diff:        gRenderAux.Quad(Loc.X, Loc.Y, Color);
       end;
     end;
  -
  -  // Paint existing forests / chop only wodcutters
  -  //HT := ht_Woodcutters;
  -  //for K := 0 to fPlannedHouses[HT].Count - 1 do
  -  //begin
  -  //  Loc := fPlannedHouses[HT].Plans[K].SpecPoint;
  -  //  if not KMSamePoint(Loc, KMPOINT_ZERO) then
  -  //  begin
  -  //    if (gAIFields.Influences.AvoidBuilding[ Loc.Y, Loc.X ] >= AVOID_BUILDING_FOREST_ADD) then
  -  //      gRenderAux.Quad(Loc.X, Loc.Y, COLOR_DARK_GREEN)
  -  //    else
  -  //      gRenderAux.Quad(Loc.X, Loc.Y, COLOR_DARK_RED);
  -  //  end;
  -  //end;
   end;
   
   
  
positive.code: 
  procedure TKMCityPlanner.Paint();
  const
    COLOR_WHITE = $80FFFFFF;
    COLOR_BLACK = $80000000;
    COLOR_GREEN = $6000FF00;
    COLOR_DARK_GREEN = $AA00FF00;
    COLOR_RED = $800000FF;
    COLOR_DARK_RED = $AA0000FF;
    COLOR_YELLOW = $8000FFFF;
    COLOR_GREEN_Field = $4400FF00;
    COLOR_GREEN_Wine = $3355FFFF;
    COLOR_BLUE = $60FF0000;
  var
    I,K: Integer;
    Division: Single;
  
negative.code:   end;
  
  const
    DISTANCE_BETWEEN_TOWERS = 5.5;
  var
    I, K, DefCount: Integer;
    P1,P2: TKMPoint;
  