--- a/hedgewars/uLand.pas	Wed Jul 26 13:44:11 2006 +0000
+++ b/hedgewars/uLand.pas	Thu Jul 27 15:24:14 2006 +0000
@@ -64,7 +64,7 @@
 {$ENDIF}
 end;
 
-procedure DrawBezierEdge(var pa: TPixAr);
+procedure DrawBezierEdge(var pa: TPixAr; Color: Longword);
 var x, y, i: integer;
     tx, ty, vx, vy, vlen, t: real;
     r1, r2, r3, r4: real;
@@ -121,7 +121,7 @@
           Y:= round(r1 + r2 + r3 + r4);
           t:= t + 0.001;
           if ((x and $FFFFF800) = 0) and ((y and $FFFFFC00) = 0) then
-                Land[y, x]:= 0;
+                Land[y, x]:= Color;
           end;
     end;
 end;
@@ -450,11 +450,13 @@
 
      PointWave(Template, pa);
      NormalizePoints(pa);
-     DrawBezierEdge(pa);
+     DrawBezierEdge(pa, 0);
 
      for i:= 0 to pred(FillPointsCount) do
          with FillPoints^[i] do
-              FillLand(x, y)
+              FillLand(x, y);
+
+     DrawBezierEdge(pa, COLOR_LAND);
      end;
 end;