hedgewars/uWorld.pas
changeset 760 23aaafa40b4e
parent 759 8da05b316d81
child 762 5ecf042f6113
equal deleted inserted replaced
759:8da05b316d81 760:23aaafa40b4e
   373       r.y:= 0;
   373       r.y:= 0;
   374       r.w:= fpsTexture^.w;
   374       r.w:= fpsTexture^.w;
   375       r.h:= fpsTexture^.h;
   375       r.h:= fpsTexture^.h;
   376       DrawFromRect(cScreenWidth - 50, 10, @r, fpsTexture, Surface);
   376       DrawFromRect(cScreenWidth - 50, 10, @r, fpsTexture, Surface);
   377       end
   377       end
   378 //  SDL_UpperBlit(fpsSurface, nil, Surface, @r)
       
   379    end;
   378    end;
   380 
   379 
   381 inc(SoundTimerTicks, Lag);
   380 inc(SoundTimerTicks, Lag);
   382 if SoundTimerTicks >= 50 then
   381 if SoundTimerTicks >= 50 then
   383    begin
   382    begin