anchor.diff:      and (Bottom()>Other.Top())
       and (Other.Bottom()>Top());
   
  -  Result.Clear();
  +  Result.Create();
   
     if intersects then
     begin
  
positive.code: 
      procedure Clear();
  
      procedure SetFromCenter(X,Y, Width,Height: integer);
    end;
  
  
  
negative.code: type
    { TMapRect }
  
    TMapRect = object
      FTopLeft: TMapCoord;
      FWidth,FHeight: Integer;
  
      constructor Create(); //empty
  
      function Left(): integer;
      function Right(): integer;
  