53 

    53 

    54 

    54 

    55 implementation

    55 implementation

    56 uses uVariables;

    56 uses uVariables;

    57 

    57 

    58 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);

    60 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);

    59 begin

    61 begin

    60 r.y:= r.y + Height * Position;

    62 r.y:= r.y + Height * Position;

    61 r.h:= Height;

    63 r.h:= Height;

    62 DrawTextureFromRect(X, Y, @r, SpritesData[Sprite].Texture)

    64 DrawTextureFromRect(X, Y, @r, SpritesData[Sprite].Texture)