lace_opengl_0.1.0_672a6415/source/lean/support/opengl-dolly.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
25
26
27
28
29
30
31
with
     openGL.Camera,
     ada.Characters.latin_1;

package openGL.Dolly
--
-- A utility which moves a camera via the keyboard.
--
is
   type Item (Camera : openGL.Camera.view) is tagged private;


   procedure Speed_is           (Self : in out Item;   Now : in Real);
   procedure evolve             (Self : in out Item);

   function  quit_Requested     (Self : in     Item) return Boolean;

   procedure get_last_Character (Self : in out Item;   the_Character : out Character;
                                                       Available     : out Boolean);


private

   type Item (Camera : openGL.Camera.view) is tagged
      record
         quit_Requested : Boolean   := False;
         last_Character : Character := ada.Characters.Latin_1.NUL;
         Speed          : Real      := 1.0;
      end record;

end openGL.Dolly;