hedgewars/uWorld.pas
changeset 3249 74a506c9d71b
parent 3248 8d4c61f6f30c
child 3265 5fe62296fdea
equal deleted inserted replaced
3248:8d4c61f6f30c 3249:74a506c9d71b
   451     if ZoomValue < zoom then zoom:= ZoomValue
   451     if ZoomValue < zoom then zoom:= ZoomValue
   452     end;
   452     end;
   453 
   453 
   454 offsetY:= 10 * min(0, -145 - (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine));
   454 offsetY:= 10 * min(0, -145 - (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine));
   455 
   455 
   456 SkyOffset:= offsetY div 35;
   456 //SkyOffset:= offsetY div 35 + cWaveHeight;
   457 HorizontOffset:= offsetY div 55;
   457 HorizontOffset:= offsetY div 35 + cWaveHeight;
       
   458 SkyOffset:= HorizontOffset;
   458 
   459 
   459 // Sky
   460 // Sky
   460 glClear(GL_COLOR_BUFFER_BIT);
   461 glClear(GL_COLOR_BUFFER_BIT);
   461 glEnable(GL_BLEND);
   462 glEnable(GL_BLEND);
   462 glEnable(GL_TEXTURE_2D);
   463 glEnable(GL_TEXTURE_2D);