39 lines
627 B
Ada
39 lines
627 B
Ada
with
|
|
gel.World,
|
|
|
|
openGL.Surface,
|
|
openGL.Camera;
|
|
|
|
|
|
package gel.Camera
|
|
--
|
|
-- Models a camera.
|
|
--
|
|
is
|
|
type Item is new openGL.Camera.item with private;
|
|
type View is access all Camera.item'Class;
|
|
|
|
type Views is array (Positive range <>) of View;
|
|
|
|
|
|
---------
|
|
-- Forge
|
|
--
|
|
|
|
procedure free (Self : in out View);
|
|
|
|
|
|
--------------
|
|
-- Operations
|
|
--
|
|
|
|
procedure render (Self : in out Item; the_World : in gel.World.view;
|
|
To : in openGL.Surface.view);
|
|
|
|
|
|
private
|
|
|
|
type Item is new openGL.Camera.item with null record;
|
|
|
|
end gel.Camera;
|