CS计算机代考程序代写 —


— Jan & Uwe R. Zimmer, Australia, July 2011

with Ada.Real_Time; use Ada.Real_Time;
with Real_Type; use Real_Type;

package Graphics_FrameRates is

Smoothing_Buffer_Size : constant Positive := 24;

subtype Hz is Real range 0.0 .. Real’Last;

function Measure_Interval return Time_Span;

function Average_Framerate (Interval : Time_Span) return Hz;

procedure Framerate_Limiter (Max_Framerate : Hz);

end Graphics_FrameRates;