hedgewars/uGearsRender.pas
changeset 6139 a912b85e3ece
parent 6138 5cd55ca715b9
child 6140 863357503fb4
equal deleted inserted replaced
6138:5cd55ca715b9 6139:a912b85e3ece
   893 
   893 
   894        gtRCPlane: begin
   894        gtRCPlane: begin
   895                   Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
   895                   Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
   896                   if Gear^.Tag = -1 then
   896                   if Gear^.Tag = -1 then
   897                      begin
   897                      begin
   898                      DrawRotatedF(sprPlane, x, y, 0, -1, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   898                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 0, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   899                      Tint($FF, $FF, $FF, $FF);
   899                      Tint($FF, $FF, $FF, $FF);
   900                      DrawRotatedF(sprPlane, x, y, 1, -1, DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   900                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 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                      DrawRotatedF(sprPlane, x, y, 0, 0,  DxDy2Angle(Gear^.dY, Gear^.dX));
   904                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 0, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   905                      Tint($FF, $FF, $FF, $FF);
   905                      Tint($FF, $FF, $FF, $FF);
   906                      DrawRotatedF(sprPlane, x, y, 1, 0,  DxDy2Angle(Gear^.dY, Gear^.dX))
   906                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 1, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   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?