hedgewars/uRender.pas
changeset 15184 e7d7fe9f20e1
parent 15035 a315927a44b2
child 15359 c117e17b90bc
child 15361 5c0479d0ed5b
equal deleted inserted replaced
15183:7ae8ec7a9a8e 15184:e7d7fe9f20e1
  1255     begin
  1255     begin
  1256     openglTranslatef(PivotX, PivotY, 0);
  1256     openglTranslatef(PivotX, PivotY, 0);
  1257     openglRotatef(Angle, 0, 0, 1);
  1257     openglRotatef(Angle, 0, 0, 1);
  1258     openglTranslatef(-PivotX, -PivotY, 0);
  1258     openglTranslatef(-PivotX, -PivotY, 0);
  1259     end;
  1259     end;
       
  1260 
       
  1261 UpdateModelviewProjection;
  1260 
  1262 
  1261 DrawSprite(Sprite, -SpritesData[Sprite].Width div 2, -SpritesData[Sprite].Height div 2, Frame);
  1263 DrawSprite(Sprite, -SpritesData[Sprite].Width div 2, -SpritesData[Sprite].Height div 2, Frame);
  1262 
  1264 
  1263 openglPopMatrix;
  1265 openglPopMatrix;
  1264 
  1266