anchor.diff:      function Intersect(Other: TMapRect):TMapRect;
   
       procedure Clear();
  +
  +    procedure Iterate(Callback: TMapCoordForEach);
     end;
   
     TTileInfo = record
  
positive.code: 
  {$I compilersetup.inc}
  {$MODESWITCH ADVANCEDRECORDS}
  
  interface
  
  
negative.code: type
    { TMapRect }
  
    TMapCoordForEach = procedure (const Coord: TMapCoord; var Stop: Boolean) is nested;
  
    TMapRect = object
      FTopLeft: TMapCoord;
      FWidth,FHeight: SizeInt;
  
      constructor Create(); //empty
      constructor SetFromCenter(X,Y, Width,Height: integer);
  