hedgewars/uGearsRender.pas
changeset 15747 ed3c5c15dcbd
parent 15746 ff18f99f3f5d
child 15748 ff8bd08f7d98
equal deleted inserted replaced
15746:ff18f99f3f5d 15747:ed3c5c15dcbd
   564                             // wrap beam
   564                             // wrap beam
   565                             begin
   565                             begin
   566                             if hogLR < 0 then
   566                             if hogLR < 0 then
   567                                 lx:= RightX - (ax - (lx - LeftX))
   567                                 lx:= RightX - (ax - (lx - LeftX))
   568                             else
   568                             else
   569                                 lx:= LeftX + (ax - (RightX - lx));
   569                                 lx:= LeftX + (-ax - (RightX - lx));
   570                             tx:= round(lx);
   570                             tx:= round(lx);
   571                             inc(wraps);
   571                             inc(wraps);
   572                             end
   572                             end
   573                         else if (WorldEdge = weBounce) then
   573                         else if (WorldEdge = weBounce) then
   574                             // just stop
   574                             // just stop