33 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
33 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
34 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
34 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
35 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
35 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
36 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
36 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
37 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
37 procedure DrawFromRect(X, Y: LongInt; r: PSDL_Rect; SourceTexture: PTexture); |
38 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
38 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real; Invulnerable: boolean); |
39 procedure DrawFillRect(r: TSDL_Rect); |
39 procedure DrawFillRect(r: TSDL_Rect); |
40 function RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture; |
40 function RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture; |
41 procedure RenderHealth(var Hedgehog: THedgehog); |
41 procedure RenderHealth(var Hedgehog: THedgehog); |
42 procedure AddProgress; |
42 procedure AddProgress; |
43 procedure FinishProgress; |
43 procedure FinishProgress; |
494 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
494 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
495 begin |
495 begin |
496 DrawTexture(X - Source^.w div 2, Top, Source) |
496 DrawTexture(X - Source^.w div 2, Top, Source) |
497 end; |
497 end; |
498 |
498 |
499 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
499 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real; Invulnerable: boolean); |
500 var l, r, t, b: real; |
500 var l, r, t, b: real; |
501 begin |
501 begin |
502 |
502 |
503 t:= Pos * 32 / HHTexture^.h; |
503 t:= Pos * 32 / HHTexture^.h; |
504 b:= (Pos + 1) * 32 / HHTexture^.h; |
504 b:= (Pos + 1) * 32 / HHTexture^.h; |