Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsRender.pas
changeset 13213 1ac1f5a91ec0
parent 13150 2f7c25bf4201
child 13214 9c81e34f1933
equal deleted inserted replaced
13212:e9e4cc867b6e 13213:1ac1f5a91ec0 
  1552                           end
 
  1552                           end
 
  1553                       end;
 
  1553                       end;
 
  1554             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
  1554             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
  1555                     // replace with something based on dx/dy?
 
  1555                     // replace with something based on dx/dy?
 
  1556                     Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) ));
 
  1556                     Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) ));
 
  1557             gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
 
  1557             gtGenericFaller: DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF); // debug
 
  1558          end;
 
  1558          end;
 
  1559     if Gear^.State and gstFrozen <> 0 then untint
 
  1559     if Gear^.State and gstFrozen <> 0 then untint
 
  1560 end;
 
  1560 end;
 
  1561 
  1561 
  1562 procedure RenderGearTimer(Gear: PGear; x, y: LongInt);
 
  1562 procedure RenderGearTimer(Gear: PGear; x, y: LongInt);
hedgewars