hedgewars/uWorld.pas
changeset 3444 9d501dc22f71
parent 3434 6af73e7f2438
child 3445 1ce844170014
equal deleted inserted replaced
3443:14d12df0d363 3444:9d501dc22f71
   538     highlight: Boolean;
   538     highlight: Boolean;
   539     offset, offsetX, offsetY, ScreenBottom: LongInt;
   539     offset, offsetX, offsetY, ScreenBottom: LongInt;
   540     scale: GLfloat;
   540     scale: GLfloat;
   541     VertexBuffer: array [0..3] of TVertex2f;
   541     VertexBuffer: array [0..3] of TVertex2f;
   542 begin
   542 begin
   543 if ZoomValue < zoom then
   543 if not isPaused then
   544     begin
   544     begin
   545     zoom:= zoom - 0.002 * Lag;
   545     if ZoomValue < zoom then
   546     if ZoomValue > zoom then zoom:= ZoomValue
   546         begin
   547     end else
   547         zoom:= zoom - 0.002 * Lag;
   548 if ZoomValue > zoom then
   548         if ZoomValue > zoom then zoom:= ZoomValue
   549     begin
   549         end else
   550     zoom:= zoom + 0.002 * Lag;
   550     if ZoomValue > zoom then
   551     if ZoomValue < zoom then zoom:= ZoomValue
   551         begin
   552     end;
   552         zoom:= zoom + 0.002 * Lag;
       
   553         if ZoomValue < zoom then zoom:= ZoomValue
       
   554         end
       
   555     end
       
   556 else
       
   557     ZoomValue:= zoom;
   553 
   558 
   554 // Sky
   559 // Sky
   555 glClear(GL_COLOR_BUFFER_BIT);
   560 glClear(GL_COLOR_BUFFER_BIT);
   556 //glPushMatrix;
   561 //glPushMatrix;
   557 //glScalef(1.0, 1.0, 1.0);
   562 //glScalef(1.0, 1.0, 1.0);