equal
deleted
inserted
replaced
587 DrawFromRect(X, Y, @r, Source) |
587 DrawFromRect(X, Y, @r, Source) |
588 end; |
588 end; |
589 |
589 |
590 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
590 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
591 begin |
591 begin |
592 DrawTexture(X - Source^.w div 2, Top, Source) |
592 DrawTexture(X - Source^.w shr 1, Top, Source) |
593 end; |
593 end; |
594 |
594 |
595 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
595 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
596 const VertexBuffer: array [0..3] of TVertex2f = ( |
596 const VertexBuffer: array [0..3] of TVertex2f = ( |
597 (x: -16; y: -16), |
597 (x: -16; y: -16), |