changeset 10354 | 56bd029245fc |
parent 10333 | e1253205eb7e |
child 10360 | c243b6a8ad9a |
10352:2af2309207b0 | 10354:56bd029245fc |
---|---|
845 end; |
845 end; |
846 |
846 |
847 procedure DrawTextureRotatedF(Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
847 procedure DrawTextureRotatedF(Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
848 var ft, fb, fl, fr: GLfloat; |
848 var ft, fb, fl, fr: GLfloat; |
849 hw, hh, nx, ny: LongInt; |
849 hw, hh, nx, ny: LongInt; |
850 VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
|
851 begin |
850 begin |
852 |
851 |
853 // note: not taking scale into account |
852 // note: not taking scale into account |
854 if isAreaOffscreen(X, Y, w, h) then |
853 if isAreaOffscreen(X, Y, w, h) then |
855 exit; |
854 exit; |
1518 procedure DrawWaves(Dir, dX, dY, oX: LongInt; tnt: Byte); |
1517 procedure DrawWaves(Dir, dX, dY, oX: LongInt; tnt: Byte); |
1519 var first, count, topy, lx, rx, spriteHeight, spriteWidth: LongInt; |
1518 var first, count, topy, lx, rx, spriteHeight, spriteWidth: LongInt; |
1520 lw, nWaves, shift: GLfloat; |
1519 lw, nWaves, shift: GLfloat; |
1521 sprite: TSprite; |
1520 sprite: TSprite; |
1522 begin |
1521 begin |
1523 |
|
1524 // note: spriteHeight is the Height of the wave sprite while |
1522 // note: spriteHeight is the Height of the wave sprite while |
1525 // cWaveHeight describes how many pixels of it will be above waterline |
1523 // cWaveHeight describes how many pixels of it will be above waterline |
1526 |
1524 |
1527 if SuddenDeathDmg then |
1525 if SuddenDeathDmg then |
1528 sprite:= sprSDWater |
1526 sprite:= sprSDWater |