diff -r 180b044f09b7 -r 1f545d9a10ca hedgewars/uStore.pas --- a/hedgewars/uStore.pas Wed Sep 10 14:37:27 2008 +0000 +++ b/hedgewars/uStore.pas Thu Sep 11 15:30:04 2008 +0000 @@ -30,7 +30,7 @@ procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture); procedure DrawLand (X, Y: LongInt); procedure DrawTexture(X, Y: LongInt; Texture: PTexture); -procedure DrawTextureF(Texture: PTexture; X, Y, Frame, Dir, Frames: LongInt); +procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt); procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); @@ -357,12 +357,13 @@ glEnd() end; -procedure DrawTextureF(Texture: PTexture; X, Y, Frame, Dir, Frames: LongInt); +procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt); var ft, fb: GLfloat; hw: LongInt; begin glPushMatrix; glTranslatef(X, Y, 0); +glScalef(Scale, Scale, 1.0); if Dir < 0 then hw:= - 16