49 procedure StoreRelease; |
49 procedure StoreRelease; |
50 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
50 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
51 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
51 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
52 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt); |
52 procedure DrawSprite2(Sprite: TSprite; X, Y, FrameX, FrameY: LongInt); |
53 procedure DrawSpriteClipped(Sprite: TSprite; X, Y, TopY, RightX, BottomY, LeftX: LongInt); |
53 procedure DrawSpriteClipped(Sprite: TSprite; X, Y, TopY, RightX, BottomY, LeftX: LongInt); |
54 procedure DrawTexture(X, Y: LongInt; Texture: PTexture); |
54 procedure DrawTexture(X, Y: LongInt; Texture: PTexture; Scale: GLfloat = 1.0); |
55 procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, w, h: LongInt); |
55 procedure DrawTextureF(Texture: PTexture; Scale: GLfloat; X, Y, Frame, Dir, w, h: LongInt); |
56 procedure DrawRotatedTextureF(Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
56 procedure DrawRotatedTextureF(Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
57 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
57 procedure DrawRotated(Sprite: TSprite; X, Y, Dir: LongInt; Angle: real); |
58 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
58 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
59 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
59 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
522 |
522 |
523 glDisableClientState(GL_TEXTURE_COORD_ARRAY); |
523 glDisableClientState(GL_TEXTURE_COORD_ARRAY); |
524 glDisableClientState(GL_VERTEX_ARRAY) |
524 glDisableClientState(GL_VERTEX_ARRAY) |
525 end; |
525 end; |
526 |
526 |
527 procedure DrawTexture(X, Y: LongInt; Texture: PTexture); |
527 procedure DrawTexture(X, Y: LongInt; Texture: PTexture; Scale: GLfloat); |
528 begin |
528 begin |
529 glPushMatrix; |
529 glPushMatrix; |
530 glTranslatef(X, Y, 0); |
530 glTranslatef(X, Y, 0); |
|
531 glScalef(Scale, Scale, 1); |
531 |
532 |
532 glBindTexture(GL_TEXTURE_2D, Texture^.id); |
533 glBindTexture(GL_TEXTURE_2D, Texture^.id); |
533 |
534 |
534 glEnableClientState(GL_VERTEX_ARRAY); |
535 glEnableClientState(GL_VERTEX_ARRAY); |
535 glEnableClientState(GL_TEXTURE_COORD_ARRAY); |
536 glEnableClientState(GL_TEXTURE_COORD_ARRAY); |