1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with Ada.Real_Time; use Ada.Real_Time; 
  6.  
  7. package Graphics_FrameRates is 
  8.  
  9.    Smoothing_Buffer_Size : constant Positive := 24; 
  10.  
  11.    subtype Hz is Float range 0.0 .. Float'Last; 
  12.  
  13.    function Measure_Interval return Time_Span; 
  14.  
  15.    function Average_Framerate (Interval : Time_Span) return Hz; 
  16.  
  17.    procedure Framerate_Limiter (Max_Framerate : Hz); 
  18.  
  19. end Graphics_FrameRates;