hedgewars/uGearsRender.pas
changeset 15899 73cdc306888f
parent 15822 4ede5e84278a
child 15900 128ace913837
equal deleted inserted replaced
15898:046182f1080b 15899:73cdc306888f
   556                         // assume infinite beam. Extend it way out past camera
   556                         // assume infinite beam. Extend it way out past camera
   557                         tx:= round(lx + ax * (max(LAND_WIDTH,4096) div 2));
   557                         tx:= round(lx + ax * (max(LAND_WIDTH,4096) div 2));
   558                         ty:= round(ly + ay * (max(LAND_WIDTH,4096) div 2));
   558                         ty:= round(ly + ay * (max(LAND_WIDTH,4096) div 2));
   559                         break;
   559                         break;
   560                         end;
   560                         end;
   561                     if ((WorldEdge = weWrap) or (WorldEdge = weBounce)) and (ty < -cCamLimitY) and (ay < 0) then
   561                     if ((WorldEdge = weWrap) or (WorldEdge = weBounce)) and ((ty < -cCamLimitY) or (ty >= TopY + cCamLimitY)) then
   562                         break;
   562                         break;
   563 
   563 
   564                     if ((hogLR < 0) and (tx < LeftX)) or ((hogLR > 0) and (tx >= RightX)) then
   564                     if ((hogLR < 0) and (tx < LeftX)) or ((hogLR > 0) and (tx >= RightX)) then
   565                         if (WorldEdge = weWrap) then
   565                         if (WorldEdge = weWrap) then
   566                             // wrap beam
   566                             // wrap beam