equal
deleted
inserted
replaced
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); |