26 procedure StoreRelease; |
26 procedure StoreRelease; |
27 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
27 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
28 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
28 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
29 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt); |
29 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt); |
30 procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture); |
30 procedure DrawSurfSprite(X, Y, Height, Frame: LongInt; Source: PTexture); |
31 procedure DrawLand (X, Y: LongInt); |
|
32 procedure DrawTexture(X, Y: LongInt; Texture: PTexture); |
31 procedure DrawTexture(X, Y: LongInt; Texture: PTexture); |
33 procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt); |
32 procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, Frames: LongInt); |
34 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
33 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
35 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
34 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
36 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); |
490 r.y:= Frame * Height; |
489 r.y:= Frame * Height; |
491 r.h:= Height; |
490 r.h:= Height; |
492 DrawFromRect(X, Y, @r, Source) |
491 DrawFromRect(X, Y, @r, Source) |
493 end; |
492 end; |
494 |
493 |
495 procedure DrawLand(X, Y: LongInt); |
|
496 begin |
|
497 DrawTexture(X, Y, LandTexture) |
|
498 end; |
|
499 |
|
500 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
494 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
501 begin |
495 begin |
502 DrawTexture(X - Source^.w div 2, Top, Source) |
496 DrawTexture(X - Source^.w div 2, Top, Source) |
503 end; |
497 end; |
504 |
498 |