DEADSOFTWARE

`forEachAlongLine()` switched to `TLineWalker`
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Sep 2017 19:53:48 +0000 (22:53 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Sep 2017 19:56:20 +0000 (22:56 +0300)
src/game/g_grid.pas

index 99533e9db18b18444f4634429499566071c761fd..55feca9a094f1ac89568f79b79e78f5ab2e72d93 100644 (file)
@@ -1197,8 +1197,6 @@ end;
 
 // ////////////////////////////////////////////////////////////////////////// //
 function TBodyGridBase.forGridRect (x, y, w, h: Integer; cb: TGridInternalCB; bodyId: TBodyProxyId): Boolean;
-const
-  tsize = mTileSize;
 var
   gx, gy: Integer;
   gw, gh: Integer;
@@ -1213,12 +1211,12 @@ begin
   gw := mWidth;
   gh := mHeight;
   //tsize := mTileSize;
-  if (x >= gw*tsize) or (y >= gh*tsize) then exit;
-  for gy := y div tsize to (y+h-1) div tsize do
+  if (x >= gw*mTileSize) or (y >= gh*mTileSize) then exit;
+  for gy := y div mTileSize to (y+h-1) div mTileSize do
   begin
     if (gy < 0) then continue;
     if (gy >= gh) then break;
-    for gx := x div tsize to (x+w-1) div tsize do
+    for gx := x div mTileSize to (x+w-1) div mTileSize do
     begin
       if (gx < 0) then continue;
       if (gx >= gw) then break;
@@ -1689,8 +1687,6 @@ end;
 // ////////////////////////////////////////////////////////////////////////// //
 // no callback: return `true` on the first hit
 function TBodyGridBase.forEachInAABB (x, y, w, h: Integer; cb: TGridQueryCB; tagmask: Integer=-1; allowDisabled: Boolean=false): ITP;
-const
-  tsize = mTileSize;
 var
   idx: Integer;
   gx, gy: Integer;
@@ -1719,7 +1715,7 @@ begin
   //tsize := mTileSize;
 
   if (x+w <= 0) or (y+h <= 0) then exit;
-  if (x >= gw*tsize) or (y >= mHeight*tsize) then exit;
+  if (x >= gw*mTileSize) or (y >= mHeight*mTileSize) then exit;
 
   if mInQuery then raise Exception.Create('recursive queries aren''t supported');
   mInQuery := true;
@@ -1736,11 +1732,11 @@ begin
   lq := mLastQuery;
 
   // go on
-  for gy := y div tsize to (y+h-1) div tsize do
+  for gy := y div mTileSize to (y+h-1) div mTileSize do
   begin
     if (gy < 0) then continue;
     if (gy >= mHeight) then break;
-    for gx := x div tsize to (x+w-1) div tsize do
+    for gx := x div mTileSize to (x+w-1) div mTileSize do
     begin
       if (gx < 0) then continue;
       if (gx >= gw) then break;
@@ -1782,657 +1778,473 @@ end;
 
 
 // ////////////////////////////////////////////////////////////////////////// //
-// no callback: return `true` on the nearest hit
-function TBodyGridBase.traceRayOld (const x0, y0, x1, y1: Integer; cb: TGridRayQueryCB; tagmask: Integer=-1): ITP;
-var
-  ex, ey: Integer;
-begin
-  result := traceRayOld(ex, ey, x0, y0, x1, y1, cb, tagmask);
-end;
-
-
-// no callback: return `true` on the nearest hit
-// you are not supposed to understand this
-function TBodyGridBase.traceRayOld (out ex, ey: Integer; const ax0, ay0, ax1, ay1: Integer; cb: TGridRayQueryCB; tagmask: Integer=-1): ITP;
-const
-  tsize = mTileSize;
+function TBodyGridBase.forEachAlongLine (ax0, ay0, ax1, ay1: Integer; cb: TGridQueryCB; tagmask: Integer=-1; log: Boolean=false): ITP;
 var
-  wx0, wy0, wx1, wy1: Integer; // window coordinates
-  stx, sty: Integer; // "steps" for x and y axes
-  dsx, dsy: Integer; // "lengthes" for x and y axes
-  dx2, dy2: Integer; // "double lengthes" for x and y axes
-  xd, yd: Integer; // current coord
-  e: Integer; // "error" (as in bresenham algo)
-  rem: Integer;
-  term: Integer;
-  xptr, yptr: PInteger;
-  xfixed: Boolean;
-  temp: Integer;
-  prevx, prevy: Integer;
-  lastDistSq: Integer;
-  ccidx, curci: Integer;
-  hasUntried: Boolean;
-  lastGA: Integer = -1;
-  ga, x, y: Integer;
-  lastObj: ITP;
-  wasHit: Boolean = false;
-  gw, gh, minx, miny, maxx, maxy: Integer;
+  lw: TLineWalker;
+  ccidx: Integer;
   cc: PGridCell;
   px: PBodyProxyRec;
   lq: LongWord;
-  f, ptag, distSq: Integer;
-  x0, y0, x1, y1: Integer;
-  //swapped: Boolean = false; // true: xd is yd, and vice versa
-  // horizontal walker
-  {$IFDEF GRID_USE_ORTHO_ACCEL}
-  wklen, wkstep: Integer;
-  //wksign: Integer;
-  hopt: Boolean;
-  {$ENDIF}
-  // skipper
-  xdist, ydist: Integer;
+  f, ptag: Integer;
+  gw, gh, minx, miny: Integer;
+  x0, y0: Integer;
+  x1, y1: Integer;
+  cx, cy: Integer;
+  //px0, py0, px1, py1: Integer;
 begin
+  log := false;
   result := Default(ITP);
-  lastObj := Default(ITP);
   tagmask := tagmask and TagFullMask;
-  ex := ax1; // why not?
-  ey := ay1; // why not?
-  if (tagmask = 0) then exit;
-
-  if (ax0 = ax1) and (ay0 = ay1) then
-  begin
-    result := forEachAtPoint(ax0, ay0, nil, tagmask, @ptag);
-    if (result <> nil) then
-    begin
-      if assigned(cb) and not cb(result, ptag, ax0, ay0, ax0, ay0) then result := Default(ITP);
-    end;
-    exit;
-  end;
-
-  lastDistSq := distanceSq(ax0, ay0, ax1, ay1)+1;
+  if (tagmask = 0) or not assigned(cb) then exit;
 
   gw := mWidth;
   gh := mHeight;
   minx := mMinX;
   miny := mMinY;
-  maxx := gw*tsize-1;
-  maxy := gh*tsize-1;
-
-  {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-  if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format('TRACING: (%d,%d)-(%d,%d) [(%d,%d)-(%d,%d)]; maxdistsq=%d', [ax0, ay0, ax1, ay1, minx, miny, maxx, maxy, lastDistSq]), MSG_NOTIFY);
-  {$ENDIF}
 
-  x0 := ax0;
-  y0 := ay0;
-  x1 := ax1;
-  y1 := ay1;
+  // make query coords (0,0)-based
+  x0 := ax0-minx;
+  y0 := ay0-miny;
+  x1 := ax1-minx;
+  y1 := ay1-miny;
 
-  // offset query coords to (0,0)-based
-  Dec(x0, minx);
-  Dec(y0, miny);
-  Dec(x1, minx);
-  Dec(y1, miny);
+  lw := TLineWalker.Create(0, 0, gw*mTileSize-1, gh*mTileSize-1);
+  if not lw.setup(x0, y0, x1, y1) then exit; // out of screen
 
-  // clip rectange
-  wx0 := 0;
-  wy0 := 0;
-  wx1 := maxx;
-  wy1 := maxy;
+  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
+  mInQuery := true;
 
-  // horizontal setup
-  if (x0 < x1) then
-  begin
-    // from left to right
-    if (x0 > wx1) or (x1 < wx0) then exit; // out of screen
-    stx := 1; // going right
-  end
-  else
+  // increase query counter
+  Inc(mLastQuery);
+  if (mLastQuery = 0) then
   begin
-    // from right to left
-    if (x1 > wx1) or (x0 < wx0) then exit; // out of screen
-    stx := -1; // going left
-    x0 := -x0;
-    x1 := -x1;
-    wx0 := -wx0;
-    wx1 := -wx1;
-    swapInt(wx0, wx1);
+    // just in case of overflow
+    mLastQuery := 1;
+    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
   end;
+  lq := mLastQuery;
 
-  // vertical setup
-  if (y0 < y1) then
-  begin
-    // from top to bottom
-    if (y0 > wy1) or (y1 < wy0) then exit; // out of screen
-    sty := 1; // going down
-  end
-  else
-  begin
-    // from bottom to top
-    if (y1 > wy1) or (y0 < wy0) then exit; // out of screen
-    sty := -1; // going up
-    y0 := -y0;
-    y1 := -y1;
-    wy0 := -wy0;
-    wy1 := -wy1;
-    swapInt(wy0, wy1);
-  end;
+  repeat
+    lw.getXY(cx, cy);
+    // check tile
+    ccidx := mGrid[(cy div mTileSize)*gw+(cx div mTileSize)];
+    // process cells
+    while (ccidx <> -1) do
+    begin
+      cc := @mCells[ccidx];
+      for f := 0 to GridCellBucketSize-1 do
+      begin
+        if (cc.bodies[f] = -1) then break;
+        px := @mProxies[cc.bodies[f]];
+        ptag := px.mTag;
+        if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
+        begin
+          px.mQueryMark := lq; // mark as processed
+          if cb(px.mObj, ptag) then
+          begin
+            result := px.mObj;
+            mInQuery := false;
+            exit;
+          end;
+        end;
+      end;
+      // next cell
+      ccidx := cc.next;
+    end;
+    // done processing cells, move to next tile
+  until lw.stepToNextTile();
 
-  dsx := x1-x0;
-  dsy := y1-y0;
+  mInQuery := false;
+end;
 
-  if (dsx < dsy) then
-  begin
-    //swapped := true;
-    xptr := @yd;
-    yptr := @xd;
-    swapInt(x0, y0);
-    swapInt(x1, y1);
-    swapInt(dsx, dsy);
-    swapInt(wx0, wy0);
-    swapInt(wx1, wy1);
-    swapInt(stx, sty);
-  end
-  else
-  begin
-    xptr := @xd;
-    yptr := @yd;
-  end;
 
-  dx2 := 2*dsx;
-  dy2 := 2*dsy;
-  xd := x0;
-  yd := y0;
-  e := 2*dsy-dsx;
-  term := x1;
+// ////////////////////////////////////////////////////////////////////////// //
+// trace box with the given velocity; return object hit (if any)
+// `cb` is used unconvetionally here: if it returns `false`, tracer will ignore the object
+function TBodyGridBase.traceBox (out ex, ey: Integer; const ax0, ay0, aw, ah: Integer; const dx, dy: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
+var
+  gx, gy: Integer;
+  ccidx: Integer;
+  cc: PGridCell;
+  px: PBodyProxyRec;
+  lq: LongWord;
+  f, ptag: Integer;
+  minu0: Single = 100000.0;
+  u0: Single;
+  cx0, cy0, cx1, cy1: Integer;
+  hitpx: PBodyProxyRec = nil;
+begin
+  result := Default(ITP);
+  ex := ax0+dx;
+  ey := ay0+dy;
+  if (aw < 1) or (ah < 1) then exit;
 
-  xfixed := false;
-  if (y0 < wy0) then
+  cx0 := nmin(ax0, ax0+dx);
+  cy0 := nmin(ay0, ay0+dy);
+  cx1 := nmax(ax0+aw-1, ax0+aw-1+dx);
+  cy1 := nmax(ay0+ah-1, ay0+ah-1+dy);
+
+  cx0 -= mMinX; cy0 -= mMinY;
+  cx1 -= mMinX; cy1 -= mMinY;
+
+  if (cx1 < 0) or (cy1 < 0) or (cx0 >= mWidth*mTileSize) or (cy0 >= mHeight*mTileSize) then exit;
+
+  if (cx0 < 0) then cx0 := 0;
+  if (cy0 < 0) then cy0 := 0;
+  if (cx1 >= mWidth*mTileSize) then cx1 := mWidth*mTileSize-1;
+  if (cy1 >= mHeight*mTileSize) then cy1 := mHeight*mTileSize-1;
+  // just in case
+  if (cx0 > cx1) or (cy0 > cy1) then exit;
+
+  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
+  mInQuery := true;
+
+  // increase query counter
+  Inc(mLastQuery);
+  if (mLastQuery = 0) then
   begin
-    // clip at top
-    temp := dx2*(wy0-y0)-dsx;
-    xd += temp div dy2;
-    rem := temp mod dy2;
-    if (xd > wx1) then exit; // x is moved out of clipping rect, nothing to do
-    if (xd+1 >= wx0) then
-    begin
-      yd := wy0;
-      e -= rem+dsx;
-      if (rem > 0) then begin Inc(xd); e += dy2; end;
-      xfixed := true;
-    end;
+    // just in case of overflow
+    mLastQuery := 1;
+    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
   end;
+  lq := mLastQuery;
 
-  if (not xfixed) and (x0 < wx0) then
+  for gy := cy0 div mTileSize to cy1 div mTileSize do
   begin
-    // clip at left
-    temp := dy2*(wx0-x0);
-    yd += temp div dx2;
-    rem := temp mod dx2;
-    if (yd > wy1) or (yd = wy1) and (rem >= dsx) then exit;
-    xd := wx0;
-    e += rem;
-    if (rem >= dsx) then begin Inc(yd); e -= dx2; end;
+    for gx := cx0 div mTileSize to cx1 div mTileSize do
+    begin
+      ccidx := mGrid[gy*mWidth+gx];
+      while (ccidx <> -1) do
+      begin
+        cc := @mCells[ccidx];
+        for f := 0 to GridCellBucketSize-1 do
+        begin
+          if (cc.bodies[f] = -1) then break;
+          px := @mProxies[cc.bodies[f]];
+          ptag := px.mTag;
+          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
+          begin
+            px.mQueryMark := lq; // mark as processed
+            if assigned(cb) then
+            begin
+              if not cb(px.mObj, ptag) then continue;
+            end;
+            if not sweepAABB(ax0, ay0, aw, ah, dx, dy, px.mX, px.mY, px.mWidth, px.mHeight, @u0) then continue;
+            if (minu0 > u0) then
+            begin
+              hitpx := px;
+              result := px.mObj;
+              minu0 := u0;
+              if (u0 = 0.0) then
+              begin
+                ex := ax0;
+                ey := ay0;
+                mInQuery := false;
+                exit;
+              end;
+            end;
+          end;
+        end;
+        // next cell
+        ccidx := cc.next;
+      end;
+    end;
   end;
 
-  if (y1 > wy1) then
+  if (minu0 <= 1.0) then
   begin
-    // clip at bottom
-    temp := dx2*(wy1-y0)+dsx;
-    term := x0+temp div dy2;
-    rem := temp mod dy2;
-    if (rem = 0) then Dec(term);
+    ex := ax0+round(dx*minu0);
+    ey := ay0+round(dy*minu0);
+    // just in case, compensate for floating point inexactness
+    if (ex >= hitpx.mX) and (ey >= hitpx.mY) and (ex < hitpx.mX+hitpx.mWidth) and (ey < hitpx.mY+hitpx.mHeight) then
+    begin
+      ex := ax0+trunc(dx*minu0);
+      ey := ay0+trunc(dy*minu0);
+    end;
   end;
 
-  if (term > wx1) then term := wx1; // clip at right
+  mInQuery := false;
+end;
 
-  Inc(term); // draw last point
-  //if (term = xd) then exit; // this is the only point, get out of here
 
-  if (sty = -1) then yd := -yd;
-  if (stx = -1) then begin xd := -xd; term := -term; end;
-  dx2 -= dy2;
+// ////////////////////////////////////////////////////////////////////////// //
+{.$DEFINE D2F_DEBUG_OTR}
+function TBodyGridBase.traceOrthoRayWhileIn (out ex, ey: Integer; ax0, ay0, ax1, ay1: Integer; tagmask: Integer=-1): Boolean;
+var
+  ccidx: Integer;
+  cc: PGridCell;
+  px: PBodyProxyRec;
+  ptag: Integer;
+  minx, miny: Integer;
+  f, c0, c1: Integer;
+  x0, y0, x1, y1: Integer;
+  celly0, celly1: Integer;
+  dy: Integer;
+  filled: array[0..mTileSize-1] of Byte;
+  {$IF DEFINED(D2F_DEBUG_OTR)}
+  s: AnsiString = '';
+  {$ENDIF}
+begin
+  result := false;
+  ex := ax1;
+  ey := ay1;
+  if not ((ax0 = ax1) or (ay0 = ay1)) then raise Exception.Create('orthoray is not orthogonal');
 
-  // first move, to skip starting point
-  // DON'T DO THIS! loop will take care of that
-  if (xd = term) then
+  tagmask := tagmask and TagFullMask;
+  if (tagmask = 0) then exit;
+
+  if (forEachAtPoint(ax0, ay0, nil, tagmask) = nil) then exit;
+
+  minx := mMinX;
+  miny := mMinY;
+
+  // offset query coords to (0,0)-based
+  x0 := ax0-minx;
+  y0 := ay0-miny;
+  x1 := ax1-minx;
+  y1 := ay1-miny;
+
+  if (x0 = x1) then
   begin
-    //FIXME!
-    result := forEachAtPoint(ax0, ay0, nil, tagmask, @ptag);
-    if (result <> nil) then
+    if (x0 < 0) or (x0 >= mWidth*mTileSize) then exit; // oops
+    // vertical
+    if (y0 < y1) then
     begin
-      if assigned(cb) then
+      // down
+      if (y1 < 0) or (y0 >= mHeight*mTileSize) then exit;
+      //if (ay0 < 0) then ay0 := 0;
+      if (y0 < 0) then exit;
+      if (y1 >= mHeight*mTileSize) then y1 := mHeight*mTileSize-1;
+      dy := 1;
+    end
+    else
+    begin
+      // up
+      if (y0 < 0) or (y1 >= mHeight*mTileSize) then exit;
+      //if (ay1 < 0) then ay1 := 0;
+      if (y1 < 0) then exit;
+      if (y0 >= mHeight*mTileSize) then y0 := mHeight*mTileSize-1;
+      dy := -1;
+    end;
+    // check tile
+    while true do
+    begin
+      ccidx := mGrid[(y0 div mTileSize)*mWidth+(x0 div mTileSize)];
+      FillChar(filled, sizeof(filled), 0);
+      celly0 := y0 and (not (mTileSize-1));
+      celly1 := celly0+mTileSize-1;
+      while (ccidx <> -1) do
       begin
-        if cb(result, ptag, ax0, ay0, ax0, ay0) then
+        cc := @mCells[ccidx];
+        for f := 0 to GridCellBucketSize-1 do
         begin
-          ex := ax0;
-          ey := ay0;
-        end
-        else
+          if (cc.bodies[f] = -1) then break;
+          px := @mProxies[cc.bodies[f]];
+          ptag := px.mTag;
+          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and
+             (ax0 >= px.x0) and (ax0 <= px.x1) then
+          begin
+            // bound c0 and c1 to cell
+            c0 := nclamp(px.y0-miny, celly0, celly1);
+            c1 := nclamp(px.y1-miny, celly0, celly1);
+            // fill the thing
+            {$IF DEFINED(D2F_DEBUG_OTR)}
+            e_LogWritefln('**px.y0=%s; px.y1=%s; c0=%s; c1=%s; celly0=%s; celly1=%s; [%s..%s]', [px.y0-miny, px.y1-miny, c0, c1, celly0, celly1, c0-celly0, (c0-celly0)+(c1-c0)]);
+            {$ENDIF}
+            //assert(c0 <= c1);
+            FillChar(filled[c0-celly0], c1-c0+1, 1);
+          end;
+        end;
+        // next cell
+        ccidx := cc.next;
+      end;
+      {$IF DEFINED(D2F_DEBUG_OTR)}
+      s := formatstrf('  x=%s; ay0=%s; ay1=%s; y0=%s; celly0=%s; celly1=%s; dy=%s; [', [ax0, ay0, ay1, y0, celly0, celly1, dy]);
+      for f := 0 to High(filled) do if (filled[f] <> 0) then s += '1' else s += '0';
+      s += ']';
+      e_LogWriteln(s);
+      {$ENDIF}
+      // now go till we hit cell boundary or empty space
+      if (dy < 0) then
+      begin
+        // up
+        while (y0 >= celly0) and (filled[y0-celly0] <> 0) do
         begin
-          result := nil;
+          {$IF DEFINED(D2F_DEBUG_OTR)}
+          e_LogWritefln('   filled: cdy=%s; y0=%s; celly0=%s; ay0=%s; ay1=%s', [y0-celly0, y0, celly0, ay0, ay1]);
+          {$ENDIF}
+          Dec(y0);
+          Dec(ay0);
         end;
+        {$IF DEFINED(D2F_DEBUG_OTR)}
+        e_LogWritefln('   span done: cdy=%s; y0=%s; celly0=%s; ay0=%s; ay1=%s', [y0-celly0, y0, celly0, ay0, ay1]);
+        {$ENDIF}
+        if (ay0 <= ay1) then begin ey := ay1; result := false; exit; end;
+        if (y0 >= celly0) then begin ey := ay0+1; {assert(forEachAtPoint(ex, ey, nil, tagmask) <> nil);} result := true; exit; end;
       end
       else
       begin
-        ex := ax0;
-        ey := ay0;
+        // down
+        while (y0 <= celly1) and (filled[y0-celly0] <> 0) do begin Inc(y0); Inc(ay0); end;
+        if (ay0 >= ay1) then begin ey := ay1; result := false; exit; end;
+        if (y0 <= celly1) then begin ey := ay0-1; result := true; exit; end;
       end;
     end;
-    exit;
+  end
+  else
+  begin
+    // horizontal
+    assert(false);
   end;
+end;
 
-  prevx := xptr^+minx;
-  prevy := yptr^+miny;
-  (*
-  // move coords
-  if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
-  xd += stx;
-  // done?
-  if (xd = term) then exit;
-  *)
 
-  {$IF DEFINED(D2F_DEBUG)}
-  if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*tsize) and (yptr^ >= gh*tsize) then raise Exception.Create('raycaster internal error (0)');
-  {$ENDIF}
-  // DON'T DO THIS! loop will take care of that
-  //lastGA := (yptr^ div tsize)*gw+(xptr^ div tsize);
-  //ccidx := mGrid[lastGA];
+// ////////////////////////////////////////////////////////////////////////// //
+function TBodyGridBase.traceRay (const x0, y0, x1, y1: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
+var
+  ex, ey: Integer;
+begin
+  result := traceRay(ex, ey, x0, y0, x1, y1, cb, tagmask);
+end;
 
-  {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-  //if assigned(dbgRayTraceTileHitCB) then e_WriteLog('1:TRACING!', MSG_NOTIFY);
-  {$ENDIF}
 
-  //if (dbgShowTraceLog) then e_WriteLog(Format('raycast start: (%d,%d)-(%d,%d); xptr^=%d; yptr^=%d', [ax0, ay0, ax1, ay1, xptr^, yptr^]), MSG_NOTIFY);
+// no callback: return `true` on the nearest hit
+// you are not supposed to understand this
+function TBodyGridBase.traceRay (out ex, ey: Integer; const ax0, ay0, ax1, ay1: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
+var
+  lw, sweepw: TLineWalker;
+  ccidx: Integer;
+  cc: PGridCell;
+  px: PBodyProxyRec;
+  lq: LongWord;
+  f, ptag: Integer;
+  gw, gh, minx, miny: Integer;
+  x0, y0: Integer;
+  x1, y1: Integer;
+  cx, cy: Integer;
+  px0, py0, px1, py1: Integer;
+  lastDistSq, distSq, hx, hy: Integer;
+  firstCell: Boolean = true;
+  wasHit: Boolean;
+begin
+  result := Default(ITP);
+  tagmask := tagmask and TagFullMask;
+  if (tagmask = 0) then exit;
 
-  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
-  mInQuery := true;
+  gw := mWidth;
+  gh := mHeight;
+  minx := mMinX;
+  miny := mMinY;
 
-  // increase query counter
-  Inc(mLastQuery);
-  if (mLastQuery = 0) then
-  begin
-    // just in case of overflow
-    mLastQuery := 1;
-    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
-  end;
-  lq := mLastQuery;
+  // make query coords (0,0)-based
+  x0 := ax0-minx;
+  y0 := ay0-miny;
+  x1 := ax1-minx;
+  y1 := ay1-miny;
 
-  {$IFDEF GRID_USE_ORTHO_ACCEL}
-  // if this is strict horizontal/vertical trace, use optimized codepath
-  if (ax0 = ax1) or (ay0 = ay1) then
-  begin
-    // horizontal trace: walk the whole tiles, calculating mindist once for each proxy in cell
-    //   stx < 0: going left, otherwise `stx` is > 0, and we're going right
-    // vertical trace: walk the whole tiles, calculating mindist once for each proxy in cell
-    //   stx < 0: going up, otherwise `stx` is > 0, and we're going down
-    hopt := (ay0 = ay1); // horizontal?
-    if (stx < 0) then begin {wksign := -1;} wklen := -(term-xd); end else begin {wksign := 1;} wklen := term-xd; end;
-    {$IF DEFINED(D2F_DEBUG)}
-    if dbgShowTraceLog then e_LogWritefln('optimized htrace; wklen=%d', [wklen]);
-    {$ENDIF}
-    ga := (yptr^ div tsize)*gw+(xptr^ div tsize);
-    // one of those will never change
-    x := xptr^+minx;
-    y := yptr^+miny;
-    while (wklen > 0) do
-    begin
-      {$IF DEFINED(D2F_DEBUG)}
-      if dbgShowTraceLog then e_LogWritefln('  htrace; ga=%d; x=%d, y=%d; y=%d; y=%d', [ga, xptr^+minx, yptr^+miny, y, ay0]);
-      {$ENDIF}
-      // new tile?
-      if (ga <> lastGA) then
-      begin
-        lastGA := ga;
-        ccidx := mGrid[lastGA];
-        // convert coords to map (to avoid ajdusting coords inside the loop)
-        if hopt then x := xptr^+minx else y := yptr^+miny;
-        while (ccidx <> -1) do
-        begin
-          cc := @mCells[ccidx];
-          for f := 0 to GridCellBucketSize-1 do
-          begin
-            if (cc.bodies[f] = -1) then break;
-            px := @mProxies[cc.bodies[f]];
-            ptag := px.mTag;
-            if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) and
-               // constant coord should be inside
-               ((hopt and (y >= px.y0) and (y <= px.y1)) or
-                ((not hopt) and (x >= px.x0) and (x <= px.x1))) then
-            begin
-              px.mQueryMark := lq; // mark as processed
-              // inside the proxy?
-              if (hopt and (x > px.x0) and (x < px.x1)) or
-                 ((not hopt) and (y > px.y0) and (y < px.y1)) then
-              begin
-                // setup prev[xy]
-                if assigned(cb) then
-                begin
-                  if cb(px.mObj, ptag, x, y, x, y) then
-                  begin
-                    result := px.mObj;
-                    ex := x;
-                    ey := y;
-                    mInQuery := false;
-                    exit;
-                  end;
-                end
-                else
-                begin
-                  distSq := distanceSq(ax0, ay0, x, y);
-                  {$IF DEFINED(D2F_DEBUG)}
-                  if dbgShowTraceLog then e_LogWritefln('  EMBEDDED hhit(%d): a=(%d,%d), h=(%d,%d), distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, distSq, lastDistSq]);
-                  {$ENDIF}
-                  if (distSq < lastDistSq) then
-                  begin
-                    ex := x;
-                    ey := y;
-                    result := px.mObj;
-                    mInQuery := false;
-                    exit;
-                  end;
-                end;
-                continue;
-              end;
-              // remember this hitpoint if it is nearer than an old one
-              // setup prev[xy]
-              if hopt then
-              begin
-                // horizontal trace
-                prevy := y;
-                y := yptr^+miny;
-                if (stx < 0) then
-                begin
-                  // going left
-                  if (x < px.x1) then continue; // not on the right edge
-                  x := px.x1;
-                  prevx := x+1;
-                end
-                else
-                begin
-                  // going right
-                  if (x > px.x0) then continue; // not on the left edge
-                  x := px.x0;
-                  prevx := x-1;
-                end;
-              end
-              else
-              begin
-                // vertical trace
-                prevx := x;
-                x := xptr^+minx;
-                if (stx < 0) then
-                begin
-                  // going up
-                  if (y < px.y1) then continue; // not on the bottom edge
-                  y := px.y1;
-                  prevy := x+1;
-                end
-                else
-                begin
-                  // going down
-                  if (y > px.y0) then continue; // not on the top edge
-                  y := px.y0;
-                  prevy := y-1;
-                end;
-              end;
-              if assigned(cb) then
-              begin
-                if cb(px.mObj, ptag, x, y, prevx, prevy) then
-                begin
-                  result := px.mObj;
-                  ex := prevx;
-                  ey := prevy;
-                  mInQuery := false;
-                  exit;
-                end;
-              end
-              else
-              begin
-                distSq := distanceSq(ax0, ay0, prevx, prevy);
-                {$IF DEFINED(D2F_DEBUG)}
-                if dbgShowTraceLog then e_LogWritefln('  hhit(%d): a=(%d,%d), h=(%d,%d), p=(%d,%d), distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, prevx, prevy, distSq, lastDistSq]);
-                {$ENDIF}
-                if (distSq < lastDistSq) then
-                begin
-                  wasHit := true;
-                  lastDistSq := distSq;
-                  ex := prevx;
-                  ey := prevy;
-                  lastObj := px.mObj;
-                end;
-              end;
-            end;
-          end;
-          // next cell
-          ccidx := cc.next;
-        end;
-        if wasHit and not assigned(cb) then begin result := lastObj; mInQuery := false; exit; end;
-        if assigned(cb) and cb(nil, 0, x, y, x, y) then begin result := lastObj; mInQuery := false; exit; end;
-      end;
-      // skip to next tile
-      if hopt then
-      begin
-        if (stx > 0) then
-        begin
-          // to the right
-          wkstep := ((xptr^ or (mTileSize-1))+1)-xptr^;
-          {$IF DEFINED(D2F_DEBUG)}
-          if dbgShowTraceLog then e_LogWritefln('  right step: wklen=%d; wkstep=%d', [wklen, wkstep]);
-          {$ENDIF}
-          if (wkstep >= wklen) then break;
-          Inc(xptr^, wkstep);
-          Inc(ga);
-        end
-        else
-        begin
-          // to the left
-          wkstep := xptr^-((xptr^ and (not (mTileSize-1)))-1);
-          {$IF DEFINED(D2F_DEBUG)}
-          if dbgShowTraceLog then e_LogWritefln('  left step: wklen=%d; wkstep=%d', [wklen, wkstep]);
-          {$ENDIF}
-          if (wkstep >= wklen) then break;
-          Dec(xptr^, wkstep);
-          Dec(ga);
-        end;
-      end
-      else
-      begin
-        if (stx > 0) then
-        begin
-          // to the down
-          wkstep := ((yptr^ or (mTileSize-1))+1)-yptr^;
-          {$IF DEFINED(D2F_DEBUG)}
-          if dbgShowTraceLog then e_LogWritefln('  down step: wklen=%d; wkstep=%d', [wklen, wkstep]);
-          {$ENDIF}
-          if (wkstep >= wklen) then break;
-          Inc(yptr^, wkstep);
-          Inc(ga, mWidth);
-        end
-        else
-        begin
-          // to the up
-          wkstep := yptr^-((yptr^ and (not (mTileSize-1)))-1);
-          {$IF DEFINED(D2F_DEBUG)}
-          if dbgShowTraceLog then e_LogWritefln('  up step: wklen=%d; wkstep=%d', [wklen, wkstep]);
-          {$ENDIF}
-          if (wkstep >= wklen) then break;
-          Dec(yptr^, wkstep);
-          Dec(ga, mWidth);
-        end;
-      end;
-      Dec(wklen, wkstep);
-    end;
-    // we can travel less than one cell
-    if wasHit and not assigned(cb) then result := lastObj else begin ex := ax1; ey := ay1; end;
-    mInQuery := false;
-    exit;
-  end;
-  {$ENDIF}
+  lw := TLineWalker.Create(0, 0, gw*mTileSize-1, gh*mTileSize-1);
+  if not lw.setup(x0, y0, x1, y1) then exit; // out of screen
 
-  {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-  if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div tsize*tsize)+minx, (yptr^ div tsize*tsize)+miny);
-  {$ENDIF}
+  sweepw := TLineWalker.Create(0, 0, 1, 1); // doesn't matter, just shut ups the compiler
 
-  //e_LogWritefln('*********************', []);
-  ccidx := -1;
-  //  can omit checks
-  while (xd <> term) do
+  lastDistSq := distanceSq(ax0, ay0, ax1, ay1)+1;
+
+  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
+  mInQuery := true;
+
+  // increase query counter
+  Inc(mLastQuery);
+  if (mLastQuery = 0) then
   begin
-    // check cell(s)
-    {$IF DEFINED(D2F_DEBUG)}
-    if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*tsize) and (yptr^ >= gh*tsize) then raise Exception.Create('raycaster internal error (0)');
-    {$ENDIF}
-    // new tile?
-    ga := (yptr^ div tsize)*gw+(xptr^ div tsize);
-    {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-    if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format(' xd=%d; term=%d; gx=%d; gy=%d; ga=%d; lastga=%d', [xd, term, xptr^, yptr^, ga, lastGA]), MSG_NOTIFY);
-    {$ENDIF}
-    if (ga <> lastGA) then
-    begin
-      // yes
-      {$IF DEFINED(D2F_DEBUG)}
-      if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div tsize*tsize)+minx, (yptr^ div tsize*tsize)+miny);
-      {$ENDIF}
-      if (ccidx <> -1) then
-      begin
-        // signal cell completion
-        if assigned(cb) then
-        begin
-          if cb(nil, 0, xptr^+minx, yptr^+miny, prevx, prevy) then begin result := lastObj; mInQuery := false; exit; end;
-        end
-        else if wasHit then
-        begin
-          result := lastObj;
-          mInQuery := false;
-          exit;
-        end;
-      end;
-      lastGA := ga;
-      ccidx := mGrid[lastGA];
-    end;
-    // has something to process in this tile?
-    if (ccidx <> -1) then
+    // just in case of overflow
+    mLastQuery := 1;
+    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
+  end;
+  lq := mLastQuery;
+
+  repeat
+    lw.getXY(cx, cy);
+    // check tile
+    ccidx := mGrid[(cy div mTileSize)*gw+(cx div mTileSize)];
+    // process cells
+    wasHit := false;
+    while (ccidx <> -1) do
     begin
-      // process cell
-      curci := ccidx;
-      hasUntried := false; // this will be set to `true` if we have some proxies we still want to process at the next step
-      // convert coords to map (to avoid ajdusting coords inside the loop)
-      x := xptr^+minx;
-      y := yptr^+miny;
-      // process cell list
-      while (curci <> -1) do
+      cc := @mCells[ccidx];
+      for f := 0 to GridCellBucketSize-1 do
       begin
-        cc := @mCells[curci];
-        for f := 0 to GridCellBucketSize-1 do
-        begin
-          if (cc.bodies[f] = -1) then break;
-          px := @mProxies[cc.bodies[f]];
-          ptag := px.mTag;
-          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
-          begin
-            // can we process this proxy?
-            if (x >= px.mX) and (y >= px.mY) and (x < px.mX+px.mWidth) and (y < px.mY+px.mHeight) then
-            begin
-              px.mQueryMark := lq; // mark as processed
-              if assigned(cb) then
-              begin
-                if cb(px.mObj, ptag, x, y, prevx, prevy) then
-                begin
-                  result := px.mObj;
-                  ex := prevx;
-                  ey := prevy;
-                  mInQuery := false;
-                  exit;
-                end;
-              end
-              else
-              begin
-                // remember this hitpoint if it is nearer than an old one
-                distSq := distanceSq(ax0, ay0, prevx, prevy);
-                {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-                if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format('  hit(%d): a=(%d,%d), h=(%d,%d), p=(%d,%d); distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, prevx, prevy, distSq, lastDistSq]), MSG_NOTIFY);
-                {$ENDIF}
-                if (distSq < lastDistSq) then
-                begin
-                  wasHit := true;
-                  lastDistSq := distSq;
-                  ex := prevx;
-                  ey := prevy;
-                  lastObj := px.mObj;
-                end;
-              end;
-            end
-            else
+        if (cc.bodies[f] = -1) then break;
+        px := @mProxies[cc.bodies[f]];
+        ptag := px.mTag;
+        if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
+        begin
+          px.mQueryMark := lq; // mark as processed
+          if assigned(cb) then
+          begin
+            if not cb(px.mObj, ptag) then continue;
+          end;
+          // get adjusted proxy coords
+          px0 := px.mX-minx;
+          py0 := px.mY-miny;
+          px1 := px0+px.mWidth-1;
+          py1 := py0+px.mHeight-1;
+          // inside?
+          if firstCell and (x0 >= px0) and (y0 >= py0) and (x0 <= px1) and (y0 <= py1) then
+          begin
+            // oops
+            ex := ax0;
+            ey := ay0;
+            result := px.mObj;
+            mInQuery := false;
+            exit;
+          end;
+          // do line-vs-aabb test
+          sweepw.setClip(px0, py0, px1, py1);
+          if sweepw.setup(x0, y0, x1, y1) then
+          begin
+            // hit detected
+            sweepw.getPrevXY(hx, hy);
+            distSq := distanceSq(x0, y0, hx, hy);
+            if (distSq < lastDistSq) then
             begin
-              // this is possibly interesting proxy, set "has more to check" flag
-              hasUntried := true;
+              lastDistSq := distSq;
+              ex := hx+minx;
+              ey := hy+miny;
+              result := px.mObj;
+              // if this is not a first cell, get outta here
+              if not firstCell then begin mInQuery := false; exit; end;
+              wasHit := true;
             end;
           end;
         end;
-        // next cell
-        curci := cc.next;
-      end;
-      // still has something interesting in this cell?
-      if not hasUntried then
-      begin
-        // nope, don't process this cell anymore; signal cell completion
-        ccidx := -1;
-        if assigned(cb) then
-        begin
-          if cb(nil, 0, x, y, prevx, prevy) then begin result := lastObj; mInQuery := false; exit; end;
-        end
-        else if wasHit then
-        begin
-          result := lastObj;
-          mInQuery := false;
-          exit;
-        end;
-      end;
-    end;
-    if (ccidx = -1) then
-    begin
-      // move to cell edge, as we have nothing to trace here anymore
-      if (stx < 0) then xdist := xd and (not (mTileSize-1)) else xdist := xd or (mTileSize-1);
-      if (sty < 0) then ydist := yd and (not (mTileSize-1)) else ydist := yd or (mTileSize-1);
-      //e_LogWritefln('0: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
-      while (xd <> xdist) and (yd <> ydist) do
-      begin
-        // step
-        xd += stx;
-        if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
-        //e_LogWritefln('  xd=%d; yd=%d', [xd, yd]);
-        if (xd = term) then break;
       end;
-      //e_LogWritefln('1: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
-      if (xd = term) then break;
+      // next cell
+      ccidx := cc.next;
     end;
-    //putPixel(xptr^, yptr^);
-    // move coords
-    prevx := xptr^+minx;
-    prevy := yptr^+miny;
-    if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
-    xd += stx;
-  end;
-  // we can travel less than one cell
-  if wasHit and not assigned(cb) then
-  begin
-    result := lastObj;
-  end
-  else
-  begin
-    ex := ax1; // why not?
-    ey := ay1; // why not?
-  end;
+    // done processing cells; exit if we registered a hit
+    // next cells can't have better candidates, obviously
+    if wasHit then begin mInQuery := false; exit; end;
+    firstCell := false;
+    // move to next tile
+  until lw.stepToNextTile();
 
   mInQuery := false;
 end;
 
 
 // ////////////////////////////////////////////////////////////////////////// //
-//FIXME! optimize this with real tile walking
-function TBodyGridBase.forEachAlongLine (ax0, ay0, ax1, ay1: Integer; cb: TGridQueryCB; tagmask: Integer=-1; log: Boolean=false): ITP;
-const
-  tsize = mTileSize;
+// no callback: return `true` on the nearest hit
+function TBodyGridBase.traceRayOld (const x0, y0, x1, y1: Integer; cb: TGridRayQueryCB; tagmask: Integer=-1): ITP;
+var
+  ex, ey: Integer;
+begin
+  result := traceRayOld(ex, ey, x0, y0, x1, y1, cb, tagmask);
+end;
+
+
+// no callback: return `true` on the nearest hit
+// you are not supposed to understand this
+function TBodyGridBase.traceRayOld (out ex, ey: Integer; const ax0, ay0, ax1, ay1: Integer; cb: TGridRayQueryCB; tagmask: Integer=-1): ITP;
 var
   wx0, wy0, wx1, wy1: Integer; // window coordinates
   stx, sty: Integer; // "steps" for x and y axes
@@ -2445,14 +2257,19 @@ var
   xptr, yptr: PInteger;
   xfixed: Boolean;
   temp: Integer;
+  prevx, prevy: Integer;
+  lastDistSq: Integer;
   ccidx, curci: Integer;
+  hasUntried: Boolean;
   lastGA: Integer = -1;
-  ga: Integer;
+  ga, x, y: Integer;
+  lastObj: ITP;
+  wasHit: Boolean = false;
   gw, gh, minx, miny, maxx, maxy: Integer;
   cc: PGridCell;
   px: PBodyProxyRec;
   lq: LongWord;
-  f, ptag: Integer;
+  f, ptag, distSq: Integer;
   x0, y0, x1, y1: Integer;
   //swapped: Boolean = false; // true: xd is yd, and vice versa
   // horizontal walker
@@ -2464,23 +2281,35 @@ var
   // skipper
   xdist, ydist: Integer;
 begin
-  log := false;
   result := Default(ITP);
+  lastObj := Default(ITP);
   tagmask := tagmask and TagFullMask;
-  if (tagmask = 0) or not assigned(cb) then exit;
+  ex := ax1; // why not?
+  ey := ay1; // why not?
+  if (tagmask = 0) then exit;
 
   if (ax0 = ax1) and (ay0 = ay1) then
   begin
-    result := forEachAtPoint(ax0, ay0, cb, tagmask, @ptag);
+    result := forEachAtPoint(ax0, ay0, nil, tagmask, @ptag);
+    if (result <> nil) then
+    begin
+      if assigned(cb) and not cb(result, ptag, ax0, ay0, ax0, ay0) then result := Default(ITP);
+    end;
     exit;
   end;
 
+  lastDistSq := distanceSq(ax0, ay0, ax1, ay1)+1;
+
   gw := mWidth;
   gh := mHeight;
   minx := mMinX;
   miny := mMinY;
-  maxx := gw*tsize-1;
-  maxy := gh*tsize-1;
+  maxx := gw*mTileSize-1;
+  maxy := gh*mTileSize-1;
+
+  {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
+  if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format('TRACING: (%d,%d)-(%d,%d) [(%d,%d)-(%d,%d)]; maxdistsq=%d', [ax0, ay0, ax1, ay1, minx, miny, maxx, maxy, lastDistSq]), MSG_NOTIFY);
+  {$ENDIF}
 
   x0 := ax0;
   y0 := ay0;
@@ -2616,10 +2445,33 @@ begin
   // DON'T DO THIS! loop will take care of that
   if (xd = term) then
   begin
-    result := forEachAtPoint(ax0, ay0, cb, tagmask, @ptag);
+    //FIXME!
+    result := forEachAtPoint(ax0, ay0, nil, tagmask, @ptag);
+    if (result <> nil) then
+    begin
+      if assigned(cb) then
+      begin
+        if cb(result, ptag, ax0, ay0, ax0, ay0) then
+        begin
+          ex := ax0;
+          ey := ay0;
+        end
+        else
+        begin
+          result := nil;
+        end;
+      end
+      else
+      begin
+        ex := ax0;
+        ey := ay0;
+      end;
+    end;
     exit;
   end;
 
+  prevx := xptr^+minx;
+  prevy := yptr^+miny;
   (*
   // move coords
   if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
@@ -2629,12 +2481,18 @@ begin
   *)
 
   {$IF DEFINED(D2F_DEBUG)}
-  if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*tsize) and (yptr^ >= gh*tsize) then raise Exception.Create('raycaster internal error (0)');
+  if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*mTileSize) and (yptr^ >= gh*mTileSize) then raise Exception.Create('raycaster internal error (0)');
   {$ENDIF}
   // DON'T DO THIS! loop will take care of that
   //lastGA := (yptr^ div tsize)*gw+(xptr^ div tsize);
   //ccidx := mGrid[lastGA];
 
+  {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
+  //if assigned(dbgRayTraceTileHitCB) then e_WriteLog('1:TRACING!', MSG_NOTIFY);
+  {$ENDIF}
+
+  //if (dbgShowTraceLog) then e_WriteLog(Format('raycast start: (%d,%d)-(%d,%d); xptr^=%d; yptr^=%d', [ax0, ay0, ax1, ay1, xptr^, yptr^]), MSG_NOTIFY);
+
   if mInQuery then raise Exception.Create('recursive queries aren''t supported');
   mInQuery := true;
 
@@ -2661,11 +2519,14 @@ begin
     {$IF DEFINED(D2F_DEBUG)}
     if dbgShowTraceLog then e_LogWritefln('optimized htrace; wklen=%d', [wklen]);
     {$ENDIF}
-    ga := (yptr^ div tsize)*gw+(xptr^ div tsize);
+    ga := (yptr^ div mTileSize)*gw+(xptr^ div mTileSize);
+    // one of those will never change
+    x := xptr^+minx;
+    y := yptr^+miny;
     while (wklen > 0) do
     begin
       {$IF DEFINED(D2F_DEBUG)}
-      if dbgShowTraceLog then e_LogWritefln('  htrace; ga=%d; x=%d, y=%d; ay0=%d', [ga, xptr^+minx, yptr^+miny, ay0]);
+      if dbgShowTraceLog then e_LogWritefln('  htrace; ga=%d; x=%d, y=%d; y=%d; y=%d', [ga, xptr^+minx, yptr^+miny, y, ay0]);
       {$ENDIF}
       // new tile?
       if (ga <> lastGA) then
@@ -2673,6 +2534,7 @@ begin
         lastGA := ga;
         ccidx := mGrid[lastGA];
         // convert coords to map (to avoid ajdusting coords inside the loop)
+        if hopt then x := xptr^+minx else y := yptr^+miny;
         while (ccidx <> -1) do
         begin
           cc := @mCells[ccidx];
@@ -2681,24 +2543,120 @@ begin
             if (cc.bodies[f] = -1) then break;
             px := @mProxies[cc.bodies[f]];
             ptag := px.mTag;
-            if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
+            if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) and
+               // constant coord should be inside
+               ((hopt and (y >= px.y0) and (y <= px.y1)) or
+                ((not hopt) and (x >= px.x0) and (x <= px.x1))) then
             begin
               px.mQueryMark := lq; // mark as processed
+              // inside the proxy?
+              if (hopt and (x > px.x0) and (x < px.x1)) or
+                 ((not hopt) and (y > px.y0) and (y < px.y1)) then
+              begin
+                // setup prev[xy]
+                if assigned(cb) then
+                begin
+                  if cb(px.mObj, ptag, x, y, x, y) then
+                  begin
+                    result := px.mObj;
+                    ex := x;
+                    ey := y;
+                    mInQuery := false;
+                    exit;
+                  end;
+                end
+                else
+                begin
+                  distSq := distanceSq(ax0, ay0, x, y);
+                  {$IF DEFINED(D2F_DEBUG)}
+                  if dbgShowTraceLog then e_LogWritefln('  EMBEDDED hhit(%d): a=(%d,%d), h=(%d,%d), distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, distSq, lastDistSq]);
+                  {$ENDIF}
+                  if (distSq < lastDistSq) then
+                  begin
+                    ex := x;
+                    ey := y;
+                    result := px.mObj;
+                    mInQuery := false;
+                    exit;
+                  end;
+                end;
+                continue;
+              end;
+              // remember this hitpoint if it is nearer than an old one
+              // setup prev[xy]
+              if hopt then
+              begin
+                // horizontal trace
+                prevy := y;
+                y := yptr^+miny;
+                if (stx < 0) then
+                begin
+                  // going left
+                  if (x < px.x1) then continue; // not on the right edge
+                  x := px.x1;
+                  prevx := x+1;
+                end
+                else
+                begin
+                  // going right
+                  if (x > px.x0) then continue; // not on the left edge
+                  x := px.x0;
+                  prevx := x-1;
+                end;
+              end
+              else
+              begin
+                // vertical trace
+                prevx := x;
+                x := xptr^+minx;
+                if (stx < 0) then
+                begin
+                  // going up
+                  if (y < px.y1) then continue; // not on the bottom edge
+                  y := px.y1;
+                  prevy := x+1;
+                end
+                else
+                begin
+                  // going down
+                  if (y > px.y0) then continue; // not on the top edge
+                  y := px.y0;
+                  prevy := y-1;
+                end;
+              end;
               if assigned(cb) then
               begin
-                if cb(px.mObj, ptag) then begin result := px.mObj; mInQuery := false; exit; end;
+                if cb(px.mObj, ptag, x, y, prevx, prevy) then
+                begin
+                  result := px.mObj;
+                  ex := prevx;
+                  ey := prevy;
+                  mInQuery := false;
+                  exit;
+                end;
               end
               else
               begin
-                result := px.mObj;
-                mInQuery := false;
-                exit;
+                distSq := distanceSq(ax0, ay0, prevx, prevy);
+                {$IF DEFINED(D2F_DEBUG)}
+                if dbgShowTraceLog then e_LogWritefln('  hhit(%d): a=(%d,%d), h=(%d,%d), p=(%d,%d), distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, prevx, prevy, distSq, lastDistSq]);
+                {$ENDIF}
+                if (distSq < lastDistSq) then
+                begin
+                  wasHit := true;
+                  lastDistSq := distSq;
+                  ex := prevx;
+                  ey := prevy;
+                  lastObj := px.mObj;
+                end;
               end;
             end;
           end;
           // next cell
           ccidx := cc.next;
         end;
+        if wasHit and not assigned(cb) then begin result := lastObj; mInQuery := false; exit; end;
+        if assigned(cb) and cb(nil, 0, x, y, x, y) then begin result := lastObj; mInQuery := false; exit; end;
       end;
       // skip to next tile
       if hopt then
@@ -2753,25 +2711,28 @@ begin
       end;
       Dec(wklen, wkstep);
     end;
+    // we can travel less than one cell
+    if wasHit and not assigned(cb) then result := lastObj else begin ex := ax1; ey := ay1; end;
     mInQuery := false;
     exit;
   end;
   {$ENDIF}
 
   {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
-  if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div tsize*tsize)+minx, (yptr^ div tsize*tsize)+miny);
+  if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div mTileSize*mTileSize)+minx, (yptr^ div mTileSize*mTileSize)+miny);
   {$ENDIF}
 
+  //e_LogWritefln('*********************', []);
   ccidx := -1;
   //  can omit checks
   while (xd <> term) do
   begin
     // check cell(s)
     {$IF DEFINED(D2F_DEBUG)}
-    if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*tsize) and (yptr^ >= gh*tsize) then raise Exception.Create('raycaster internal error (0)');
+    if (xptr^ < 0) or (yptr^ < 0) or (xptr^ >= gw*mTileSize) and (yptr^ >= gh*mTileSize) then raise Exception.Create('raycaster internal error (0)');
     {$ENDIF}
     // new tile?
-    ga := (yptr^ div tsize)*gw+(xptr^ div tsize);
+    ga := (yptr^ div mTileSize)*gw+(xptr^ div mTileSize);
     {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
     if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format(' xd=%d; term=%d; gx=%d; gy=%d; ga=%d; lastga=%d', [xd, term, xptr^, yptr^, ga, lastGA]), MSG_NOTIFY);
     {$ENDIF}
@@ -2779,437 +2740,138 @@ begin
     begin
       // yes
       {$IF DEFINED(D2F_DEBUG)}
-      if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div tsize*tsize)+minx, (yptr^ div tsize*tsize)+miny);
+      if assigned(dbgRayTraceTileHitCB) then dbgRayTraceTileHitCB((xptr^ div mTileSize*mTileSize)+minx, (yptr^ div mTileSize*mTileSize)+miny);
       {$ENDIF}
-      lastGA := ga;
-      ccidx := mGrid[lastGA];
-    end;
-    // has something to process in this tile?
-    if (ccidx <> -1) then
-    begin
-      // process cell
-      curci := ccidx;
-      // process cell list
-      while (curci <> -1) do
+      if (ccidx <> -1) then
       begin
-        cc := @mCells[curci];
-        for f := 0 to GridCellBucketSize-1 do
+        // signal cell completion
+        if assigned(cb) then
         begin
-          if (cc.bodies[f] = -1) then break;
-          px := @mProxies[cc.bodies[f]];
-          ptag := px.mTag;
-          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
-          begin
-            px.mQueryMark := lq; // mark as processed
-            if assigned(cb) then
-            begin
-              if cb(px.mObj, ptag) then begin result := px.mObj; mInQuery := false; exit; end;
-            end
-            else
-            begin
-              result := px.mObj;
-              mInQuery := false;
-              exit;
-            end;
-          end;
-        end;
-        // next cell
-        curci := cc.next;
-      end;
-      // nothing more interesting in this cell
-      ccidx := -1;
-    end;
-    // move to cell edge, as we have nothing to trace here anymore
-    if (stx < 0) then xdist := xd and (not (mTileSize-1)) else xdist := xd or (mTileSize-1);
-    if (sty < 0) then ydist := yd and (not (mTileSize-1)) else ydist := yd or (mTileSize-1);
-    //e_LogWritefln('0: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
-    while (xd <> xdist) and (yd <> ydist) do
-    begin
-      // step
-      xd += stx;
-      if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
-      //e_LogWritefln('  xd=%d; yd=%d', [xd, yd]);
-      if (xd = term) then break;
-    end;
-    //e_LogWritefln('1: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
-    if (xd = term) then break;
-    //putPixel(xptr^, yptr^);
-    // move coords
-    if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
-    xd += stx;
-  end;
-
-  mInQuery := false;
-end;
-
-
-// ////////////////////////////////////////////////////////////////////////// //
-// trace box with the given velocity; return object hit (if any)
-// `cb` is used unconvetionally here: if it returns `false`, tracer will ignore the object
-function TBodyGridBase.traceBox (out ex, ey: Integer; const ax0, ay0, aw, ah: Integer; const dx, dy: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
-var
-  gx, gy: Integer;
-  ccidx: Integer;
-  cc: PGridCell;
-  px: PBodyProxyRec;
-  lq: LongWord;
-  f, ptag: Integer;
-  minu0: Single = 100000.0;
-  u0: Single;
-  cx0, cy0, cx1, cy1: Integer;
-  hitpx: PBodyProxyRec = nil;
-begin
-  result := Default(ITP);
-  ex := ax0+dx;
-  ey := ay0+dy;
-  if (aw < 1) or (ah < 1) then exit;
-
-  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
-  mInQuery := true;
-
-  cx0 := nmin(ax0, ax0+dx);
-  cy0 := nmin(ay0, ay0+dy);
-  cx1 := nmax(ax0+aw-1, ax0+aw-1+dx);
-  cy1 := nmax(ay0+ah-1, ay0+ah-1+dy);
-
-  cx0 -= mMinX; cy0 -= mMinY;
-  cx1 -= mMinX; cy1 -= mMinY;
-
-  if (cx1 < 0) or (cy1 < 0) or (cx0 >= mWidth*mTileSize) or (cy0 >= mHeight*mTileSize) then exit;
-
-  if (cx0 < 0) then cx0 := 0;
-  if (cy0 < 0) then cy0 := 0;
-  if (cx1 >= mWidth*mTileSize) then cx1 := mWidth*mTileSize-1;
-  if (cy1 >= mHeight*mTileSize) then cy1 := mHeight*mTileSize-1;
-  // just in case
-  if (cx0 > cx1) or (cy0 > cy1) then exit;
-
-  // increase query counter
-  Inc(mLastQuery);
-  if (mLastQuery = 0) then
-  begin
-    // just in case of overflow
-    mLastQuery := 1;
-    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
-  end;
-  lq := mLastQuery;
-
-  for gy := cy0 div mTileSize to cy1 div mTileSize do
-  begin
-    for gx := cx0 div mTileSize to cx1 div mTileSize do
-    begin
-      ccidx := mGrid[gy*mWidth+gx];
-      while (ccidx <> -1) do
-      begin
-        cc := @mCells[ccidx];
-        for f := 0 to GridCellBucketSize-1 do
+          if cb(nil, 0, xptr^+minx, yptr^+miny, prevx, prevy) then begin result := lastObj; mInQuery := false; exit; end;
+        end
+        else if wasHit then
         begin
-          if (cc.bodies[f] = -1) then break;
-          px := @mProxies[cc.bodies[f]];
-          ptag := px.mTag;
-          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
-          begin
-            px.mQueryMark := lq; // mark as processed
-            if assigned(cb) then
-            begin
-              if not cb(px.mObj, ptag) then continue;
-            end;
-            if not sweepAABB(ax0, ay0, aw, ah, dx, dy, px.mX, px.mY, px.mWidth, px.mHeight, @u0) then continue;
-            if (minu0 > u0) then
-            begin
-              hitpx := px;
-              result := px.mObj;
-              minu0 := u0;
-              if (u0 = 0.0) then
-              begin
-                ex := ax0;
-                ey := ay0;
-                mInQuery := false;
-                exit;
-              end;
-            end;
-          end;
+          result := lastObj;
+          mInQuery := false;
+          exit;
         end;
-        // next cell
-        ccidx := cc.next;
       end;
+      lastGA := ga;
+      ccidx := mGrid[lastGA];
     end;
-  end;
-
-  if (minu0 <= 1.0) then
-  begin
-    ex := ax0+round(dx*minu0);
-    ey := ay0+round(dy*minu0);
-    // just in case, compensate for floating point inexactness
-    if (ex >= hitpx.mX) and (ey >= hitpx.mY) and (ex < hitpx.mX+hitpx.mWidth) and (ey < hitpx.mY+hitpx.mHeight) then
-    begin
-      ex := ax0+trunc(dx*minu0);
-      ey := ay0+trunc(dy*minu0);
-    end;
-  end;
-
-  mInQuery := false;
-end;
-
-
-// ////////////////////////////////////////////////////////////////////////// //
-{.$DEFINE D2F_DEBUG_OTR}
-function TBodyGridBase.traceOrthoRayWhileIn (out ex, ey: Integer; ax0, ay0, ax1, ay1: Integer; tagmask: Integer=-1): Boolean;
-var
-  ccidx: Integer;
-  cc: PGridCell;
-  px: PBodyProxyRec;
-  ptag: Integer;
-  minx, miny: Integer;
-  f, c0, c1: Integer;
-  x0, y0, x1, y1: Integer;
-  celly0, celly1: Integer;
-  dy: Integer;
-  filled: array[0..mTileSize-1] of Byte;
-  {$IF DEFINED(D2F_DEBUG_OTR)}
-  s: AnsiString = '';
-  {$ENDIF}
-begin
-  result := false;
-  ex := ax1;
-  ey := ay1;
-  if not ((ax0 = ax1) or (ay0 = ay1)) then raise Exception.Create('orthoray is not orthogonal');
-
-  tagmask := tagmask and TagFullMask;
-  if (tagmask = 0) then exit;
-
-  if (forEachAtPoint(ax0, ay0, nil, tagmask) = nil) then exit;
-
-  minx := mMinX;
-  miny := mMinY;
-
-  // offset query coords to (0,0)-based
-  x0 := ax0-minx;
-  y0 := ay0-miny;
-  x1 := ax1-minx;
-  y1 := ay1-miny;
-
-  if (x0 = x1) then
-  begin
-    if (x0 < 0) or (x0 >= mWidth*mTileSize) then exit; // oops
-    // vertical
-    if (y0 < y1) then
-    begin
-      // down
-      if (y1 < 0) or (y0 >= mHeight*mTileSize) then exit;
-      //if (ay0 < 0) then ay0 := 0;
-      if (y0 < 0) then exit;
-      if (y1 >= mHeight*mTileSize) then y1 := mHeight*mTileSize-1;
-      dy := 1;
-    end
-    else
-    begin
-      // up
-      if (y0 < 0) or (y1 >= mHeight*mTileSize) then exit;
-      //if (ay1 < 0) then ay1 := 0;
-      if (y1 < 0) then exit;
-      if (y0 >= mHeight*mTileSize) then y0 := mHeight*mTileSize-1;
-      dy := -1;
-    end;
-    // check tile
-    while true do
+    // has something to process in this tile?
+    if (ccidx <> -1) then
     begin
-      ccidx := mGrid[(y0 div mTileSize)*mWidth+(x0 div mTileSize)];
-      FillChar(filled, sizeof(filled), 0);
-      celly0 := y0 and (not (mTileSize-1));
-      celly1 := celly0+mTileSize-1;
-      while (ccidx <> -1) do
+      // process cell
+      curci := ccidx;
+      hasUntried := false; // this will be set to `true` if we have some proxies we still want to process at the next step
+      // convert coords to map (to avoid ajdusting coords inside the loop)
+      x := xptr^+minx;
+      y := yptr^+miny;
+      // process cell list
+      while (curci <> -1) do
       begin
-        cc := @mCells[ccidx];
+        cc := @mCells[curci];
         for f := 0 to GridCellBucketSize-1 do
         begin
           if (cc.bodies[f] = -1) then break;
           px := @mProxies[cc.bodies[f]];
           ptag := px.mTag;
-          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and
-             (ax0 >= px.x0) and (ax0 <= px.x1) then
+          if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
           begin
-            // bound c0 and c1 to cell
-            c0 := nclamp(px.y0-miny, celly0, celly1);
-            c1 := nclamp(px.y1-miny, celly0, celly1);
-            // fill the thing
-            {$IF DEFINED(D2F_DEBUG_OTR)}
-            e_LogWritefln('**px.y0=%s; px.y1=%s; c0=%s; c1=%s; celly0=%s; celly1=%s; [%s..%s]', [px.y0-miny, px.y1-miny, c0, c1, celly0, celly1, c0-celly0, (c0-celly0)+(c1-c0)]);
-            {$ENDIF}
-            //assert(c0 <= c1);
-            FillChar(filled[c0-celly0], c1-c0+1, 1);
+            // can we process this proxy?
+            if (x >= px.mX) and (y >= px.mY) and (x < px.mX+px.mWidth) and (y < px.mY+px.mHeight) then
+            begin
+              px.mQueryMark := lq; // mark as processed
+              if assigned(cb) then
+              begin
+                if cb(px.mObj, ptag, x, y, prevx, prevy) then
+                begin
+                  result := px.mObj;
+                  ex := prevx;
+                  ey := prevy;
+                  mInQuery := false;
+                  exit;
+                end;
+              end
+              else
+              begin
+                // remember this hitpoint if it is nearer than an old one
+                distSq := distanceSq(ax0, ay0, prevx, prevy);
+                {$IF DEFINED(D2F_DEBUG_RAYTRACE)}
+                if assigned(dbgRayTraceTileHitCB) then e_WriteLog(Format('  hit(%d): a=(%d,%d), h=(%d,%d), p=(%d,%d); distsq=%d; lastsq=%d', [cc.bodies[f], ax0, ay0, x, y, prevx, prevy, distSq, lastDistSq]), MSG_NOTIFY);
+                {$ENDIF}
+                if (distSq < lastDistSq) then
+                begin
+                  wasHit := true;
+                  lastDistSq := distSq;
+                  ex := prevx;
+                  ey := prevy;
+                  lastObj := px.mObj;
+                end;
+              end;
+            end
+            else
+            begin
+              // this is possibly interesting proxy, set "has more to check" flag
+              hasUntried := true;
+            end;
           end;
         end;
         // next cell
-        ccidx := cc.next;
+        curci := cc.next;
       end;
-      {$IF DEFINED(D2F_DEBUG_OTR)}
-      s := formatstrf('  x=%s; ay0=%s; ay1=%s; y0=%s; celly0=%s; celly1=%s; dy=%s; [', [ax0, ay0, ay1, y0, celly0, celly1, dy]);
-      for f := 0 to High(filled) do if (filled[f] <> 0) then s += '1' else s += '0';
-      s += ']';
-      e_LogWriteln(s);
-      {$ENDIF}
-      // now go till we hit cell boundary or empty space
-      if (dy < 0) then
+      // still has something interesting in this cell?
+      if not hasUntried then
       begin
-        // up
-        while (y0 >= celly0) and (filled[y0-celly0] <> 0) do
+        // nope, don't process this cell anymore; signal cell completion
+        ccidx := -1;
+        if assigned(cb) then
         begin
-          {$IF DEFINED(D2F_DEBUG_OTR)}
-          e_LogWritefln('   filled: cdy=%s; y0=%s; celly0=%s; ay0=%s; ay1=%s', [y0-celly0, y0, celly0, ay0, ay1]);
-          {$ENDIF}
-          Dec(y0);
-          Dec(ay0);
+          if cb(nil, 0, x, y, prevx, prevy) then begin result := lastObj; mInQuery := false; exit; end;
+        end
+        else if wasHit then
+        begin
+          result := lastObj;
+          mInQuery := false;
+          exit;
         end;
-        {$IF DEFINED(D2F_DEBUG_OTR)}
-        e_LogWritefln('   span done: cdy=%s; y0=%s; celly0=%s; ay0=%s; ay1=%s', [y0-celly0, y0, celly0, ay0, ay1]);
-        {$ENDIF}
-        if (ay0 <= ay1) then begin ey := ay1; result := false; exit; end;
-        if (y0 >= celly0) then begin ey := ay0+1; {assert(forEachAtPoint(ex, ey, nil, tagmask) <> nil);} result := true; exit; end;
-      end
-      else
+      end;
+    end;
+    if (ccidx = -1) then
+    begin
+      // move to cell edge, as we have nothing to trace here anymore
+      if (stx < 0) then xdist := xd and (not (mTileSize-1)) else xdist := xd or (mTileSize-1);
+      if (sty < 0) then ydist := yd and (not (mTileSize-1)) else ydist := yd or (mTileSize-1);
+      //e_LogWritefln('0: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
+      while (xd <> xdist) and (yd <> ydist) do
       begin
-        // down
-        while (y0 <= celly1) and (filled[y0-celly0] <> 0) do begin Inc(y0); Inc(ay0); end;
-        if (ay0 >= ay1) then begin ey := ay1; result := false; exit; end;
-        if (y0 <= celly1) then begin ey := ay0-1; result := true; exit; end;
+        // step
+        xd += stx;
+        if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
+        //e_LogWritefln('  xd=%d; yd=%d', [xd, yd]);
+        if (xd = term) then break;
       end;
+      //e_LogWritefln('1: swapped=%d; xd=%d; yd=%d; stx=%d; sty=%d; e=%d; dx2=%d; dy2=%d; term=%d; xdist=%d; ydist=%d', [swapped, xd, yd, stx, sty, e, dx2, dy2, term, xdist, ydist]);
+      if (xd = term) then break;
     end;
+    //putPixel(xptr^, yptr^);
+    // move coords
+    prevx := xptr^+minx;
+    prevy := yptr^+miny;
+    if (e >= 0) then begin yd += sty; e -= dx2; end else e += dy2;
+    xd += stx;
+  end;
+  // we can travel less than one cell
+  if wasHit and not assigned(cb) then
+  begin
+    result := lastObj;
   end
   else
   begin
-    // horizontal
-    assert(false);
-  end;
-end;
-
-
-// ////////////////////////////////////////////////////////////////////////// //
-function TBodyGridBase.traceRay (const x0, y0, x1, y1: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
-var
-  ex, ey: Integer;
-begin
-  result := traceRay(ex, ey, x0, y0, x1, y1, cb, tagmask);
-end;
-
-
-// no callback: return `true` on the nearest hit
-// you are not supposed to understand this
-function TBodyGridBase.traceRay (out ex, ey: Integer; const ax0, ay0, ax1, ay1: Integer; cb: TGridQueryCB; tagmask: Integer=-1): ITP;
-var
-  lw, sweepw: TLineWalker;
-  ccidx: Integer;
-  gw, gh, minx, miny: Integer;
-  cc: PGridCell;
-  px: PBodyProxyRec;
-  lq: LongWord;
-  f, ptag: Integer;
-  x0, y0, x1, y1, cx, cy, px0, py0, px1, py1: Integer;
-  lastDistSq, distSq, hx, hy: Integer;
-  firstCell: Boolean = true;
-  wasHit: Boolean;
-begin
-  result := Default(ITP);
-  tagmask := tagmask and TagFullMask;
-  if (tagmask = 0) then exit;
-
-  gw := mWidth;
-  gh := mHeight;
-  minx := mMinX;
-  miny := mMinY;
-
-  // make query coords to (0,0)-based
-  x0 := ax0-minx;
-  y0 := ay0-miny;
-  x1 := ax1-minx;
-  y1 := ay1-miny;
-
-  lw := TLineWalker.Create(0, 0, gw*mTileSize-1, gh*mTileSize-1);
-  if not lw.setup(x0, y0, x1, y1) then exit; // out of screen
-
-  sweepw := TLineWalker.Create(0, 0, 1, 1); // doesn't matter, just shut ups the compiler
-
-  lastDistSq := distanceSq(ax0, ay0, ax1, ay1)+1;
-
-  if mInQuery then raise Exception.Create('recursive queries aren''t supported');
-  mInQuery := true;
-
-  // increase query counter
-  Inc(mLastQuery);
-  if (mLastQuery = 0) then
-  begin
-    // just in case of overflow
-    mLastQuery := 1;
-    for f := 0 to High(mProxies) do mProxies[f].mQueryMark := 0;
+    ex := ax1; // why not?
+    ey := ay1; // why not?
   end;
-  lq := mLastQuery;
-
-  ccidx := -1;
-  repeat
-    lw.getXY(cx, cy);
-    // check tile
-    ccidx := mGrid[(cy div mTileSize)*gw+(cx div mTileSize)];
-    // process cells
-    wasHit := false;
-    while (ccidx <> -1) do
-    begin
-      cc := @mCells[ccidx];
-      for f := 0 to GridCellBucketSize-1 do
-      begin
-        if (cc.bodies[f] = -1) then break;
-        px := @mProxies[cc.bodies[f]];
-        ptag := px.mTag;
-        if ((ptag and TagDisabled) = 0) and ((ptag and tagmask) <> 0) and (px.mQueryMark <> lq) then
-        begin
-          px.mQueryMark := lq; // mark as processed
-          if assigned(cb) then
-          begin
-            if not cb(px.mObj, ptag) then continue;
-          end;
-          // get adjusted proxy coords
-          px0 := px.mX-minx;
-          py0 := px.mY-miny;
-          px1 := px0+px.mWidth-1;
-          py1 := py0+px.mHeight-1;
-          // inside?
-          if firstCell and (x0 >= px0) and (y0 >= py0) and (x0 <= px1) and (y0 <= py1) then
-          begin
-            // oops
-            ex := ax0;
-            ey := ay0;
-            result := px.mObj;
-            mInQuery := false;
-            exit;
-          end;
-          // do line-vs-aabb test
-          sweepw.setClip(px0, py0, px1, py1);
-          if sweepw.setup(x0, y0, x1, y1) then
-          begin
-            // hit detected
-            sweepw.getPrevXY(hx, hy);
-            distSq := distanceSq(x0, y0, hx, hy);
-            if (distSq < lastDistSq) then
-            begin
-              lastDistSq := distSq;
-              ex := hx+minx;
-              ey := hy+miny;
-              result := px.mObj;
-              // if this is not a first cell, get outta here
-              if not firstCell then begin mInQuery := false; exit; end;
-              wasHit := true;
-            end;
-          end;
-        end;
-      end;
-      // next cell
-      ccidx := cc.next;
-    end;
-    // done processing cells; exit if we registered a hit
-    // next cells can't have better candidates, obviously
-    if wasHit then begin mInQuery := false; exit; end;
-    firstCell := false;
-    // move to next tile
-  until lw.stepToNextTile();
 
   mInQuery := false;
 end;