program new;
{$I ../../SRL-Development/osr.simba}

var
  mmpt: TPoint;
  t,c: Double;
begin

  mmpt := Minimap.Center;
  c := Minimap.GetCompassAngle();
  t := PerformanceTimer();
  for 0 to 5000 do
    Minimap.ArrToMs([mmpt,mmpt,mmpt,mmpt], c);
  WriteLn('Time with 4 points: ', PerformanceTimer() - t);

  c := Minimap.GetCompassAngle();
  t := PerformanceTimer();
  for 0 to 5000 do
    Minimap.PointToMs(mmpt, c);
  WriteLn('Time with 1 point:  ', PerformanceTimer() - t);
end.