Advertisement
WarPie90

Untitled

Jun 26th, 2022
736
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program new;
  2. {$I ../../SRL-Development/osr.simba}
  3.  
  4. var
  5.   mmpt: TPoint;
  6.   t,c: Double;
  7. begin
  8.  
  9.   mmpt := Minimap.Center;
  10.   c := Minimap.GetCompassAngle();
  11.   t := PerformanceTimer();
  12.   for 0 to 5000 do
  13.     Minimap.ArrToMs([mmpt,mmpt,mmpt,mmpt], c);
  14.   WriteLn('Time with 4 points: ', PerformanceTimer() - t);
  15.  
  16.   c := Minimap.GetCompassAngle();
  17.   t := PerformanceTimer();
  18.   for 0 to 5000 do
  19.     Minimap.PointToMs(mmpt, c);
  20.   WriteLn('Time with 1 point:  ', PerformanceTimer() - t);
  21. end.
Advertisement
RAW Paste Data Copied
Advertisement