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; |