629         end;

   629         end;

   630 GenPreview:= Preview

   630 GenPreview:= Preview

   631 end;

   631 end;

   632 

   632 

   633 procedure UpdateLandTexture(Y, Height: LongInt);

   633 procedure UpdateLandTexture(Y, Height: LongInt);

   635 begin

   634 begin

   636 if LandTexture <> nil then

   635 if LandTexture <> nil then

   637    begin

   636    begin

   638    if (Height <= 0) then exit;

   637    if (Height <= 0) then exit;

   639    TryDo((Y >= 0) and (Y < 1024), 'UpdateLandTexture: wrong Y parameter', true);

   638    TryDo((Y >= 0) and (Y < 1024), 'UpdateLandTexture: wrong Y parameter', true);