equal
deleted
inserted
replaced
513 r.h:= Height; |
513 r.h:= Height; |
514 DrawFromRect(X, Y, @r, SpritesData[Sprite].Texture) |
514 DrawFromRect(X, Y, @r, SpritesData[Sprite].Texture) |
515 end; |
515 end; |
516 |
516 |
517 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
517 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
518 var r: TSDL_Rect; |
518 begin |
519 var flag: integer = 0; |
519 DrawSprite2 (Sprite, X, Y, 0, Frame); |
520 begin |
|
521 if flag = 0 then r.x:= 0 |
|
522 else r.x := 0; |
|
523 r.w:= SpritesData[Sprite].Width; |
|
524 r.y:= Frame * SpritesData[Sprite].Height; |
|
525 r.h:= SpritesData[Sprite].Height; |
|
526 DrawFromRect(X, Y, @r, SpritesData[Sprite].Texture) |
|
527 end; |
520 end; |
528 |
521 |
529 procedure DrawSpriteClipped(Sprite: TSprite; X, Y, TopY, RightX, BottomY, LeftX: LongInt); |
522 procedure DrawSpriteClipped(Sprite: TSprite; X, Y, TopY, RightX, BottomY, LeftX: LongInt); |
530 var r: TSDL_Rect; |
523 var r: TSDL_Rect; |
531 begin |
524 begin |