hedgewars/uGearsRender.pas
changeset 10869 f23763bbac1b
parent 10867 36ca7a39f34d
child 10992 995ecbdf72de
equal deleted inserted replaced
10868:acb03a9712c3 10869:f23763bbac1b
   252                 DrawTextureF(SpritesData[sprFrame].Texture, 0.5, x - fSprOff, y, 0, 1, SpritesData[sprFrame].Width, SpritesData[sprFrame].Height);
   252                 DrawTextureF(SpritesData[sprFrame].Texture, 0.5, x - fSprOff, y, 0, 1, SpritesData[sprFrame].Width, SpritesData[sprFrame].Height);
   253                 DrawTextureF(SpritesData[sprFrame].Texture, 0.5, x + fSprOff, y, 1, 1, SpritesData[sprFrame].Width, SpritesData[sprFrame].Height);
   253                 DrawTextureF(SpritesData[sprFrame].Texture, 0.5, x + fSprOff, y, 1, 1, SpritesData[sprFrame].Width, SpritesData[sprFrame].Height);
   254                 DrawTextureF(SpritesData[sprBigDigit].Texture, 0.5, x, y, c, 1, sprW, sprH);
   254                 DrawTextureF(SpritesData[sprBigDigit].Texture, 0.5, x, y, c, 1, sprW, sprH);
   255                 end
   255                 end
   256             else
   256             else
   257                 DrawCircle(x, y, 20, 3, 0, $FF, 0, $60);
   257                 DrawCircle(x, y, 20, 3, 0, $FF, $FF, $80);
   258             end;
   258             end;
   259         until (i > cMaxHHIndex);
   259         until (i > cMaxHHIndex);
   260     end
   260     end
   261 
   261 
   262 end;
   262 end;