lace_opengl_0.1.0_672a6415/source/lean/support/opengl-frame_counter.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
private
with
     ada.Calendar;

package openGL.frame_Counter
--
-- A utility which reports frames per second.
--
is
   type Item is tagged private;

   procedure increment (Self : in out Item);



private

   type Item is tagged
      record
         frame_Count   : Natural           := 0;
         next_FPS_Time : ada.Calendar.Time := ada.Calendar.Clock;
      end record;

end openGL.frame_Counter;