hedgewars/uGearsRender.pas
changeset 12769 272fcd3833d2
parent 12686 4e5e725f2c56
child 12854 40c410cd6402
equal deleted inserted replaced
12768:ad67a3804981 12769:272fcd3833d2
  1546                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
  1546                                     DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
  1547                                     end;
  1547                                     end;
  1548                                 end
  1548                                 end
  1549                           end
  1549                           end
  1550                       end;
  1550                       end;
  1551             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle);
  1551             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.DirAngle);
  1552             gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
  1552             gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
  1553          end;
  1553          end;
  1554     if Gear^.State and gstFrozen <> 0 then untint
  1554     if Gear^.State and gstFrozen <> 0 then untint
  1555 end;
  1555 end;
  1556 
  1556