hedgewars/uStore.pas
changeset 2285 6746bda385e8
parent 2284 bd091b6b128d
child 2290 bf87ca44782e
equal deleted inserted replaced
2284:bd091b6b128d 2285:6746bda385e8
   971 end;
   971 end;
   972 
   972 
   973 procedure SetScale(f: GLfloat);
   973 procedure SetScale(f: GLfloat);
   974 begin
   974 begin
   975 cScaleFactor:= f;
   975 cScaleFactor:= f;
   976 cWaterSprCount:= 1 + round(cScreenWidth * 2 / cScaleFactor / SpritesData[sprWater].Width);
   976 if SpritesData[sprWater].Width <> 0 then
       
   977     cWaterSprCount:= 1 + round(cScreenWidth * 2 / cScaleFactor / SpritesData[sprWater].Width);
   977 
   978 
   978 glLoadIdentity;
   979 glLoadIdentity;
   979 glViewport(0, 0, cScreenWidth, cScreenHeight);
   980 glViewport(0, 0, cScreenWidth, cScreenHeight);
   980 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0);
   981 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0);
   981 //glTranslatef(-cScreenWidth / 2, -cScreenHeight / 2, 0);
   982 //glTranslatef(-cScreenWidth / 2, -cScreenHeight / 2, 0);