equal
deleted
inserted
replaced
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); |
634 var i: integer; |
|
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); |