equal
deleted
inserted
replaced
736 begin |
736 begin |
737 if (Source^.w + 20) > cScreenWidth then |
737 if (Source^.w + 20) > cScreenWidth then |
738 scale:= cScreenWidth / (Source^.w + 20) |
738 scale:= cScreenWidth / (Source^.w + 20) |
739 else |
739 else |
740 scale:= 1.0; |
740 scale:= 1.0; |
741 DrawTexture(X - round((Source^.w * scale) div 2, Top, Source, scale) |
741 DrawTexture(X - round(Source^.w * scale) div 2, Top, Source, scale) |
742 end; |
742 end; |
743 |
743 |
744 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
744 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
745 const VertexBuffer: array [0..3] of TVertex2f = ( |
745 const VertexBuffer: array [0..3] of TVertex2f = ( |
746 (x: -16; y: -16), |
746 (x: -16; y: -16), |