hedgewars/uStore.pas
changeset 2844 cea15ef417ea
parent 2843 75f18393d70a
child 2873 e7acb0251a22
--- a/hedgewars/uStore.pas	Mon Feb 22 05:50:29 2010 +0000
+++ b/hedgewars/uStore.pas	Mon Feb 22 10:56:43 2010 +0000
@@ -51,7 +51,6 @@
 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt);
 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt);
 procedure DrawSpriteClipped(Sprite: TSprite; X, Y, TopY, RightX, BottomY, LeftX: LongInt);
-procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture);
 procedure DrawTexture(X, Y: LongInt; Texture: PTexture);
 procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, w, h: LongInt);
 procedure DrawRotatedTextureF(Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real);
@@ -693,16 +692,6 @@
 DrawFromRect(X, Y, @r, SpritesData[Sprite].Texture)
 end;
 
-procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture);
-var r: TSDL_Rect;
-begin
-r.x:= 0;
-r.w:= Source^.w;
-r.y:= Frame * Height;
-r.h:= Height;
-DrawFromRect(X, Y, @r, Source)
-end;
-
 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 begin
 DrawTexture(X - Source^.w shr 1, Top, Source)