hedgewars/uVisualGears.pas
changeset 5583 63b274a4fb01
parent 5576 bf30c60786a5
child 5585 c09f5b41644a
equal deleted inserted replaced
5582:48ced03a9949 5583:63b274a4fb01
   482             vgtHealthTag: if Gear^.Tex <> nil then 
   482             vgtHealthTag: if Gear^.Tex <> nil then 
   483                             begin
   483                             begin
   484                             if Gear^.Frame = 0 then 
   484                             if Gear^.Frame = 0 then 
   485                                 DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   485                                 DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   486                             else
   486                             else
   487                                 begin 
   487                                 begin
   488                                 SetScale(cDefaultZoomLevel); 
   488                                 if Gear^.Angle <> 0 then SetScale(Gear^.Angle)
       
   489                                 else SetScale(cDefaultZoomLevel); 
   489                                 DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); 
   490                                 DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); 
   490                                 SetScale(zoom)
   491                                 SetScale(zoom)
   491                                 end
   492                                 end
   492                             end;
   493                             end;
   493 //if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
   494 //if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);