anchor.diff:    TMapCoord = record
       X,Y: integer;
   
  -    procedure Clear();
  +    procedure Clear(); inline;
     end;
   
     operator+ (a,b:TMapCoord):TMapCoord;
  
positive.code:     constructor Create(); //empty
      constructor SetFromCenter(X,Y, Width,Height: integer);
  
      function Left(): integer;
      function Right(): integer;
      function Top(): integer;
      function Bottom(): integer;
  
      function TopLeft():TMapCoord;
      function TopRight():TMapCoord;
      function BottomLeft():TMapCoord;
      function BottomRight():TMapCoord;
  
      function Intersect(Other: TMapRect):TMapRect;
  
  
negative.code: {$I compilersetup.inc}
  {$MODESWITCH ADVANCEDRECORDS}
  {$MODESWITCH NESTEDPROCVARS}
  {$inline on}
  
  interface
  
  