hedgewars/uGearsRender.pas
changeset 6142 ee0bcee5bf86
parent 6141 2c190f5c037a
child 6224 42b256eca362
child 6308 ef2804785a4e
equal deleted inserted replaced
6141:2c190f5c037a 6142:ee0bcee5bf86
   899                       Tint($FF, $FF, $FF, $FF);
   899                       Tint($FF, $FF, $FF, $FF);
   900                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   900                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   901                       end
   901                       end
   902                   else
   902                   else
   903                       begin
   903                       begin
   904                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 0, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY));
   904                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 0, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dY, Gear^.dX));
   905                       Tint($FF, $FF, $FF, $FF);
   905                       Tint($FF, $FF, $FF, $FF);
   906                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY))
   906                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dY, Gear^.dX))
   907                       end
   907                       end
   908                   end;
   908                   end;
   909        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   909        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   910 
   910 
   911        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   911        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?