hedgewars/uWorld.pas
changeset 2682 d4c395f25db2
parent 2671 7e0f88013fe8
child 2699 249adefa9c1c
equal deleted inserted replaced
2681:dcbb5e98afc7 2682:d4c395f25db2
   343 glEnable(GL_TEXTURE_2D);
   343 glEnable(GL_TEXTURE_2D);
   344 //glPushMatrix;
   344 //glPushMatrix;
   345 //glScalef(1.0, 1.0, 1.0);
   345 //glScalef(1.0, 1.0, 1.0);
   346 
   346 
   347 {$IFDEF IPHONEOS}
   347 {$IFDEF IPHONEOS}
   348 {* see the code in MainLoop *}
       
   349 SDL_GetMouseState(@x, @y);
   348 SDL_GetMouseState(@x, @y);
   350 if ((x > 50) and (x <= 270) and (y > 50) and (y <= 330)) then
   349 //WriteLnToConsole('x; ' + inttostr(x) + ' y: ' + inttostr(y));
   351 {$ENDIF}
   350 {$ENDIF}
   352 if not isPaused then MoveCamera;
   351 if not isPaused then MoveCamera;
   353 
   352 
   354 if not cReducedQuality then
   353 if not cReducedQuality then
   355     begin
   354     begin