hedgewars/uRender.pas
branch0.9.17
changeset 6400 a057306acea6
parent 6394 f0a9042e7387
child 6580 6155187bf599
equal deleted inserted replaced
6375:fcea0c053bc1 6400:a057306acea6
    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 
    48 var
       
    49     HHTexture: PTexture;
       
    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);