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