hedgewars/uLand.pas
changeset 797 e7fa1a1b9791
parent 769 788efc1d649f
child 827 ee4fa9ff2a7b
--- a/hedgewars/uLand.pas	Tue Mar 04 21:33:10 2008 +0000
+++ b/hedgewars/uLand.pas	Wed Mar 05 19:34:52 2008 +0000
@@ -635,6 +635,9 @@
 begin
 if LandTexture <> nil then
    begin
+   if (Height <= 0) then exit;
+   TryDo((Y >= 0) and (Y < 1024), 'UpdateLandTexture: wrong Y parameter', true);
+   TryDo(Y + Height < 1024, 'UpdateLandTexture: wrong Height parameter', true);
    glBindTexture(GL_TEXTURE_2D, LandTexture^.id);
 
    glTexSubImage2D(GL_TEXTURE_2D, 0, 0, Y, 2048, Height, GL_RGBA, GL_UNSIGNED_BYTE, @LandPixels[Y, 0]);