Add initial prototype.

4-high/gel/source/gel-camera.ads

@@ -0,0 +1,38 @@
+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;