equal
deleted
inserted
replaced
367 end; |
367 end; |
368 |
368 |
369 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame: LongInt; Angle: real); |
369 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame: LongInt; Angle: real); |
370 begin |
370 begin |
371 glPushMatrix; |
371 glPushMatrix; |
372 glTranslatef(X - SpritesData[Sprite].Width div 2, Y - SpritesData[Sprite].Width div 2, 0); |
372 glTranslatef(X, Y, 0); |
373 glRotatef(Angle, 0, 0, 1); |
373 glRotatef(Angle, 0, 0, 1); |
374 |
374 |
375 DrawSprite(Sprite, 0, 0, Frame, nil); |
375 DrawSprite(Sprite, -SpritesData[Sprite].Width div 2, -SpritesData[Sprite].Width div 2, Frame, nil); |
376 |
376 |
377 glPopMatrix |
377 glPopMatrix |
378 end; |
378 end; |
379 |
379 |
380 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y: LongInt; Angle: real); |
380 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y: LongInt; Angle: real); |