43 procedure DrawCircle(X, Y, Radius, Width: LongInt);

    43 procedure DrawCircle(X, Y, Radius, Width: LongInt);

    44 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);

    44 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);

    45 procedure Tint(r, g, b, a: Byte); inline;

    45 procedure Tint(r, g, b, a: Byte); inline;

    46 procedure Tint(c: Longword); inline;

    46 procedure Tint(c: Longword); inline;

    47 

    47 

    50 

    48 

    51 implementation

    49 implementation

    52 uses uVariables;

    50 uses uVariables;

    53 

    51 

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

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